topic Perl Help in Operating System - HP-UX

Perl Help

Pando — Mon, 16 May 2005 22:56:05 GMT

Dear Gurus,

I am creating a script for data manipulation..
Below is the sample line.
...
...
export difflotid=$(grep "" $EFILE | awk -F \" '{print $2}')

This would get the value and store it to difflotid variable.

I will be using this variable to be transfer/use in other file.

Perl is suitable for in-line editing for me.

I need to know the syntax (Perl) to replace the the following line below using the difflotid variable from another file.

...
...
Diffusion Lot ID, 11111-11
...
...

Maximum points for all correct replies.

Re: Perl Help

Muthukumar_5 — Tue, 17 May 2005 00:59:06 GMT

You can do this with a single script as,

#!/bin/ksh

export difflotid=$(grep "" $EFILE | awk -F \" '{print $2}')

..

# It will automatically update in filename with changes
perl -pi -e "s/^Diffusion LotID.*/$difflotid/"
..

HTH.

Re: Perl Help

Tim D Fulford — Tue, 17 May 2005 02:35:29 GMT

The above works... but I'd use

perl -i.org -pe "s/Diffusion Lot ID.*/$difflotid/"

This will save as .org & will have the edits in it

Regards

Tim

Re: Perl Help

Muthukumar_5 — Tue, 17 May 2005 07:36:41 GMT

You can also use sed instead of perl for this as,

sed "s/^Diffusion LotID.*/\$difflotid/" >

IF you want to update into the same file then,

sed -i "s/^Diffusion LotID.*/\$difflotid/"

hth.