On Thu, Jun 9, 2011 at 3:39 PM, Imre Saling <imre.sal...@saling.ch> wrote: > Quoting "Ruud H.G. van Tol" <rv...@isolution.nl>: >> >> # see also perlvar: $BASETIME >> { my $t0 = time; sub elapsed { time - $t0 } } >> >> -- >> Ruud > > > or to get the elapsed time since the last call to elapsed(): > > my $t0 = time; > sub elapsed { > my $t = time; > my $dt = $t - $t0; > $t0 = $t; > return $dt; > } >
my bikeshed has nicer color: use 5.010; use Time::HiRes qw(time); say elapsed(); say elapsed(); sub elapsed { state $t0 = $^T; my $t = time; my $dt = $t-$t0; $t0 = $t; return $dt; } Gabor