Shell Programming and Scripting

#!/usr/local/bin/perl


sub parse_csv {
    my $text = shift;      # record containing comma-separated values
    my @new  = ();
    push(@new, $+) while $text =~ m{
        # the first part groups the phrase inside the quotes.
        # see explanation of this pattern in MRE
        "([^\"\\]*(?:\\.[^\"\\]*)*)",?
           |  ([^,]+),?
           | ,
       }gx;
       push(@new, undef) if substr($text, -1,1) eq ',';
       return @new;      # list of values that were comma-separated
}


open(FP,"<log.txt");
open(NF, ">out.txt");



while($line = <FP>){
	@fields = parse_csv($line);
	@fields[1] =~ /(\d\d\d\d)-(\d\d)-(\d\d)/;
	$y = $1;
	$d = $2;
	$m = $3;

	$y =~ /(\d)(\d)(\d)(\d)/;
	$t = $1;
	$h = $2;
	$n = $3;
	$o = $4;
	$out = "@fields[0],$m$d$n$o,@fields[2]\n";
	print $out;
	print NF $out;	
}

close FP;
close NF;

awk '
  BEGIN {
    FS=OFS=","
  }
  {
    $2 = substr($2,9,2) substr($2,6,2) substr($2,3,2)
    print $0
  }
' infile > outfile