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

_R__

awk -vRS='a[0-9]' 's~head{print s,$0}{s=RT}' head=你想输出的字段 file

General_715

多谢上面的各位

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. }
    

复制代码

ll104567

1. #!/bin/bash
   
2. 
   
3. #sed -n '/a1/,/a2/p'|sed '$d'
   
4. 
   
5. read -p "Please enter (eg:a1):" choice
   
6. [ -z $choice  ] && exit 1
   
7. 
   
8. a=`echo $choice|cut -c 1`
   
9. b=`echo $choice|cut -c 2-`
   
10. 
    
11. expr $b + 1 >/dev/null 2>&1
    
12. [ $? -ne 0 ] && echo "Input error" && exit 2
    
13. 
    
14. c=$(($b+1))
    
15. 
    
16. cat file|sed -n '/a'$b'/,/a'$c'/p'|sed '$d'

复制代码

缩写版如下

1. #!/bin/bash
   
2. 
   
3. file=file
   
4. 
   
5. read -p "Please enter (eg:a1):" choice
   
6. [ -z $choice  ] && exit 1
   
7. expr ${choice:1} + 1 &>/dev/null
   
8. [ $? -ne 0 ] && exit 2
   
9. 
   
10. sed -n '/a'${choice:1}'/,/a'$((${choice:1}+1))'/p' $file | sed '$d'

复制代码

用法直接改一下文件名然后回车