Corona speaks the truth. If you're going to use a language, go all in and use if fully. I'm surrounded by system admins that write scripts in such a way. Better to adapt the good habits early on. Here's an example of what you're doing in pure Perl (with the help of a couple of modules):
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)
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)
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)
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)
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)
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)
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)
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)
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
LEARN ABOUT OSX
net::dns::resolver::recurse
Net::DNS::Resolver::Recurse(3) User Contributed Perl Documentation Net::DNS::Resolver::Recurse(3)NAME
Net::DNS::Resolver::Recurse - Perform recursive dns lookups
SYNOPSIS
use Net::DNS::Resolver::Recurse;
my $res = Net::DNS::Resolver::Recurse->new;
DESCRIPTION
This module is a sub class of Net::DNS::Resolver. So the methods for Net::DNS::Resolver still work for this module as well. There are just
a couple methods added:
hints
Initialize the hint servers. Recursive queries need a starting name server to work off of. This method takes a list of IP addresses to use
as the starting servers. These name servers should be authoritative for the root (.) zone.
$res->hints(@ips);
If no hints are passed, the default nameserver is asked for the hints. Normally these IPs can be obtained from the following location:
ftp://ftp.internic.net/domain/named.root
recursion_callback
This method is takes a code reference, which is then invoked each time a packet is received during the recursive lookup. For example to
emulate dig's "+trace" function:
$res->recursion_callback(sub {
my $packet = shift;
$_->print for $packet->additional;
printf(";; Received %d bytes from %s
",
$packet->answersize,
$packet->answerfrom
);
});
query_dorecursion
This method is much like the normal query() method except it disables the recurse flag in the packet and explicitly performs the recursion.
$packet = $res->query_dorecursion( "www.netscape.com.", "A");
IPv6 transport
If the appropriate IPv6 libraries are installed the recursive resolver will randomly choose between IPv6 and IPv4 addresses of the
nameservers it encounters during recursion.
If you want to force IPv4 transport use the force_v4() method. Also see the IPv6 transport notes in the Net::DNS::Resolver documentation.
AUTHOR
Rob Brown, bbb@cpan.org
SEE ALSO
Net::DNS::Resolver,
COPYRIGHT
Copyright (c) 2002, Rob Brown. All rights reserved. Portions Copyright (c) 2005, Olaf M Kolkman.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
$Id: Recurse.pm 932 2011-10-26 12:40:48Z willem $
perl v5.16.2 2012-01-27 Net::DNS::Resolver::Recurse(3)