Shell Programming and Scripting

Hi, guys, i have a script i inherited from a coworker but i'm not perl savy. The script works but i would like it to work better. I want to run this command

./ciscomgrtest.pl -r "show version" -h hosts.router

and have the script goto each router in the hosts.router file and run the command "show version" on telnet.

Right now the script works but i have to put in the "show version" inside a variable inside the actual script like this.

Code:

#!/usr/local/bin/perl
#
#
use Net::Ping;
use Net::Telnet;
use Net::DNS::Resolver;
use Getopt::Std;
use lib '/home/sadmin';
use BER;
use SNMP_Session;


$COMMAND = 'show version';

How can i get that -r switch to put the "show version" from the command line into the variable when run? BTW the -r is arbitray, any switch would work.

hope this makes sense. thanks

Find line containing "getopt" function invocation and move it to the beginning of the script (right after "use" clauses), then add to the list of option letters "r", so it will probably look like this: getopt('hr');. Then add this line after the "getopt" invocation:

Code:

$COMMAND = $opt_r;

Thanks bartus, got it working!!