作者Neisseria (Neisseria)
看板Perl
标题Re: [问题] for回圈问题
时间Fri Aug 22 14:40:02 2014
※ 引述《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 {...........
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.105.57.132
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Perl/M.1408689610.A.3FF.html
1F：推 cutekid: 推认真解答(Y) 08/22 16:28
2F：推 abliou: 推认真 08/24 09:55
3F：推 par4322: 大推认真 感谢~(y) 08/24 19:38
※ 编辑: Neisseria (60.251.46.166), 12/24/2018 16:23:43