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]

[email]benson@lemon-asia.com[/email] (Benson) wrote in
news:5853c030.0309182018.69edbcc1@posting.google.c om:

> 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]

Benson <benson@lemon-asia.com> wrote:

> "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+)/;


--
Tad McClellan SGML consulting
[email]tadmc@augustmail.com[/email] Perl programming
Fort Worth, Texas