I tryed some testkod below, i like Perl to give med TIME for every
file,
But all variable just get blank, (i got filename).
# Reads all files to a list
sub readFileList {
my @result;
local $dev;
local $ino;
local $mode;
local$nlink;
local $uid;
local $gid;
local $rdev;
local $size;
local $atime;
local $mtime;
local $ctime;
local $blksize;
local $blocks;
local @dir_contents;
local $dir_to_open="f:\\backupsv";
opendir(DIR,$dir_to_open) || die("Cannot open directory !\n");
@dir_contents= readdir(DIR); # Get contents of directory
closedir(DIR); # Close the directory
# Now loop through array and print file names
foreach $file (@dir_contents) {
if( substr($file,-3,3) eq "TXT" ) { # $file =~ /\*.txt/
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
$ctime,$blksize,$blocks) = stat($file);
# getRefDate();
print "File is $file\n";
# push @result,$file;
print "size $size \n";
print "atime $atime \n";
print "mtime $mtime \n";
print "ctime $ctime \n";
exit(0);
}
}
return @result;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
