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 Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs