[請益] 合併line的問題
目前我有一串數列
367 0.619 0.610 0.646 0.593 0.513 0.509 0.488 0.567
0.600 0.600 0.598 0.579 0.584 0.577 0.541 0.570 0.554
364 0.619 0.610 0.646 0.593 0.513 0.510 0.489 0.567
0.600 0.600 0.598 0.579 0.584 0.575 0.542 0.570 0.554
365 0.619 0.610 0.646 0.593 0.513 0.510 0.489 0.567
0.600 0.600 0.598 0.579 0.584 0.577 0.542 0.570 0.554
361 0.619 0.610 0.646 0.593 0.513 0.510 0.489 0.567
0.600 0.600 0.598 0.579 0.584 0.577 0.542 0.570 0.554
362 0.619 0.610 0.646 0.593 0.513 0.510 0.489 0.567
0.600 0.600 0.598 0.579 0.584 0.577 0.542 0.570 0.554
363 0.619 0.610 0.646 0.593 0.513 0.510 0.489 0.567
0.600 0.600 0.598 0.579 0.584 0.577 0.542 0.570 0.554
359 0.625 0.620 0.641 0.606 0.522 0.520 0.501 0.579
0.589 0.590 0.588 0.595 0.589 0.579 0.540 0.562 0.545
我想把第一行跟第二行合併
第三跟第四 第五跟第六..............
foreach $line (<FID>) {
if( $line =~ /^0/ ){ #line開頭為0的就跟上一行合併
$line =~ s/\n//, $line ;
} else {
print $line;
}
print $line;
}
但是檔案紋風不動....orz
能請板上高手幫忙檢查一下哪裡出了問題ㄇ?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.114.96.144
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
