Sponsored Content
Top Forums Shell Programming and Scripting Perform an action if certain text exist in output (PERL) Post 302777349 by Corona688 on Thursday 7th of March 2013 05:19:06 PM
Old 03-07-2013
When most of your "perl" is shell statements in backticks, you're fighting the language. Each individual set of backticks is its own independent shell anyway, you might as well use one shell instead of thirty.

Code:
#!/bin/sh

while read LINE
do
        # This works for Linux ping.
        # Solaris ping just prints 'x is alive' all by itself
        # others may vary.
        if ping -c 1 $LINE
        then
                echo "$LINE is alive"
        else
                echo "Couldn't ping $LINE"
        fi
done

I feel your pain, I learned Perl first too, but trying to use it as a shell just makes ugly code -- you'll spend most of your time, effort, and code getting things in and out of shell.

Strip out the perl, keep the shell, and you can do the same job faster in half the code.

You might find it better to process ping's output than nslookup's output, they both look up domain names.

Last edited by Corona688; 03-07-2013 at 06:25 PM..
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perform action file name written to the pipe

Hello, I have a script that monitors files uploaded via ftp. After a successful upload, the file name is written to the pipe. There is another program that reads this pipe and allows automatically run any program or script ( say test.sh ) to process the newly uploaded file. cat test.sh... (2 Replies)
Discussion started by: fed.linuxgossip
2 Replies

2. Shell Programming and Scripting

Need help in searching 2 files for strings then perform an action

I have 2 files. I basically want to search both of them to see if the 1st column ($1) matches and if it matches then check to see if the 2nd column ($2) matches, then execute some code showing the results of the matches. File 1: AAA 123 misc blah BBB 456 CCC 789 File 2: ... (2 Replies)
Discussion started by: streetfighter2
2 Replies

3. Shell Programming and Scripting

How to perform action on newest line in log using tail?

I don't quite know what I'm doing, so this simple script is proving a challenge. Here is some pseudo code that doesn't work yet: if tail -1 "WORKING.txt" >/dev/null | egrep "^NMBR=*" > /dev/null then curl -k 'http://www.myserver.com/log.cgi?input=$?' echo "hi there" fi Purpose:... (3 Replies)
Discussion started by: dihewidd
3 Replies

4. Shell Programming and Scripting

create dir in main &subdirs,perform action

Hi, I have one dir which has N subdirs.For ex: /home/user/Project_Src /home/user/Project_Src/Dir_A /home/user/Project_Src/Dir_A/subdir/sub_dir2 /home/user/Project_Src/Dir_A/subdir/sub_dir3 /home/user/Project_Src/Dir_B /home/user/Project_Src/Dir_B/Build i want to create a folder with... (2 Replies)
Discussion started by: dragon.1431
2 Replies

5. Shell Programming and Scripting

shell script - search a file and perform some action

hi, i have a service on unix platform, it will generate traces in a particular folder i want to check using shell script if traces exist, then perform some action else continue to be in loop. filename is service.tra can you please help? thanks (4 Replies)
Discussion started by: gauravah
4 Replies

6. Shell Programming and Scripting

Perl: One action if an element doesn't exist in array

Hello, I want to run one (not multiple) action if an element doesn't exist in array. for example: @array = (1..10); foreach $el (@array) { if ($el != 11) { print "number not found\n"; } } the output of this simple script: number not found (3 Replies)
Discussion started by: ahmed_zaher
3 Replies

7. Shell Programming and Scripting

How to access files from different directories and to perform search action in those files?

Hi, I want to access files from different directories (for example: /home/dir1/file1 , /home/dir2/file2 ...) Like this i have to access these files(file1, file2...). (3 Replies)
Discussion started by: bangarukannan
3 Replies

8. Shell Programming and Scripting

Script to monitor for new file with ext .err and size > 0 bytes and perform a action or command

Hi All, I need to create a script to monitor a dir for new files with ext .err and also it should b a non empty files. and perform a action or command . We have a new ETL application that runs on a linux server, every times a etl fails it creates a .err file or updates the existing .err... (4 Replies)
Discussion started by: MAKHAN
4 Replies

9. Shell Programming and Scripting

awk script to perform an action similar to vlookup between two csv files in UNIX

Hi, I am new to awk/unix and am trying to put together an awk script to perform an action similar to vlookup between the two csv files. Here are the contents of the two files: File 1: Date,ParentID,Number,Area,Volume,Dimensions 2014-01-01,ABC,247,83430.33,857.84,8110.76... (9 Replies)
Discussion started by: Prit Siv
9 Replies
External(3pm)						User Contributed Perl Documentation					     External(3pm)

