HOW to convert date string to sec?

[news.hinet.net]

if i have a date string like 200407221405000 .
how to convert the string to sec from 1971/1/1 like time()?

 

[A. Sinan Unur]

if i have a date string like 200407221405000 .
how to convert the string to sec from 1971/1/1 like time()?

How about looking at the various Date:: modules on CPAN.

By the way, are you sure you have read

perldoc -f time

 

[Dangerous Lunatic]

if i have a date string like 200407221405000 .
how to convert the string to sec from 1971/1/1 like time()?

sub utc2seconds {
my $utc = shift @_;
my $YYYY = substr($utc,0,4);
my $MM = substr($utc,4,2);
my $DD = substr($utc,6,2);
my $hh = substr($utc,8,2);
my $mm = substr($utc,10,2);
my $ss = substr($utc,12,2);
return timegm($ss,$mm,$hh,$DD,$MM,$YYYY);
}
....
my $seconds = utc2seconds(200407221405000);

 

[news.hinet.net]

i dont want to use module.
because i must install those module

 

[news.hinet.net]

timegm is perl build-in function??

sub utc2seconds {
my $utc = shift @_;
my $YYYY = substr($utc,0,4);
my $MM = substr($utc,4,2);
my $DD = substr($utc,6,2);
my $hh = substr($utc,8,2);
my $mm = substr($utc,10,2);
my $ss = substr($utc,12,2);
return timegm($ss,$mm,$hh,$DD,$MM,$YYYY);
}
...
my $seconds = utc2seconds(200407221405000);

 

[Tore Aursand]

if i have a date string like 200407221405000

What kind if date is that? 2004-07-22 14:05:000? I guess you added a '0'
too much at the end there.

how to convert the string to sec from 1971/1/1 like time()?

First of all, it's seconds since January 1st, 1970 you want. Secondly,
you don't need to install an extra module (if you have a fairly up-to-date
Perl installation); the Time::Local is there for you;

perldoc Time::Local

 

[Joe Smith]

i dont want to use module.
because i must install those module

How about *LOOKING* at a module from CPAN.
As in look at the source code and see how it's done.
-Joe

 

[A. Sinan Unur]

@netnews.hinet.net:

[ top-posting fixed: please don't do that ]

"A. Sinan Unur" <[email protected]> ¦b¶l¥ó

i dont want to use module.
because i must install those module

Have you read:

perldoc -q own

I realize using Time::Local is the answer to your question but looking at
the FAQ above is a good idea.

 

[Johnny \Gandalf\ Brasseur]

if i have a date string like 200407221405000 .
how to convert the string to sec from 1971/1/1 like time()?

You may also use the HTTP:ate module which almost answers your needs
it is also based on Time::Local.