hey guys, I have this code that prints out the direc
structure/filenames for whatever root i choose...I
would like to have a stat for each file...how do i go
about doing this? I thought about adding it in the
wanted() sub but I've had little success...I want each
file to have all the necessary stat's so my text file
has all the information i need on each file...I plan
on using vb to create a mini dbase to "mess" around
with the webstructure.txt file
#!usr/bin/perl -w
use File::Find;
$DIREC=<STDIN>;
chomp($DIREC);
open(DEST,">WebStructure.txt") || die "$!";
find \&wanted, $DIREC;
sub wanted()
{
map {$_=>1} $DIREC;
print DEST stat("$File::Find::name\n");
}
close(DEST)
Ben
__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
