Can you use Date::Manip ?

$fullMonth = &returnFullmonth($month);

sub returnFullmonth {   
        use Date::Manip;
        return UnixDate("2007/$_/01",'%B');
}

This will handle feb, 02, or 2 but will not handle february itself - so
you may want to check first that you are indeed passing in 1-2 digits or
3 alphas.


Jo 


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to