file::find ignore stderr

[jrig]

#!/usr/bin/perl -w
use File::Find;
       
       
my @ar;
sub wanted {
        if ($_ eq "foo"){
                push @ar , $File::Find::name;
        }
}
find \&wanted , '/usr/home/';
       
        foreach $ln (@ar){
        if ($ln !~ /cd/){
#       print $ln."\n";
                        }
}

Presumably since I'm not root, I get the error can't cd to (blah blah). I'm only interested in files I can see, so how do I tell the script to disregard this message, I don't even want to see the message. I guess redirect to /dev/null somehow. Where/how? TIA-

Joe

 

[ishnid]

You can put this in (above the "my @ar" line):

BEGIN{ open STDERR, ">/dev/null"; }

 

[KevinADC]

Or remove the -w switch from the shebang line and the warnings won't display while the script runs.

 

[jrig]

Thanks fellas-

Kevin, I may be misreading your reply, but I am still getting the error messages, I know that you can 'ignore' warnings in terms of specific modules or blocks of code, is that what you meant?

Ishnid, is STDERR being treated as a filehandle here? Does it need to be closed? Script seemed to hang a bit with 'BEGIN' in it. I re-wrote your solution just like I would any other filehandle and that worked too. Following this logic, could I use STDOUT as a varible, or maybe array in the script? Many thanks-

 

[KevinADC]

I think I was thinking wrong. Can't cd to blah is normally a fatal error, not a warning.

have you tried the:

no_chdir=>0

option with File::Find?

 

[jrig]

Any thoughts as to how to make file::find a bit more greedy? That is, if searching for '311', return:
311.mp3
311.txt
311.wma
(in other words, '311*')
etc...I swear I read the module documentation, couldn't find anything-

 

[KevinADC]

use a perl regexp:

if (/311\..*/) {
   print "Found a file with 311 in it: $_\n";
}

- Kevin, perl coder unexceptional!