Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Scoping of my with foreach loop

by cog (Parson)
on Mar 07, 2005 at 19:50 UTC ( [id://437298]=note: print w/replies, xml ) Need Help??


in reply to Scoping of my with foreach loop

Also, the first version tends to be faster, because the second one has to declare a new variable for each element of @array (unless this has been optimized by now).

Benchmark it with a big array.

Replies are listed 'Best First'.
Re^2: Scoping of my with foreach loop
by holli (Abbot) on Mar 07, 2005 at 20:34 UTC
    use Benchmark; my @array = (1..999999); timethis (200, sub { my $foo; for $foo ( @array ) { 1; } }); timethis (200, sub { for my $foo ( @array ) { 1; } }); #timethis 200: 33 wallclock secs (31.58 usr + 0.02 sys = 31.60 CPU) @ + 6.33/s (n=200) #timethis 200: 32 wallclock secs (31.65 usr + 0.04 sys = 31.69 CPU) @ + 6.31/s (n=200)
    seems to be optimized (perl 5.8.6)


    holli, /regexed monk/

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (5)
As of 2024-04-19 16:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found