※ 引述《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 {...........