That's what I'd do if I'd given up on the regex engine.
Which I did about half an hour ago ;)
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of Snyder,
> Christopher
> Sent: 13 June 2001 13:49
> To: ActivePerl
> Subject: RE: simple global substitution
>
>
> I sent this to Allan earlier, but I tweaked it a bit and thought I'd show it
> to everyone for review. What do you folks think about this solution?
>
> $str = "aaa 111 222 aaa 333 444<END>";
> output($str);
>
> sub output
> {
> $text = $_[0];
>
> foreach ($text =~ /\s*(aaa)\s/g)
> {print "$1\n";}
> }
>
> Chris
> -----Original Message-----
> From: Andy Jennings [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, June 13, 2001 8:13 AM
> To: Allan Juul; ActivePerl
> Subject: Re: simple global substitution
>
>
> Allan
>
> How about:-
>
> $text =~ s/.*?(aaa)[^aaa]+/$1\n/ig;
>
> The only messy thing about this, is that it produces one blank line at the
> end of the output - not perfect but probably tolerable, as you can always
> chomp it afterward.
>
> hth
>
> Andy
>
> ----- Original Message -----
> From: "Allan Juul" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, June 13, 2001 6:03 AM
> Subject: simple global substitution
>
>
> > hi
> > am i going totally blind or?
> > from the snip below i want to output just:
> > aaa
> > aaa
> >
> > what i get is :
> > aaa
> > aaa
> > 333 444<END>
> >
> >
> > why is that?
> > thanks
> > allan
> >
> >
> > #!perl
> > $str = "aaa 111 222 aaa 333 444<END>";
> > output($str);
> > sub output{
> > $text = $_[0];
> > $text =~ s/.*?(aaa).*?/$1\n/ig;
> > print $text;
> > }
> > _______________________________________________
> > ActivePerl mailing list
> > [EMAIL PROTECTED]
> > http://listserv.ActiveState.com/mailman/listinfo/activeperl
> >
> >
>
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/activeperl
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/activeperl
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
