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};
use strict;
use diagnostics;
@ -38,7 +38,7 @@ foreach my $station (@stations) {
my $last = getlatest($station);
print "[$station] Last record was $last\n" if $ENV{R_DEBUG};
foreach my $line (sort split(/^/m, $content)) {
next if $line =~ /Timestamp (UTC)/;
next if $line =~ /Timestamp/;
chomp($line);
my ($ts, $level) = split(/,/, $line);
if($ts le $last) {