How do I store all matches from a single line?

[psmail]

Hi, I have a file in format:

......
aa<[e-mail]>bb<[e-mail]>cc<[e-mail]>
dd<[e-mail]>ee<[e-mail]>ff<[e-mail]>
......

I need to extract the email addresses between the characters < & > into a array. How do I do it..
Thanks

[FouRPlaY]

I'd try something like: @array = /<(\w+\@\w+\.\w+)>/g;

[merlyn]

That's incorrect for actual email addresses. If you just want all the angled parts of all the lines, it's something as simple as:

@result = map /<.*?>/g, @lines;

-- Randal L. Schwartz, Perl hacker

[FouRPlaY]

I thought @second = map EXPR, @first; applied EXPR to each element of @first and placed the results in @second. And since m// doesn't change anything, then @second would equal @first.

So something like:



for (@lines)
{
    @result = /<(.*?)>/g;
}



Would be more appropriate.

However, I'm willing to bet heavily that your Perl knowledge far exceeds mine, so I'm wondering: do I misunderstand map or m// (or both)?



FouRPlaY
Learning Perl or Going To die() Trying

[larryk]

Well I can think of a couple of things you could do depending on whether you want an array or a hash...

# array
my @emails = ();
while (<DATA>) {
    push @emails, (split /[<>]/)[1,3,5];
}

I don't like that though -- I'll qualify that -- hard-coding the indices seems like a bad idea, eg. if the data were to change to 4 sets of name/email on a line then this breaks. It's only a quick fix to get it working again but I still don't like it - call me fussy. I suggest the following (again, doesn't offer dodgy-data handling -- but will take as many on a line as are provided)...

# hash
undef $/;
my %emails = split /[<>\n]+/, <DATA>;

The hash-way means you don't lose the name info although, since names are not unique and email addresses are, you should maybe use the email as the key and the name as the value! I'll leave that for you to work out. Hope this helps, larryk

"Argument is futile - you will be ignorralated!"