topic Re: Another Inquiry in Operating System - Linux

Another Inquiry

Pando — Thu, 27 Jul 2006 01:10:45 GMT

Dear Gurus,

Another inquiry on file manipulation....
I have a file (more than 10000+) and i need to insert the following line with it.

Program Name,XXXXX
Program Version,YYYYYY
Stage,1

My file currently contains the following info:

...
Product Name, XXX/YY
Operator,1234
...

I need to insert between the Product Name and Operator the following:

Program Name,XXXXX
Program Version,YYYYYY
Stage,1

Such that my file will look like this:

...
Product Name, XXX/YY
Program Name,XXXXX
Program Version,YYYYYY
Stage,1
Operator,1234
...

Maximum point to all correct replies.
Thanks!

Re: Another Inquiry

Dennis Handly — Thu, 27 Jul 2006 01:48:37 GMT

You need to explain better where you get the inserted 3 lines. Are the 3 lines fixed? Or are they composed of parts of lines from the original file.

Product Name, $X/$Y
Program Name,$X
Program Version,$Y
Stage,1

Do you need to copy the above $X and $Y strings to the inserted lines?

Re: Another Inquiry

Pando — Thu, 27 Jul 2006 02:43:15 GMT

Hi Dennis,

The 3 lines are fixed at the moment. or I was thinking of putting it in a file (3 lines) and merge it with the file provided that my file content will still look like this.

...
...
Product Name, XXX/YY
Program Name,XXXXX
Program Version,YYYYYY
Stage,1
Operator,1234
...
...

On your inquiry.

Do you need to copy the above $X and $Y strings to the inserted lines? Yes.

Re: Another Inquiry

Peter Nikitka — Thu, 27 Jul 2006 04:21:10 GMT

Hi,

it's stiil not clear for me:
This result:
1)
Product Name, XXX/YY
Program Name,XXX
Program Version,YY
Stage,1
Operator,1234

or that:
2)
Product Name, XXX/YY
Program Name,ZZZZZ
Program Version,TTTTTT
Stage,1
Operator,1234

A solution will severely depend on that.

mfg Peter

Re: Another Inquiry

Pando — Thu, 27 Jul 2006 15:56:50 GMT

Hi All,

The output should be:

Product Name,XXX/YY
Program Name,ZZZZZ
Program Version,TTTTTT
Stage,1
Operator,1234

Re: Another Inquiry

James R. Ferguson — Thu, 27 Jul 2006 16:30:21 GMT

Hi:

If I understand correctly, this should do what you ask:

# cat inserter
#!/usr/bin/perl
use strict;
use warnings;
while (<>) {
print;
if (m/^Product Name/) {
print "Program Name,ZZZZZ\n";
print "Program Version,TTTTTT\n";
print "Stage,1\n";
}
}

...run as:

# ./inserter file

Regards!

...JRF...

Re: Another Inquiry

Sandman! — Thu, 27 Jul 2006 18:10:53 GMT

imho here's a solution if my understanding of your requirement is correct i.e. f2 is the file that contains the 3 lines and f1 is the file (10000+ lines) into which those 3 lines have to be inserted

# cat f1
...
Product Name, XXX/YY
Operator,1234
...

# cat f2
Program Name,XXXXX
Program Version,YYYYYY
Stage,1

use this ex construct...

# ex -s +'/^Product Name, XXX\/YY$/r f2 | wq' f1

Re: Another Inquiry

Pando — Thu, 27 Jul 2006 21:57:47 GMT

Hi JRF,

I've tested your script and the result does not change the file though the output at the screen is the right one. I need to change the file also just as the output at the screen.

Also, I can call the perl script you made from any other script, right?

Re: Another Inquiry

Pando — Thu, 27 Jul 2006 22:01:59 GMT

Hello Sandman!,

Sorry for the confusion. I have files (10000+) that needs to be change. I have tested the ex command and it actually, outputted the way i wanted to. But when i put it inside my script,
it ask for a key?

Re: Another Inquiry

Sandman! — Fri, 28 Jul 2006 00:11:44 GMT

Hi Pando,

I put the ex command inside a script too and it runs fine doesn't ask for a key. Could you attach your script here so it can be looked at. Also if you need to process 10000+ files simply put the ex command inside a for-loop i.e.

#!/usr/bin/sh

for i in $(ls -1 )
do
ex -s +'/^Product Name, XXX\/YY$/r insertfile | wq' $i
done

Re: Another Inquiry

Pando — Fri, 28 Jul 2006 02:22:31 GMT

Hello Sandman!,

Please see attched script and some raw file. This also includes the file that needs to be inserted.
In the script, i have changed/replaced the /^Product Name,XXX/YY$/ to /^Diffusion Lot ID,NA$/ (Kindly check the raw data) because the Diffusion Lot ID is more fixed.
Thanks and hoping to hear from you soon.

Re: Another Inquiry

Pando — Fri, 28 Jul 2006 02:23:47 GMT

Hello Sandman!,

Please see attached script and some raw file (zipped format). This also includes the file that needs to be inserted (integ) to the 3 file with TDF extension.
In the script, i have changed/replaced the /^Product Name,XXX/YY$/ to /^Diffusion Lot ID,NA$/ (Kindly check the raw data) because the Diffusion Lot ID is more fixed.
Thanks and hoping to hear from you soon.

Re: Another Inquiry

Peter Nikitka — Fri, 28 Jul 2006 03:26:22 GMT

Hi,

a short one to test:
File content before:
cat /tmp/x
aa
bb
cc
aa
dd
gg

Running the command
perl -i -e 'while (<>) { if($f) {print "xx\nyy\n";$f=0;} print; chomp; if ($_ eq "aa") { $f=1} }' /tmp/x

results in
cat /tmp/x
aa
xx
yy
bb
cc
aa
xx
yy
dd
gg

Perhaps this is enough - just change the conditions for inserting as needed.

mfG Peter

Re: Another Inquiry

inventsekar_1 — Fri, 28 Jul 2006 03:55:13 GMT

Hi Pando,
just 2 suggestions:
1. writing the subject line clearly will give good fast response and while searching it will help a lot.
2. submit points to those who helped you.

Re: Another Inquiry

Pando — Fri, 28 Jul 2006 09:27:55 GMT

Thanks to all replies!

Re: Another Inquiry

James R. Ferguson — Fri, 28 Jul 2006 09:49:02 GMT

Hi (again) Pando:

If you want to update the file "in-place" while creating a backup copy with the extension '.old', use this variation of my script.

# cat inserter
#!/usr/bin/perl -i.old
use strict;
use warnings;
while (<>) {
print;
if (m/^Product Name/) {
print "Program Name,ZZZZZ\n";
print "Program Version,TTTTTT\n";
print "Stage,1\n";
}
}

...run as:

# ./inserter file

No output occurs to your terminal. You can 'cat' the modified file when done. As noted, the original file is preserved as 'file.old' where 'file' is whatever filename you specified.

Regards!

...JRF...

Re: Another Inquiry

Pando — Fri, 28 Jul 2006 10:24:30 GMT

Thanks Peter and Sandman!,

This forum is really great!