On 07/25/2013 03:26 PM, Jim Gibson wrote:
You don't need a module to recognize a date in the form DD-MM-YYYY and change 
it into the form YYYY-MM-DD (untested):

if( $date =~ /^(\d\d)-(\d\d)-(\d\d\d\d)$/ ) {
   $date = "$3-$2-$1";
}else{
     # try other conversions
}

Jim's right, but be aware that when you roll your own date code, you are taking all the validation work upon yourself. If you can trust your input, that's probably fine, but if you are dealing with user input or input from an untrusted source, you probably want to let CPAN do the work for you.

For example, the code above will happily turn '99-99-2013' into '2013-99-99'.

Cheers,
Michael

--
Michael Brader                    Senior Software Engineer and Perl Person
Our World Wide Web has a World Wide Network      Technology/Softdev/DevOps
Internode       http://internode.on.net/          mbra...@internode.com.au
iiNet             http://iinet.net.au/         m.bra...@staff.iinet.net.au


--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to