Perl Script for Parsing

[v796]

Hi,

I am looking out for a Perl script to do the following. I am quite
positive someone must have written something similar.

- A perl script to open a directory/folder and access all files and
directories(and files within it)after a particular time stamp.

- Then for each file with a particular string in its name, access the
file and look for string
':20C::RELA//49879'

- Based upon that do throw an error or proceed for some other tasks.
I don't have the details yet from my manager, but I figure this script
will be run as a cron - every night.
I know PERL is pretty nifty for such tasks, that's why I feel
confident that someone must have written a script
already.

I did look at CPAN, but it is overwhelming. Still looking though.

Thanks,
- v796.

[Jürgen Exner]

v796 wrote:

I am looking out for a Perl script to do the following. I am quite
positive someone must have written something similar.

- A perl script to open a directory/folder
perldoc -f opendir
perldoc -f readdir
and access all files and directories
perldoc perlsyn (in particular the for and while loops)
perldoc -f open
(and files within it)
Ah, so you want it recursive? Why didn't you say so from the beginning?
Forget about opendir, readdir, while, and for, just use

perldoc File::Find
after a particular time stamp.
perldoc -f -M
- Then for each file with a particular string in its name,
perldoc -f index
access the
file and look for string
':20C::RELA//49879'
perldoc -f open
perldoc -f index
- Based upon that do throw an error or proceed for some other tasks. I did look at CPAN, but it is overwhelming. Still looking though.

Good idea, but including error checking this is probably 15-20 lines of code
max. I doubt that you will find something this simple on CPAN.

jue

[Roel van der Steen]

> Good idea, but including error checking this is probably 15-20 lines of code

max. I doubt that you will find something this simple on CPAN.

Everybody writes this all the time. Today's implementation (untested):

#/usr/bin/perl
use strict;
use warnings;
use File::Find;

my $root_dir = '/etc';
my $time_stamp = time - 24 * 60 * 60; # last 24 hours
my $regex = qr':20C::RELA//49879'; # your regex
my @candidates;

find(
sub {

my $cur_file = $File::Find::name;
return unless -f $cur_file && (stat($cur_file))[9] >= $time_stamp;

# opportunity for improvement here: the error does not need to be fatal
open my $FILE, $cur_file or die "Cannot open file $cur_file\n";

READLINE: while (<$FILE>) {
push(@candidates, $cur_file), last READLINE if /$regex/;
}

},

$root_dir
);
{
local $, = "\n";
print @candidates;
}

__END__

Regards, Roel