习鞘10-3.txt

< linux网络编程工具>>配套源码

$scalar = 10;
@array  = (1, 2);
%hash   = ( "1" => "Davy Jones" );
printRef( $scalar, @array, %hash );
printRef( \$scalar, \@array, \%hash );
printRef( \&printRef, \\$scalar );
sub printRef {
    foreach (@_) {
        $refType = ref($_);
        defined($refType) ? print "$refType " : print("Non-efereNCe ");
    }
    print("\n");
}