topic Re: Script to copy lines with certain string present in Operating System - Linux

Script to copy lines with certain string present

Coolmar — Fri, 21 Jul 2006 06:50:03 GMT

I have a file that contains many lines like the following:

/u01/oracle/product/8.1.7/bin/oracle::::APPLICATIONS,abc09def

I need a script that will find all lines with 8.1.9 and copy that exact line right underneath the original line but replace with 8.1.7 with 9.2.0...so it looks like the following:

/u01/oracle/product/8.1.7/bin/oracle::::APPLICATIONS,abc09def
/u01/oracle/product/9.2.0/bin/oracle::::APPLICATIONS,abc09def

Thanks for the help!

Re: Script to copy lines with certain string present

James R. Ferguson — Fri, 21 Jul 2006 07:02:13 GMT

Hi sally:

# perl -nle 'print;print if s%/8.1.7/%/9.2.0/%' file

Regards!

...JRF...

Re: Script to copy lines with certain string present

James R. Ferguson — Fri, 21 Jul 2006 07:24:32 GMT

Hi (again) Sally:

To be strictly safe in our matching, i *should* escape the dot character :-))

# perl -nle 'print;print if s%/8\.1\.7/%/9\.2\.0/%' file

Regards!

...JRF...

Re: Script to copy lines with certain string present

Coolmar — Fri, 21 Jul 2006 07:34:38 GMT

Thanks again James....now is there a way to delete any duplicate lines?

Re: Script to copy lines with certain string present

Chan 007 — Fri, 21 Jul 2006 07:39:01 GMT

Hi Sally,

to remove duplicate use

cat /tmp/test |sort |uniq

will give only one line

Chan

Re: Script to copy lines with certain string present

Victor Fridyev — Fri, 21 Jul 2006 07:39:33 GMT

Hi,

awk '/8.1.7/ {print}' filename |
sed 's/8.1.7/9.2.0/g' |sort |sort -u

This is not so beautiful as with perl, but it looks much simpler 8))))

HTH

Re: Script to copy lines with certain string present

James R. Ferguson — Fri, 21 Jul 2006 07:44:29 GMT

Hi (again) Sally:

You don't need extra processes spawned (e.g. 'cat' into a pipe). Rather:

# sort -u file|perl -nle 'print;print if s%/8\.1\.7/%/9\.2\.0/%'

Regards!

...JRF...

Re: Script to copy lines with certain string present

Coolmar — Fri, 21 Jul 2006 07:53:30 GMT

but the dupilicates happen after the perl ... so shouldn't the sort happen after the perl to get rid of the lines?

Re: Script to copy lines with certain string present

James R. Ferguson — Fri, 21 Jul 2006 07:59:03 GMT

Hi Sally:

You wrote, "but the duplicates happen after the perl ... so shouldn't the sort happen after the perl to get rid of the lines?"

Please show some input and the output you want. I'm confused by your question.

Regards!

...JRF...

Re: Script to copy lines with certain string present

Coolmar — Fri, 21 Jul 2006 08:19:15 GMT

It's ok, I figured it out.
Now, when I do the sort -u it sorts the whole file...is there a way to tell it to sort only on lines beginning with /u01 and leave the rest of the file entact?

Re: Script to copy lines with certain string present

Sandman! — Fri, 21 Jul 2006 11:46:53 GMT

Here's an awk construct that adds lines with 9.2.0 below each of the lines containing 8.1.7 and removes only those duplicate lines that begin with "/u01".

cat inp | awk '{x=$0;print x;if(x~/8.1.7/){gsub("8.1.7","9.2.0");print}}' | awk '{if($0~/^\/u01/)l[$0]++;else print} END{for(i in l) print i}' > out

~cheers