You could try doing this:
use warnings; use strict; my @array1=(1, 2, 0); my @array2=(1, 1, 1); sub addarrays { my ($a1, $a2) = @_; @$a2=@$a1+@$a2; } addarrays(\@array1, \@array2); print @array2;
Warnings: Perl monks may behave like satinists, but only when (@{[localtime]})==9.
In reply to Re: adder
by theorbtwo
in thread adder
by Anonymous Monk
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |