On Fri, Apr 02, 2004 at 07:18:25AM -1000, Beau E. Cox wrote:
> sub to_upper
> {
> # point to passed arg or caller's $_
> my $arg = $_[0] ? \$_[0] : \$_;
my $arg = @_ ? \$_[0] : \$_;
> # modify in place
> $$arg = uc $$arg;
> }
$_ = "Leave me alone!";
$s = "0";
to_upper $s;
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
