"John W. Krahn" schreef:
> my @p_var = map {
> ( my $x = $_ ) =~ s/=?</='/; "$x'"
> } $text =~ /(p_var\d+=?<[^>]*)>/g;
>
> print for @p_var;
my %p = /(p_var\d+)=?<([^>]*)>/g;
for my $k(sort keys %p)
{print "$k='$p{$k}'"}
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
