perl如何得到文件夹下所有文件名

#!/Perl/bin/perl -w

$dir_name=’C:\perl-test’;
opendir(DIR, “$dir_name”)   ||   die   “Cannot   open  $dir_name”;

@a=readdir DIR;
foreach (@a) {
next if ($_=~/^\./);
print “$_\n”;
}

closedir   DIR;

#!/Perl/bin/perl -w
#$dir_name=’C:\perl-test’;
$dir_name=”C:\\perl-test”;
opendir(DIR, “$dir_name”)   ||   die   “Cannot   open  $dir_name”;

while ($name=readdir DIR) {
next if $name=~/^\./;
print “$name\n”;
}

closedir   DIR;



发表评论

电子邮件地址不会被公开。 必填项已用 * 标注

*

您可以使用这些 HTML 标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

(Spamcheck Enabled)