Perl : HTML::TreeBuilderã«ã‚ˆã‚‹ãƒ‘ース（リンクã®å–得）ã“ã“ã§ã¯ã€å–å¾—ã—ãŸHTTPメッセージã®body部分ã«å«ã¾ã‚Œã‚‹HTMLを解æžã—ã¦Aタグ内ã«å«ã¾ã‚Œã‚‹ãƒªãƒ³ã‚¯URLã‚’å–り出ã™æ–¹æ³•ã‚’説明ã—ãŸã„ã¨æ€ã„ã¾ã™ã€‚ HTTPクライアントサンプル 以下ã«HTTP::Liteã¨HTTP::TreeBuilderを利用ã—ãŸã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆã‚’示ã—ã¾ã™ã€‚ ã¾ãšã€Aã‚¿ã‚°ã‚’é †æ¬¡å–å¾—ã—ã¦ã„ã¾ã™ã€‚ 次ã«ã€å–å¾—ã—ãŸAã‚¿ã‚°ã«å«ã¾ã‚Œã‚‹href attributeã‚’printã—ã¦ã„ã¾ã™ã€‚ #!/usr/bin/perl use HTTP::Lite; use HTML::TreeBuilder; $http = new HTTP::Lite; # URL部分を変更ã—ã¦ä¸‹ã•ã„ $req = $http->request("http://www.hogehogeURL.com/") || die $!; $body = $http->body(); $tree = HTML::TreeBu
{{#tags}}- {{label}}
{{/tags}}