eyal edri wrote:
> Hi,
>
> i want to know how can i send an array (@array) as reference to a sub
> routine.
> Just like in java or c# for eg:
>
> sub doSomething()
> {
> my $item;
> push ($_[0], $item);
> }
>
> #main
>
> doSomething (@array);
> print @array; -- > i should now see item printed.
my @array = ('one', 'two', 'three', 'four');
doSomething ([EMAIL PROTECTED]);
sub doSomething {
my $ar = shift;
print "@$ar\n"; # one long line blank separated
# or one line each
print "Array contents:\n";
print "\t$_\n" foreach @$ar;
}
_______________________________________________
Perl-Unix-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
