| #!/usr/local/bin/perl | |
| @PC1=( 57,49,41,33,25,17, 9, | |
| 1,58,50,42,34,26,18, | |
| 10, 2,59,51,43,35,27, | |
| 19,11, 3,60,52,44,36, | |
| "-","-","-","-", | |
| 63,55,47,39,31,23,15, | |
| 7,62,54,46,38,30,22, | |
| 14, 6,61,53,45,37,29, | |
| 21,13, 5,28,20,12, 4, | |
| "-","-","-","-", | |
| ); | |
| foreach (@PC1) | |
| { | |
| if ($_ ne "-") | |
| { | |
| $_--; | |
| $_=int($_/8)*8+7-($_%8); | |
| printf "%2d ",$_; | |
| } | |
| else | |
| { print "-- "; } | |
| print "\n" if (((++$i) % 8) == 0); | |
| print "\n" if ((($i) % 32) == 0); | |
| } | |