求使用perl进行处理文本的高效算法（悬赏100）

大山里出来的孩子

比如一个a.txt文件内容如下：

k ih n b ae r ax k uw d ax
k ih n k aa s t uw m z
k ih n t eh s t
k ih n s ey l d
      ......
d r ow v d ih s p l ey s m ax n t
d r ow v v er b
d r ow v l eh ng th iy
d r ow v p r iy aa k y
总共有23995302行

处理后的格式是：（以最后一行为例）
d+r   d-r+ow  r-ow+v  ow-v+p  v-p+r  p-r+iy  r-iy+aa   iy-aa+k  aa-k+y  k-y

规律就是：首部（*-*）    中间是（ *-*+*）...（ *-*+*）  尾部(*-*)

由于文件较大，求一个高效的算法实现

MMMIX

一百块人民币？好廉价！

tc1989tc

看高效算法的  简单的while 到会

zhlong8

最简单的 while 写就行了吧，一秒跑个几万行还是没问题的，按五万行不到十分钟就跑完了

yybmsrs

这个不需要什么算法吧，几个循环就出来了，想快就把文件切割

大山里出来的孩子

已经完美解决了，大家不用回复了

zhlong8

不发奖励也不贴解决方案，是不是需要我主动扣掉100分

tc1989tc

对啊 把楼主你的解决方法贴出来 我们学习哈撒  你这样太不和谐了

jason680

$ perl addsub.pl
d+r  d-r+ow  r-ow+v  ow-v+p  v-p+r  p-r+iy  r-iy+aa  iy-aa+k  aa-k+y  k-y

$ cat addsub.pl
...
  my @aData = split;
  my $sOut = "$aData[0]+$aData[1]";
  for(my $n=0; $n < scalar(@aData)-2; $n++){
    $sOut .= "  $aData[$n]-$aData[$n+1]+$aData[$n+2]";
  }
  $sOut .= "  $aData[-2]-$aData[-1]";
...

大山里出来的孩子

我自己已经解决了呢 回复 7# zhlong8