Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

RE: RE: File::Find

by merlyn (Sage)
on Sep 16, 2000 at 21:55 UTC ( [id://32825]=note: print w/replies, xml ) Need Help??


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

If you find an architecture on which you need to set this manually, please report it to the developers. This is supposed to be set automatically on those system which need it. If it isn't, it's a bug.

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
RE: RE: RE: File::Find
by ncw (Friar) on Sep 18, 2000 at 00:58 UTC
    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://32825]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (5)
As of 2024-06-19 20:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.