Re: Return value from subroutine

[yitzle]

                                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/