Dr.Ruud schreef:
> John W. Krahn:
>> 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}'"}
More variants:
my %p = /(p_var\d+)=?<([^>]*)>/g;
print "$_='$p{$_}'" for sort keys %p;
my @p = /(p_var\d+)=?<([^>]*)>/g;
print "$p[2*$_]='$p[2*$_+1]'" for 0..$#p/2;
my @p; push @p,"$1='$2'" while/(p_var\d+)=?<([^>]*)>/g;
print for @p;
--
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>
