perl :施瓦茨变换,多级排序:首先按照第一列排序,第一列相等的按照第二列排序............
这篇文章的写成主要参考了ace_fei的内容,其中我认为有错误的地方,并进行了修改。网页如下:http://blog.csdn.net/ace_fei/article/details/7679609,大家可以到哪里去比较参考。
加入我们有这样一个文件,他的内容如下:
4 6 3
4 5 1
1 2 3
1 9 0
2 0 5
3 6 2
2 0 8
2 0 6
当然可能更多,我们排序的规则如下:
首先按照第一列排序,如果第一列相等,那么就按照第二列进行排序,如果第二列相等就按照第三列的内容排序。
我们先把问题最简单化,把上述的数字放到一个数组中;然后进行排序;
程序如下:
C:\WINDOWS\system32\cmd.exe /c perl "F:\perl\b.pl"1 9 01 2 32 0 52 0 62 0 83 6 24 6 34 5 1Hit any key to close this window...