diff --git a/csv.pl b/csv.pl old mode 100644 new mode 100755 index 4cd8776..98e2eac --- a/csv.pl +++ b/csv.pl @@ -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) {