#!/usr/bin/perl use warnings; use strict; use Benchmark; #Outputs: #Benchmark: timing 1000000 iterations of c-loop, perl-loop... # c-loop: 5 wallclock secs ( 5.64 usr + 0.02 sys = 5.66 CPU) @ 176678.45/s (n=1000000) # perl-loop: 3 wallclock secs ( 3.58 usr + 0.01 sys = 3.59 CPU) @ 278551.53/s (n=1000000) timethese(1000000, { 'c-loop' => sub { for (my $i = 0; $i <= 100; $i += 5) { #print("$i "); } }, 'perl-loop' => sub { for (0..20){ # print 5 * $_." "; } }, });
In reply to Re^2: C-style for loop
by zentara
in thread C-style for loop
by mandog
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |