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]