iso_date_to_words (version 1.0)

• The description page for this routine
• The list of all subroutines

#! /usr/bin/perl

##############################################################################
#
# SYNTAX: iso_date_to_words isodate
#
# DESCRIPTION: This utility converts an ISO yyyy-mm-dd date to
# DESCRIPTION: a format with the month spelled out.
# DESCRIPTION: e.g. April 9, 1997
# DESCRIPTION: The reformatted date is written to stdout.
#
# VERSION: 1.0
#
# HISTORY: 0.0 -> 1.0 1999-05-07
# HISTORY: Converted from ksh to perl
#
# CALLS: $UTIL/exception
#
##############################################################################

$iso_date = $ARGV[0];

$UTIL = $ENV{"UTIL"};

($year, $mm, $day) = split('-', $iso_date);
if ( $mm < 1 or $mm > 12 ) {
    `$UTIL/exception $0 1 "Unknown month $mm"`;
}
$month = ("January","February","March","April","May","June","July","August","September","October","November","December")[$mm-1];

################################
# trim leading zeros off of day
################################
$day =~ s/^0//;

print "$month $day, $year\n";

exit 0;