topic replacing text - perl, awk.... in Operating System - HP-UX

replacing text - perl, awk....

hpuxsa — Wed, 21 Jul 2004 01:09:21 GMT

Hi,
I have many entries like below in a file
/disk1/oracle/HP/hp01.dbf
to
/disk1/oracle/HP/hp01.dbf

/disk2/oracle/HP/hp02.dbf
to
/disk2/oracle/HP/hp02.dbf

I would like to change them as follows

/disk1/oracle/HP/hp01.dbf
to
/disk1_dev/oracle_dev/hp01.dbf

/disk2/oracle/HP/hp02.dbf
to
/disk2_dev/oracle_dev/HP/hp02.dbf

Regards,
Steven

Re: replacing text - perl, awk....

Francisco J. Soler — Wed, 21 Jul 2004 01:46:31 GMT

Hi Steven,

my solution,

Create a script in awk like this:

----- s.awk -------------------
BEGIN {
flag_to=0
FS="/"
OFS="/"
}

/to/ { flag_to=1 }
/disk1/ { if (flag_to==1) $2="disk1_dev" ; flag_to=0}
/disk2/ { if (flag_to==1) $2="disk1_dev" ; flag_to=0}
{ print }
--------------------------------

Then run it:

awk -f s.awk filein > fileout

Hope this helps.

Frank.

Re: replacing text - perl, awk....

H.Merijn Brand (procura — Wed, 21 Jul 2004 02:00:36 GMT

# perl -pi -e's{\b(disk\d|oracle)/}{$1_dev/};s{/HP/}{/}' your_file

Enjoy, Have FUN! H.Merijn

Re: replacing text - perl, awk....

Thierry Poels_1 — Wed, 21 Jul 2004 02:01:19 GMT

hi,

these are the datafiles of an Oracle DB. You probably got this list with an SQL statement. How about modifying this SQL statement and "replacing" the second part.

regards,
Thierry.

Re: replacing text - perl, awk....

Francisco J. Soler — Wed, 21 Jul 2004 11:32:08 GMT

Hi Steven,

I have made a mistake, i think you already have seen it.

The statement with /disk2/ is not:
/disk2/ { if (flag_to==1) $2="disk1_dev" ; flag_to=0}

must be:
/disk2/ { if (flag_to==1) $2="disk2_dev" ; flag_to=0}

Frank

Re: replacing text - perl, awk....

Hein van den Heuvel — Wed, 21 Jul 2004 12:29:11 GMT

So do you want that HP always gone, or just sometimes. If always:

$ perl -pe 's;/oracle/HP;_dev/oracle_dev;' old > new

Hein.

Re: replacing text - perl, awk....

Abdul Rahiman — Wed, 21 Jul 2004 13:12:10 GMT

IF HP always exist,
sed "s/\/oracle\//\_dev\/oracle_dev\//g" file.txt

regds,
Abdul.