37,718
社区成员
发帖
与我相关
我的任务
分享
use strict;
use warnings;
#!/usr/bin/perl
$filename='c:\doc';
opendir(FILE,$filename) or die('erroe not open c:/doc');
out_filename();
closedir(FILE);
sub out_filename
{
@news_fs=readdir(FILE);
foreach(@news_fs){
print "$_\n";
$aa = $filename.'\\'.$_;
(-d $aa) ? $d++ : $f++;
}
print "totle ----$f---- files ----$d---- dirs";#totle the files
}