这里该如何处理啊

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

jason680

回复 21# sunzhiguolu

看不出，想不懂....
你的问题跟你写的程序....
到底是编程来解决问题，还是想出一堆“怪”程序制造问题...
   

sunzhiguolu

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


   

jason680

回复 23# sunzhiguolu

21楼
   

sunzhiguolu

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


   

jason680

回复 25# sunzhiguolu

(没质量)不再回帖...

$ cat f
111 1
0 1
20 1
o 2
1 3
l 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'
0 1-1
l 1
o 2
1 3-3
20 1-1
111 1-1

---- step = 0.1, How to do/modify ? ----
$ cat f
111 1
0 1.1
0 1.2
20 1
20 1.1

   

sunzhiguolu

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

   

RE_HASH

单行代码只是用于简单的，低频的应用，只要得到你需要的结果就好。所以Re不必过于精简，易懂是首要的。很高兴在和你一起练习学了些新东西，希望没把你带偏方向。完整的，注释清楚的程序才是高质量的。其次才是效率速度之类的。

sunzhiguolu

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