UNIX for Dummies Questions & Answers

My requirement is to replace a a particular pattren in a script from A to B.

I am not sure if this can be done through sed command or through awk .

The file sv.inc is

Code:

[+] window DialogBox  AddConnection
   [ ] tag "~ActiveApp/[DialogBox]Add Connection - Provider Type?URL"

I would wnat the file to be displaced as below after it matched the pattern

Code:

 [+] window DialogBox  AddConnection
   [ ] tag stAddConnection

If you note the pattern "~ActiveApp/[DialogBox]Add Connection - Provider Type?URL" has been replaced by stAddConnection

Please help

using Perl:

Code:

perl -pi -e 's/(tag\s*)(.*)/\1 stAddConnection/' sv.inc

If you want to try out using sed :

Code:

sed 's/\(tag\)\(.*\)/\1 stAddConnection/' sv.inc

rgds,

Srini

I have the follwiing piece of code :

Code:

for i in `cat valFile`
do
   cat tag | while read j
        do
                echo $j
                echo $i
perl -pi -e 's/(j\s*)(.*)/\1 i/' sv.inc > test
       done
done

This does not work as i get a balank test file. while the script runs successfully.

Can someone help me please

Hi there,

A Correction. This will work.

Code:

for i in `cat valFile`
do
cat tag | while read j
do
echo $j
echo $i
cat sv.inc|perl -pi -e 's/('$j'\s*)(.*)/\1 '$i'/' > test
done
done

Thanks...

I get this error after runinng the script

Code:

Substitution pattern not terminated at -e line 1.

Hi Sandeep,

BTW, it works fine for me though. Please see below:

-------------------------------------------------------------------------------
bash-3.00$ cat sample.pl
for i in `cat valFile`
do
cat tag | while read j
do
echo $j
echo $i
cat sv.inc|perl -pi -e 's/('$j'\s*)(.*)/\1 '$i'/' > test
done
done

bash-3.00$ cat valFile
stAddConnection
bash-3.00$ cat tag
tag
bash-3.00$ ./sample.pl
tag
stAddConnection
bash-3.00$ cat test
[+] window DialogBox AddConnection
[ ] tag stAddConnection
bash-3.00$ cat sv.inc
[+] window DialogBox AddConnection
[ ] tag "~ActiveApp/[DialogBox]Add Connection - Provider Type?URL"
bash-3.00$
-------------------------------------------------------------------------------


Perl Gurus,

could you please shed some light on this stated error during execution of a perl script ?

rgds,

Srini