作者DarkKiller (System hacked)
看板perl
标题Re: [问题] 如何修改一个资料夹中的所有档案?
时间Sun May 6 13:07:29 2007
※ 引述《CrowOnTorii (乌鸦)》之铭言：
: 但这方法只能自己指定要更改档案的名称,无法一次对资料夹中的所有档案作更改
: 而且这方法并不是存到原档案,而是存到一个新档案
: 请问有人知道应该怎麽做的吗?
: 感谢
gslin@netnews [~/work/Perl] [13:06/W9] cat a.pl
#!/usr/bin/perl
use strict;
use warnings;
main();
sub main
{
while (<*.pl>) {
print $_, "\n";
}
}
__END__
这是跑出来的结果：
gslin@netnews [~/work/Perl] [13:06/W9] ./a.pl
a.pl
cancel.pl
class-dbi-loader.pl
class-dbi.pl
copyblog.pl
curvefit.pl
d2spambot.pl
dnsbl.pl
findroot.pl
flickr.pl
htmltree.pl
s3.pl
test-spread.pl
upload-xsto.pl
usenet-lines.pl
vista-feed.pl
wretch-album.pl
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.54.119