Perl统计Google关键字点击次数
#!/usr/bin/perl -wuse LWP::UserAgent;use HTTP::Request::Common;use HTTP::Request::Common qw(POST);use CGI qw(:standard);print header;if(param("keyword")){ getCount(param("keyword"));}print qq{<html><head><title>Keyword Count</title></head><body><form><input name="keyword" type="text"><input type="submit" ></form></body></html>};sub getCount{ my $keyword=$_; my $agent=LWP::UserAgent->new; my @header=('User-Agent'=>'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.6) Gecko/2009011913 Firefox/3.0.6','Accept' => 'text/html','Accept-Language' => 'zh-cn,en-us;q=0.7,en;q=0.3','Accept-Charset'=>'UTF-8,*','Cookie'=> 'I=zmWBtR8BAAA=.+ehsNIR5wNK795JOQzLGPQ==.1eQUY2s0cXWM2TXVScVfow==;PREF=ID=6a37ea10f2d8e0fb:NW=1:TM=1230601614:LM=1230601614:S=l0OPj7frehOohm_v;NID=20=DNUKYnlJCimdurqJOIiQ8tCG2kAL4Z-qExXRSVb6qr3C_C3L_2nNfV1bBW5H8nHVoy0_Vj-eGexpwk1m1T4VEMSNn7yzQljzXX8orhQ16wu9u0zIYQ6FBbgrUcMl50Bx;SID=DQAAAIEAAABAyuZ2AdG2Vcpivi7S_IoWa1R0svOUZclCZJFd14QOjUd_A-UVGygrDOn3niBwvGsCO5kOrcOaaim2OEv6PjM3g6BdgPL7VvsFTDJkj1AxeG1H7ZQ9eSiGV3MGlz4wlkm4xpkAOk1xDoHcB6dsdw2aLx9Fay6MfbM_gAb1KFvodhMO9gydhLpea7AO_CqTZs4;S=awfe=zK09ZVx_OQ0AQW8x5-UA2A:awfe-efe=zK09ZVx_OQ0AQW8x5-UA2A; S_awfe=NBRTtaO43yGTtniA-xoIDA; __utma=92930125.1741832121.1235697646.1235697646.1235697646.1; __utmb=92930125; __utmc=92930125; __utmz=92930125.1235698172.1.3.utmccn=(organic)|utmcsr=google|utmctr=%E8%8E%B7%E5%8F%96%E5%85%B3%E9%94%AE%E5%AD%97%E5%BB%BA%E8%AE%AE+|utmcmd=organic;A=AIxWtxS_7Km1dSgnK_UEed5chvM8-GEtxzUVHaFkfXUIct0_ZfA_4RLepVHOI2__cwZ_Tfqx7e8_hBFz--0OBhLXttp-eZHHdgpesaIMHgpa4EUjeK3kJMpnXmjvO1xr006ubsJfcRqyH0ULFYFB_ElsfOsZT7aFQkvPJObUS2OcNCIvGppO0xMG7Ol7KUtqgqaJkov060suhLeHsMliioZJ8ti6jXgCDEf4AICKnHakMN_bjSEuv7fFhOQmLCVOhBiYyFez1xrFdKp-YVh7bUyrVwNLBXaJbXywAoYqD8zyFpxo81hoHigD2xYBb1MjMjpxjPhOi1NKk4JTDW7ObJLZ17T1gErnimOyd0bAkPAGV2qj3UmzcXQ; AdsUserLocale=zh_CN; __utmx=92930125.; __utmxx=92930125.');my $url='https://adwords.google.com/select/VariationsTool?adgroupid=0&campaignid=0&adgroupIntegrated=false&skipLogin=true&currencyCode=CNY&maxCpcOverride=&targetLanguages=zh_CN&targetCountries=CN&synonyms=true&suggest=true&excludedWords=&allowExisting=true&showAdult=false&showTrademark=null&keywords='.$keyword;my $res =$agent->get($url,@header);my $content;if($res->is_success){$content= $res->content;$content=~s/\r\n|\n\r|\n|\r//g;$content=~/(\&#39;$keyword\&#39;)(.*?),\s+(\d+),\s+\./;#print $2."<br>";print$keyword.":".$3;}exit;}
页:
[1]