stat test

用 stat 查出檔案的資料.

#!/usr/bin/perl
#
# test stat
#

my $file1 = shift;
if (! (-e $file1))
{
        print "Invalid file : $file1\n";
        exit(-1);
}

my @t1 = stat($file1);

print "file : $file1 stat result\n";
foreach $line(@t1)
{
        print "$line ";
}
print "\n";

my @des;
$des[0]="Device";$des[1]="Inode";$des[2]="Permission";
$des[3]="Links";$des[4]="Uid";$des[5]="Gid";
$des[6]="Device Type";$des[7]="Size";$des[8]="Access";
$des[9]="Modify";$des[10]="Change";$des[11]="IO Block";$des[12]="Blocks";
print "Description\n";
for($i=0;$i<=$#t1;$i++)
{
        print "$i : $des[$i] : $t1[$i]\n";
}

exit(0);