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

disable diagnostics

Browse Source
This commit is contained in:
Matthew Slowe 2024-01-07 17:02:16 +00:00
parent db674670d1
commit 8078766a1a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
stack-years.pl
View File

@ -1,7 +1,7 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
use strict; use strict;
use diagnostics; # use diagnostics;
use DBI; use DBI;
use POSIX; use POSIX;
use Data::Dumper; use Data::Dumper;
@ -15,7 +15,6 @@ my $getdata_st = $db->prepare("select strftime('2000-%m-%dT%H:%M:%S.000Z', times
$years_st->execute($station); $years_st->execute($station);
my @years = @{$years_st->fetchall_arrayref}; my @years = @{$years_st->fetchall_arrayref};
print STDERR Dumper(@years);
my %data; my %data;
foreach my $y_ref (@years) { foreach my $y_ref (@years) {