This is my first post so be gentle ;) I am working on a project to dump selected filesystem node attributes (e.g. uid,size,mtime,etc..) into a MySQL database for further mining. The database table defines a tree stored in Nested-Set representation.

The shell of the following code was generated using find2perl and then modified to add the pushdown stack for generating the correct left/right pairs for the nested tree node boundaries. See the code in the readmore section: 
use strict;
use DBI;
use File::Find ();

use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

my $dbh = DBI->connect("DBI:mysql:host=unixhost:database=fsdb",
                       "username",
                       "password");

my $sth = $dbh->prepare("INSERT INTO fstree (uid,size,mtime,name,lft,r
+gt) VALUES(?,?,?,?,?,?)");

my $cnt = 1;
my @stack;
my $rowcnt;

my $fs2probe = shift || die "supply a filesystem path to probe";

# Traverse desired filesystems
File::Find::find({wanted => \&wanted, preprocess => \&pre, postprocess
+ => \&post}, $fs2probe);

print "$rowcnt rows processed\n";
exit;


sub wanted {

        my ($dev,undef,undef,undef,$uid,$gid,
                undef,$size,undef,$mtime) = lstat($_);
        if ( !($File::Find::prune |= ($dev != $File::Find::topdev)) ) 
+{
                $rowcnt += $sth->execute($uid,$size,$mtime,$_,$cnt++,$
+cnt++) unless ( -d _ );
        }
}

sub pre {

        push (@stack, [$_,$cnt++]);
        return @_;
}

sub post {

        my ($dev,undef,undef,undef,$uid,$gid,
                undef,$size,undef,$mtime) = lstat($name);
        my $ref = pop (@stack);
        $rowcnt += $sth->execute($uid,$size,$mtime,$ref->[0],$ref->[1]
+,$cnt++);
}

[download]
The thing to note is that in order to represent a tree correctly using the nested set model, I have to do a finddepth. But finddepth does not prune trees if they cross a filesystem boundary (even though I can still reject them in my &wanted sub). But I don't want to cross any mount points during the search as there could be NFS mounts and automount mount points, etc.) I want to traverse just the physical filesystem in question.

Is there any way for me to use File::Find to do a depth first traversal and not cross filesystems in the process?

In reply to Using File::Find to build a Nested-Set Tree representation by braswell

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.