2ch_1.pl - shag ã®æ—¥è¨˜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 "<di
{{#tags}}- {{label}}
{{/tags}}