[perl] find2perl dynamic search for files or directories

Asy · 07-10-2009, 06:32 AM

Hi,

I'm new to Perl programming. I want to create a script searching for files or directories in a filesystem.

In the kornshell it is one find command, and is it possible to make the search dynamic with variables.

I want to create the same in Perl and used for the first step the find2perl to create the framework.
In this framework I placed some variable with are working fine only th e variable to search for filetype or directory type I didn't get solved.

Code till now:

Code:

my filename=$1
my saveday=$2
my filetype=$3

sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid);
   /$filename/s &&
   (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
   -f _ && # this line need dynamic!
   (int(-M _) < $saveday) &&
   print "$_\n";
}

File::Find::find({wanted => \&wanted}, '/');

Did any one have a suggestion?

thinknix · 07-11-2009, 06:56 AM

What do you mean by filetype - extension, content, or file vs. directory?

Asy · 07-12-2009, 02:15 PM

Quote:

Originally Posted by slugmax

What do you mean by filetype - extension, content, or file vs. directory?

Quote:

Originally Posted by asy

I want to create a script searching for files or directories in a filesystem.

I want to search for files or directories. In the $filename you can specify a search string with perl pattern matching.

thinknix · 07-13-2009, 08:25 AM

Your description doesn't say what values $filetype can hold, so I'll guess it will just be one value meaning 'files' and one meaning 'directories'. An example showing how your script will be run with some sample arguments would be useful if I still don't understand.

An easy way to implement this would be to search files by default, unless '-d' was specified. That keeps the conditional to one line. If not, you'll need a larger conditional block, which would probably be in a small subroutine that checks the value of filetest. It would need to have the value of the special filehandle '_' passed into it as a parameter.

Here is the easy way that assumes you want files if $filetype is not '-d':

Code:

...
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
   ( ( $filetype eq '-d' ) ? -d _ : -f _ ) && # Search for regular files by default
   (int(-M _) < $saveday) &&
...

You might also look into Getopt::Std (http://perldoc.perl.org/Getopt/Std.html) for argument processing (assuming this isn't part of some larger program).

Asy · 07-13-2009, 06:10 PM

hi slugmax,

you are right, the filetype can be directory or file.
the hole script is suggest to run on in windows machine while our bosses has decide to kick out all our fine Unix servers.

Code:

( ( $filetype eq '-d' ) ? -d _ : -f _ )

Is for me very short notation for the if then else statement. But in this case it should do the trick.
I will test it tomorrow at work.