Jeff Westman wrote: > Hello, Hello,
> I have a string that I would like to parse and change the format. I'm not > that good at 'map' and I'm just looking for a quick-and-dirty way of doing > this. I've tried substr and split, but there has to be a simple way to do > this. > > My text string looks like > > [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 > > (one lone line) > > 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='' > > This is not 'production' or a school assignment, just the output from a > file > I need to make easier to read. > > Any help would be appreciated!!! $ 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< >< 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>
