Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re^2: Tell me how it works!

by ikegami (Pope)
on Jan 28, 2009 at 18:11 UTC ( #739664=note: print w/ replies, xml ) Need Help??


in reply to Re: Tell me how it works!
in thread Tell me how it works!

Why what? Why create an alias?

sub inplace_uc { our $text; local *text = \$_[0]; $text =~ tr/a-z/A-Z/; }

Update: Added missing "$text =~".


Comment on Re^2: Tell me how it works!
Select or Download Code
Re^3: Tell me how it works!
by Marshall (Prior) on Jan 28, 2009 at 20:44 UTC
    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

      Here, there is really no performance to be gained that I can see.

      The difference is in the interface, not the performance.

      The inplace_uc() call passes the whole string on the stack

      No, just a "C" pointer.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://739664]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (13)
As of 2014-09-19 13:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (138 votes), past polls