Thank you for the reply.
I liked the idea of using shell scripts as aliases. I've added /mybin to my path and I am able to execute the script successfully with argument values from the command line. However, when I execute it with perl, the argv values do not get passed.
if($input eq "-c"){
print "Enter Command: ";
my $cmd = <STDIN>;
chomp($cmd);
print $fh $cmd;
print $fh "\n\t#### START COMMAND OUTPUT ####\n";
print `$cmd`;
foreach(`$cmd`){
print $fh "#".$_;
}
print $fh "\t#### END COMMAND OUTPUT ####\n";
next;
}
Shell Script:
#!/bin/bash
perl /path/to/script/script.pl $1 $2 $3 $4
Any suggestions? |