é ‘å¼µã£ã¦æ£è¦è¡¨ç¾å†…ã§å††å‘¨çŽ‡ã‚’999æ¡è¨ˆç®—ã™ã‚‹Perlプãƒã‚°ãƒ©ãƒ - 竹迫ã®è¿‘æ³å ±å‘Š
ã¨ã„ã†ã®ã¯å˜˜ã§ã™ã€‚ã”ã‚ã‚“ãªã•ã„。 #!/usr/bin/perl '~!'!~('(?{'.('=&$;<(*/$&:?$+!$+"$&":!;$)(`~"*=#=)"&&$;&('^ '`):&])`<<`]{~@-+*-+{|,`+-#=,/`{)&|"`+@"="='^ '(|{=,`>{"|%-=-```{/,)>#``#.<#+?`%#{+%_??-.').'})') 実行çµæžœ 3.141592653589793238462643383279502884197169399375105820974944592307816406286208 99862803482534211706798214808651328230664709384460955058223172535940812848111745 028410270193852110555964462294895493038196
perl -　å‹æ‰‹ã«æ·»å‰Š - Perl入門#1@ITPro : 404 Blog Not Found
2008å¹´06月03æ—¥06:00 カテゴリLightweight Languages perl -　å‹æ‰‹ã«æ·»å‰Š - Perl入門#1@ITPro ã•ã™ãŒã«å‡ºå…¸ãŒæ—¥çµŒLinux 2003å¹´7月å·ã ã‘ã‚ã£ã¦ã€å°‘ã—トウãŒãŸã£ã¦ã¯ã„ã‚‹ã‘ã©ã€ç¾åœ¨ã§ã‚‚ã‚ãšã‹ãªä¿®æ£ã§ä½¿ãˆã‚‹è¨˜äº‹ã€‚ã•ã™ãŒå·åˆã•ã‚“ã¨ã„ã£ãŸã¨ã“ã‚ã‹ã€‚ 第1回　Perlã®æ–‡æ³•ã®åŸºæœ¬ï¼šITpro ã¨ã„ã†ã‚ã‘ã§ã€ã“ã®è¨˜äº‹ã®ã€Œç¾ä»£åŒ–ã€Patchを。 全般 use strict;ã ã‘ã§ã¯ãªãuse warnings;ã‚‚åŠ ãˆã¾ã—ょã†ã€‚ ã•ã‚‰ã«ï¼Œèª¿ã¹ã¦ã‚‚分ã‹ã‚‰ãªã„ã“ã¨ãŒã‚ã‚Œã°ï¼Œãƒ¡ãƒ¼ãƒªãƒ³ã‚°ãƒ»ãƒªã‚¹ãƒˆã‚„ユーザー・グループ＊2ã«è³ªå•ã—ã¦ã¿ã¦ã‚‚よã„ã§ã—ょã†ã€‚ blogã«æ›¸ãã®ã‚‚アリã§ã™ã€‚ã‚ã¨ç§ã¯ä½¿ã£ã¦ã„ãªã„ã‘ã©IRCã¨ã‹ã€‚ ビルトイン関数ã¯()ã§ããらãªã„æ–¹ãŒè¦–èªæ€§ãŒä¸ŠãŒã‚Šã¾ã™ã€‚ before: chomp($sLine); after: chomp $sLine;
第1回　Perlã®æ–‡æ³•ã®åŸºæœ¬
Perlã¨ã¯ä½•ã‹ Perlã¯ãƒ†ã‚スト処ç†ã«ç‰¹ã«å„ªã‚ŒãŸéžå¸¸ã«å¼·åŠ›ãªãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°è¨€èªžã§ã™ã€‚ã§ã‚‚，ã†ã¾ã使ãˆã°ã‚·ã‚¹ãƒ†ãƒ ã‚’ãã‚Œã„ã«æŽƒé™¤ã•ã›ã‚‹ã“ã¨ã‚‚ã§ãã¾ã™ã—，ã•ã‚‰ã«ã‚ãªãŸã®å¿ƒã‚‚ã„ã‚„ã—ã¦ãれるã«é•ã„ã‚ã‚Šã¾ã›ã‚“。ã¾ãŸï¼Œå¤šãã®ãƒ‡ã‚£ã‚¹ãƒˆãƒªãƒ“ューションã§æ¨™æº–çš„ã«ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¦ã„ã¾ã™ã—，自分ã§ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã™ã‚‹ã“ã¨ã‚‚難ã—ãã¯ã‚ã‚Šã¾ã›ã‚“。 「Perlã£ã¦CGIã˜ã‚ƒãªã„ã®ï¼Ÿã€ã¨æ€ã†æ–¹ãŒã„ã‚‹ã‹ã‚‚知れã¾ã›ã‚“。確ã‹ã«ï¼ŒCGIã§åˆ©ç”¨ã™ã‚‹ãŸã‚ã«Perlã«å‡ºä¼šã£ãŸäººã¯å¤šã„ã§ã—ょã†ã€‚主ãªåˆ©ç”¨æ–¹æ³•ã¨ã„ãˆã°ï¼ŒWebアプリケーションã®ä½œæˆã‹ã‚‚ã—ã‚Œã¾ã›ã‚“。ã—ã‹ã—，「プãƒã‚°ãƒ©ãƒŸãƒ³ã‚°Perlã€ï¼Š1ã«ã‚ˆã‚Œã°ï¼ŒPerlã¯æœ€åˆï¼Œã‚·ã‚¹ãƒ†ãƒ 管ç†ã®ãŸã‚ã®ãƒ„ールã¨ã—ã¦ä½œã‚‰ã‚ŒãŸã‚‚ã®ã ã£ãŸã®ã§ã™ã€‚ Fedoraãªã©ã®Linuxディストリビューションã§ã¯å°Žå…¥æ™‚ã«é–‹ç™ºç’°å¢ƒã‚’é¸ã¶ã¨PerlãŒã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã•ã‚Œã¾ã™ã€‚åŒæ™‚ã«Perlã®ãƒ‰ã‚ュメントもインストールã•ã‚Œ
Linuxã§è‡ªå®…サーãƒæ§‹ç¯‰ãƒ»ç®¡ç†: KSKNET
stat - ãƒ•ã‚¡ã‚¤ãƒ«æƒ…å ±ã®å–å¾— stat関数ã¯ãƒ•ã‚¡ã‚¤ãƒ«ã®æ§˜ã€…ãªæƒ…å ±ã‚’å¾—ã‚‹ãŸã‚ã®é–¢æ•°ã§ã™ã€‚ã“ã®é–¢æ•°ã‚’使ã†ã“ã¨ã§ãƒ•ã‚¡ã‚¤ãƒ«ã‚µã‚¤ã‚ºã‚„ã€ãƒ•ã‚¡ã‚¤ãƒ«æ‰€æœ‰è€…ã€æœ€çµ‚更新時間ãªã©ã‚’調ã¹ã‚‹ã“ã¨ãŒã§ãã¾ã™ã€‚
WWW::NicoVideo - ニコニコ動画を3å€æ¥½ã—ã‚€ãŸã‚ã®Perlモジュール
NAME SYNOPSIS DESCRIPTION METHOD new() ranking() entry() tag() save_flv() SEE ALSO AUTHOR COPYRIGHT NAME WWW::NicoVideo - ニコニコ動画を3å€æ¥½ã—ã‚€ãŸã‚ã®Perlモジュール 2007/8/1ç¾åœ¨ã€ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ã®ãƒšãƒ¼ã‚¸å¤‰æ›´ã«ã‚ˆã‚Šã‚¨ãƒ©ãƒ¼ãŒç™ºç”Ÿã—ã¦ã„ã¾ã™ã€‚近日修æ£äºˆå®š SYNOPSIS use WWW::NicoVideo; my $n = new WWW::NicoVideo( 'mail', 'password'); # ランã‚ãƒ³ã‚°æƒ…å ±ã‚’å–å¾—ã™ã‚‹ my $data = $n->ranking( span => 'weekly', type => 'mylist', all => 1 ); # ä»»æ„ã®ã‚¿ã‚°ä¸€è¦§æƒ…å ±ã‚’å–å¾—ã™ã‚‹ my $data = $n->tag( word =
1
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}