Question

I have a date in string as in $str1="20120704". I want to subtract 1 day from that date, and store the value of date as a string in $str2. How can i do it?

Answer 1

This is very similar to another question you asked a couple of days ago. So, unsurprisingly, the solution is also very similar.

Time::Piece and Time::Seconds have been part of the standard Perl distribution since version 5.10.0. You should use them.

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use Time::Piece;
use Time::Seconds;

my $format = '%Y%m%d';
my $str1 = '20120704';

my $dt1 = Time::Piece->strptime($str1, $format);
my $dt2 = $dt1 - ONE_DAY;
my $str2 = $dt2->strftime($format);
say $str2;