12 lines
240 B
Perl
12 lines
240 B
Perl
|
|
||
|
|
$filename = 'file.txt';
|
||
|
|
|
||
|
|
open FILEHANDLE, "<$filename";
|
||
|
|
|
||
|
|
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
|
||
|
|
$mtime, $ctime, $blksize, $blocks) = stat(FILEHANDLE);
|
||
|
|
|
||
|
|
print "$filename is $size bytes long.";
|
||
|
|
|
||
|
|
|
||
|
|
|