John W. Krahn wrote:
>
> $ perl -le'
> my $text = q![20060911 14:47:11]p_var1=<SD> KQt=1 HZZ=2: 83,68//p_var2=<QR44>
> KQt=1 HZZ=4: 77,57,52,52//p_var3=<543210987> KQt=1 HZZ=9:
> 52,54,48,52,50,57,49,56,50//p_var4=<001> KQt=1 HZZ=3: 48,48,49//p_var5=<12345>
> KQt=1 HZZ=5: 49,50,51,52,53//p_var6=<20060907> KQt=1 HZZ=8:
> 50,48,48,54,48,57,48,55//p_var7=<0000000WR44> KQt=1 HZZ=11:
> 48,48,48,48,48,48,48,77,57,52,52//p_var8<X> KQt=1 HZZ=2: 83,68//p_var9=<>
> NULL!;
>
> my @p_var = $text =~ /<([^>]*)>/g;
>
> print ">$_<" for @p_var;
> '
>>SD<
>>QR44<
>>543210987<
>>001<
>>12345<
>>20060907<
>>0000000WR44<
>>X<
>><
Oops!
my $text = q![20060911 14:47:11]p_var1=<SD> KQt=1 HZZ=2: 83,68//p_var2=<QR44>
KQt=1 HZZ=4: 77,57,52,52//p_var3=<543210987> KQt=1 HZZ=9:
52,54,48,52,50,57,49,56,50//p_var4=<001> KQt=1 HZZ=3: 48,48,49//p_var5=<12345>
KQt=1 HZZ=5: 49,50,51,52,53//p_var6=<20060907> KQt=1 HZZ=8:
50,48,48,54,48,57,48,55//p_var7=<0000000WR44> KQt=1 HZZ=11:
48,48,48,48,48,48,48,77,57,52,52//p_var8<X> KQt=1 HZZ=2: 83,68//p_var9=<> NULL!;
my @p_var = map {
( my $x = $_ ) =~ s/=?</='/; "$x'"
} $text =~ /(p_var\d+=?<[^>]*)>/g;
print for @p_var;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
