1

我正在尝试自动化我的一项任务，我必须从http://www.filehippo.com/download_google_talk/下载一些软件的最后 5 个版本，比如说 Google talk 。

我从来没有做过这种类型的编程，我的意思是，通过 perl 与 Web 交互。我刚刚阅读并知道通过 CGI 模块我们可以实现这个东西，所以我尝试了这个模块。

如果有人可以给我更好的建议，那么欢迎你:)

我的代码： 

#!/usr/bin/perl 

use strict;
use warnings;
use CGI; 
use CGI::Carp qw/fatalsToBrowser/;

my $path_to_files =   'http://www.filehippo.com/download_google_talk/download/298ba15362f425c3ac48ffbda96a6156';

my $q = CGI->new;

my $file = $q->param('file') or error('Error: No file selected.');
print "$file\n";

if ($file =~ /^(\w+[\w.-]+\.\w+)$/) {
   $file = $1;
}
else {
   error('Error: Unexpected characters in filename.');
}   

if ($file) {
  download($file) or error('Error: an unknown error has occured. Try again.');
}  

sub download 
{

open(DLFILE, '<', "$path_to_files/$file") or return(0);
print $q->header(-type            => 'application/x-download',
                 -attachment      => $file,
                  'Content-length' => -s "$path_to_files/$file",
   );
  binmode DLFILE;
   print while <DLFILE>;
   close (DLFILE);
   return(1);
}

sub error {
   print $q->header(),
         $q->start_html(-title=>'Error'),
         $q->h1($_[0]),
         $q->end_html;
   exit(0);
}

在上面的代码中，我试图打印要下载的文件名，但它显示错误消息。我无法弄清楚为什么会出现此错误“错误：未选择文件”。快来了。

4

1 回答 1

2

对不起，但你走错了路。你最好的选择是这个模块：http ://metacpan.org/pod/WWW::Mechanize

这个页面包含很多例子：http ://metacpan.org/pod/WWW::Mechanize::Examples

它可能更优雅，但我认为这段代码更容易理解。

use strict;
use warnings;

my $path_to_files =   'http://www.filehippo.com/download_google_talk/download/298ba15362f425c3ac48ffbda96a6156';
my $mech = WWW::Mechanize->new();
$mech->get( $path_to_files );
$mech->save_content( "download_google_talk.html" );#save the base to see how it looks  like
foreach my $link ( $mech->links() ){ #walk all links
    print "link: $link\n";
    if ($link =~ m!what_you_want!i){ #if it match
        my $fname = $link;
        $fname =~ s!\A.*/!! if $link =~ m!/!;
        $fname .= ".zip"; #add extension
        print "Download $link to $fname\n";
        $mech->get($link,":content_file" => "$fname" );#download the file and stoore it in a fname.     
    }
}
于 2013-01-31T09:16:03.600 回答