Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Converting datetime string to valid localtime value (seconds)

by grep (Monsignor)
on May 16, 2003 at 18:48 UTC ( #258734=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
    use strict;
    ...
    print "$secs\n";
    print localtime($secs)."\n";
    
  2. or download this
    $Date::Manip::TZ = '-0800';
    my $line = qq{1.2.3.4 - - [15/May/2003:01:05:02 -0600] "GET /foobar"};
    ...
    my $secs = UnixDate(Date_ConvTZ(ParseDate($date),$tz,'GMT' ),"%s");
    print "$secs\n";
    print localtime($secs)."\n";
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://258734]
help
Chatterbox?
[Corion]: Cosmic37: No, but maybe $mydt doesn't contain what you think it does, or it contains characters that are special in a regular expression? Try if( $line =~ /\Q$mydt\E/) { ... for a literal match
[Cosmic37]: I mean string grrr
[Corion]: Maybe add an else branch in which you print what the values of $line and $mydt are?
[Cosmic37]: ah thank you I will try
[Cosmic37]: you are right $mydt did not contain what I expected... :-D I will now think :-D
[Cosmic37]: crunch...grind... whirr...gnashing metal crunching cogs...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2017-06-29 17:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (673 votes). Check out past polls.