200分急求救。我知道不应该在这里问，但这里高手多。

给你两个网址看看对你会不会有帮助
http://www.csdn.net/expert/topic/872/872874.xml?temp=.3101313http://www.dfzx.com.cn/softcai/cgi-install/cgi-win.html#5

解决方案 »

  1.   

    在给你一个：
    http://518www.net/phpjc/ph010.htm
      

  2.   

    改成下面这样可以查到文件了，怎么样才能改成只查到HTM文件？要包含子目录
    #!/usr/bin/perl#######以下内容可根据需要修
    # Done #
    ################################################print "Content-type: text/html\n\n";
    print "<html>\n <head>   </head>\n";
    print "<body>\n ";$basedir = 'f:\test\test1;
    opendir(DIR,$basedir);  
    @files = readdir(DIR);
    chomp(@files);
    closedir(DIR);
    foreach $file (@files){  #里面对目录里的内容再处理
       if(-f $file){
    print $file;
    print "<br>\n";
       }
    }
      

  3.   

    up
    ================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
    ★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
    ★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
    ★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
         可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
    Http://www.ChinaOK.net/csdn/csdn.rar
    Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]
      

  4.   

    如果可以用内部模块： 
    #!/usr/bin/perl
    use File::Find;
    my $basedir = 'F:\test\test1';find(\&wanted,$basedir);sub wanted{
    if($_ =~ /\.htm/i){
        my $path = $File::Find::name;
                  print $path."\n";
    }
    } 要不自己写：
    #!/usr/bin/perl
    my $basedir = 'F:\test\test1';ReadDir($basedir);sub ReadDir{
    my $dir = shift;
    opendir(DIR,$dir) || die "Can't open $dir\n";
    my @files = readdir(DIR);
    chomp(@files);
    close(DIR);
    foreach my $file (@files){
    next if($file =~ /^\.+$/);
    my $file = "$dir\\$file";
    if(-f $file){
    if($file =~ /\.htm/i){
    print $file."\n";
    }
    }
    elsif(-d $file){
    ReadDir($file) || die"Can't open $file\n";
    }
    }
    }
      

  5.   

    哦， 写错了， 吧后面的ReadDir($file) || die"Can't open $file\n";
    改成 ReadDir($file)；
      

  6.   

    my $file = "$dir\\$file"; 的my最好去掉，  错误多多啊  ^_^