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/