On Jul 22, Dave Adams said:
The following code looks too rigid, how can I achieve the same result
using one of the control structure (foreach, for, etc)?
my @today = Today();
my $year_now = $today[0];
my $month_now = $today[1];
my $day_now = $today[2];
Well, first of all, that could just be
The following code looks too rigid, how can I achieve the same result
using one of the control structure (foreach, for, etc)?
#!/usr/bin/perl -w
use strict;
use Date::Calc qw(:all);
my @today = Today();
my $year_now = $today[0];
my $month_now = $today[1];
my $day_now = $today[2];
print ($year_n