高手们能推荐一下吗 用perl做些什么可以提高一下水平

QUOTE:

原帖由 duziteng 于 2008-2-5 18:14 发表
我这个有个生物信息学方面的需求，你打开http://www.ncbi.nlm.nih.gov
这个网站是查询基因的，有一个搜索的入口，现在想写一个程序，比如 test.pl gata
gata就是我要查询的基因名称，然后把结果内容取下来， ...

CODE:

#!/usr/local/bin/perl

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = sprintf("%02D",$year - 100);
$month = sprintf("%02D",$mon + 1);
$mday = sprintf("%02D",$mday);
$mday .= e;

&getfile;

sub getfile{

if(-e "d$year$month$mday.htm"){ unlink("d$year$month$mday.htm"); }

my $cmd = "http://sc.hkex.com.hk/gb/www.hkex.com.hk/markdata/quot/d$year$month$mday.htm";
system "/usr/local/bin/wget --timeout=10 --continue --tries=3 --output-document=d$year$month$mday.htm $cmd";
waitpid($pid1,0);
}

open(FF,"d$year$month$mday.htm");
my @html_tmp = <FF>;
close(FF);

for(my $i=0;$i<5;$i++){
        if(!grep(/<\/html>/,@html_tmp)){
        sleep(1);
            &getfile;
        }
}

QUOTE:

原帖由 churchmice 于 2008-2-6 03:25 发表
帮我写个灌水机吧
能力要强悍一点的
自动分析网页内容然后灌