1#!/usr/local/bin/perl 2 3@PC2_C=(14,17,11,24, 1, 5, 4 3,28,15, 6,21,10, 5 23,19,12, 4,26, 8, 6 16, 7,27,20,13, 2, 7 ); 8 9@PC2_D=(41,52,31,37,47,55, 10 30,40,51,45,33,48, 11 44,49,39,56,34,53, 12 46,42,50,36,29,32, 13 ); 14 15foreach (@PC2_C) { 16 if ($_ ne "-") 17 { 18 $_--; 19 printf "%2d ",$_; } 20 else { print "-- "; } 21 $C{$_}=1; 22 print "\n" if (((++$i) % 8) == 0); 23 } 24$i=0; 25print "\n"; 26foreach (@PC2_D) { 27 if ($_ ne "-") 28 { 29 $_-=29; 30 printf "%2d ",$_; } 31 else { print "-- "; } 32 $D{$_}=1; 33 print "\n" if (((++$i) % 8) == 0); } 34 35print "\n"; 36foreach $i (0 .. 27) 37 { 38 $_=$C{$i}; 39 if ($_ ne "-") {printf "%2d ",$_;} 40 else { print "-- "; } 41 print "\n" if (((++$i) % 8) == 0); 42 } 43print "\n"; 44 45print "\n"; 46foreach $i (0 .. 27) 47 { 48 $_=$D{$i}; 49 if ($_ ne "-") {printf "%2d ",$_;} 50 else { print "-- "; } 51 print "\n" if (((++$i) % 8) == 0); 52 } 53print "\n"; 54sub numsort 55 { 56 $a-$b; 57 } 58