圣凤凌霜 发表于 2018-9-1 06:31:28

perl 取出目录中的所有文件并存入文件中

  我们可以把从目录中取出的所有文件打印到文件中:
  #!/usr/bin/perl -wT
  use File::Copy;
  use strict;
  print "取文件,请输入文件路径:";
  chomp(my $path = );
  opendir DIR, $path;
  my @dir = readdir DIR;
  closedir DIR;
  foreach my $file (@dir){
  open OUTFILE,">>test.info";
  print OUTFILE "$file\n";    //改变了输出句柄
  close OUTFILE;
  }

页: [1]
查看完整版本: perl 取出目录中的所有文件并存入文件中