紧急求助~

紧急求助~

阿~国外老师留的作业不会做......明天就要交了~大家帮个忙,以前从来没有学过perl
1: 用命令行参数(argv?)将一个directory里的文件名称,大小,存在时间(以秒计)列出来
2:在某一个网页上下载数据,存档
Write a program which downloads the latest METAR observation for Huntsville from an Internet website. The program should then append them to a file called KHSVmetar.dat. After the program writes the metar to the file it should then write a newline character. Be sure to put comments in program.

                                    谢了~
perlvar ARGV
第一个大概是这样就可以:
if(@ARGV){
        for (@ARGV){
                $dirname = $_;
                chdir "$dirname" or die "Cannot open dir: $!";
                my @files = glob ".* *";
                for (@files){
                        my $time = localtime -C;
                        print $_, "\t", -s, "\t", $time, "\n";
                }
        }
}else{
        my @files = glob ".* *";
        for (@files){
                my $time = localtime -C;
                print $_, "\t", -s, "\t", $time, "\n";
        }
}

可以接受任意的文件名做参数,但是无法递归进入子文件夹,如果需要应用到FILE::FIND

第二个要用到LWP::SIMPLE就可以了
多谢多谢~