Readers: 2
![]() |
|< 1 2 >| | ![]() |
16 entries, 2 pages |
1 2 3 4 5 6
use Date::Calc qw(Add_Delta_YM); my ($day,$month,$year) = (localtime)[3..5]; $month++; $year+=1900; my ($n_year,$n_month,$n_day) = Add_Delta_YM($year,$month,$day, 0,1);
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl use warnings; use strict; use Time::Local; use Date::Calc qw(Add_Delta_YMD); my ($sec,$min,$hour,$day,$month,$year) = (localtime)[0..5]; $month++; $year+=1900; print "Debug: $sec, $min, $hour, $day, $month, $year\n"; my ($Dy, $Dd) = 0; my $Dm = 1; my ($year2, $month2, $day2) = Add_Delta_YMD($year, $month, $day, $Dy, -$Dm, $Dd); print "Debug: $sec, $min, $hour, $day2, $month2, $year2\n";
Use of uninitialized value in subroutine entry at ./test.pl line 15.
1 2 3
my ($Dy, $Dd) = 0; my $Dm = 1; my ($year2, $month2, $day2) = Add_Delta_YMD($year, $month, $day, $Dy, -$Dm, $Dd);
my ($Dy, $Dd) = 0;
my ($Dy, $Dd) = (0,0);
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
#!/usr/bin/perl use warnings; use strict; use Time::Local; use Date::Calc qw(Add_Delta_YM); my ($sec,$min,$hour,$day,$month,$year) = (localtime)[0..5]; $month++; $year+=1900; print "Debug: $day, $month, $year\n"; my ($year2,$month2,$day2) = Add_Delta_YM($year,$month,$day,0,-1); print "Debug: $day2, $month2, $year2\n"; my $time_now = timelocal(1, 0, 0, $day, $month, $year); my $time_old = timelocal(1, 0, 0, $day2, $month2, $year2); print "Debug: $time_now\n"; print "Debug: $time_old\n";
![]() |
|< 1 2 >| | ![]() |
16 entries, 2 pages |