How do I get yesterday's date in perl?
问题 Currently i take today date using below.I need to get yesterday date using this.. how can i get that ? my $today = `date "+%Y-%m-%d"`; 回答1: If you want yesterday's date: use DateTime qw( ); my $yday_date = DateTime ->now( time_zone => 'local' ) ->set_time_zone('floating') ->truncate( to => 'days' ) ->subtract( days => 1 ) ->strftime('%Y-%m-%d'); For example, in New York, at 2019-05-14 01:00:00, it will give 2019-05-13. For example, in New York, at 2019-11-04 00:00:00, it will give 2019-11-03.