Perl program need in regular expression

[Benson]

I want a program can read a log file and capture the character seg=9543
The file log line like this

"Webtrends=219.65.94.207.13841063300606-888510000; SESSION=%7EgrfwSipoiI; seg=9543"

Capture character set "seg=9543"
get the value of number 9543 to a valuable. for calculation.

How to use regular expression get the value number 9543?

 

[Lao Coon]

(e-mail address removed) (Benson) wrote in

I want a program can read a log file and capture the character
seg=9543 The file log line like this

"Webtrends=219.65.94.207.13841063300606-888510000;
SESSION=%7EgrfwSipoiI; seg=9543"

Capture character set "seg=9543"
get the value of number 9543 to a valuable. for calculation.

How to use regular expression get the value number 9543?

Read perldoc perlre

e.g.

my $value, $string = "Webtrends=219.65.94.207.13841063300606-888510000;

SESSION=%7EgrfwSipoiI; seg=9543";

if ($string =~ /seg=(\d+)/) {
$value = $1;
}


Lao

 

[Tad McClellan]

"Webtrends=219.65.94.207.13841063300606-888510000; SESSION=%7EgrfwSipoiI; seg=9543"

How to use regular expression get the value number 9543?

Assuming the line is in $_ :

my($num) = /seg=(\d+)/;