习鞘10-3.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 14 行

$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");
}