各位大侠，如何用PERL获取CSV文件的内容？急

zxforever

有一个URL地址是CSV文件，如何用PERL来获取到这个CSV文件的内容？忘各位大侠指教

ynchnluiti

原帖由 zxforever 于 2009-3-31 11:17 发表
有一个URL地址是CSV文件，如何用PERL来获取到这个CSV文件的内容？忘各位大侠指教

什么样的URL?

http://search.cpan.org/dist/Text-CSV/lib/Text/CSV.pm

zxforever

http://10.237.191.125:8803/gpm/p ... D0070&RESOURCE=,PLEXQ1,SYSPLEX&RANGE=20090331101500,20090331101640&FILTER=HI=9999

公司内网LINUX SERVER的一个URL地址

schnell18

楼主概念不清啊。是不是想说怎么分析类似逗号分割数据行的url啊？
如果是这样的话就用split呀：

my($part1, $part2, ..., $partn) = split $url;

That's it!

zxforever

是你理解错了
我有一个URL地址，访问该地址得到的是一个是一个CSV文件
如何通过该地址获取到CSV文件的内容，用PERL实现

schnell18

方法很多，可以用Perl调wget，也可以用LWP，例子网上很多，搜索一下吧

zjx0103

回复 1# zxforever
我也遇见了这个问题，在网页上点击csv选项，然后会弹出一个保存成excel的对话框，不知道怎么通过perl去保存这个东东，焦急中，再有就是通过手动保存了一份csv文件，然后打开一个excel，用data选项将csv文件保存成65001:Unicode(UTF-,字段之间用“;”间隔，不知道如何去实现，焦急中，，，不知道LZ解决过没有。


   

iamlimeng

1. #!/usr/bin/perl -w
   
2. 
   
3. use LWP::Simple;
   
4. my $url = 'http://10.237.191.125:8803/gpm/p ... D0070&RESOURCE=,PLEXQ1,SYSPLEX&RANGE=20090331101500,20090331101640&FILTER=HI=9999';
   
5. my $file = "test.csv";
   
6. my $code = getstore($url,$file);
   
7. if (is_error($code)) {
   
8.         print "--succeed 3--\n";
   
9. }
   
10. else  {
    
11.         print "--succeed 1--\n";
    
12. }
    
13. print "\nComplete!\7";
    
14. <STDIN>;

复制代码

rubyish

理解错了

among29

use LWP::Simple;

里面有个 getstore 方法，直接用。