Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Efficiency of $$var, ${$var}

by athomason (Curate)
on Aug 20, 2001 at 09:09 UTC ( #106135=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use Benchmark 'cmpthese';
    use strict;
    my $x = 0; our $y = \$x;
    ...
        'braces'   => sub { return ${ $y } },
        'nobraces' => sub { return $$y },
    });
    
  2. or download this
    Benchmark: timing 10000000 iterations of braces, nobraces...
        braces:  2 wallclock secs ( 1.87 usr +  0.00 sys =  1.87 CPU) @ 53
    +47593.58/s (n=10000000)
      nobraces:  1 wallclock secs ( 1.87 usr +  0.00 sys =  1.87 CPU) @ 53
    +47593.58/s (n=10000000)
                  Rate nobraces   braces
    nobraces 5347594/s       --       0%
    braces   5347594/s       0%       --
    
  3. or download this
    my $x = [ [ 1, 2 ], [ 3, 4 ] ];
    my @y = @$x->[ 0 ];
    my @z = @{ $x->[ 0 ] };
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (2)
As of 2021-11-28 14:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?