On 05/19/00, ""Nolen, Mike" <[EMAIL PROTECTED]>" wrote:
> I need to return all data inside each set of <> in a string ...
> I've included 2 examples, but they both return the last item only...
> for ( $aa =~ s/^.*\<(.*)\>.*$/\1/g ) {
> print "$aa\n";
> }
This is not a substitution, just a match, change
this to:
for my $a ( $aa =~ /<.*?>/g ) {
print "$a\n";
}
Or if you just want an array of the results:
my @arr = $aa =~ /<.*?>/g;
HTH,
Douglas Wilson
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
