我喜欢这种情况。
my %ha = ()
my @ar = ('1','2')
my $st = 't'
f(%ha,@ar,$st);
sub f
{
my (%h, @a,$s) = @_;
或者
my %h = shift;
my @a shift;
my $s = shift;
}
两者都不起作用。我能做什么?
你不能将复杂的数据结构作为参数传递-它们被解包为值列表,并且子例程无法分辨边界在哪里。
你可以做的是传递引用:
my %hash = ()
my @arr = ('123','456')
my $str = 'test'
sub func
{
my ( $hashref, $arrayref, $str ) = @_;
my %copy_of_hash = %$hashref;
my @copy_of_array = @$arrayref;
## or you can do it by following the reference to modify the hash without copying it:
$hashref->{'key'} = "value";
}
func ( \%hash, \@arr, $str );
Nit:可以传递引用。通过引用传递意味着其他(Perl始终通过引用传递)。