LWP::UserAgent + POE::Filter::Line ã§è¡Œãƒ™ãƒ¼ã‚¹å‡¦ç† - naoyaã®ã¯ã¦ãªãƒ€ã‚¤ã‚¢ãƒªãƒ¼#!/usr/bin/env perl use strict; use warnings; use LWP::UserAgent; use POE::Filter::Line; my $filter = POE::Filter::Line->new; my $ua = LWP::UserAgent->new; ## POE::Filter::Line 㧠$chunk を行入力ã«å¤‰æ› $ua->get( 'http://d.hatena.ne.jp/naoya/', ':content_cb' => sub { my $chunk = shift; my $lines = $filter->get([ $chunk ]); for (@$lines) { print "got: $_\n"; } } ); POE::Filter ã¯å˜ç‹¬ã§ä½¿ã†ã“ã¨ãŒã§ãã¾ã™ã€‚LWP ã®ã‚³ãƒ¼ãƒ«ãƒãƒƒã‚¯ã¨çµ„ã¿åˆã‚
{{#tags}}- {{label}}
{{/tags}}