Perl time with milliseconds

[Guest_imported]

Im in need of perl code that will return the time with milliseconds im trying to find out how long it takes for my search to find results and I really need milliseconds because its never a seconds to return the result

Thanks in advance for everyone that can help me with this problem

 

[jeans]

Try using the Perl module Bencmark. It produces great results. The following is an example of the Benchmark use:

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

my $count = 500_000;
my $string = 'Sentence 1.  Sentence 2.  Sentence 3.';
my @tokens;

timethese($count, {
    'split array'   => sub {
                                $count = @tokens = split( /\./, $string );
                           },
    'split into @_' => sub {
                                $count = split( /\./, $string );
                           },
    'using tr'      => sub {
                                $count = ( $string =~ tr/\.// );
                            },
    }
);

print "Done.\n";

Jean Spector
QA Engineer @ mSAFE Ltd.

http://www.msafe.com