Regex Help

cmfarley19 · 03-31-2005, 08:35 AM

Hi all,
I have a file I an trying parse that looks like so:

Code:

Param1        " 12"       '48H 
Param2        "150"       '4AH 
Param3        " 10"       '4CH.
UNUSED        " -1"
UNUSED        " -1"
UNUSED        " -1"

The values in quotes are 3 characters long. -1 represents an unused field.

I want to replace all used field values with a dummy sential value, say 111.
So the file will now look like this:

Code:

Param1        "111"       '48H 
Param2        "111"       '4AH 
Param3        "111"       '4CH.
UNUSED        " -1"
UNUSED        " -1"
UNUSED        " -1"

all I really need is something like:
[code]$> cat filename|sed "s/(SomeRegex)/(SomeOtherRegex)/"

I'm having trouble cooking up the right regex.

Any thoughts?

Chris

cmfarley19 · 03-31-2005, 08:51 AM

If at first you don't succeed...

Code:

$> cat filename|sed "s/\" *[0-9]*\"/\"111\"/"

dustu76 · 03-31-2005, 09:14 AM

Code:

SF1B : /supmis/soumen/tmp > cat ifile
Param1        " 12"       '48H
Param2        "150"       '4AH
Param3        " 10"       '4CH.
UNUSED        " -1"
UNUSED        " -1"
UNUSED        " -1"
SF1B : /supmis/soumen/tmp > awk -F\" 'BEGIN {OFS="\""} $2 == -1 {$2=111} {print}' ifile
Param1        " 12"       '48H
Param2        "150"       '4AH
Param3        " 10"       '4CH.
UNUSED        "111"
UNUSED        "111"
UNUSED        "111"
SF1B : /supmis/soumen/tmp >

HTH.

cmfarley19 · 03-31-2005, 09:36 AM

That might be a useful reference, but it does precisely the opposite of what I want it to do.

Thanks anyway for the effort.

dustu76 · 03-31-2005, 11:01 AM

My bad...

Anyway, here goes...

Code:

SF1B : /supmis/soumen/tmp > awk -F\" 'BEGIN {OFS="\""} $2 != -1 {$2=111} {print}' ifile
Param1        "111"       '48H
Param2        "111"       '4AH
Param3        "111"       '4CH.
UNUSED        " -1"
UNUSED        " -1"
UNUSED        " -1"
SF1B : /supmis/soumen/tmp >

puffinman · 03-31-2005, 10:13 PM

I did it in perl just for fun. I'll take any excuse to use lookaheads!

here's the one-liner...

Code:

perl -e "while (<>) { s/(?<=\")\s*\d+(?=\")/111/; print }" filename

Or in a file...

Code:

#!/usr/bin/perl
while (<>) { s/(?<=")\s*\d+(?=")/111/; print }