这里该如何处理啊

sunzhiguolu

1. sort -k1,1n -k2,2n f|perl -00 -ple 's!((\d+)\s+(\d+))\n(?=\2\s+(\d+))!$4-$3==1?"$1-":"$1-$3\n"!ge;s!^(\d+\s+(\d+))(?:.*\s+(\d+))?$!$3?"$1-$3":"$1-$2"!mge'

复制代码

111 1-1
111 3-3
111 5-5
222 6-6
222 9-10
333 3-7

sunzhiguolu

回复 22# jason680
大神, 在学习 perl 的道路上我一直在向您学习, 而且遇到问题您总是有问必答. (从变量的命名, 解决问题的思路等等等等...)
对于这个问题 我只是希望开阔一下思路. 我是不是哪些地方出问题了, 还请您明示. (谢谢您为我指出问题, 我一定虚心改正!)


   

sunzhiguolu

回复 24# jason680
还有个问题向您请教, 就是 21 楼的代码中 通过正则表达式解决这个问题 缺点在哪啊, 是不是像您以前说的那样 代码不容易看懂, 难以维护啊. (这样我也好知道哪里错了)


   

sunzhiguolu

回复 26# jason680
明白了, 谢谢您指点.

   

sunzhiguolu

回复 28# RE_HASH
我想说的是, 我非常愿意向您学习解决问题的思路, 也非常喜欢您对代码的控制能力, 真的非常强. 大大开拓了我的眼界.
真心希望以后还能继续向您学习.