Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Help with shell script

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Help with shell script
# 1  
Old 12-17-2013
Help with shell script
Hi all,
I want to replace a pattern in between two lines with another pattern.I tried this using perl script.But i wanted to try this using shell script.I should include this in a script which already exists and try accessing web.xml.

file name:web.xml
Code:
 <security-constraint>
      <web-resource-collection>
         <web-resource-name>HttpInvokers</web-resource-name>
         <description>An example security config that only allows users with the
            role HttpInvoker to access the HTTP invoker servlets
         </description>
         <url-pattern>/restricted/*</url-pattern>
         <http-method>GET</http-method>
         <http-method>POST</http-method>
      </web-resource-collection>
      <auth-constraint>
         <role-name>HttpInvoker</role-name>
      </auth-constraint>
   </security-constraint>
   <login-config>
      <auth-method>BASIC</auth-method>
      <realm-name>JBoss HTTP Invoker</realm-name>
   </login-config>

   <security-role>
      <role-name>HttpInvoker</role-name>
   </security-role>
in this example i want 

<url-pattern>/JMXInvokerServlet/*</url-pattern>
<url-pattern>/EJBInvokerServlet/*</url-pattern>

these two lines in between
Code:
<url-pattern>/restricted/*</url-pattern>
<http-method>GET</http-method>

these two lines
required output:
Code:
<url-pattern>/restricted/*</url-pattern>
<url-pattern>/JMXInvokerServlet/*</url-pattern>
<url-pattern>/EJBInvokerServlet/*</url-pattern>
<http-method>GET</http-method>

Code:
#!/usr/bin/perl -w

open(IN, "< test.xml");
open(OUT, ">output.xml");

$EJB=0;
$JMI=0;
$REST=0;

while ($line = <IN>)
{
 if ($line =~ m/<url-pattern>\/restricted\/\*<\/url-pattern>/)
  {
  $REST=1;
  print OUT "$line";
  }	
    elsif ($line =~ m/<url-pattern>\/EJBInvokerServlet\/\*<\/url-pattern>/  && $REST==1)
    {
    $EJB=1;
    print OUT "$line";
    }
    elsif ($line =~ m/<url-pattern>\/JMXInvokerServlet\/\*<\/url-pattern>/ && $REST==1) 
    {
    $JMI=1;
    print OUT "$line";
    }
    elsif ($line =~ m/<http-method>GET<\/http-method>/ && $REST==1) 
    {
       if ($EJB == 0 && $JMI==0) 
        {
        print OUT "\t\t <url-pattern>/EJBInvokerServlet/*</url-pattern>\n";
        print OUT "\t\t <url-pattern>/JMXInvokerServlet/*</url-pattern>\n";
        $EJB=0;
        $JMI=0;
        }
        elsif ($EJB == 1 && $JMI==0) 
        {
        
        print OUT "\t\t <url-pattern>/JMXInvokerServlet/*</url-pattern>\n";
       
        $JMI=0;
        }
        elsif ($EJB == 0 && $JMI==1) 
        {
        print OUT "\t\t <url-pattern>/EJBInvokerServlet/*</url-pattern>\n";
        
        $EJB=0;
        
        }
       else
        {
        $JMI=0;
        $EJB=0;
        }
    print OUT "$line";
    }
  else 
  { 
  print OUT "$line";
  }
}

close(IN);
close(OUT);
use File::Copy;
copy("output.xml","test.xml") or die "Copy failed: $!";

Last edited by Scott; 12-17-2013 at 06:40 AM.. Reason: Code tags for data too
# 2  
Old 12-17-2013
Why do you want a shell script? awk, perl, and sed are tools created and optimized to do exactly that: find patterns in text files and replace them. So you should have a very good reason or see an enormous drawback to prefer shell.
BTW, if I read your request correctly, you don't want to replace anything but insert two extra lines between patterns, don't you?
# 3  
Old 12-17-2013
It is doable in standard shell. A function is easy to use:
Code:
replacexml(){
while IFS="" read -r line
do
  case $line in
  *'<url-pattern>/restricted/*</url-pattern>'*)
    printf "%s\n" "$line"
    skip=1
    ;;
  *'<http-method>GET</http-method>'*)
    printf "%s\n" "$@"
    skip=""
    ;;
  esac
  [ -z "$skip" ] && printf "%s\n" "$line"
done
}

Test with
Code:
replacexml \
'<url-pattern>/JMXInvokerServlet/*</url-pattern>' \
'<url-pattern>/EJBInvokerServlet/*</url-pattern>' < web.xml

If this looks okay and you want to write back into web.xml:
Code:
cp web.xml web.xml.old &&
replacexml \
'<url-pattern>/JMXInvokerServlet/*</url-pattern>' \
'<url-pattern>/EJBInvokerServlet/*</url-pattern>' \
 < web.xml.old > web.xml

Last edited by MadeInGermany; 12-17-2013 at 07:45 AM..
This User Gave Thanks to MadeInGermany For This Post:
preethy
# 4  
Old 12-18-2013
Hi MadeInGermany ,
Thanks for your help.Am ok with the perl script now.But i have a small doubt regarding accessing root files.Web.xml is the root file.I have called perl script from shell script setup.sh which i should run as root user.But its throwing me an error like this.

Unsuccessful open on filename containing newline at ./test.pl line 3.
readline() on closed filehandle IN at ./test.pl line 10.
Copy failed: No such file or directory at ./test.pl line 66.

for this code
Code:
#!/usr/bin/perl -w

open(IN, "< $/centina/sa/jboss-5.1.0.GA/server/default/deploy/http-invoker.sar/invoker.warWEB-INF/web.xml");
open(OUT, ">output.xml");

$EJB=0;
$JMI=0;
$REST=0;

while ($line = <IN>)
{
 if ($line =~ m/<url-pattern>\/restricted\/\*<\/url-pattern>/)
  {
  $REST=1;
  print OUT "$line";
  }	
    elsif ($line =~ m/<url-pattern>\/EJBInvokerServlet\/\*<\/url-pattern>/  && $REST==1)
    {
    $EJB=1;
    print OUT "$line";
    }
    elsif ($line =~ m/<url-pattern>\/JMXInvokerServlet\/\*<\/url-pattern>/ && $REST==1) 
    {
    $JMI=1;
    print OUT "$line";
    }
    elsif ($line =~ m/<http-method>GET<\/http-method>/ && $REST==1) 
    {
       if ($EJB == 0 && $JMI==0) 
        {
        print OUT "\t\t <url-pattern>/EJBInvokerServlet/*</url-pattern>\n";
        print OUT "\t\t <url-pattern>/JMXInvokerServlet/*</url-pattern>\n";
        $EJB=0;
        $JMI=0;
        }
        elsif ($EJB == 1 && $JMI==0) 
        {
        
        print OUT "\t\t <url-pattern>/JMXInvokerServlet/*</url-pattern>\n";
       
        $JMI=0;
        }
        elsif ($EJB == 0 && $JMI==1) 
        {
        print OUT "\t\t <url-pattern>/EJBInvokerServlet/*</url-pattern>\n";
        
        $EJB=0;
        
        }
       else
        {
        $JMI=0;
        $EJB=0;
        }
    print OUT "$line";
    }
  else 
  { 
  print OUT "$line";
  }
}

close(IN);
close(OUT);
use File::Copy;
copy("output.xml","$/centina/sa/jboss-5.1.0.GA/server/default/deploy/http-invoker.sar/invoker.warWEB-INF/web.xml") or die "Copy failed: $!";

any help is deeply appreciated.
# 5  
Old 12-18-2013
Code:
open(IN, "< $/centina/sa/jboss-5.1.0.GA/server/default/deploy/http-invoker.sar/invoker.warWEB-INF/web.xml");

Why this "$" sign in open function as you have specified absolute path.
# 6  
Old 12-18-2013
Actually am new to perl script,i referred setup.sh to know how they located a file,they have represented address with $,so i gave path like that
# 7  
Old 12-18-2013
No need of "$" in open function which you posted.
Suppose you store filename in variable then use that variable
e.g.
Code:
$filename="/path/to/your/file";
open(FH,"$filename") or die "Cannot open file to read \n";

This User Gave Thanks to pravin27 For This Post:
preethy
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. UNIX for Beginners Questions & Answers

Shell script newbie- how to generate service log from shell script

Hi, I am totally a newbie to any programming languages and I just started an entry level job in an IT company. One of my recent tasks is to create a script that is able to show the log file of linux service (i.e. ntpd service) lets say, if I run my script ./test.sh, the output should be... (3 Replies)
Discussion started by: xiaogeji
3 Replies

2. Shell Programming and Scripting

Pass C shell array to another C shell script(csh) and shell(sh)

Dear Friends, Please help me on this my script name is send.csh In this i have written the statement like this set args = ( city state country price ) I want to pass this array to another c shell called receiver.csh. and i want to use it in this c shell or how to pass to... (2 Replies)
Discussion started by: SA_Palani
2 Replies

3. Shell Programming and Scripting

How to write config shell script to pass variables in master shell script?

Dear Unix gurus, We have a config shell script file which has 30 variables which needs to be passed to master unix shell script that invokes oracle database sessions. So those 30 variables need to go through the database sessions (They are inputs) via a shell script. one of the variable name... (1 Reply)
Discussion started by: dba1981
1 Replies

4. UNIX for Dummies Questions & Answers

How to write Config shell script to pass variables in master shell script?

Dear Unix gurus, We have a config shell script file which has 30 variables which needs to be passed to master unix shell script that invokes oracle database sessions. So those 30 variables need to go through the database sessions (They are inputs) via a shell script. one of the variable name... (1 Reply)
Discussion started by: dba1981
1 Replies

5. Shell Programming and Scripting

Unable to pass shell script variable to awk command in same shell script

I have a shell script (.sh) and I want to pass a parameter value to the awk command but I am getting exception, please assist. diff=$1$2.diff id=$2 new=new_$diff echo "My id is $1" echo "I want to sync for user account $id" ##awk command I am using is as below cat $diff | awk... (2 Replies)
Discussion started by: Ashunayak
2 Replies

6. Shell Programming and Scripting

Correct shell script to Call One shell script from another shell script

Hi All, I have new for shell scripting. Problem : I have one scrip at serv1 and path of server is /apps/dev/provimage/scripts and script name:extract_ancillary.bat. I need to call this script at server2(my working server) and execute at server2 . Please let me know how to build the... (5 Replies)
Discussion started by: Vineeta Nigam
5 Replies

7. Shell Programming and Scripting

call another shell script and pass parameters to that shell script

Hi, I basically have 2 shell scripts. One is a shell script will get the variable value from the user. The variable is nothing but the IP of the remote system. Another shell script is a script that does the job of connecting to the remote system using ssh. This uses a expect utility in turn. ... (2 Replies)
Discussion started by: sunrexstar
2 Replies

8. Shell Programming and Scripting

How to use ssh execute other shell script on other host (shell script include nohup)?

i want use ssh on the host01 to execute autoexec.sh on the host02 like following : host01> ssh host02 autoexec.sh autoexec.sh include nohup command like follwing : nohup /home/jack/deletedata.sh & after i execute ssh host02 autoexec.sh one the host01. i can't found deletedata.sh... (1 Reply)
Discussion started by: orablue
1 Replies

9. Shell Programming and Scripting

invoking a shell script inside cgi shell script

Hi, I have an HTML form through which I get some text as input. i need to run a shell script say script.sh inside a perl-cgi script named main_cgi.sh on the form input. I want to write the contents of the form in a file and then perform some command line operations like grep, cat on the text... (2 Replies)
Discussion started by: smriti_shridhar
2 Replies

10. Shell Programming and Scripting

How to Run a shell script from Perl script in Parent shell?

Hi Perl/UNIX experts, I have a problem in running a shell script from my perl script (auto.pl). I run the perl script using perl auto.pl from the shell prompt The shell script picks the files in "input" folder and procesess it. The shell script blue.sh has this code. export... (16 Replies)
Discussion started by: hifake
16 Replies
Login or Register to Ask a Question