如何提取在不同行的内容？

chuanwj

要处理文件1.txt格式是：（**为不关心的数据）
*****
*****
group: atyh
*****
****
slack(MET)    -0.37
****
****
****
*****
*****
group: ryh
*****
****
slack(MET)    -0.3
****
****
*****
*****
group: uiyu
*****
****
slack(MET)    -0.65
*****

要得到的文件2.txt格式为：

group: atyh  slack(MET)    -0.37
group: ryh   slack(MET)    -0.3
group: uiyu  slack(MET)    -0.65

要是能得到文件3.txt的格式就最好了：
group  slack(MET)
atyh   -0.37
ryh    -0.3
uiyu   -0.65

再问一个简单的问题，比如我用匹配/group/，匹配成功后$_是内容是什么？是group？还是group所在的所有行？是不是perl匹配的基本操作对象是行？

yizhengming

perl -lane  'push @arr, $F[1] if /group : |slack\(MET\)/x; END{%hash=@arr; print "group\tslack(MET)"; print "$_\t$hash{$_}" foreach keys %hash}' 1.txt

cdtits

1. open my $fh, '<', '1.txt' or die $!;
   
2. my @z = (['group', 'slack(MET)']);
   
3. my ($k, $v);
   
4. while (<$fh>) {
   
5.     if (/^group:\s*(.*)$/) {
   
6.         $k = $1;
   
7.     }
   
8.     elsif (/^slack\(MET\)\s*(.*)$/) {
   
9.         $v = $1;
   
10.         push @z, [$k, $v];
    
11.     }
    
12. }
    
13. close $fh;
    
14. printf "%-8s\t%s\n", @{$_} for @z;
    
15. printf "%-8s\t%s\n", @{$_} for @z;

复制代码