Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl script running multiple commands at once
Top Forums Shell Programming and Scripting Perl script running multiple commands at once Post 302940222 by mutley2202 on Thursday 2nd of April 2015 07:40:52 AM
Old 04-02-2015
Perl script running multiple commands at once
Hi All,
I have put a perl script together to go and collect some information from multiple nodes/endpoints. The script works absolutly fine however I want to make it quicker.

You will see in the below that my script calls an expect script called ssh_run_cmd2.exp followed by the IP of the node in question. Once that has finished it moves on to the next node.

Is there a way of getting it to call all the commands such as the below
Code:
ssh_run_cmd2.exp xxx.xxx.xxx.xxx $log "show association peer-address $ip

to trigger at once rather than waiting for each one to finsih.

None of the commands are dependant on the previous one.

Code:
        for (`./ssh_run_cmd2.exp xxx.xxx.xxx.xxx $log "show association peer-address $ip"`) {
                if (/^\s+ID       : (\S+)/) {
                        $ID = $1;
                        $peerfound = 'YES';
                } elsif (/(No matching peer)\S+/) {
                        $peerfoundoutcome = "$1"
                } elsif (/\S{7}(\S+)\s/) {
                        $hostname = $1;
                        }
                }
        for (`./ssh_run_cmd2.exp xxx.xxx.xxx.xxx $log "show association peer-address $ip"`) {
                if (/^\s+ID       : (\S+)/) {
                        $ID1 = $1;
                        $peerfound1 = 'YES';
                } elsif (/(No matching peer)\S+/) {
                        $peerfoundoutcome1 = "$1"
                } elsif (/\S{7}(\S+)\s/) {
                        $hostname1 = $1;
                        }
                }

Thanks in advance
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

[PERL] Running unix commands within Perl Scripts

I understand that in order to run basic unix commands I would normally type at the prompt, I would have to use the following format system(ls -l); or exec(ls -l); But when I actually try to use the command, the script fails to compile and keeps telling me there is an error with this line. ... (1 Reply)
Discussion started by: userix
1 Replies

2. Shell Programming and Scripting

Running unix commands through perl

Hi all, In the directory '/temp/chris' the following files exist: chris.tar, chris.txt What i am trying to do is to assign the 'chris.tar' filename in an argument through perl, in order to do that i use the system command: $file=system("ls /temp/chris/*.tmp), but in the '$file' the exit... (2 Replies)
Discussion started by: chriss_58
2 Replies

3. UNIX for Dummies Questions & Answers

running a simple script file with multiple commands

I'm trying to run a script file with multiple commands that I would normally type into the command line. The commands are: #!/bin/bash diff Test1.o0 /usr3/ronelso4/Desktop/verificationKPC/Test1.o0 > differences2 diff Test1a.o0 /usr3/ronelso4/Desktop/verificationKPC/Test1a.o0 >> differences2... (1 Reply)
Discussion started by: knelson
1 Replies

4. Shell Programming and Scripting

Running multiple unix commands in a single script

Hi, I would like to write a script with include more than 6 unix commands. my script like below: echo " script started" ls -ld bdf | grep "rama" tail -10 log.txt ... .. ... now, i want to run above unix commands one by one. example: first the ls -ld command will be... (3 Replies)
Discussion started by: koti_rama
3 Replies

5. Shell Programming and Scripting

Running unix commands in a perl script

Executing two unix commads via perl script one after another e.g: make clean bsub -i -q short make have tried using exec but the second command doesnt executes (1 Reply)
Discussion started by: rajroshan
1 Replies

6. Programming

Running Multiple Unix commands in qx

Hi All, Is there anything wrong with below syntax? qx {perldoc -v ModuleName.pm | grep -i Description } BTW, this question is related to Perl. Thanks. (3 Replies)
Discussion started by: jal_capri
3 Replies

7. Shell Programming and Scripting

Running multiple commands stored as a semi-colon separated string

Hi, Is there a way in Korn Shell that I can run multiple commands stored as a semi-colon separated string, e.g., # vs="echo a; echo b;" # $vs a; echo b; I want to be able to store commands in a variable, then run all of it once and pipe the whole output to another program without using... (2 Replies)
Discussion started by: svhyd
2 Replies

8. Shell Programming and Scripting

Get multiple values from an xml file using one of the following commands or together awk/perl/script

Hello, I have a requirement to extract the value from multiple xml node and print out the values to new file to compare. Would be done using either awk/perl or some unix script. For example sample input file: ..... ..... <factories xmi:type="resources.jdbc:DataSource"... (2 Replies)
Discussion started by: slbmind
2 Replies

9. Shell Programming and Scripting

Issue with running multiple commands withing su command

RHEL 6.2/Bash shell root user will be executing the below script. It switches to oracle user and expect to do the following things A. Source the environment variables for BATGPRD Database (the file used for sourcing is shown below after the script) B. Shutdown the DB from sqlplus -- The... (13 Replies)
Discussion started by: omega3
13 Replies

10. Shell Programming and Scripting

Check status of long running multiple curl commands in shell script

I am working on script. it reads a file which contains multiple lines Ex; curl --write-out %{http_code} --silent --output /dev/null http://hostname:port/input=1 curl --write-out %{http_code} --silent --output /dev/null http://hostname:port/input=2 curl --write-out %{http_code} --silent ... (2 Replies)
Discussion started by: oraclermanpt
2 Replies

LEARN ABOUT REDHAT

debugreiserfs

DEBUGREISERFS(8)					      System Manager's Manual						  DEBUGREISERFS(8)

NAME

       debugreiserfs

SYNOPSIS

       debugreiserfs [ -dDJmoqpS ] [ -j device ] [ -B blocknumber ]

       device

DESCRIPTION

       It helps sometimes to solve problems with reiserfs filesystems. Being called w/o options it prints super block of reiserfs filesystem found
       on the device.

       device is the special file corresponding to the device (e.g /dev/hdXX for IDE disk partition or /dev/sdXX for SCSI disk partition).

OPTIONS

       -j device
	      print contents of journal. Also with the option -p it allows to pack journal into archive with other metadata

       -J     print journal header.

       -d     print formatted nodes of the internal tree of the filesystem

       -D     print formatted nodes of all used blocks of the filesystem

       -m     print contents of bitmap (not very useful)

       -o     print objectid map (not very useful)

       -1 blocknumber
	      print specified block of the filesystem

       -p     Makes debugreiserfs to find filesystem metadata This option exists to help reiserfsck debugging.	If  reiserfsck	fails  -  you  may
	      extract  filesystem metadata with debugreiserfs -p /dev/xxx |gzip -c > xxx.gz. We download that data and make the filesystem similar
	      to your with gunzip -c xxx.gz | unpack /dev/xxx (unpack is included into reiserfsprogs package). This usually  allows  to  reproduce
	      and debug the problem quickly. When data file is not too large.

       -S     When  -S	is not specified -p deals with blocks marked used in the filesystem bitmap. With this option set they will work with whole
	      device.

       -q     Suppress showing speed of progress when -p is in use

AUTHOR

       This version of debugreiserfs has been written by Hans Reiser <reiser@idiom.com>.

BUGS

       There are probably few of them. Please, report bugs to ReiserFS mail-list <reiserfs-list@namesys.com>.

SEE ALSO

       reiserfsck(8), mkreiserfs(8)

Reiserfsprogs 3.6.4						   January 2002 						  DEBUGREISERFS(8)
All times are GMT -4. The time now is 12:50 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy