Re: Re: Re: Re: pattern matching on a single line

[tachyon]

Sadly your example fails to produce the desired result :-( Here are a few different ways to write it, all do the same as Randal's example, which we start with.

tachyon

@lines = <DATA>;

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

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

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

for (@lines){
    push @result,$1 while /<(.*?)>/g;
}
result(4);

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

sub result {
    print"\nResults",pop,"\n";
    print "$_\n" for @result;
    @result = ();
}
 
__DATA__
aa<[e-mail]>bb<[e-mail]>cc<[e-mail]>
dd<[e-mail]>ee<[e-mail]>ff<[e-mail]>

[merlyn]

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<[e-mail]>bb<[e-mail]>cc<[e-mail]> 
dd<[e-mail]>ee<[e-mail]>ff<[e-mail]>

and it produced this result, which appears perfectly fine:

Results1
<[e-mail]>
<[e-mail]>
<[e-mail]>
<[e-mail]>
<[e-mail]>
<[e-mail]>
### rest deleted

What part of Sadly your example fails to produce the desired result :-( am I failing to understand?

-- Randal L. Schwartz, Perl hacker

[Vynce]

hm... maybe you missed the fact that he was replying to 85960 (FouRPlaY's) and not to 85938 (yours)

[merlyn]

{sigh} it's been a long day. {grin}

-- Randal L. Schwartz, Perl hacker