作者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