想打印匹配行到不是空格为首的行之间的内容

sunzhiguolu

1. perl -ne '{m/\A\S/?($k=$_):push(@{$h{$k}},$_)}END{$,="\n";print "Enter a key:";chomp($k=<STDIN>);for(keys %h){print $_,@{$h{$_}} if(m/$k/)}}' f

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. print "Enter start label:";
   
6. chomp (my $ID = <STDIN>);
   
7. while (<>){
   
8.     if (my $state = /\A$ID/ ... /\A\b/){
   
9.         last if (index ($state, "E0") >= 0);
   
10.         print;
    
11.     }
    
12. }
    

复制代码