[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;
>
> Also in a slightly different scenario, how can i change the value of
> the parameter itself with a sub.
>
> $a="ca";
> toUpper($a); #change the $a value itself
> print $a; #I want it to print "CA"
>
>
> -----------------------------------------
> eMail solutions by
> http://www.swanmail.com
**********************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
****************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
