perl函數指標

看來的代碼，測試通過

#!/usr/bin/perlsub func1 {    print "func1 is running\n";}sub func_test {    my $func_ref = shift;    # ref will return 'CODE' if it's function reference    if ( ( ref($func_ref) eq "CODE" )        && defined( &{$func_ref} ) )    {        &{$func_ref};        print $@ if $@;    }    else {        print "Not real function was called! \n";    }}## testing from heremy $func_ref = \&func1;my $anoy_ref = sub { print "anonymous function is running\n" };my $var      = "abcd";my $var_ref  = \$var;func_test($func_ref);func_test($anoy_ref);func_test($var);func_test($var_ref)

my $variableName = 10 #定義私人變數

function test{    my $a = shift;}#函數參數其實是個數組#shift刪除並返回數組第一個元素

 修改之前的代碼：

#! /usr/bin/perl#傳參測試sub hello{    my $a = shift;    print $a;}&hello("hello,world\n");#傳回值測試sub max{    my $a = shift;    my $b = shift;    if ($a > $b)    {        return $a;    }    else    {        return $b;    }}$n = &max(10,23);print $n;print "\n";