Re: 請問一下一個簡單的問題
#!/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
推
05/02 02:37, , 1F
05/02 02:37, 1F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
