Perlåˆå¿ƒè€…ã®ãŸã‚ã®LWPã§proxyã®è¨å®šæ–¹æ³•ã¨ãƒˆãƒ©ãƒ–ルシューティング - OKWAVEPerlåˆå¿ƒè€…ã§ã™ã€‚ LWPã§ã©ã†ã—ã¦ã‚‚proxyãŒé€šã‚Šã¾ã›ã‚“・・・。 何ãŒæ‚ªã„ã®ã‹ã‚ã‹ã‚Šã¾ã›ã‚“。教ãˆã¦ãã ã•ã„。 モジュールã¯å…¨ã¦å°Žå…¥ã‚’確èªã—ã¾ã—ãŸã€‚ よã‚ã—ããŠé¡˜ã„ã—ã¾ã™ã€‚ 稚拙ãªãƒŸã‚¹ã ã£ãŸã‚‰ã”ã‚ã‚“ãªã•ã„。 use LWP::Simple; use LWP::UserAgent; use HTTP::Request::Common; my $ua = LWP::UserAgent->new( timeout=>"5" ); #cybersyndromeã•ã‚“ã‹ã‚‰LWP::Simpleã§proxyã‚’å–å¾— $_ = get('http://www.cybersyndrome.net/pla5.html'); #proxyをリストã«ä»£å…¥ (@proxy_list)=/\"\>(.*?)\<\/a\>\<\/li\>\<li\>/g; #é©å½“ãªã‚µã‚¤ãƒˆã‚’リクエストã®ã‚¿ãƒ¼ã‚²ãƒƒãƒˆã« $r = new
{{#tags}}- {{label}}
{{/tags}}