perl 取出目錄中的全部文件並存入文件中

 咱們能夠把從目錄中取出的全部文件打印到文件中：

#!/usr/bin/perl -wT

use File::Copy;

use strict;

print "取文件,請輸入文件路徑:";

chomp(my $path = <STDIN>);

opendir DIR, $path;

my @dir = readdir DIR;

closedir DIR;

foreach my $file (@dir){

open OUTFILE,">>test.info";

print OUTFILE "$file\n";    //改變了輸出句柄

close OUTFILE;

}