Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: change the time format into milisecond

by Not_a_Number (Parson)
on Mar 14, 2013 at 21:20 UTC ( #1023559=note: print w/replies, xml ) Need Help??


in reply to change the time format into milisecond

Time::Local is a core module. Consider:

use feature 'say'; use Time::Local; $_ = 'ALL30 2191967708 201211020915 201303020923'; say 1000 * timelocal( 0, reverse unpack 'A4(A2)*' ) for ( split )[ 2, +3 ];