如何返回特定文本行的上一行或上几行

南宫慕容007

"haiyuan_near_117_stn2.rec"
0 4300000 sil -2389.689453 !SENT_START
4300000 5400000 k-y+ia1 -781.641113 约
5400000 7000000 ao2-ue1+ue1 -1052.153564
7000000 7000000 sp -0.003945
7000000 9300000 ei4-er4+b -1757.903687 二百
9300000 10200000 er4-b+b -622.124817
10200000 11600000 b-ai3+g -941.057251
11600000 11600000 sp -0.003945
11600000 12600000 ai4-g+er3 -729.483032 个
12600000 13500000 g-e4+g -594.086121
13500000 13500000 sp -0.003945
13500000 15100000 e4-g+ia2 -1100.357178 国家
15100000 15800000 b-uo2+j -493.890900
15800000 17300000 uo2-j+ia1 -1056.053101
17300000 20600000 zh-ia1+ai1 -2088.172119
20600000 20600000 sp -0.003945
20600000 26400000 sil -3012.216309 !SENT_START
.
以上是文本中的一段，如何返回只有一个句号的那一行的上一行。

sunzhiguolu

回复 1# 南宫慕容007

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. chomp (my $sLast = scalar <>);
   
7. while (<>){
   
8.     chomp;
   
9.     my $sCur = $_;
   
10.     if ($sCur eq "."){
    
11.         print $sLast, "\n";
    
12.         last;
    
13.     }
    
14.     $sLast = $sCur;
    
15. }
    

复制代码