http://qs1969.pair.com?node_id=543058

jesuashok has asked for the wisdom of the Perl Monks concerning the following question:

Hi all

$input= "200604131145" #( yyyymmddhhmi)
I would like to add 15 with the $input
I should get the output as $output = "200604130200"
I would like to get this done in simpler way.
I am already advised by the perlmonks that using perl module will make the work very simple.
But people who are sitting above me, strictly told that I should not use modules.
Please bear with me.

($YY, $MM, $DD, $hh, $mm) = ($dtstamp =~ /(\d\d\d\d)(\d\d)(\d\d)(\d\d) +(\d\d)/); $period1 =sprintf("%02d/%02d/%04d %02d:%02d", $MM, $DD, $YY, $hh, $mm+15); $period2 =sprintf("%02d/%02d/%04d %02d:%02d", $MM, $DD, $YY, $hhm2, $hm2-$hhm2*60); $period3 =sprintf("%02d/%02d/%04d %02d:%02d", $MM, $DD, $YY, $hh, $mm); $period4 =sprintf("%02d/%02d/%04d %02d:%02d", $MM, $DD, $YY, $hhm2, $hm2-(($hhm2*60)-15));
Existing code is given in the above lines.
How to simplify that one.

"Keep pouring your ideas"