Mega Code Archive

 

Categories / Perl / File

 

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";     } }