Sponsored Content
Top Forums Shell Programming and Scripting Perform an action if certain text exist in output (PERL) Post 302777897 by spartan22 on Friday 8th of March 2013 03:36:52 PM
Old 03-08-2013
I figured out a solution in Perl. it's a little sloppy but it gets the job done.

Code:
#!/usr/bin/perl
use warnings;
$seperator = "===============================================\n";
$ping = "100%";
open MYFILE, ">ips.txt" or die $!;
while (defined($line = <>)) {
	print "$line\n";
	$line =~ s/^\s+|\s+$//g;
	chomp($line);
	my $nslookupOut = `nslookup $line`;
	print $nslookupOut;
		if ($nslookupOut =~ /NXDOMAIN/) {
    my $pingOut = `ping -c 1 -w 1.0 $line`;
	print $pingOut;
    if ($pingOut =~ /$ping/) {
		print MYFILE "$line is available.\n"
		}
	}
}
close MYFILE;
print $seperator;
if (open MYFILE, "ips.txt") {
	chomp(my @lines = <MYFILE>);
	foreach (@lines) {
		print "$_\n";
		}
	}

 

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
NMBSTATUS(1)						User Contributed Perl Documentation					      NMBSTATUS(1)

NAME
nmbstatus - Lists NMB node status of a UDP network SYNOPSIS
nmbstatus [options] Options: --workgroup --pdc --bdc --lmb --dmb --members --quiet --allworkgroups --winsserver --print0 --debug --help --man GENERAL OPTIONS
--help Print a brief help message and exits.Prints a help message. --man Print the manual page and exit. --print0 Use '' instead of a tab stop as seperator between the output. --debug Use an debuglevel. No debuglevel available yet. GENERAL ARGUMENTS
--workgroup Perform all actions on this workgroup name. If no workgroup is set the information off all available groups is shown. --pdc If not called in conjunction with --quiet print a line starting with the acronym PDC followed by the seperator and the netbios name of the PDC if one is available. If not print nothing and return with 1. --bdc If not called in conjunction with --quiet print a line starting with the acronym BDC followed by the seperator and the netbios name of the BDC if one is available. If not print nothing and return with 1. --dmb If not called in conjunction with --quiet print a line starting with the acronym DMB followed by the seperator and the netbios name of the DMB if one is available. If not print nothing and return with 1. --lmb If not called in conjunction with --quiet print a line starting with the acronym LMB followed by the seperator and the netbios name of the LMB if one is available. If not print nothing and return with 1. --members If not called in conjunction with --quiet print a line starting with the word MEMBERS followed by the seperator and the netbios names of the workgroup members. If not print nothing and return with 1. --quiet Don't print any information. Just return with 0 if a type - pdc, lmb, dmb, or members was found. Else return 1. --allworkgroups List all available workgroups. --winsserver Use this WINS server to gather the information. DESCRIPTION
nmbstatus will detect workgroups, PDCs, BDCs, DMBs, LMBs, and Members of workgroups in your network. If more than one type is specizied but only one result found, nmbstatus nevertheless returns 0. AUTHOR
Lars Mueller <lmuelle@suse.de> If you find any errors in the code please let me know. COPYRIGHT
Copyright (c) 2003-2004 SuSE Linux AG. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. POD ERRORS
Hey! The above document had some coding errors, which are explained below: Around line 339: You forgot a '=back' before '=head1' Around line 341: '=item' outside of any '=over' perl v5.12.1 2009-01-02 NMBSTATUS(1)
All times are GMT -4. The time now is 11:08 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy