evaluating directory path length

[Win]

This node falls below the community's threshold of quality. You may see it by logging in.

[marto]

What exactly are you trying to do? Do you understand what the script you've posted actually does? Have you read the File::Find and File::Find::Rule documentation? Didn't you learn how to do deal with situations like this in Returning sub directories and File::Find::Rule - error message with use of?

[jdporter]

Win, where in the File::Find::Rule documentation do you see an example of the form
$rule->name(length >= 50);
???
On the other hand, you might try looking (use your browser's 'Find' function, for example) within the File::Find::Rule documentation for the word length, as perhaps there is an example of code which really does something like what you want.

Why do you find it so hard to read documentation? You should know by now that people cannot read documentation for you.

[IBlowGoatsSucker]

Dear Win, you are being badly treated by the monks here! All you want is that they do your work, this is not so hard, they could look up the online documentation for PERL and it would be done quickly. They would only need to ask you about all the things you don't explain in your questions and they could have a good answer in the time it takes for you to twiddle your thumbs!

Instead, YOU are told to look up documentation, they call you an idiot and lazy! All of this is true, but it doesn't get your work done. This must be very frustrating. You are obstinate and keep trying, but it is not working so well.

I suggest something different: tell ME all your problems and I will create solutions for them. You no longer need to worry about monks, I will do it all. It will work like this:
You go onto the internet and google for things that you like to do. In your search, include the word "job". You will find web pages which let you do what you like and in return they will give you something we modern people call "money". When you have collected enough of this "money", contact me. I will handle your PERL problems and in return you give me the "money" (in our century we call this "paying for work").

I believe this will work out the best for us all. You no longer need to bother the monks and they do not need to insult you. Your PERL problems will be handled well and quickly and the sheep will like it too! Important: don't look for a "job" that has anything to do with programming. You are not good at it and never will be. That is not your fault, it is the fault of your laziness and bad character.

[ikegami]

You can use ->exec to add custom filters. ->prune would be useful here too.

[Anonymous Monk]

I would like to do something similar

Prove it, try to actually do it yourself

[Anonymous Monk]

The answer can be found in the File::Find::Rule documentation. Even easier, I've recently written a script which does exactly that and you can copy from it, you can find it here.

[Khen1950fx]

$rule->name(length >= 50);

That should be $rule->size(length >= 50) or better yet:

$rule->exec(sub {length >= 50});

Here's an example of what I think that you are trying to do:

#!/usr/bin/perl

use strict;
use warnings;
use File::Find::Rule;

open(STDOUT, '>', 'size.txt');

my $rule =  File::Find::Rule->new;
$rule->file;
$rule->name( '*.pm' );
$rule->exec(sub {length >= 25});

my @files = $rule->in( @INC );
foreach my $file(@files){
    print $file, "\n";
}

exit;