Jeff Westman wrote:
: I would like it "cleaned up" to look like
:
: p_var1='SD'
: p_var2='QR44'
: p_var3='543210987'
: p_var4='001'
: p_var5='12345'
: p_var6='20060907'
: p_var7='0000000WR44'
: p_var8='X'
: p_var9=''
#!/usr/bin/perl
use strict;
use warnings;
my $input = 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 @report;
foreach ( $input =~ /(p_var[^>]+>)/g ) {
# change <> to single quote
tr/<>/'/;
# add = if missing
s/'/='/ unless /\d=/;
# add to report
push @report, $_;
}
# print report
print "$_\n" foreach @report;
__END__
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
Free Market Advocate
Web Programmer
254 968-8328
Don't tread on my bandwidth. Trim your posts.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
