perl - 从目录中的所有文本文件中删除第一行的脚本

Question

我正在尝试编写一个 Perl 脚本，该脚本读取目录中的所有文本文件并将除第一行之外的所有行写入一个单独的文件。如果有 3 个文件，我希望脚本读取所有这 3 个文件，并用除第一行以外的相同行写入 3 个新文件。这就是我写的.. 但是当我尝试运行脚本时，它执行得很好，没有错误，但没有完成它应该做的工作。有人可以调查一下吗？

opendir (DIR, "dir\\") or die "$!";
my @files = grep {/*?\.txt/}  readdir DIR;
close DIR;
my $count=0;
my $lc;
foreach my $file (@files) {
   $count++;
   open(FH,"dir\\$file") or die "$!";
   $str="dir\\example_".$count.".txt";
   open(FH2,">$str");
   $lc=0;
   while($line = <FH>){
        if($lc!=0){
            print FH2 $line;
        }
        $lc++;
    }
   close(FH);
   close(FH2);
}

而第二个文件不存在，应该是由脚本创建的。

Answer 1

尝试改变这些行

opendir (DIR, "dir\\") or die "$!";
...
close DIR;

到

opendir (DIR, "dir") or die "$!";
...
closedir DIR;

我尝试在本地运行您的代码，我遇到的唯一两个问题是目录名包含尾部斜线和尝试在目录句柄上使用文件句柄 close() 函数。