On Wed, 20 Feb 2002 16:37:56 +0200, [EMAIL PROTECTED] (Bruce Ambraal) wrote:
>1. (see subject)
>2. Explain lines 3 , 4
>3.Why does'nt this coding return anything2
>
>sub routine {
>my @arr = (0, 'a' 1, 'b');
>@_ = @arr;
>my $retun_me = shift;
>return( $return_me )
>};
Try this one, it captures the return value and prints it.
#!/usr/bin/perl
use warnings;
use strict;
my $a = &routine();
print $a,"\n";
sub routine {
my @arr = ('0', 'a', '1', 'b');
@_ = @arr;
my $return_me = shift;
return( $return_me )
};
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
