Perl time() und eine microtime(): Wie kann man microtime() im Perl - #57591 (Allgemeines zu Perl)

polkana

2005-09-03 03:29

User since
2004-06-18
74 Artikel
BenutzerIn

Example 1;

Code: (dl )

#!/usr/bin/perl
use Time::HiRes qw(gettimeofday tv_interval);
my $t = [gettimeofday];
for( 0 .. 1000000 )
{
$str = "Im a TEST: 1, 2, 5;";
$str =~ s/\W+//g; 
}

print "Content-type: text/html\n\n";
print "Time passed: ", tv_interval($t);

Time passed: 4.417454
...........................
Example 2;

Code: (dl )

my $start = (times)[0];
for( 0 .. 1000000 )
{
$str = "Im a TEST: 1, 2, 5;";
$str =~ s/\W+//g; 
}
my $result = (times)[0]-$start;
print "Content-type: text/html\n\n";
print "Time passed: $result";

Time passed: 4.3828125
.................................\n\n