ç°¡å˜ï¼ãŸã£ãŸï¼‘３行ã®ã‚³ãƒ¼ãƒ‰ã§HTMLå–得＆解æžã‚’ã™ã‚‹Perlスクリプト - DQNEOèµ·æ¥æ—¥è¨˜ï¼‘３行ã®ã‚³ãƒ¼ãƒ‰ã§ã€Yahoo!Japanã®ãƒˆãƒ”ックス一覧をå–å¾—ã™ã‚‹ï¼ Perlã§HTMLå–得・解æžã—ãŸã„ã¨ãã¯LWP::UserAgentã¨HTML::TreeBuilderã¨ã„ã†ã®ã‚’使ã†ã¨ç°¡å˜ã«ã§ãã¾ã™ã€‚ LWP::UserAgentを使ã†ã¨ã€Webページã®å–å¾—ãŒã§ãã¾ã™ã€‚ HTML::TreeBuilderを使ã†ã¨ã€HTMLã®DOM解æžãŒã§ãã¾ã™ã€‚ ã“ã®ï¼’ã¤ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã£ã¦ã€Yahoo!Japanã®ãƒˆãƒ”ックス一覧をå–å¾—ã—ã¦ã¿ã¾ã—ょã†ã€‚ コメント行ã¨ç©ºè¡Œã‚’除ãã¨ãŸã£ãŸã®ï¼‘３行ã§ã™ã€‚ use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; # urlを指定ã™ã‚‹ my $url = 'http://www.yahoo.co.jp'; # IE8ã®ãƒ•ãƒªã‚’ã™ã‚‹ my $user_agent = "Mozilla
{{#tags}}- {{label}}
{{/tags}}