Perl Hackers Hub：第4回　Twitterã‹ã‚‰å¦ã¶ï¼ŒWeb APIã®ã‚ホン（3）｜gihyo.jp … 技術評論社サンプルアプリケーションを動ã‹ã—ã¦ã¿ã‚ˆã† ã•ã¦ã€ã“ã“ã¾ã§ã§æ¬¡ã®3ã¤ã®è‚を押ã•ãˆã¾ã—ãŸã€‚ URIモジュールã§ãƒªã‚¯ã‚¨ã‚¹ãƒˆURIã®æ§‹ç¯‰ LWP::UserAgent モジュールã§URI ã¸ã®ãƒªã‚¯ã‚¨ã‚¹ãƒˆï¼ãƒ¬ã‚¹ãƒãƒ³ã‚¹ã®å–å¾— JSONモジュールã§ãƒ¬ã‚¹ãƒãƒ³ã‚¹ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ã®ãƒ‘ース ã“れらã®æµã‚Œã‚’追ãˆã°Twitter Search APIを使ã£ãŸã‚¢ãƒ—リケーションã®æ§‹ç¯‰ãŒå¯èƒ½ã§ã™ã€‚Twitter Search APIを利用ã—ãŸã‚·ãƒ³ãƒ—ルãªã‚¢ãƒ—リケーションã¨ã—ã¦ã€ã€Œâ ãŠã¯ã‚ˆã†ã€ã¨ã„ã†è¨€è‘‰ãŒå«ã¾ã‚ŒãŸæœ€è¿‘ã®ãƒ„イートをå–å¾—ã—表示ã™ã‚‹ã ã‘ã®ã‚³ãƒžãƒ³ãƒ‰ãƒ©ã‚¤ãƒ³ã‚¹ã‚¯ãƒªãƒ—トを作ã£ã¦ã¿ã¾ã—ょã†ã€‚ use LWP::UserAgent; use URI; use JSON qw(decode_json); use Encode qw(encode_utf8); use utf8; my $query = 'ãŠã¯ã‚ˆã†'; my $uri
{{#tags}}- {{label}}
{{/tags}}