RegEX Doubt

[sandy105]

i have the following signature log file .i need to extract specific portion of the log file ,namely the first square baracket,second square bracket and the last patch of code after third square bracket

log signature

[part1-date] info - [..part2..] [..part3..] part4

[part1-date] log - [..part2..] [..part3..] part4

foreach (@lines) {
$_ =` /\[([^]]+)\] \[([^]]+)\] \[([^]]+)\] (.*)/ || next
my ($part1,$part2,$part3) = ($1,$2,$4);

this is what i have ,i cant seem to get correct result

do i have to take care of " info - " || " log - "

[hippo]

Yes, you do have to account for all the characters in your regex. It might be simpler just to split on the delimiters, though:

echo '[part1-date] log - [..part2..] [..part3..] part4' | perl -ne 'my
+ @r = split (/[[\]]/, $_); print @r[1,3,6];'

[Athanasius]

Hello sandy105,

Yes, you have to allow for text such as “info - ” between the bracketed parts. But you don’t have to capture it. No need to capture the contents of the third bracketed part either, if you don’t need it:

#! perl
use strict;
use warnings;

while (<DATA>)
{
    / \[ ([^]]+) \] .* \[ ([^]]+) \] .* \[ [^]]+ \] \s+ (.*) /x or nex
+t;

    my ($part1, $part2, $part3) = ($1, $2, $3);

    print "1: |$part1| 2: |$part2| 3: |$part3|\n";
}

__DATA__
[part1-dateA] info - [..part2..] [..part3..] part4

[part1-dateB] log - [..part2..] [..part3..] part4

Output:

22:04 >perl 972_SoPW.pl
1: |part1-dateA| 2: |..part2..| 3: |part4|
1: |part1-dateB| 2: |..part2..| 3: |part4|

22:04 >

Note: I’ve added an /x modifier to the regex and whitespace within to make it easier to read.

Hope that helps,

[sandy105]

thank you much ..for anyone referencing later x is a modifier to allow white spaces .possible use cases include commenting regex and spacing to improve legibility

[Laurent_R]

Hi,

your have been given valuable answers already, but I would suggest two possible improvements in terms of readability and ease of regex construction:

- using non-greedy quantifiers rather than negated character class for matching what is between square brackets

- creating first a sub-regex and use it then 3 times.

Possibly something like this:

$_ = "[part1-date] info - [..part2..] [..part3..] part4";
$part = qr /\[(.+?)]/;      # subregex using non-greedy quantifier (sl
+ightly easier than /\[([^]]+)\]/)
print "$1 $2 $3" if /$part \w+ - $part $part \w+/;     # prints "part1
+-date ..part2.. ..part3.."

[soonix]

Hi sandy105,

• I wanted to propose to put [^[]* instead of the spaces between your [...sections...], but the other Monks were quicker :-)
• I can't find =` in perlop - most probably you mean =~ ?

[sandy105]

yes that's correct. "=~"

[sandy105]

i dont know if i should create aother thread for this ..but there is another hiccup.for the last "PART4" i need to match it with few strings eg "init code finished ","batch process code started"..

right now i am checking part 4 in if loops ..but it looks messy .is there a better way to match part 4 with say strings from a array @match

[Laurent_R]

I think you should do it in two steps. Step 1: just capture everything that comes after [..part 3..] (which you can do when you apply the first regex), and step 2: look at what you've captured presumably in $4 at the end of the line. Otherwise, the rest of your regex (what you have already) might fail because you are trying to match more things, and these things may or may not be there.

[sandy105]

yes i am capturing the fourth part and then checking if any match those keywords ; but i have like n if loops ..is there a better way to search /compare that