Barbara Green wrote:
>
> Hi Folks
Hello,
> I'm new to Perl, just a few days into it. I would like to know now I
> can search all files on a server
perldoc File::Find
> for names or numbers
In the file name or in the file itself?
perldoc perlre
perldoc perlretut
perldoc -f open
perldoc perlopentut
perldoc perlsyn
> and have perl make
> a list of the found files.
perldoc perldata
Here is an example of what your program may look like:
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
my $dir_to_search = '/some/dir';
my $name = 'somename';
my $number = 876;
my @list_of_files;
find( sub {
# want files only
return unless -f;
# put current file name into @ARGV
local @ARGV = $_;
while ( <> ) {
# search through contents of current file
if ( /$name/ or /$number/ ) {
# store full file path and return for next file
push @list_of_files, $File::Find::name;
return;
}
}
}, $dir_to_search );
# now do something with @list_of_files
__END__
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
