I have script to where I am looking to update a date format, but for some reason my new file is not being created and I cannot see what I am missing or what is wrong.
If someone could point out what I have wrong it would be truly appreciated.
use strict;
open(INFILE, "PSR_Date.txt");
open(OUTFILE, ">PSR_OutputDate.txt");
while (<INFILE>) {
$line = $_;
$line =~ s/(\d{4})-(\d{2})-(\d{2})\s\d{2}:\d{2}:\d{2}/
+\2\/\3\/\1/g;
print OUTFILE "$line";
}
close INFILE;
print "Done!\n";
chomp($pause = <STDIN>);
_DATA_
OD44202,07/01/2015,08/19/2019,08/27/2019,1,07/01/2015,06/30/2019,2015-
+06-20 00:00:00
OD44202,07/01/2015,08/19/2019,08/27/2019,1,07/01/2015,06/30/2019,2015-
+06-20 00:00:00
OD44202,07/01/2015,08/19/2019,08/27/2019,1,07/01/2015,06/30/2019,2015-
+06-20 00:00:00
OD44202,07/01/2015,08/19/2019,08/27/2019,1,07/01/2015,06/30/2019,2015-
+06-20 00:00:00
_OUTPUT_
OD44202,07/01/2015,08/19/2019,08/27/2019,1,07/01/2015,06/30/2019,06/20
+/2015
OD44202,07/01/2015,08/19/2019,08/27/2019,1,07/01/2015,06/30/2019,06/20
+/2015
OD44202,07/01/2015,08/19/2019,08/27/2019,1,07/01/2015,06/30/2019,06/20
+/2015
OD44202,07/01/2015,08/19/2019,08/27/2019,1,07/01/2015,06/30/2019,06/20
+/2015