Guest User

Untitled

a guest
Apr 20th, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.81 KB | None | 0 0
  1. my %hash = ();
  2.  
  3. while (my $row_ref = $sth->fetchrow_arrayref) {
  4.         my $date = @$row_ref[1];
  5.         my $samples = @$row_ref[2];
  6.  
  7.         $hash{$date} = $samples;
  8. }
  9.  
  10.  
  11. for(my $i = $days;$i >= 1;$i--){
  12.         my $myseconds = time - ($i * 86400);
  13.         (my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my $yday, my $isdst) = localtime($myseconds);
  14.  
  15.         $year = $year+1900;
  16.         $mon = $mon+1;
  17.  
  18.         if($mon<10){
  19.                 $mon = "0$mon";
  20.         }
  21.         if($mday<10){
  22.                 $mday="0$mday";
  23.         }
  24.         my $mydate = $year. "-" .$mon. "-" .$mday;
  25.  
  26.         print $mydate ." samples: ";
  27.         if(exists $hash{$mydate}){
  28.                 print $hash{$mydate};
  29.         } else {
  30.                 print "No samples";
  31.         }
  32.         print "\n";
Add Comment
Please, Sign In to add comment