ååã®ã¨ã³ã㪠ãPerlã§æ¥ä»ã»æéæä½ - DateTime ã¢ã¸ã¥ã¼ã«ã®ä½¿ãæ¹ãã§æ¸ããã¨ãããã¨ã£ã¦ã便å©ãªDateTimeã¢ã¸ã¥ã¼ã«ã§ãããå¼·ãã¦é£ç¹ããããã¨ããã°ãå¿ è¦ãªä¾åã¢ã¸ã¥ã¼ã«ãå¤ãã㨠= ã¤ã³ã¹ãã¼ã«ãé¢åãããäºãã¨å人çã«ã¯æãã¾ããshell 㨠make ã³ãã³ãã使ããç°å¢ãªãã°ã"$ perl -MCPAN -e 'install DateTime' " ã§èªåã¤ã³ã¹ãã¼ã«ãã¡ãããã®ã§ããããããã§ããªãç¶æ³: telnet ç¦æ¢ã®ç°å¢ã§ cgi ä½ãããå ´å (ç¡æãã¼ã ãã¼ã¸ãµã¼ãã¹ç)(顧客ã®ãµã¼ãç°å¢ã§ã®éçºã§ãã¯ã©ã¤ã¢ã³ãã«ä¿¡ç¨ããã¦ããªãç¶æ³ã¨ã) ãµã¼ãã®ä¿å®ã»ã»ãã¥ãªãã£ä½å¶ãããã¡ããã§ make ã³ãã³ãã®å©ç¨ãè¦å¶ããã¦ããå ´å (åºããããçµé¨ãã) ãããªç¶æ³ä¸ã ã¨ãã¨ããã«DateTimeã¢ã¸ã¥ã¼ã«ãå©ç¨ããäºã¯é£ãããªã£
http://d.hatena.ne.jp/kkentaro/20060528/1148838634 Firefox ã®å±¥æ´ãã YouTube ã ãæã æãã ããªããããªã®ã§ã use File::Mork; my $mork = File::Mork->new( shift ) || die $File::Mork::ERROR; foreach my $entry( grep { $_->{URL} =~ /youtube\.com/ } $mork->entries ) { print $entry->{Name}, "\t", $entry->{URL}, "\n"; }ãã ããã ãã ã¨ãããããã¼ã¸ã¨ããã°ã¤ã³ãã¼ã¸ã¨ããå¼ã£ããã£ã¡ãããã©ã config ã§ãFile::Mork::Entry ã®ä»»æã® key ãããæ¡ä»¶ã«ãããããã®ã ãåãåºããããã«ãã¦ãCusto
Perl ã®ã¢ã¯ã»ãµã¢ã¸ã¥ã¼ã«ã¨ãã¦ã¯ãClass::Accessor::Fast ã人æ°ããã # ããã¯ä¾ package Hoge; use base 'Class::Accessor::Fast'; __PACKAGE__->mk_accessors(qw( req )); sub new { my $class = shift; bless { url => 'http://e8y.net/', req => HTTP::Request->new, }, $class; } ãããªé¢¨ãªãããã·ã¥ã« bless ããããããã¯ã©ã¹ã®å ´åã«ããã®ããã·ã¥ã®ãã¼ã¨åãååã§getterã使ãã¦ããã¨ã屿§ã«ã¢ã¯ã»ã¹ããå ´åï¼$hoge->urlï¼ã¨å±æ§ã®ãªãã¸ã§ã¯ãã®ã¡ã½ãããå¼ã¶å ´åï¼$hoge->req->header()ï¼ã«ããã¬ã¼ã¹{} ãéä¸ã«å ¥ã£ã¦ããªãã®ã§è¦ãããããã
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
å¦çãå®è¡ä¸ã§ã
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}