topic Re: regular expression in perl in Operating System - HP-UX

regular expression in perl

andi_1 — Fri, 24 May 2002 13:19:52 GMT

Hello,

I have the following format:

email address = email@email.com

Does anyone know how can I guarantee to retrieve email@email.com and assign it to a variable?

Thank you!

Re: regular expression in perl

H.Merijn Brand (procura — Fri, 24 May 2002 13:40:26 GMT

Can you elaborate on that question? If you just want to parse that line, it is something like

my ($address) = (m/email\s*address\s*=\s*(\S.*)/);

Re: regular expression in perl

andi_1 — Fri, 24 May 2002 13:47:49 GMT

Hi,

Basically, my perl file will be feed a file, where I need to search for a specific field, email address:
the file will have email field formatted this way:
email address = email@email.com

here is my perl code:
while($line = )
{
if ($line =~ /^email address/)
{
my ($address) = (m/email\s*address\s*=\s*(\S.*)/);
print $address;
}
}

basically, $line will be "email address = email@email.com"

Than, I will need to basically, to parse $line and assign email value to a local variable.

I tried your way, but when I print $address, nothing is displayed.

Thanks for your help!

Re: regular expression in perl

H.Merijn Brand (procura — Fri, 24 May 2002 13:54:32 GMT

that's because my example uses the default buffer ($_), whereas you've read your line in $line. Go either way:

1---
while()
{
if (m/^email address/)
{
my ($address) = (m/email\s*address\s*=\s*(\S.*)/);
print $address;
}
}
---

or

2---
while($line = )
{
if ($line =~ /^email address/)
{
my ($address) = ($line =~ m/email\s*address\s*=\s*(\S.*)/);
print $address;
}
}
---

also possible:

3---
while()
{
if ($line =~ m/^email address = (.*)/)
{
my $address = $1;
print $address;
}
}
---

note also that your code is quite rigid with spaces. compare

m/^email address = (.*)/

to

m/\bemail\s+address\s*=\s*(\S.*)/

Re: regular expression in perl

andi_1 — Fri, 24 May 2002 14:08:48 GMT

Thanks a lot for your help!

Here is what I have:

while($line = )
{
if ($line = m/^email address/)
{

my ($address) = ($line =~ m/\bemail\s+address\s*=\s(\S.*)/);
print $address;
}
}

my template contains the following line:

email address = lz@yahoo.com

For some reasons, print $address doesn't display anything. ;-(

Thanks again!

Re: regular expression in perl

andi_1 — Fri, 24 May 2002 14:13:00 GMT

Sorry, I had a typo!

Your example works fine!!

Thanks a lot!