use Benchmark to time a loop : Benchmark « System Functions « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » System Functions » Benchmark 
use Benchmark to time a loop
   

use Benchmark;

$timestamp1 = new Benchmark;

for ($loop_index = 0; $loop_index < 1_000_000; $loop_index++) {
    $variable1 = 1;
}

$timestamp2 = new Benchmark;
$timedifference = timediff($timestamp2, $timestamp1);

print "The loop took", timestr($timedifference);

   
    
    
  
Related examples in the same category
1.Benchmark timethis
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.