Hi friends,
I do not have much thoughts so need any help on the below issue:
I need to create shell script that will find the files & throw an error through job (autosys) when file not found.
Daily we use to receive 3 files from a system.
Obstacles:
1) All 3 files names are same.
2)... (4 Replies)
Hi,
If there is an expert that can help:
I have many txt files that are produced from pdftotext that include page breaks the page breaks seem to be unix style hex 0C.
I want to add page numbers before each page break as in : Page XXXX
Regards antman (9 Replies)
Hi
I have a pdf file that is being generated using the rwrun command in the shell script.
I then have the lp command in the shell script to print the same pdf file.
Suppose there are 4 pages in the pdf file , I need to print 2 copies of the first page, 2 copies of the second page , then 2... (7 Replies)
Hi Guys,
I hope anyone can help me on how to create a watcher-script. The script will act as watcher wherein whenever it will find an error (say the word Error) in a file, it will prompt the user.
Please help!
br,
rymnd_12345 (3 Replies)
Hi Experts
I will have be having 3 types of files in directory
file1_p0_date
file1_p1_date
file1_p2_date
As soon as it sees any of the files it needs to kick off another process and also would need the file name
For this I am creating a file watcher script which will look for file1* My... (2 Replies)
Hi
Please help me in this
I want to execute a shell script abc.ksh.
But I only want it to execute if file XYZ is not present.
If file XYZ is present than I want to unix to sleep for 5 Sec and than agaian check for XYX existence.
if it sleeps for more than 30 seconds ( 6 time )I want it to... (3 Replies)
Config::Watch(3) User Contributed Perl Documentation Config::Watch(3)NAME
Log::Log4perl::Config::Watch - Detect file changes
SYNOPSIS
use Log::Log4perl::Config::Watch;
my $watcher = Log::Log4perl::Config::Watch->new(
file => "/data/my.conf",
check_interval => 30,
);
while(1) {
if($watcher->change_detected()) {
print "Change detected!
";
}
sleep(1);
}
DESCRIPTION
This module helps detecting changes in files. Although it comes with the "Log::Log4perl" distribution, it can be used independently.
The constructor defines the file to be watched and the check interval in seconds. Subsequent calls to "change_detected()" will
o return a false value immediately without doing physical file checks if "check_interval" hasn't elapsed.
o perform a physical test on the specified file if the number of seconds specified in "check_interval" have elapsed since the last
physical check. If the file's modification date has changed since the last physical check, it will return a true value, otherwise a
false value is returned.
Bottom line: "check_interval" allows you to call the function "change_detected()" as often as you like, without paying the performing a
significant performance penalty because file system operations are being performed (however, you pay the price of not knowing about file
changes until "check_interval" seconds have elapsed).
The module clearly distinguishes system time from file system time. If your (e.g. NFS mounted) file system is off by a constant amount of
time compared to the executing computer's clock, it'll just work fine.
To disable the resource-saving delay feature, just set "check_interval" to 0 and "change_detected()" will run a physical file test on every
call.
If you already have the current time available, you can pass it on to "change_detected()" as an optional parameter, like in
change_detected($time)
which then won't trigger a call to "time()", but use the value provided.
SIGNAL MODE
Instead of polling time and file changes, "new()" can be instructed to set up a signal handler. If you call the constructor like
my $watcher = Log::Log4perl::Config::Watch->new(
file => "/data/my.conf",
signal => 'HUP'
);
then a signal handler will be installed, setting the object's variable "$self->{signal_caught}" to a true value when the signal arrives.
Comes with all the problems that signal handlers go along with.
TRIGGER CHECKS
To trigger a physical file check on the next call to "change_detected()" regardless if "check_interval" has expired or not, call
$watcher->force_next_check();
on the watcher object.
DETECT MOVED FILES
The watcher can also be used to detect files that have moved. It will not only detect if a watched file has disappeared, but also if it has
been replaced by a new file in the meantime.
my $watcher = Log::Log4perl::Config::Watch->new(
file => "/data/my.conf",
check_interval => 30,
);
while(1) {
if($watcher->file_has_moved()) {
print "File has moved!
";
}
sleep(1);
}
The parameters "check_interval" and "signal" limit the number of physical file system checks, simililarily as with "change_detected()".
COPYRIGHT AND LICENSE
Copyright 2002-2009 by Mike Schilli <m@perlmeister.com> and Kevin Goess <cpan@goess.org>.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.12.1 2010-02-07 Config::Watch(3)