On Tuesday, October 14, 2003, at 05:59 PM, [EMAIL PROTECTED] wrote:

Can someone shorten this upper routine?

sub toUpper
{ my $z = shift;
 $z =~ tr/a-z/A-Z/;
 return $z;
}

Yes, I can. Replace wall calls of toUpper() with uc(). ;)


James


-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]



Reply via email to