目前我有一串數列
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