以前寫的淘寶賣家賣出商品數(shù)量價(jià)格查詢小工具

nsnake

主要就是查看該賣家在指定時(shí)期內(nèi)都賣了哪些商品，數(shù)量和價(jià)格
因?yàn)樘詫氋u出的數(shù)據(jù)有一定的緩沖區(qū)，所以查詢的數(shù)據(jù)并非100%是準(zhǔn)確的，但如果你查詢的時(shí)間段越長，數(shù)據(jù)會(huì)越精確
使用也比較簡單
修改

1. my $url='http://rate.taobao.com/user-rate-a2af4af68a32e8f046e8703fed064284.htm';

復(fù)制代碼

為你需要的店家信用評(píng)價(jià)的地址即可。

1. 
   
2. #!/usr/bin/perl -w
   
3. #####################################
   
4. #淘寶賣家賣出商品數(shù)量價(jià)格查詢     #
   
5. #BY cgi.net <loveme1314@sakuras.cn> #
   
6. #http://blog.sakuras.cn             #
   
7. #####################################
   
8. use strict;
   
9. use LWP::UserAgent;
   
10. use HTTP::Cookies;
    
11. use HTML::TreeBuilder;
    
12. #use HTTP::Request;
    
13. #use Data::Dumper;
    
14. $|=1;
    
15. my $url='http://rate.taobao.com/user-rate-a2af4af68a32e8f046e8703fed064284.htm';
    
16. #查詢天數(shù)
    
17. my $day = 7;
    
18. #設(shè)置顯示列表
    
19. my %conf = (
    
20.              num   => 1,
    
21.              tite  => 1,
    
22.              price => 1,
    
23.              url   => 0,
    
24.             );
    
25. ###########################################################
    
26.    $url =~ /rate\-(.*)\.htm/;
    
27. my $user = $1;
    
28. my @ns_headers = (
    
29.                  'User-Agent' => 'Mozilla/4.76 [en] (Win2000; U)',
    
30.                  'Accept' => 'image/gif, image/x-xbitmap, image/jpeg,
    
31.                   image/pjpeg, image/png, */*',
    
32.                   'Accept-Charset' => 'iso-8859-1,*,utf-8',
    
33.                   'Accept-Language' => 'en-US',
    
34.                  );
    
35. #只查看好評(píng)過的商品
    
36. our $good_url = "http://rate.taobao.com/user-rate-$user--detailed|1--goodNeutralOrBad|1--timeLine|-$day--receivedOrPosted|0--buyerOrSeller|0.htm#RateType";
    
37. our %count;
    
38. while ( $good_url )
    
39.       {
    
40.   #print '>>1' . $good_url ."\r\n";
    
41.      _get_data ( $good_url );
    
42.    }
    
43. #生成列表清單并排序
    
44. map { $count{$_}->{sort} = sprintf('%s', $count{$_}->{'num'} ) } keys %count;
    
45. my @marksorted = sort { $count{$b}->{sort} <=> $count{$a}->{sort} } keys %count;
    
46. foreach ( @marksorted )
    
47.          {
    
48.    $count{$_}->{'num'}   = '' unless $conf{num} ;
    
49.          $count{$_}->{'tite'}  = '' unless $conf{tite} ;
    
50.    $count{$_}->{'price'} = '' unless $conf{price} ;
    
51.    $count{$_}->{'url'}   = '' unless $conf{url} ;
    
52.    print sprintf ("%u\t%s\t%s\t%s\r\n",$count{$_}->{'num'},$count{$_}->{'tite'},$count{$_}->{'price'},$count{$_}->{'url'});
    
53.    }
    
54. exit;
    
55. 
    
56. sub _get_data
    
57. {
    
58. my $good_url_new = shift || exit;
    
59. #開始訪問頁面
    
60. my $browser=LWP::UserAgent->new;
    
61. my $tree = new HTML::TreeBuilder;
    
62. my $resp =$browser->get($good_url_new,@ns_headers);
    
63. die $resp->message ,$resp->status_line unless $resp->is_success;
    
64.     $tree->parse( $resp->content );
    
65. #獲取物品價(jià)格
    
66. our @prices;
    
67. foreach my $tmp2 ( $tree->look_down( '_tag' , 'span' , 'class' , 'price' ) )
    
68.               {
    
69.                push @prices , $tmp2;
    
70.                  }
    
71. #獲取物品名稱
    
72. foreach my $tmp1 ( $tree->look_down( '_tag' , 'p' , 'class' , 'exp' ) )
    
73.                {
    
74.                 my $list = $tmp1->look_down('_tag', 'a');
    
75.     my $tmp2 = shift @prices;
    
76.     my $list2 = $tmp2->look_down('_tag', 'em');
    
77.     #$list->dump();
    
78.     #$list2->dump();   
    
79.     count($list->attr('title'),$list->attr('href'),$list2->as_text);
    
80.     $tmp1->delete;
    
81.                 }
    
82.                
    
83. #獲取總頁數(shù)
    
84. my $pages = 0;
    
85. foreach ( $tree->look_down( '_tag', 'a',
    
86.                                     sub {
    
87.                                             if ($_[0]->as_HTML('<>&',' ',{}) =~ /\&gt\;\&gt\;/ig)
    
88.                                          {$pages = $_[0]->attr('href')}
    
89. 
    
90.                                          }
    
91.                         ) ){};
    
92. $tree = undef;
    
93. #print  '>>2' . $pages . "\r\n";
    
94. if ( $pages ) {
    
95.                     $good_url = $pages;
    
96.           }
    
97. else{ $good_url = $pages ;}
    
98. }
    
99. sub count
    
100. {
     
101. my ($tite,$url,$price) = @_;
     
102. my $id = _return_id($url);
     
103. #print $id . "\n";
     
104. if ( exists $count{$id} )
     
105.                   {
     
106.                       ++($count{$id}->{'num'}) ;
     
107.       }
     
108. else{
     
109.   $count{$id} = { 'num' =>1 , 'tite' => $tite , 'url' => $url ,'price' => $price };
     
110.   }
     
111. }
     
112. sub _return_id
     
113. {
     
114.     my $content = shift;
     
115.        #$content =~ /auction1\.taobao\.com\/auction\/snap_detail\.htm\?trade_id=(\d+)&auction_id=([0-9a-z]+)/ig;
     
116.        $content =~ /auction_id=([0-9a-z]+)/ig;
     
117.        return $1;
     
118. }
     

復(fù)制代碼

shaneqi

看看

ioerr

有趣的小工具，lz思維夠發(fā)散，這個(gè)感覺符合perl的用途，呵呵

linuxty

qiaoqiao

yybmsrs

學(xué)習(xí)下

dahe_1984

我也看看

toniz

看看

hh9net

帖子
    65
主題
    0
精華
    0
可用積分
    841  
專家積分
    0  
來自
    廣州
在線時(shí)間
    269 小時(shí)
注冊時(shí)間
    2009-10-19
最后登錄
    2010-02-24

狀態(tài)：...當(dāng)前在線...

[博客] [短信]

suntoltti

arigatuo

呵呵 這個(gè)很有趣