I was enquiring as to what the orginal poster wanted to
accomplish and why he thought he needed the typeglob
syntax. That's a different question than how it works.
You definately know how it works. We have a great
intellectual question, but maybe we should be answering a
different question? I'm just probing a bit to see if there is
some more fundamental application issue here.
I looked at this inplace_uc code and I did add "$text =~" in front of the
tr, which seemed appropriate.
Here, there is really no performance to be gained that I can see.
The inplace_uc() call passes the whole string on the stack and there is some
stuff to get the address of it. If we are doing an "inplace" replacement,
why not just pass the addresss of the string instead of the whole string?
My inplace_uc2() uses the address of the string in a very straightforward
way.
As a perfence of style, I would always expect an inplace modification to
to take place on an address or in Perl lingo a referece to something.
Ok, mileage varies as they say.
#!/usr/bin/perl -w
use strict;
my $lc_msg = 'message';
inplace_uc ($lc_msg);
print "$lc_msg\n";
sub inplace_uc
{
our $text;
local *text = \$_[0]; # equivalent to:
# local *text = \shift;
$text =~ tr/a-z/A-Z/; # added $text =~
}
my $lc_msg_y = 'another_message';
inplace_uc2 (\$lc_msg_y);
print "$lc_msg_y\n";
sub inplace_uc2
{
my $str_ref = shift;
$$str_ref =~ tr/a-z/A-Z/;
}
# prints:
#MESSAGE
#ANOTHER_MESSAGE
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.