Re^2: Need help in extracting timestamp from the line in a file

Thanks for the suggestion. This is the Regex that I've come up with:

if($_=~/Launching the JVM/){
/\-+ [A-Za-z]{3} (.*?) (.*?) (.*?)\:(.*?)\:(.*?) (\d+)::(\d+)::Launchi
+ng the JVM with following options/;

 if ( $1 eq "Jan") { $month= "01";}
 if ( $1 eq "Feb") { $month= "02";}
...
 if ( $1 eq "Dec") { $month= "12";}

 if ( $2 eq " 1") { $start_date= "01";}
 if ( $2 eq " 2") { $start_date= "02";}
...
 if ( $2 eq " 9") { $start_date= "09";}

 if ( $3 eq " 1") { $start_hour= "01";}
 if ( $3 eq " 2") { $start_hour= "02";}
...
 if ( $3 eq " 9") { $start_hour= "09";}

 if ( $4 eq "1") { $start_min= "01";}
 if ( $4 eq "2") { $start_min= "02";}
...
 if ( $4 eq "9") { $start_min= "09";}

 if ( $5 eq "1") { $start_sec= "01";}
 if ( $5 eq "2") { $start_sec= "02";}
...
 if ( $5 eq "9") { $start_sec= "09";}

print "App Start time is: $6-$month-$start_date $start_hour:$start_min
+:$start_sec\n";
[download]

However, it is failing to convert if the date / hour / min / sec is a single digit / character 0-9 and prints it something like:

$perl get_ts.pl

--------------------------------------

App Start time is: 2015-04- 8 1:51:20

--------------------------------------

Not sure what I am doing wrong. I tried replacing .*? to \d+ but still not getting the desired results.

Can you please suggest?

Comment on Re^2: Need help in extracting timestamp from the line in a file Download Code

Replies are listed 'Best First'.
Re^3: Need help in extracting timestamp from the line in a file by choroba (Cardinal) on Mar 09, 2015 at 16:39 UTC
You should check whether the match succeeds at all. `if (/\-+ [A-Za-z]{3} (.?) (.?) (.?)\:(.?)\:(.*?) (\d+)::(\d+)::Lau +nching the JVM with following options/) { ...` [download] Also, use hashes and sprintf to format the numbers and convert month names: `# Declaration my $m = 1; my %MONTH = map { $_ => $m++ } qw( Jan Feb Mar Apr May ... ); # Later in the code: $month = sprintf '%02d', $MONTH{$1};` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Need help in extracting timestamp from the line in a file
by choroba (Cardinal) on Mar 09, 2015 at 16:39 UTC

if (/\-+ [A-Za-z]{3} (.*?) (.*?) (.*?)\:(.*?)\:(.*?) (\d+)::(\d+)::Lau
+nching the JVM with following options/) {
    ...
[download]

Also, use hashes and sprintf to format the numbers and convert month names:

# Declaration
my $m = 1;
my %MONTH = map { $_ => $m++ } qw( Jan Feb Mar Apr May ... );

# Later in the code:
$month = sprintf '%02d', $MONTH{$1};
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

[reply]
[d/l]
[select]