Perl子函数参数传递

Perl子函数参数传递

Call a subroutine and pass a variable by value $value = "foo"; $newvalue = add_bar($value); print "$value becomes $newvalue"; sub add_bar { my ($copy) = @_; $copy .= "bar"; return $copy; } RESULT: foo becomes foobar DISCUSSION: In any Perl subroutine the special @_ array will always contain aliases to the variables that are passed in, so it really isn't possible to pass by value. The trap to avoid is that a subroutine which operates directly on the @_ elements will actually change the variables aliased by those elements. If you wish to operate only on the values you must copy the @_ values into local variables, operate on those local variables and then return the new result. This will leave the original variable unchanged. Call a subroutine and pass a variable by reference $value = "foo"; add_bar($value); print "$value"; sub add_bar { @_[0] .= "bar"; } RESULT: foobar DISCUSSION: In contrast to the previous trick this one takes advantage of Perl's default behaviour of passing aliases, to change the original variable more directly. The @_ array is sometimes described as "magical" but it is really no different from other languages which pass arguments by reference. There is no need to return the value since the original variable is directly changed as the subroutine operates on its alias. Call a subroutine and pass a variable by reference explicitly