Hello!

I have been working on familiarizing myself with the File::Find module.  We 
have a process that appends a .txt once it has processed the file in a Unix 
environment.  So, I wanted to return a list of files that have been processed 
by the previous process.  I have been using the below to achieve that.

Here is my question which I have been having problems with.  I want to create a 
list of the files that have not been processed.  But, due to the naming 
conventions (or lack of) the only way to find those find the files that have 
not been processed is to look for files without a .txt in the file name.  Is 
there a modification that I can make to the below to achieve that? 

Thanks,
S

--

#!/usr/bin/perl 
use warnings;
use strict;
use File::Find;
find (\&match_pattern, "/home/user/prod" );
sub match_pattern {
     print "$File::Find::name\n" if ( m/txt/ ); 
 }


-- 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to