我正在尝试使用Perl中的命名参数。我一直在使用作为参考。
这似乎是有道理的。但是,我似乎不能实际获得发送的值。
我也尝试过换成$args{'name'}和$args{"name"},但都没成功。我似乎就是不能把值传进来。我需要往哪个方向看,才能弄清楚到底发生了什么?
文件doh.pm
package doh;
sub new ()
{
my %args = @_;
$name = $args{name};
print $name;
}
1;
__END__
文件test.pl
use warnings;
use doh;
$trial = d