Conversion script: link fix

2015-02-26T23:48:55Z

link fix

New page

HomePage>>SourceCode>>[[PerlSource]]

A wrapper around the unix stat function - it just prints to stdout and the calling program gets to parse the goodies.

Called by [[GetFileInfo]]

<pre>
#!/usr/local/bin/perl -w

if ( -f $ARGV[0] ) {
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
$atime, $mtime, $ctime, $blksize, $blocks) = stat $ARGV[0];

print "$dev\n$ino\n$mode\n$nlink\n$uid\n$gid\n$rdev\n$size\n",
scalar localtime($atime), "\n",
scalar localtime($mtime), "\n",
scalar localtime($ctime), "\n",
"\n$blksize\n$blocks\n";
}
</pre>

PerlVersionOfFstat - Revision history

Conversion script: link fix