Hello, I've been trying to update a former coworkers perl code. But, I am new to perl. I am having trouble understanding the Getopt::Std module. I would like to add a fourth option to the code below, but I not sure how to add it and get it to work. Also I would like to know where I can find good docs on this module. Please help !
# Grab all command line switches for logging
&getopts('vdl');
if ($opt_v) { $logcode = 1; } # Show main output to screen and
log
elsif ($opt_d) {$logcode = 3; } # Show everything but no logging
else { $logcode = 0; } # Show
nothing, but errors
if ($opt_l) { $viewlevel = $opt_l; } else { $viewlevel = 0; }
(Embedded image moved to file: pic19949.pcx)
pic19949.pcx
Description: Binary data
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
