Benchmark timethis : Benchmark « System Functions « Perl

1. Perl
2. System Functions
3. Benchmark

Benchmark timethis

     
#!/usr/bin/perl
use warnings;
use strict;
use Benchmark;
my $howmany = 10000;
my $what = q/my $j=1; for (1..100) {$j*=$_}/;
timethis($howmany, $what);

   
    
    
    
    
  

Related examples in the same category