RE: [PERL] Dato og Tid ???

[Ask Bjoern Hansen <sslug@sslug>]

On Fri, 10 Dec 1999, Jonas B. Nielsen wrote:

[...]
> 	Dessuden tror jeg at system kaldet er dyrere end localtime kaldet -
> eller??

Meget.

#!/usr/bin/perl -w
use strict;
use Benchmark;

timethese(400000, { 'localtime' => 'my $a = localtime' });
timethese(1000, { 'system' => 'my $a = `"date"`' });


Benchmark: timing 400000 iterations of localtime...
 localtime:  6 wallclock secs ( 6.71 usr +  0.18 sys =  6.89 CPU)
Benchmark: timing 1000 iterations of system...
    system:  7 wallclock secs ( 0.10 usr  1.20 sys +  4.01 cusr  3.10 csys


det tog lige lang tid, til gengaeld koerte loacltime tingen 400 gange
mere.


-- 
ask bjoern hansen - <http://www.netcetera.dk/~ask/>