作者deh3215 ()
看板Perl
标题[问题] 从资料夹读进档案
时间Thu Mar 5 17:38:55 2009
#!/usr/bin/perl
1 $dirname = "c:/资料夹名称";
2 opendir(FILE_HANDLE, "$dirname") or die "no directory!"; #开资料夹
3 @file_name = readdir(FILE_HANDLE);
4 # closedir FILE_HANDLE;
5 foreach $file(sort txt_sort @file_name) { #档案排序
6 next if $file =~ /^\.\.?$/; #跳过.和..目录
7 open(input, "$file") or die;#开资料夹里的.txt档"$file"改成"$dirname/$file"
8 @temp = <input>;
9 chomp(@temp);
10 foreach $t(@temp) {
11
.....处理读进来的档案
}
}
closedir FILE_HANDLE;
sub txt_sort {
my ($a1) = $a =~ /(\d+)/;
my ($b1) = $b =~ /(\d+)/;
$a1 <=> $b1;
}
已解决,搞了老半天,不过是路径的问题(摊)....
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.223.226.204
1F：→ cibs:你在哪里 close ? 03/06 00:16
※ 编辑: deh3215 来自: 59.116.14.119 (03/06 23:11)
※ 编辑: deh3215 来自: 59.116.9.77 (03/07 15:34)