Shell Programming and Scripting

9f680174-cb87|20077337254|0|20120511|N 
9f680174-cb88|20077337254|0|20120534|N

#!/usr/bin/perl

use Time::Local;
use strict;

open (VF,">valid-file")  || die "$! \n";
open (IF,">Invalid-file") || die "$! \n";

while (<DATA>) {
chomp;
my @flds=split(/\|/);
eval {
        timelocal(0,0,0,substr($flds[3],6,2),substr($flds[3],4,2),substr($flds[3],0,4));
     };
print IF "$_\n" if ($@);
print VF "$_\n" if !($@);
}

close(VF);
close(IF);

__DATA__
9f680174-cb87|20077337254|0|20120511|N
9f680174-cb88|20077337254|0|20120534|N

awk -F '|' '{if(system("touch -t " $4 "0000 tempfile 2>/dev/null"))print > "invalid.txt"; else print > "valid.txt"}' file

gawk  -F"|" '{
   if (match($4,/^((19|20)[0-9][0-9])(0[1-9]|1[012])(0[1-9]|[12][0-9]|3[0-1])$/,a)) {
      year=a[1]+0
      mon=a[3]+0
      day=a[4]+0
        if (day ==  31 && (mon == 4 ||  mon == 6 || mon == 9 || mon == 11))
        print $0 >  "valid.txt"
        else if (day >=  30 && mon == 2)
        print $0 >  "valid.txt"
        else if (mon == 2 && day ==  29 && ! (  year % 4 == 0 && (year % 100 != 0 || year % 400 == 0)))
        print $0 > "valid.txt"
        else
        print $0 > "valid.txt"
   }  else { print $0 > "invalid.txt" }
   }' input_file

#!/bin/bash

while IFS='|' read a b c d e
do
    date -d "$d" > /dev/null 2>&1
    if [ $? -eq 0 ]
    then
        echo "$a|$b|$c|$d|$e" >> valid.txt
    else
        echo "$a|$b|$c|$d|$e" >> invalid.txt
    fi
done < inputfile