perl数组排序！

zhangfenyun

大家好，我有这样的一个问题！想请教，如果不明白我的意思的话，请QQ：251546505 联系我！
下面是一个文本文件    我想对他进行排序
#字母C后面表示直径 0.3,如果最后面的尾数是1的，表示槽; 尾数是0的表示孔
%后面的T01到T02之间的坐标是T01的坐标，
T02到T03之间的坐标是T02的坐标，
T03到T04之间的坐标是T03的坐标  依次内催，
排列规则：要把C3.175排在最前面即T01C3.175，3.175对应的坐标也要排在最前面  
          接着要排列孔，按照由小到大排列，相应的坐标也要改
         最后接着排列槽，按照由小到大排列，相应的坐标也要改
M48
T01C.30      
T02C.80      
T03C.60
T04C3.175
T05C1.0
T06C1.051
%
T01
X0338Y031199  
X0349Y028301
T02
X044699Y0332
X029799Y035499
X028801
T03
X029799Y030701
T04
X029799Y032901
T05
Y028499
T06

rubyish

这样的:

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my ( $sep, @TO, %DIA, %COR, $T );
   
4. print $sep = <DATA>;
   
5. $sep = 0;
   
6. while (<DATA>) {
   
7.     unless ($sep) {
   
8.         my ( $t, $cha, $dia, $pat ) = /(\w\d+)(\D)(\S+)(\d)/;
   
9.         $t or ( $sep = $_ ) and next;
   
10.         $DIA{"$pat"}{$t} = { DIA => $dia, DAT => "$cha$dia$pat" };
    
11.         push @TO, $t;
    
12.     }
    
13.     else {
    
14.         /^T/ ? ( ($T) = /(\w+)/ ) : ( $COR{$T} .= $_ );
    
15.     }
    
16. }
    
17. 
    
18. my @SORT = map {
    
19.     my $p = $_;
    
20.     map { T => shift @TO, DAT => $DIA{$p}{$_}{DAT}, XY => $COR{$_} },
    
21.       sort { $DIA{$p}{$a}{DIA} <=> $DIA{$p}{$b}{DIA} } keys $DIA{$p};
    
22. } 5, 0, 1;
    
23. 
    
24. print map { $_->{T}, $_->{DAT}, $/ } @SORT;
    
25. print $sep;
    
26. print map { $_->{T}, $/, $_->{XY} // '' } @SORT;
    
27. __DATA__
    
28. M48
    
29. T01C.30      
    
30. T02C.80      
    
31. T03C.60
    
32. T04C3.175
    
33. T05C1.0
    
34. T06C1.051
    
35. %
    
36. T01
    
37. X0338Y031199  
    
38. X0349Y028301
    
39. T02
    
40. X044699Y0332
    
41. X029799Y035499
    
42. X028801
    
43. T03
    
44. X029799Y030701
    
45. T04
    
46. X029799Y032901
    
47. T05
    
48. Y028499
    
49. T06

复制代码

rubyish

1. M48
   
2. T01C3.175
   
3. T02C.30
   
4. T03C.60
   
5. T04C.80
   
6. T05C1.0
   
7. T06C1.051
   
8. %
   
9. T01
   
10. X029799Y032901
    
11. T02
    
12. X0338Y031199  
    
13. X0349Y028301
    
14. T03
    
15. X029799Y030701
    
16. T04
    
17. X044699Y0332
    
18. X029799Y035499
    
19. X028801
    
20. T05
    
21. Y028499
    
22. T06
    

复制代码

rubyish

1 的，表示槽
0 的表示孔 ！lol

kk861123

回复 1# zhangfenyun


    机械钻孔坐标，呵呵~  @首天 你也来试试吧，呵呵

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use Data::Dumper;
   
4. 
   
5. my $tool_sep_flag = 0;
   
6. my %hToolInfo;
   
7. my $sCurrTool;
   
8. while ( my $line = <DATA> ) {
   
9.     next if $line =~ /^\s*$/;
   
10.     chomp($line);
    
11.     if ( $line eq '%' ) {
    
12.         $tool_sep_flag = 1;
    
13.         next;
    
14.     }
    
15.     if ( $tool_sep_flag == 0 ) {
    
16.         if ( $line =~ /^(T\d+)C([\d.]+)\s*$/ ) {
    
17.             my ($tool,$size) = ($1,$2);
    
18.             $size=~ s/^(?=\.)/0/;
    
19.             $hToolInfo{$tool} = {
    
20.                 size => $size,
    
21.                 type => $size == 3.175 ? '1_spec' : substr($size,-1,1) == 1 ? '3_slot' : '2_hole',
    
22.             };
    
23.         }
    
24.     } else {
    
25.         if ( $line =~ /^(T\d+)\s*$/ ) {
    
26.             $sCurrTool = $1;
    
27.             next;
    
28.         }
    
29.         if ( exists $hToolInfo{$sCurrTool} ) {
    
30.             push @{ $hToolInfo{$sCurrTool}{coord} }, $line;
    
31.         }
    
32.     }
    
33. }
    
34. # print Dumper \%hToolInfo;
    
35. 
    
36. my %hNewToolInfo;
    
37. my @aToolArray;
    
38. my $ToolIndex = 'T01';
    
39. for my $tool ( sort {  $hToolInfo{$a}{type} cmp $hToolInfo{$b}{type}
    
40.                     or $hToolInfo{$a}{size} <=> $hToolInfo{$b}{size} } keys %hToolInfo ) {
    
41.     $hNewToolInfo{$ToolIndex++} = $hToolInfo{$tool};
    
42. }
    
43. 
    
44. print "M48\n";
    
45. for my $tool ( sort keys %hNewToolInfo ) {
    
46.     print "${tool}C$hNewToolInfo{$tool}{size}\n";
    
47. }
    
48. print "%\n";
    
49. 
    
50. for my $tool ( sort keys %hNewToolInfo ) {
    
51.     print "$tool\n";
    
52.     print "$_\n" for @{ $hNewToolInfo{$tool}{coord} };
    
53. }
    
54. 
    
55. __DATA__
    
56. M48
    
57. T01C.30      
    
58. T02C.80      
    
59. T03C.60
    
60. T04C3.175
    
61. T05C1.0
    
62. T06C1.051
    
63. %
    
64. T01
    
65. X0338Y031199  
    
66. X0349Y028301
    
67. T02
    
68. X044699Y0332
    
69. X029799Y035499
    
70. X028801
    
71. T03
    
72. X029799Y030701
    
73. T04
    
74. X029799Y032901
    
75. T05
    
76. Y028499
    
77. T06

复制代码

zhangfenyun

富足长乐   谢谢您  高！

我想加你的QQ, 我已经加你了！
我的QQ:251546505