作者chhuang (我是瓶男我很难懂)
看板perl
标题Re: 请问一下一个简单的问题
时间Mon May 1 12:57:14 2006
#!/usr/local/bin/perl
sub read_in_directory
{
my $dirname = @_;
opendir(DH, $dirname) || die "cannot opendir $dirname";
my @entries = readdir(DH);
chdir $dirname;
#open the file
foreach $entry (@entries){
if ( -f $entry ){
open(FH,$entry);
print $_ while(<FH>);
close FH;
}
}
}
read_in_directory(@ARGV);
--
我是瓶男~我很难懂!
http://blog.yam.com/chhuang
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.62.84.89
1F：推 DeanJean:谢谢你 我看懂了 谢谢 :~~ 05/02 02:37