|
#!/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";
}
}
|