David --- Senior Programmer Analyst --- Wgo Wagner wrote:
>
> [EMAIL PROTECTED] wrote:
> > Can someone shorten this upper routine?
> >
> > sub toUpper
> > { my $z = shift;
> > $z =~ tr/a-z/A-Z/;
> > return $z;
> > }
> $_[0] =~ tr/a-z/A-Z/;
> 1;Why are you returning 1? John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
