※ 引述《par4322 (Queeny)》之銘言：
: if(-e $arrfile){
: @fileheader=`awk '{print \$1}' $arrfile`;
: @Parr=`awk '{print \$2}' $arrfile`;
這裡也可以不用 awk，像我自己就看不懂 awk 程式碼
另外，fileheader 和 parr 似乎是連帶一起的
可以考慮做成一個 list of list
my @filelists;
my $arrfile = 'arrfile';
open my $FH, "<", $arrfile or die "$!\n";
while (<$FH>) {
chomp;
my @a = split /\s+/;
push @filelists, \@a;
}
close $FH or die "$!\n";
: for($j=0;$j<@fileheader;$j++){
: chomp($fileheader[$j]);
: chomp($Parr[$j]);
: $file=$fileheader[$j]=grep'A' $arrfile |`awk '{print $0}' $arrfile`;
: &auto($file,$Parr[$j]);
這裡可能誤會 grep 的用法，查一下 perldoc -f grep 可看到
grep BLOCK LIST
grep 接收一個 list，然後將所有條件為真的元素傳回為一個 list
所以不是用 scalar 去接，這樣會變成 list 的數目
如果已經用迴圈了，就不需要用 grep
foreach my $e (@filelists) {
my $s = substr $e->[0], 13, 1;
if ($s eq 'A') {
auto($e->[0], $e->[1]);
}
}
如果用 grep，可能的寫法如下
my @list_a = grep { substr($_->[0], 13, 1) eq 'A' } @filelists
foreach my $e (@list_a) {
auto($e->[0], $e->[1]);
}
只是在這裡，跟直接用迴圈比起來，沒省下多少程式碼
: $file1=$fileheader[$j]=grep'B' $arrfile |`awk '{print $0}' $arrfile`;
: $file2=$fileheader[$j]=grep'C' $arrfile |`awk '{print $0}' $arrfile`;
: &autoH($file1,$file2,$Parr[$j]);
: ..........
: }
這裡的問題最大
看起來是要兩層迴圈
但無法確定你 autoH 第三個引數要跟著 file1 還是 file2
假設第三個引數要跟著 file1，可能的寫法如下
foreach my $e1 (@filelists) {
my $s1 = substr $e1->[0], 13, 1;
if ($s1 eq 'B') {
foreach my $e2 (@filelists) {
my $s2 = substr $e1->[0], 13, 1;
if ($2 eq 'C') {
autoH($e1->[0], $e2->[0], $e1->[1]);
}
}
}
}
但是這裡可能還要想一下，確定結果是不是真的如同預期
有可能需要重寫過 autoH 也不一定
: sub auto {.........
: sub autoH {...........