projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add 'in program' download cmd to replace wget
[spider.git]
/
perl
/
Geomag.pm
diff --git
a/perl/Geomag.pm
b/perl/Geomag.pm
index 9b4421d821cb10c4b2db24277536d28eba6ec1db..1a56305c45a551043bac6d40953bc813d00f0e6d 100644
(file)
--- a/
perl/Geomag.pm
+++ b/
perl/Geomag.pm
@@
-17,6
+17,7
@@
use Julian;
use IO::File;
use DXDebug;
use DXDupe;
use IO::File;
use DXDebug;
use DXDupe;
+use Time::HiRes qw(gettimeofday tv_interval);
use strict;
use strict;
@@
-63,9
+64,10
@@
sub init
$fp = DXLog::new('wwv', 'dat', 'm');
do "$param" if -e "$param";
# read in existing data
$fp = DXLog::new('wwv', 'dat', 'm');
do "$param" if -e "$param";
# read in existing data
+ my $t0 = [gettimeofday];
@cache = readfile($main::systime);
shift @cache while @cache > $maxcache;
@cache = readfile($main::systime);
shift @cache while @cache > $maxcache;
- dbg(sprintf "WWV read in last %d records into cache
", scalar @cache);
+ dbg(sprintf "WWV read in last %d records into cache
in %dmS", scalar @cache, _diffms($t0));
confess $@ if $@;
}
confess $@ if $@;
}