in reply to Traverse a directory
This works for me (using find in linux):
#!/usr/bin/perl use strict; use warnings; my $dirname = "your_directory"; my $user = "your_user"; my @fn = map {split /\n/} `find $dirname -user $user`; foreach my $f (@fn){ print "$f\n"; }
In Section
Seekers of Perl Wisdom