作者DeanJean ()
看板perl
标题请问一下一个简单的问题
时间Mon May 1 11:26:48 2006
想开一个目录中的档案
再打开每一个
对其中的资料作处理
不知道观念哪里错了
打不开file..........
谢谢~
#! d:\Perl\bin\perl.exe
sub read_in_directory
{
my($dirname,) = @_;
opendir(DH, $dirname) || die "cannot opendir $dirname";
my(@entries) = readdir(DH);
#open the file
foreach $entry (@entries){
open(FH,$entry);
print FH;
close FH;
}
}
read_in_directory(@ARGV);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.129.5
1F：推 in2:改成 open(FH,"$dirname/$entry"); 05/01 13:56
2F：→ DeanJean:这不是站长大人吗?! 太荣幸了 感恩阿~~ 05/01 21:54