return = "Audit Volume";
You have
return = "thingy";
You want
return "thingy";
if ($_ eq /AVI/) {
return = "Audit Volume";
}
elsif (/BKP/) {
return = "BACKUP";
}
Can be shortened to:
return "Audit Volume" if ( /^AVI$/ );
return "BACKUP" if ( /^BKP$/ );
(I wonder if " if(eq /AVI/)" would work...)
You may want to consider setting up a hash and just accessing the element.
(code untested)
%lookup = {
BKP => "BACKUP,
AVI => "Audit Volume"
};
Then replace the $temp_proc variable with $lookup {"AVI"}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
