0

我编写的程序逐行遍历目录和子目录中的所有文件，并执行一些命令，包括 $counter。我想制作一个 .txt 文件，每行如下所示：

<file name> <$counter in the beginning of the file>

例如，如果我在文件 a 中有三个文件 a.txt 、 b.txt 和 c.txt ，则计数器在文件 b 中计数为 10，它计数为 20，在文件 c 中计数为 30，则文件如下所示：

a.txt 0
b.txt 10
c.txt 20

我的程序如下所示：

use strict;
use warnings;
use File::Find;

my $dir = "C:/New Folder";   
open (MYFILE, '>>data.txt');

# fill up our argument list with file names:
find(sub { if (-f && /\.[c]$/) { push @ARGV, $File::Find::name } }, $dir);
$^I = ".bak";   # supply backup string to enable in-place edit  

foreach $argvv(@ARGV)
{
  while (<>) 
  {
     if ($prev_arg ne $argvv)
     {
       print MYFILE  "$argvv $counter\n";
       $prev_arg = $argvv;
     }   

     #some unrelated line by line code here
     close (MYFILE); 
  }
}

我试图做的是让程序在每次完成一个文件并启动另一个文件时打印文件名和计数器。

我得到的 data.txt 文件是第一个文件的名称和为目录中每个文件的每一行打印的计数器。不用说我是 Perl 的菜鸟，所以我真的很感激一些帮助。

谢谢 ：）

4

1 回答 1

0

您的代码存在一些问题。

  • 您正在使用strictandwarnings但您尚未声明$prev_argand $argvv。警告已告诉您有关它们的信息。
  • 您永远不会打开文件进行阅读。相反，您尝试使用-i命令行开关和参数列表来读取STDIN. 这对我来说毫无意义。相反，您应该使用普通数组并一一打开文件。
  • 您正在使用老式的裸字文件句柄和open. 相反，请使用词法文件句柄，因为它们不是全局的，而是只存在于它们周围的块中。使用三参数形式，open这样您就不会遇到安全问题。见这里。

尝试这个：

use warnings;
use strict;
use File::Find;

my $dir = 'D:/temp';   

my @files;
find(
  sub {
    if (-f && /\.c.txt$/) {
      push @files, $File::Find::name }
    },
  $dir
);

open my $fh_out, '>>', 'data.txt'   # open the output filehandle
  or die $!; 
foreach my $file (@files) {         # iterate the file list
  open my $fh_in, '<', $file        # open the current file for reading
    or die $!; 
  my $counter = <$fh_in>;           # read the first line
  chomp $counter;                   # remove trailing linebreak
  close $fh_in; 
  print $fh_out "$file $counter\n"; # close the input filehandle (explicit)
}
close $fh_out;                      # close the output filehandle
于 2013-02-05T21:09:02.877 回答