学习引用竟然可以引用程序块！！

tsie_chen

#use strict;

sub say {
   print @_;
}



        my %book1 = (
                                                "书名" => "谋杀与创造之时" ,
                                                "作者" => "劳伦斯",
                                                "价格" => "23",
                                        );

        my %book2 = (
                                                "书名" => "繁花将尽" ,
                                                "作者" => "劳伦斯",
                                                "价格" => "33",
                                        );
       
        my @books = (\ %book1,\ %book2);
    for (@books) {
                 for my $key(keys %{$_}) {
                 say "$key = ${$_}{$key}\n\n";
                 }
    }



                                                                                               
my $say = ${say('这里是say()!!!')} ;           #引用say();

say $say;

<STDIN>;

cinanine

竟然可以

2gua

这啥意思啊？

guap514

加个 use warnings; 你就知道不可以了

tsie_chen

开始被吓到了。。。

perl确实可以引用程序块！

use strict;

#直接付值
my $a =sub {
        sub hi {print "这是a\n";}
        sub a {print "你可以叫我，啊~~\n";}

};

sub b {
print  @_;
}

                      
$a=>hi;
$a=>a;


$b = \&b;                           #引用

$b->("原来你是啊啊！");

<STDIN>;


#是不是有点在用模组

zhlong8

匿名函数……

$a=>hi; 不就是 hi

tsie_chen

可不可以这么说，perl 是通过引用来实现面向函数和对象的。

x9x9

可不可以这么说，perl 是通过引用来实现面向函数和对象的。
tsie_chen 发表于 2010-12-17 18:34

是这样的。但不仅是对函数的引用，还包括所有的引用。然后bless一下实现。建议深入读下Intermediate Perl。

tsie_chen

有國文版嗎？

x9x9

有國文版嗎？
tsie_chen 发表于 2010-12-18 16:08

    你不是大陆人吗？