mafoo.org.uk/rivers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

actually ignore the header

Browse Source
This commit is contained in:
Matthew Slowe 2023-10-20 08:27:13 +01:00
parent 39d1a5e328
commit 0fb8f35b2d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
csv.pl Normal file → Executable file
View File

@ -1,5 +1,5 @@
#!/usr/bin/env perl -w #!/usr/bin/perl -w
#
$|=1 if $ENV{DEBUG}; $|=1 if $ENV{DEBUG};
use strict; use strict;
use diagnostics; use diagnostics;
@ -38,7 +38,7 @@ foreach my $station (@stations) {
my $last = getlatest($station); my $last = getlatest($station);
print "[$station] Last record was $last\n" if $ENV{R_DEBUG}; print "[$station] Last record was $last\n" if $ENV{R_DEBUG};
foreach my $line (sort split(/^/m, $content)) { foreach my $line (sort split(/^/m, $content)) {
next if $line =~ /Timestamp (UTC)/; next if $line =~ /Timestamp/;
chomp($line); chomp($line);
my ($ts, $level) = split(/,/, $line); my ($ts, $level) = split(/,/, $line);
if($ts le $last) { if($ts le $last) {