從文件獲取某一特定行的前面一行

TrishaTie

有一個這樣的輸入文件：
"*000000003040d059-08cec8cb3f1faa5d.lab"
0 300000 sil[2] 43.327358 sil 312.297211 <s>
300000 1100000 sil[4] 159.858444
1100000 2300000 sil[2] 285.421143
2300000 2800000 sil[4] 31.335995
2800000 5000000 sil[3] -206.881500...
.
"*0000003040dddf-08cec8cc9ba7cf8b.lab"
0 100000 sil[2] -12.378605 sil -12.429898 <s>
100000 200000 _noise_[2] -19.594048 _noise_ -69.169189 [NOPREFIX]
200000 300000 _noise_[3] -24.245062
300000 400000 _noise_[4] -25.330078
400000 500000 m_s2_6 -27.062466 sil-m+ay -50.816406 MY
500000 600000 m_s3_72 -20.093945
600000 700000 m_s4_58 -3.659996
700000 1100000 ay_s2_36 32.874966 m-ay+ae 67.047241...
.
我想獲取"."行 前面的一行 （已標(biāo)紅）， 而“.lab”下面到“.”這一行有的文件會有很多行。

我自己的一個思路是每一部分放到數(shù)組實(shí)現(xiàn)。
還有一個思路是用hash, 每讀取一行先保存進(jìn)hash, 讀取下一行，先判斷是不是“.”, 如果不是，覆蓋前面保存，如果是輸出，但不清楚怎么實(shí)現(xiàn)，希望大家出出注意，也可以幫忙提供別的思路。
先行謝過！

kernel69

應(yīng)該不會這么簡單吧？

1. perl -ne '/\.{3}$/ and print'

復(fù)制代碼

回復(fù) 1# TrishaTie


   

q1208c

egrep -B1 '^\.'

jason680

回復(fù) 1# TrishaTie

use strict;
use warnings;

my $sLast = "";
while(<DATA>){
  chomp;
  if(m/^[.]/){
    print "$sLast\n";
  }
  $sLast = $_;
}


__DATA__
"*000000003040d059-08cec8cb3f1faa5d.lab"
...(your data...)

TrishaTie

回復(fù) 4# jason680

非常謝謝大神，最終代碼：

my $sLast = "";
while(<INF>)
{
       chomp;
       if(/\.lab/)
        {
                print OUT $_."\n";
        }
         if(m/^[.]/)
         {
                       print OUT "$sLast\n";
         }
       $sLast = $_;
}

   

TrishaTie

回復(fù) 2# kernel69


   哈哈，是木有那么簡單，這里我寫的有點(diǎn)歧義，

"*000000003040d059-08cec8cb3f1faa5d.lab"
0 300000 sil[2] 43.327358 sil 312.297211 <s>
300000 1100000 sil[4] 159.858444
1100000 2300000 sil[2] 285.421143
2300000 2800000 sil[4] 31.335995
2800000 5000000 sil[3] -206.881500...
.

那個紅點(diǎn)表示下面還有很多行， 我怕跟下面的一個點(diǎn)弄混就寫上面了。

TrishaTie

回復(fù) 3# q1208c


    大神，真不好意思，這個沒懂是怎么實(shí)現(xiàn)的？ egrep -B1 '^\.'   我還需要多花點(diǎn)時間來學(xué)習(xí)。。。

sxlwzl

回復(fù) 2# kernel69


    大神，perl還有這種用法呀，從哪里可以看到詳細(xì)的用法？

kernel69

1. perldoc perlrun

復(fù)制代碼

回復(fù) 8# sxlwzl


   

sxlwzl

回復(fù) 9# kernel69

s收到，謝謝大神