I would be using Time::Piece for this since it is in core.
#!/usr/bin/env perl use strict; use warnings; use Time::Piece; my $t = Time::Piece->strptime ($ARGV[0], '%d/%m/%Y'); printf "Date as supplied: %s\n", $t->dmy ('/'); $t = $t - 86400; printf "Date minus one day: %s\n", $t->dmy ('/');
$ ./yesterday.pl 01/12/2022 Date as supplied: 01/12/2022 Date minus one day: 30/11/2022 $
🦛
In reply to Re: Yesterday's date
by hippo
in thread Yesterday's date
by jpys
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |