perl -e ' @months=qw(JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC); $date_in="NOV-07"; ($month,$year)=$date_in=~/([A-Z]{3})-(\d{2})/; for $index (0..@months){ print "20$year/",++$index,"\n" if $month eq $months[$index]; } '
In reply to Re: Convert Date formats
by Utilitarian
in thread Convert Date formats
by kalyanrajsista
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |