topic Re: replace words with spaces in Operating System - HP-UX

replace words with spaces

Pat Peter — Wed, 13 Jul 2005 18:15:51 GMT

Hi,

I have a file which contains lines with the following format:

S12|abc|123|456|111|999|

I need to replace the word or number which comes between 5th and 6th "|" (our case '999') with a space.

It would be great if it can be done for lines that start with "S".

Please help.

Thanks,
Pat

Re: replace words with spaces

Biswajit Tripathy — Wed, 13 Jul 2005 22:38:10 GMT

One way would be:
cat your_file | grep ^S | awk -F\| '{printf("%s|%s|%s|%s|%s| |\n",$1,$2,$3,$4,$5)}'

- Biswajit

Re: replace words with spaces

Vibhor Kumar Agarwal — Wed, 13 Jul 2005 22:49:48 GMT

sed -e '/^S/s/$.*$|$.*$|$.*$|$.*$|$.*$|$.*$|$.*$/\1|\2|\3|\4|\5| |\6/g' filename

Re: replace words with spaces

Muthukumar_5 — Wed, 13 Jul 2005 23:48:59 GMT

You can do it as,

echo "S12|abc|123|456|111|999|" | awk -F"|" '/^S/ { $6=" ";OFS="|";print $0 }'

hth.

Re: replace words with spaces

Muthukumar_5 — Wed, 13 Jul 2005 23:58:14 GMT

You can use perl as,

echo "S12|abc|123|456|111|999|" | perl -ne ' @arr=split(/\|/);$arr[5]=" ";$,="|";print @arr;'

or

perl -ne ' @arr=split(/\|/);$arr[5]=" ";$,="|";print @arr;'

hth.

Re: replace words with spaces

H.Merijn Brand (procura — Thu, 14 Jul 2005 02:15:41 GMT

Almost correct perl solution. Here's an alternative, and some remarks

First, let's use autosplit (-aFpattern)

lt09:/tmp 118 > cat xx.txt
S12|abc|123|456|111|999|ABRACA
lt09:/tmp 119 > perl -naF\\\| -e'$,="|";/^S/||next;$F[5]=" ";print@F' xx.txt
S12|abc|123|456|111| |ABRACA
lt09:/tmp 120 >

Note that if the last field is empty, which in our case is not true: it contains a newline, split without additional arguments will drop them. You will have to add

split /\|/, $_, -1

to retain the empty trailing fields. -a does not need that, because the fields are split *before* the chomp happens:

lt09:/tmp 126 > perl -naF\\\| -e'chomp;$,="|";/^S/||next;$F[5]=" ";print@F' yy.txt
S12|abc|123|456|111| |
lt09:/tmp 127 > perl -ne 'chomp;@arr=split(/\|/);$arr[5]=" ";$,="|";print @arr;' yy.txt
S12|abc|123|456|111| lt09:/tmp 128 >

Enjoy, Have FUN! H.Merijn

Re: replace words with spaces

H.Merijn Brand (procura — Thu, 14 Jul 2005 02:17:44 GMT

Even shorter, and retaining the lines that do not start with 'S':

lt09:/tmp 131 > cat xx.txt
S12|abc|123|456|111|999|ABRACA
T12|abc|123|456|111|989|ABRACA
lt09:/tmp 132 > perl -naF\\\| -e'$,="|";/^S/and$F[5]=" ";print@F' xx.txt
S12|abc|123|456|111| |ABRACA
T12|abc|123|456|111|989|ABRACA
lt09:/tmp 133 >

Enjoy, Have FUN! H.Merijn

Re: replace words with spaces

Arturo Galbiati — Fri, 15 Jul 2005 01:18:07 GMT

Hi,
awk -F"|" '/^S/ {$6=" ";OFS="|";print} file

HTH,
Art

Re: replace words with spaces

Sandman! — Fri, 15 Jul 2005 10:14:12 GMT

Pat,

Here is a short one-liner using awk. It will replace the string between the 5th and 6th columns if there is a leading "S" in the first column of your input file or else it will print the entire record.

# awk -F"|" '{if($1~/^S/){$6=" "; OFS="|"; print $0} else print $0}' input_file > output_file