Take pity on us poor sods living outside GMT... we get confused easy. 
| The Following User Says Thank You to MSameer For This Useful Post: | ||
| The Following User Says Thank You to latency For This Useful Post: | ||
| The Following User Says Thank You to MSameer For This Useful Post: | ||
~ $ perl cameraplus-time.pl 6899ms 6355ms 6029ms 5915ms 6118ms 5963ms avg over 6 times: 6213
~ $ perl cameraplus-time.pl 4545ms 4464ms 4586ms 4541ms 4651ms 4509ms avg over 6 times: 4549
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(time);
sub main(@){
my $count = 6;
my $total = 0;
for(my $i=0; $i<$count; $i++){
my $start = time;
open FH, "cameraplus 2>&1 |";
while(my $line = <FH>){
if($line =~ /Loaded the MeeGo sensor plugin/){
my $ms = (time - $start)*1000;
print int($ms+0.5) . "ms\n";
$total += $ms;
system "pkill", "cameraplus";
last;
}
}
close FH;
}
print "avg over $count times: " . int($total/$count + 0.5) . "\n";
}
&main(@ARGV);