→ cibs:你在哪裡 close ? 03/06 00:16
※ 編輯: deh3215 來自: 59.116.14.119 (03/06 23:11)
※ 編輯: deh3215 來自: 59.116.9.77 (03/07 15:34)
#!/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