日期转换 DD-MMM-YY 到 YYYYMMDD

Question

如何将 DD-MMM-YY 转换为 YYYYMMDD

我在 AIX 中，使用 korn shell。

date --date 和 date -d 在 aix 中都不起作用。

Answer 1

纯 ksh：

convert_date () {
  typeset -l date=$1
  typeset IFS="-"
  set -- $date  # now $1 is the day, $2 is the lower-case month, $3 is the year

  typeset months
  set -A months "" jan feb mar apr may jun jul aug sep oct nov dec
  typeset -i m=1

  while [[ $m -le 12 ]]; do 
    if [[ "$2" = "${months[$m]}" ]]; then 
      break
    else
      m=$(( m+1 ))
    fi
  done

  # assume this century
  printf "20%02d%02d%02d\n" "$3" $m "$1"
}

convert_date 06-JUL-11   # ==> 20110706

Answer 2

如果您的系统上有 tclsh：

old="06-JUL-11"
new=$( echo "puts [clock format [clock scan $old] -format %Y%m%d]" | tclsh )
echo $new   # ==> 20110706

Answer 3

我是用 Perl 做的，很困难

sub formatDate_YYYYMMDD 
{
my $date=shift;
my ($day,$mon,$yr) = split /\-/,$date;
my @months=qw(JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC );
$i=0;
foreach $_ (@months)
    {
        $i++; 
        if (/$mon/i){$mon=$i;}
    }
$year=2000+$yr;
$mon=sprintf "%02d",$mon;
print "Invalid month format $date present in $file_name" if $mon ==0;
return("$year$mon$day");
}