www.pudn.com > sslref30.zip > PC2

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