date --date 'yesterday' date --date '1 day ago' |
#/usr/bin/perl use strict; my $arg = (@ARGV[0]); my ($day,$mon,$year) = (localtime(time()-$arg*86400))[3,4,5]; $year += 1900; $mon += 1; if ($mon < 10){ $mon = "0$mon"; } if ($day < 10){ $day = "0$day"; } print "$day-$mon-$year\n"; |