LWP::UserAgentã§decoded_contentã—ãŸã‚‰ç‰¹å®šã®Content-Typeã§æ–‡å—化ã‘ã™ã‚‹ã®ã§ãƒãƒƒã‚¯ã—㟠- (ﾟ∀ﾟ)o彡 sasata299's blog2009å¹´04月25æ—¥11:42 Perl LWP::UserAgentã§decoded_contentã—ãŸã‚‰ç‰¹å®šã®Content-Typeã§æ–‡å—化ã‘ã™ã‚‹ã®ã§ãƒãƒƒã‚¯ã—㟠実ã¯ä»Šæ—¥ã€URLを入力ã—ã¦ã‚‚らã£ã¦ã€ãã®URLã®ã‚¿ã‚¤ãƒˆãƒ«ã‚’è¿”ã™ã€ã¿ãŸã„ãªå‡¦ç†ã‚’ã™ã‚‹ã‚³ãƒ¼ãƒ‰ã‚’作ã£ã¦ã¾ã—ãŸã€‚ã§ã€å¤§ä½“ã®ã‚µã‚¤ãƒˆã¯ä½•ã‚‚å•é¡ŒãŒç„¡ã„ã‚“ã§ã™ã‘ã©ã€ä¸€éƒ¨ã®ã‚µã‚¤ãƒˆã§ã¯ã†ã¾ãå‹•ã„ã¦ãã‚Œãªã„ã‚“ã§ã™ã€‚。。 ã¡ãªã¿ã«ã‚³ãƒ¼ãƒ‰ã¯ã“ã‚“ãªæ„Ÿã˜ã§ã™ã€‚ã™ã”ã普通ã§ã™ï½— #!/usr/bin/perl use strict; use warnings; use Encode qw(encode_utf8); use LWP::UserAgent; print get_title(), "\n"; sub get_title { my $ua = LWP::UserAgent->new; my $res = $ua->get("http://www
ドメインパーã‚ング
perl - LWP::UserAgentã§é€²æ—表示ã—ã¤ã¤ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ‰ : 404 Blog Not Found
Yusukebe::Tech: Perlã§ãƒ‹ã‚³ãƒ‹ã‚³å‹•ç”»ã®flvã¨ã‚³ãƒ¡ãƒ³ãƒˆxmlをダウンãƒãƒ¼ãƒ‰ã™ã‚‹
{{#tags}}- {{label}}
{{/tags}}