问题求助

RE_HASH

3楼已经是最佳方案了，实在要找不同的，我来狗尾续貂
$> cat file|perl -0npe 's/(sem.+?)\n((?:po.+?\n)+)/$a=$1;$2=~s#p#$a p#gr/esg'
sem 1234 point 23 33
sem 1234 point 25 aa
sem 1234 point 23 sd
sem 1234 point 19 fd
sem 5412 point 13 tt
sem 5412 point 12 oq
sem 5412 point 12 iw
sem 4513 point 142 iws
sem 4513 point 142 amx

sunzhiguolu

向两位大神学习, 谢谢指点.

thanatos0

perl -l -n -e 'BEGIN{my $work;}if(/(sem.*)/){$work=$1;next;}s/$_/$work $_/;print;' 3.txt                     
sem 1234 point 23 33
sem 1234 point 25 aa
sem 1234 point 23 sd
sem 1234 point 19 fd
sem 5412 point 13 tt
sem 5412 point 12 oq
sem 5412 point 12 iw
sem 4513 point 142 iws
sem 4513 point 142 amx

sunzhiguolu

回复 13# thanatos0
哈哈, 大神厉害, 向您学习...