I am attempting to write a subroutine and get back the return value. I am unaware of a key ingredient that makes this work properly because I am not able to get the return value.
This is what I have so far. I would appreciate any help in making me understand what I don't know about passing the return value back to the rest of the script.
#!/usr/bin/perl
use warnings;
use strict;
my $List = "/bin/ls";
my $tmp = "/tmp";
my $var = "/var";
my ($Results1, $Results2);
&DoList($List, $Results1, $Results2, $tmp, $var);
print "Tmp is\n$Results1\n";
print "Var is\n$Results2\n";
sub DoList {
my ($List, $Results1, $Results2, $tmp, $var);
($List, $Results1, $Results2, $tmp, $var) = @_;
$Results1 = `$List $tmp`;
$Results2 = `$List $var`;
return( $Results1, $Results2);
}
I got 99 problems, but a @%$()_ ain't one.