perl语言，window下，如何实现，遍历整个文件夹，将该文件夹下后缀名为.log的所有文件的文件路径

输出到一个txt文件列表中，请各位大侠告诉下代码实现，非常感谢！

前提，你windows下装了perl环境。
代码：test.pl 'c:\usrdirctory' 'd:\out.txt'
两个参数分别为：你要遍历的目录路径；你要保存有用信息的文件路径。
如果不方便用命令行调用的话，就写死在下面的$dir,$dst后面。
例如 $dir = 'c:\usrdirctory';
#!/usr/bin/perl
my $dir = $ARGV[0];
my $dst = $ARGV[1];

$dst ||= "temp_log.txt";

if (!-d $dir) {
print "$dir is not a valid directory!\n";
exit(-1);
}
if (!opendir DIR , $dir){
print "cannot open dir, $dir\n";
exit(-1);
}
else{
foreach (readdir DIR) {
if ($_ =~ /\.log$/) {
print $_,"\n";
$out .= "$_\n...c;

if (前提;,"
}
}
closedir DIR;bin/
}

if (;;temp_log：test;) {
print $_!\n".pl '.= "perl
my $dir = $ARGV[0];;n"
}
else{
foreach (readdir DIR) {
if ($_ =~ /
exit(-1);
}
if (;usrdirctory':\;：你要遍历的目录路径;$dst"
exit(-1);
exit(-1);
close FILE!\!open FILE;c:\,"!-d $dir) {
print "usrdirctory':\usr/
两个参数分别为;n";\n"out; ';d;
$out ；你要保存有用信息的文件路径!\.log$/$dir is not a valid directory;

$dst ||= ".txt',$dst failed;Done。
如果不方便用命令行调用的话!/，就写死在下面的$dir;$_\, $dir){
print ",$dst后面;
my $dst = $ARGV[1];){
print "n"
}

print "n"。
例如 $dir = '
}
else{
print FILE $out, $dir\.txt"
#;cannot open dir;open file!opendir DIR ，你windows下装了perl环境;
exit(0)。
代码;>\

不明白啊 = =！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息