2ch_1.pl
2NN 2ã¡ãããããã¥ã¼ã¹éå ±ï¼ããã®ãã¥ã¼ã¹éå ±ï¼ã®RSSã¯ã¿ã¤ãã«ããé
ä¿¡ãã¦ããã¾ãããã¨ãããã㧠Plagger 㧠EFTã
2ch_1.pl
# only fetchs 1st entry sub handle { my($self, $args) = @_; $args->{entry}->link =~ qr!^http://\w+\.2ch\.net/.*?\d+/!; } sub extract { my($self, $args) = @_; if($args->{entry}->link =~ m!(\d+)$!) { my $id = $1; $args->{content} =~ s!\s?<br>\s?!\n!g; if ($args->{content} =~ m|<dt>(1.*?)<dt>|s){ my $body = $1; return "<div>$body</div>"; } } return; }
ã¹ã¬ããã®1ã®å
容ãåå¾ãã¾ãã1ããåå¾ããªãã®ã§æ£ç¢ºã«ã¯ FullText ã§ã¯ãªãã§ãããå½ããåã ãã©ã人大æã®æã¯ãªã«ãåå¾ã§ãã¾ããã
ã¨ãã㧠EFT ã«å
ã
ãã 2ch.pl ã¯æ£è¦è¡¨ç¾ã qr!^http://\w+\.2ch\.net/.*\d+/\d+$! ã§ã2ã¡ããããã® "ææ°50" 㯠xxxx/L50(æ¬å½ã¯å°æå)ãªã®ã§ãæ£è¦è¡¨ç¾ããããã³ã°ããªãã®ã§ãã£ã¡ãèµ°ãã¨ãããã¨ã¯ãªãã§ãããã£ã¨ãåãæ£è¦è¡¨ç¾ã®ãã³ãã«ã 2ã¤ä»¥ä¸ããã¨ã©ããªããè¯ãç¥ããªããã©ã