Uh, hello?
I just ran this code:
@lines = <DATA>;
@result = map /<.*?>/g, @lines;
result(1);
### rest deleted ###
sub result {
print"\nResults",pop,"\n";
print "$_\n" for @result;
@result = ();
}
__DATA__
aa<aa@aa.com>bb<bb@bb.com>cc<cc@cc.com>
dd<dd@dd.dd>ee<ee@ee.com>ff<ff@ff.com>
and it produced this result, which appears
perfectly fine:
Results1
<aa@aa.com>
<bb@bb.com>
<cc@cc.com>
<dd@dd.dd>
<ee@ee.com>
<ff@ff.com>
### rest deleted
What part of
Sadly your example fails to produce the desired result :-(
am I failing to understand?
-- Randal L. Schwartz, Perl hacker