in reply to Re: Why is Stat() Not Stating All Files?
in thread Why is Stat() Not Stating All Files?

Okay, I changed my code:

#!/usr/bin/perl

my $dirtoread="/home/mydir/public_html/t/d/";

opendir(IDIR, $dirtoread) 
   || die "Error Opening Directory";

print "Content-type: text/html\n\n";

my @dots = grep { /^\./ && -f "$dirtoread/$_" } readdir(IDIR);

foreach $file (@dots)
  {
        
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$bl
+ksize,$blocks) = stat($file);

print <<EOF;
File: $file<br>
dev: $dev<br>
ino: $ino<br>
mode: $mode<br>
nlink: $nlink<br>
uid: $uid<br>
gid: $gid<br>
rdev: $rdev<br>
size: $size<br>
atime: $atime<br>
mtime: $mtime<br>
ctime: $ctime<br>
blksize: $blksize<br>
blocks: $blocks<br><br><br>
EOF

   }
closedir(IDIR);

[download]

But it's not printing anything?
Did I apply the code correctly?

I don't think I did but I'm not really sure what the deal is!

Replies are listed 'Best First'.
Re^3: Why is Stat() Not Stating All Files?
by PodMaster (Abbot) on May 02, 2005 at 06:27 UTC
    Did I apply the code correctly?
    No. You're still testing the wrong file, you still need to prepend the directory in question, only now you filter out directories from the results of readdir (you're left with files only).

    MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
    I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
    ** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
      Ahh I got it, I chaged stat($file) to stat($dir.$file).

      Any idea how I can tell directories from files? I doesn't look like stat will tell that from what I can see.
[reply]
        You know that grep part that you added? It's filtering out directories. `perldoc -f -X'

        MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
        I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
        ** The third rule of perl club is a statement of fact: pod is sexy.

[reply]

In Section Seekers of Perl Wisdom