Using the find2perl utility how would I send the output to an array? By
default it will print out the results like:
/home/ftpuser/aef/flexvault/EOM033107/DATAAG.zip
/home/ftpuser/aef/flexvault/EOM033107/DATAHZ.zip
I'd like those lines to be put into an array instead of printed to
stdout. I tried setting a variable instead of using print - but of
course I'm missing something.
#!/usr/bin/perl
use File::Find;
$cuid = "aef";
$directory = "EOM033107";
use vars qw/*name *dir *prune/;
*name = *File::Find::name;
*dir = *File::Find::dir;
*prune = *File::Find::prune;
sub wanted;
$smallcuid = lc $cuid;
# Traverse desired filesystems
File::Find::find({wanted => \&wanted},
'/home/ftpuser/'.$smallcuid.'/flexvault/'.$directory.'/');
exit;
sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid);
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && -f _ &&
/^DATA.*\.zip\z/s && print("$name\n");
}
Any help would be appreciated.
Matt
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
