小编ask*_*ker的帖子

它现在输出这样的东西:

?name=fred;age=24;favorite_color=3

如何指示输出?name=fred&age=24&favorite_color=3呢？

after foo => sub{
    ...
}

我只是偶然发现了上面的代码,这些代码在sub foo完成后调用,

这是如何运作的？

它似乎不是Perl的内置功能,对吧？

=any
            eval qq(
                use $$category_r[0];
                );
            die $? if $?;
=cut
            require "$$category_r[0].pm";

现在只require为我工作,我不知道为什么第一个不按预期工作......

即使这不起作用:

my $pkg = "A";
eval {
    use $pkg;
    };

func1(func2);

我们知道Perl需要知道要评估的上下文,但在上面的例子中,如何func2知道它在标量或列表上下文中？

有谁知道为什么$#a一个比数组中的实际元素数少？

$ perl -we '@a=(1,2);print $#a'
1

谁知道这样的模块？

虽然我猜它应该基于Expect？

[root@ ~]$ perl -e "print 1 if blessed $a;"
1
[root@ ~]$ perl -e "print 1 if blessed $c;"
1
[root@ ~]$ perl -e "print 1 if blessed $cee;"
1

似乎总是true,版本是5.8.8.

UPDATE

我不是因为root隐私而改变了我的意思:)