Shell Programming and Scripting

triss_20111117_fxcb.csv
triss_fxcb_20111117.csv
xpnl_hypo_reu_miplvdone_11172011.csv
xpnl_hypo_reu_miplvdone_11-17-2011.csv
xpnl_hypo_reu_miplvdone_20111117.csv
xpnl_hypo_reu_miplvdone_20111117xfb.csv
triss_fxcb_20111117.csv.checksum

echo $name | awk -F"_" '{  for(i=1;i<=NF;++i) if($i ~ /[[:digit:]]/) print $i}'

YYYYMMDD,DDMMYYYY,MMDDYYYY or YYYY-MM-DD

awk -F[._] '{
  for(i=1;i<=NF;++i) {
    s=$i
    if(gsub("[0-9]",x,s)==8){
      gsub("[a-zA-Z]",x,$i) 
      print $i
    }
  }
}' file

 perl -n -e '/(\d+-*\d*-*\d*)/;print $1."\n";' file

#!/usr/bin/env ksh

validaF ()
{
fecha="${1}"

echo "${fecha}"|perl -n -e '
   if ( m!^((?:19|20)\d\d)(0[1-9]|1[012])(0[1-9]|[12][0-9]|3[01])$!) {
      # $1 -> anyo  $2 -> mes , $3 -> dia
      if ($3 == 31 and ($2 == 4 or $2 == 6 or $2 == 9 or $2 == 11)) {
         print "0" ; # Meses con 30 dias
         }
      elsif ($3 >= 30 and $2 == 2) {
         print "0" ; # Febrero nunca 30 o 31
         } 
      elsif ($2 == 2 and $3 == 29 and not ($1 % 4 == 0 and ($1 % 100 != 0 or $1 % 400 == 0))) {
         print "0" ; # 29 de Febrero cuando no es bisiesto
         } 
      else {
         print "Correct date !: $_ \n"; # Fecha valida
         }
      } 
    else {
       print "KO: $_" ; # Sin formato de fecha
    }'
}

validaF 20110811
validaF 20110841

echo $name | awk -F'[^0-9]' '{  for(i=1;i<=NF;++i) if($i ~ /[[:digit:]]/) print $i}'

11
17
2011

awk -F'[^0-9-]' '{  for(i=1;i<=NF;++i) if($i ~ /[[:digit:]]/) print $i}'

YYYYMMDD,DDMMYYYY,MMDDYYYY,MM-DD-YYYY or YYYY-MM-DD