亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 如何返回特定文本行的上一行或上幾行 [打印本頁(yè)]

作者: 南宮慕容007 時(shí)間: 2016-05-03 17:20
標(biāo)題: 如何返回特定文本行的上一行或上幾行
"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 個(gè)
12600000 13500000 g-e4+g -594.086121
13500000 13500000 sp -0.003945
13500000 15100000 e4-g+ia2 -1100.357178 國(guó)家
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
.
以上是文本中的一段，如何返回只有一個(gè)句號(hào)的那一行的上一行。

作者: sunzhiguolu 時(shí)間: 2016-05-03 17:33
回復(fù) 1# 南宮慕容007

#!/usr/bin/perl
use strict;
use warnings;
chomp (my $sLast = scalar <>);
while (<>){
chomp;
my $sCur = $_;
if ($sCur eq "."){
print $sLast, "\n";
last;
}
$sLast = $sCur;
}

復(fù)制代碼

歡迎光臨 Chinaunix (http://www.72891.cn/)