NAME
Net::Ping::External - Cross-platform interface to ICMP "ping" utilities SYNOPSIS
In general: use Net::Ping::External qw(ping); ping(%options); Some examples: use Net::Ping::External qw(ping); # Ping a single host my $alive = ping(host => "127.0.0.1"); print "127.0.0.1 is online" if $alive; # Or a list of hosts my @hosts = qw(127.0.0.1 127.0.0.2 127.0.0.3 127.0.0.4); my $num_alive = 0; foreach (@hosts) { $alive = ping(hostname => $_, timeout => 5); print "$_ is alive! " if $alive; $num_alive++; } print "$num_alive hosts are alive. "; # Using all the fancy options: ping(hostname => "127.0.0.1", count => 5, size => 1024, timeout => 3); DESCRIPTION
Net::Ping::External is a module which interfaces with the "ping" command on many systems. It presently provides a single function, "ping()", that takes in a hostname and (optionally) a timeout and returns true if the host is alive, and false otherwise. Unless you have the ability (and willingness) to run your scripts as the superuser on your system, this module will probably provide more accurate results than Net::Ping will. Why? o ICMP ping is the most reliable way to tell whether a remote host is alive. o However, Net::Ping cannot use an ICMP ping unless you are running your script with privileged (AKA "root") access. o The system's "ping" command uses ICMP and does not usually require privileged access. o While it is relatively trivial to write a Perl script that parses the output of the "ping" command on a given system, the aim of this module is to encapsulate this functionality and provide a single interface for it that works on many systems. ping() OPTIONS This module is still "alpha"; it is expected that more options to the "ping()" function will be added soon. o "host, hostname" The hostname (or dotted-quad IP address) of the remote host you are trying to ping. You must specify either the "hostname" option or the "ip" option. "host" and "hostname" are synonymous. o "ip" A packed bit-string representing the 4-byte packed IP address (as returned by "Socket.pm"'s "inet_aton()" function) of the host that you would like to ping. o "timeout" The maximum amount of time, in seconds, that "ping()" will wait for a response. If the remote system does not respond before the timeout has elapsed, "ping()" will return false. Default value: 5. o "count" The number of ICMP ping packets to send to the remote host. Eventually, Net::Ping::External will return the number of packets that were acknowledged by the remote host; for now, however, "ping()" still returns just true or false. Default value: 1. o "size" Specifies the number of data bytes to be sent. The default is 56, which translates into 64 ICMP data bytes when combined with the 8 bytes of ICMP header data. Default value: 56. SUPPORTED PLATFORMS Support currently exists for interfacing with the standard ping utilities on the following systems. Please note that the path to the `ping' should be somewhere in your PATH environment variable (or your system's closest equivalent thereof.) Otherwise, Net::Ping::External will be unable to locate your system's `ping' command. o Win32 Tested OK on Win98, Win XP. It should work on other Windows systems as well. o Cygwin Tested OK on Cygwin 1.5.21. Problem is that we may be running windows ping. They have different options. o Linux Tested OK on Debian 2.2 and Redhat 6.2. It appears that different versions of Linux use different versions of ping, which support different options. Not sure how I'm going to resolve this yet; for now, all the options but "count" are disabled. o BSD Tested OK on OpenBSD 2.7 and 3.0, Netbsd 1.5.3, Freebsd 4.6.2, 5.4. Needs testing for BSDi. o Solaris Tested OK on Solaris 2.6 and 2.7. o IRIX Tested OK on IRIX 6.5. o AIX, DEC OSF, UNICOSMK, NeXTStep, HP-UX, BSD/OS (BSDi), BeOS Support for these systems is integrated into this module but none have been tested yet. If you have successful or unsuccessful test results for any of these systems, please send them to me. On some of these systems, some of the arguments may not be supported. If you'd like to see better support on your system, please e-mail me. More systems will be added as soon as any users request them. If your system is not currently supported, e-mail me; adding support to your system is probably trivial. BUGS
This module should be considered beta. Bugs may exist. Although no specific bugs are known at this time, the module could use testing on a greater variety of systems. See the warning below. WARNING
This module calls whatever "ping" program it first finds in your PATH environment variable. If your PATH contains a trojan "ping" program, this module will call that program. This involves a small amount of risk, but no more than simply typing "ping" at a system prompt. Beware Greeks bearing gifts. AUTHOR
Alexandr Ciornii (alexchorny AT gmail.com), Colin McMillen (colinm AT cpan.org) This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. CREDITS
Dan Moore contributed command-line options and code for NeXT, BeOS, HP-UX, and BSD/OS. Jarkko Hietaniemi contributed a huge list of command-line options and results for the `ping' command on 9 different systems. Randy Moore contributed several patches for Win32 support. Marc-Andre Dumas contributed a patch for FreeBSD support. Jonathan Stowe fixed a bug in 0.09 that prevented the module from running on some systems. Numerous people sent in a patch to fix a bug in 0.10 that broke ping on Windows systems. Peter N. Lewis contributed a patch that works correctly on Mac OS X 10.2 (and hopefully other versions as well). SEE ALSO
Net::Ping perl v5.10.1 2008-12-18 External(3pm)
All times are GMT -4. The time now is 05:38 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy