Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

RE: RE: RE: File::Find

by ncw (Friar)
on Sep 18, 2000 at 00:58 UTC ( #32892=note: print w/replies, xml ) Need Help??


in reply to RE: RE: File::Find
in thread File::Find

Here is my test prog :-
use strict; use File::Find; my $dir = shift; my ($with, $without); print "Counting files in $dir\n"; # This is the default on Linux $File::Find::dont_use_nlink = 0; find(sub { $without++ }, $dir); $File::Find::dont_use_nlink = 1; find(sub { $with++ }, $dir); print "With \$File::Find::dont_use_nlink = 0: $without files found\n"; print "With \$File::Find::dont_use_nlink = 1: $with files found\n";
I ran this on a mounted iso9660 disc like this (note if the disc has RockRidge extensions then it works properly!) :-
$ ./file_find_test.pl /mnt/cdrom 
Counting files in /mnt/cdrom
With $File::Find::dont_use_nlink = 0: 29 files found
With $File::Find::dont_use_nlink = 1: 1300 files found
This was on Linux 2.2.17 with perl 5.00503 with the standard File::Find that comes with the distribution

I agree with tye's comment here - $File::Find::dont_use_nlink should be 1 on all platforms - the slowdown isn't worth the incompatibilities.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://32892]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2022-01-22 17:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (63 votes). Check out past polls.

    Notices?