Lists files in directory; then gets info on files with stat : stat « File « Perl





Lists files in directory; then gets info on files with stat

    
#!/usr/bin/perl -w

$dir = "c:\\";

opendir(DIR, $dir) or die "Can't open $name";

@entries = readdir(DIR);

closedir(DIR);
@sorted = sort(@entries);

foreach $entry (@sorted) {
    $name = $dir . '/' . $entry;
    print "\nEntry: $name\n";

    ($dev, $inode, $mode, $nlink,$uid, $gid, $rdev, $size, $atime,$mtime, $ctime, $blksize, $blocks) = stat($name);

    if (defined($dev) ) {     
      print "Device number    : $dev\n";
      print "Inode number     : $inode\n";
      print "File mode        : $mode\n";
      print "Number hard links: $nlink\n";
      print "Owner ID         : $uid\n";
      print "Owner Group ID   : $gid\n";
      print "Device ID        : $rdev\n";
      print "Total size       : $size\n";
      print "Last access time : $atime\n";
      print "Last modify time : $mtime\n";
      print "Last inode time  : $ctime\n";
      print "Block size       : $blksize\n";
      print "Number blocks    : $blocks\n";
    }
} 

   
    
    
    
  










Related examples in the same category

1.Getting Information on a File
2.Get return value from stat function
3.Get the file size
4.Get the length of a file
5.File statistics returned from the stat command
6.File stats
7.Checks the permissions of a file
8.Call stat function from file handle
9.The stat Function for Windows NT File Attributes