作者tear2001 ( Play ball !!)
看板perl
標題[請益] 合併line的問題
時間Thu Jun 7 14:09:56 2007
目前我有一串數列
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