ãŸã£ãŸï¼Šè¡Œã®ã‚³ãƒ¼ãƒ‰ã§HTMLå–得＆解æžã‚’ã—ãŸã„å ´åˆã¯Web::ScraperãŒä¾¿åˆ© - 酒日記 ã¯ã¦ãªæ”¯åº—ãªã‚“ã‹ç„¡èŒ¶æŒ¯ã‚Šã•ã‚ŒãŸã®ã§ã€‚ ç°¡å˜ï¼ãŸã£ãŸï¼‘３行ã®ã‚³ãƒ¼ãƒ‰ã§HTMLå–得＆解æžã‚’ã™ã‚‹Perlスクリプト ã‚’ Web::Scraper ã¨ã„ã†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã£ã¦æ›¸ãç›´ã™ã¨ã€ã“ã‚“ãªæ„Ÿã˜ã«ãªã‚Šã¾ã™ã€‚ use strict; use Web::Scraper; use LWP::UserAgent; use Encode; my $scraper = scraper { process "#topicsfb li" => "topics[]" => "TEXT"; }; $scraper->user_agent( LWP::UserAgent->new( agent => "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)" ) ); my $result = $scraper->scrape( URI->new("http
ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - Comic1☆3ã®ã‚µãƒ¼ã‚¯ãƒ«ä¸€è¦§
ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - pixivã‹ã‚‰å¥½ããªçµµå¸«ã®æŠ•ç¨¿ç”»åƒå…¨éƒ¨DLã™ã‚‹ã‚¹ã‚¯ãƒªãƒ—ト書ã„ãŸ
{{#tags}}- {{label}}
{{/tags}}