Help with this regex in Perl

[Guest dnewbie]

Can someone explain me how to understand this part of the code

The code is extracted from pfLogSumm.pl a log analyzer for postfix mail

 

Code:

while(<>) {

next if(defined($dateStr) && ! /^$dateStr/o);

s/: \[iD \d+ [^\]]+\] /: /o; # lose "[iD nnnnnn some.thing]" stuff

my $logRmdr;

 

more code

 

}

I can't undestand what the regex is doing because don't have a assigment, don't have a conditional, simple is there

 

:confused:Thanks:confused:

 

Continue reading...