Believe you could add something like:
map {$_=>1} $DIREC;
my @MyStats = stat($File::Find::name);
print DEST stat("$File::Find::name;" . join(";", @MyStats) . "\n");
Tried it out and it generated data like this:
d:/CurrWrka/00CommonPerl/examples/Extending/Typemaps_with_XS/Car_c++_obj3;0;1689
5;1;0;0;3;0;1010646407;1001340376;984543492;;
d:/CurrWrka/00CommonPerl/examples/Extending/Typemaps_with_XS/Car_c++_obj/Car.pm3
;0;33206;1;0;0;3;141;1008788170;878944074;984543492;;
To do the stat you need the fully qualified.
Wags ;)
-----Original Message-----
From: Ben Crane [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 10, 2002 07:41
To: [EMAIL PROTECTED]
Subject: using stat and file::find
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]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
