紧急求助啊！为什么不print

lili817

各位高手好！
小弟刚学perl，老师布置作业，发现print的不正确。
题目是这样的，当前目录里有很多 .frq 类型文件，

例如
1ASW.frq
1CEU.frq
1CHB.frq
1CHD.frq
1GIH.frq
1JPT.frq

要求设计程序运行后，输出一个txt文件，包含所有的 .frq 的文件名，并且输出的文本内容为以下格式

### .frq files ###
15ASW.frq
15CEU.frq
15CHB.frq
15CHD.frq
15GIH.frq
15JPT.frq
15LWK.frq
15MEX.frq
15MKK.frq

以下是我设计的程序，但是每次运行后，输出的都不对，求高手帮忙啊！

万分感谢！！！


#!/usr/bin/perl
###problem 2
print "Inspecting the current directory:\n";
$pwd = ".";
opendir(DIR, $pwd);
@files = readdir(DIR);
closedir(DIR);


$i=0;
open (infile,"<$file");
while(chomp($line=<infile>)){
foreach $file (@files){
if ($file = ~m/frq$/)
        {$frq_files[$i]=$file;}
}
$i++;}
close(infile);

open(OUT,">result.txt");
print out "### frq files ###\n";
for($j=0;$j<$i;$j++){
print OUT "\n$frq_files[$j]\n";
}
close(out);

rubyish

1. open my $out, '>','result.txt';
   
2. print $out map "$_\n", '### frq files ###', <*.frq>;

复制代码