[LWP::Simple]获取中行外汇牌价 - 美元兑人民币

[LWP::Simple]获取中行外汇牌价 - 美元兑人民币

帖子523066680 » 2015-12-11 20:08

Syntax: [ Download ] [ Hide ]
  1. #获取中行外汇牌价-美元栏目的信息 
  2. use LWP::Simple; 
  3. use Encode; 
  4.  
  5. $stream=get("http://www.boc.cn/sourcedb/whpj/index.html"); #unicode 
  6. @all=split('\n',$stream); 
  7.  
  8. #获取标题栏信息 
  9. my ($i,@arr); 
  10. $i=0; 
  11. foreach (@all)  
  12.   if (/th>(.*)<\/th>/)  
  13.   { 
  14.     $arr[$i++]=encode('gbk',$1); 
  15.   } 
  16.  
  17. #获取美元信息 
  18. my $spec=decode('utf-8',"<td>美元<\/td>"); 
  19. my $begin=0; 
  20. my $j=0; 
  21. foreach (0..$#all)  
  22.   $begin=1 if ($all[$_]=~/$spec/i); 
  23.   if ($begin==1 && $j < $i )  
  24.   { 
  25.     $all[$_]=~/td>(.*)<\/td>/i; 
  26.     print $arr[$j++],"\t",encode('gbk',$1),"\n"; 
  27.   } 
  28.  
  29. <STDIN>; 
论坛已转移 Code-By.Org 群号 322023604
头像
523066680
版主
 
帖子: 1680
注册: 2012-03-06 15:08

回到 网络

在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客

cron