![\"\"](\"http:\/\/ts-engine.net\/wp-content\/uploads\/2013\/05\/the_drongo_love__happy_valentines_day_.jpg\" "\\"\u2665")
<\/a>\n<\/p>\n
Net::Twitter::Lite\u3092\u5229\u7528<\/h2>\n
\ncpan\u3067\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u3001\u3042\u3068\u306f\u3001\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u306e\u901a\u308a\n<\/p>\n
[perl]
\n#!\/usr\/bin\/perl<\/p>\n
use strict;
\nuse warnings;
\nuse Net::Twitter::Lite::WithAPIv1_1;
\nuse Data::Dumper;
\nuse utf8;
\nuse Encode;<\/p>\n
my %CONSUMER_TOKENS = (
\n consumer_key => ‘*******’,
\n consumer_secret => ‘*******’,
\n);<\/p>\n
my $ACCESS_TOKEN = ‘************’;
\nmy $ACCESS_TOKEN_SECRET = ‘******’;<\/p>\n
my $twi = Net::Twitter::Lite::WithAPIv1_1->new(%CONSUMER_TOKENS);<\/p>\n
$twi->access_token($ACCESS_TOKEN);
\n$twi->access_token_secret($ACCESS_TOKEN_SECRET);<\/p>\n
my $search_str = ‘\u691c\u7d22\u3057\u305f\u3044\u8a00\u8449’;
\nmy $res = $twi->search(
\n\t{
\n\t\tq => $search_str,
\n\t\tlang => ‘ja’,
\n\t}
\n\t);<\/p>\n
#\u30ec\u30b9\u30dd\u30f3\u30b9\u3092\u30c0\u30f3\u30d7\uff08\u5fc5\u8981\u3067\u3042\u308c\u3070\uff09
\n#print Dumper $res;
\n\tmy @URL;
\n\tmy $test = $res->{statuses};
\n\tforeach my $line (@$test){
\n\t\t@URL = $line->{text};
\n\t\tforeach my $url (@URL){
\n\t\t\tif ($url =~ \/(http:\\\/\\\/\\S+)(?:\\s||\\w)\/i){
\n\t\t\u3000\u3000\u3000\u3000\u3000\u3000print encode(‘UTF-8’,$1."\\n");
\n\t\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\t}
\n\t\t#print encode(‘UTF-8’,$url."\\n");
\n\t}
\n}
\n[\/perl]
\n\u3042\u3068\u306f\u3001\u9069\u5f53\u306b\u3001\u540d\u524d\u3092\u3064\u3051\u3066\u4ee5\u4e0b\u3092\u6253\u3066\u3070OK\u3002
\n[bash]
\npeal search.pl
\n[\/bash]<\/p>\n
\nhttp:\/\/**
\nhttp:\/\/**
\nhttp:\/\/**
\n\u3068\u8868\u793a\u3055\u308c\u308b\u306f\u305a\u3002
\n\u4e0a\u8a18\u306f\u30c4\u30a4\u30fc\u30c8\u3092\u691c\u7d22\u3057\u305f\u6587\u5b57\u304b\u3089\u63a2\u3057\u3066\u3001\u30c4\u30a4\u30fc\u30c8\u306bURL\u30ea\u30f3\u30af\u304c\u3042\u3063\u305f\u5834\u5408\u306b\u305d\u308c\u3092\u53d6\u5f97\u3067\u304d\u308b\u3002
\n\u6b21\u306f\u3001Mechanize\u3067\u30ea\u30f3\u30af\u306b\u30a2\u30af\u30bb\u30b9\u3057\u3066\u3001\u753b\u50cf\u3092\u53d6\u5f97\u3057\u3066\u307f\u3088\u3046\u304b\u306a\u3068\u3002\n<\/p>\n
\n\u305d\u306e\u4ed6
\n<\/h2>\n
\n\u3050\u3050\u3063\u3066\u307f\u308b\u3068\u3001API1.1\u5bfe\u5fdc\u306e\u305f\u3081\u306bpm\u30d5\u30a1\u30a4\u30eb\u3092\u5909\u66f4\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u307f\u305f\u3044\u3060\u3051\u3069\u3001
\n\u81ea\u5206\u306e\u5834\u5408\u306f\u3001Net::Twitter::Lite::WithAPIv1_1\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u3067\u81ea\u5206\u306e\u3084\u308a\u305f\u3044\u3053\u3068\u306f\u554f\u984c\u306a\u304f\u8868\u793a\u3055\u308c\u305f\u306e\u3067\u3001\u3053\u308c\u3067\u3088\u3057\u3068\u3057\u305f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30a2\u30e1\u30ea\u30ab\u4eba\u306fperl\u3001python\u304c\u30e1\u30a4\u30f3\u306a\u306e\u3067\u3001\u6700\u8fd1\u306f\u3082\u3063\u3071\u3089perl\u3092\u66f8\u304f\u3053\u3068\u304c\u975e\u5e38\u306b\u591a\u3044\u3002 \u7279\u306b\u3001\u30a2\u30e1\u30ea\u30ab\u4eba\u306f\u65e5\u672c\u3068\u9055\u3063\u3066\u30de\u30cb\u30e5\u30a2\u30eb\u3067\u884c\u308f\u305a\u306a\u3093\u3067\u3082\u3059\u3050\u30b9\u30af\u30ea\u30d7\u30c8\u5316\u3057\u3066\u3069\u3093\u3069\u3093\u52b9\u7387\u3042\u3052\u3066\u3044\u3053\u3046\u3068\u3044\u3046\u30de\u30a4\u30f3\u30c9\u304c\u5f37\u304f\u3042\u308b\u306e\u3067\u3001\u30a4\u30f3\u30d5\u30e9\u904b\u7528\u306e\u81ea\u5206\u3067\u3082\u3081\u3063\u3061\u3083\u30b3\u30fc\u30c9\u66f8\u3044\u3066\u3044\u308b\u3002 \u305b\u3063\u304b\u304f\u3001perl\u306e\u30b9\u30ad\u30eb\u304c\u3064\u3044\u305f\u306e\u3067\u3001\u306a\u3093\u304bAPI\u3067\u3082\u5229\u7528\u3057\u305f\u30b5\u30a4\u30c8\u3067\u3082\u4f5c\u308d\u3046\u3068\u3068\u308a\u3042\u3048\u305a\u3001twitter\u306eAPI\u3092\u4f7f\u3063\u305f\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u3044\u3066\u307f\u305f\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19,6,7,18],"tags":[28],"class_list":["post-734","post","type-post","status-publish","format-standard","hentry","category-perl","category-6","category-7","category-18","tag-perl"],"_links":{"self":[{"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/posts\/734","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/ts-engine.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=734"}],"version-history":[{"count":0,"href":"http:\/\/ts-engine.net\/index.php?rest_route=\/wp\/v2\/posts\/734\/revisions"}],"wp:attachment":[{"href":"http:\/\/ts-engine.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=734"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ts-engine.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=734"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ts-engine.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=734"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}