Edit by dws to add <code> tagsthe year is 2004 the month is 03 the day is 04 2004 03 04 2004 03 03 #!/usr/bin/perl my $yr = `date -u +%Y`; #get the output of year my $mm = `date -u +%m`; #get the output of month my $dd = `date -u +%d`; #get the output of day my $yyyymmdd = `date -u +%Y%m%d`; print "the year is $yr"; print "the month is $mm"; print "the day is $dd"; $new_date = "$yr$mm$dd"; print $new_date; $yes_dd = $dd -1; $yes_dd = 0 . $yes_dd; $yes_date = $yr.$mm.$yes_dd; print "$yes_date\n";
In reply to simple question by pietyc
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |