Pass file handle to stat function : file handle « File « Perl






  1. Perl
  2. File
  3. file handle

Pass file handle to stat function

    

$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.";








Related examples in the same category

1.Using file handle variable
2.Select a file handle
3.Pass file handle reference in a the form of '*FILEHANDLE{IO}'
4.Pass file handle reference to a subroutine
5.Passing Filehandles by Reference
6.Passing file handles to functions
7.Filehandle References
8.Split a file handle containing array
9.undef file handle
10.defined lines in a file
11.Using a scalar variable to store a file variable name.
12.Using while loop to read content
13.Redirects the standard output and standard error files.
14.To write to a file:
15.Passing file name to functions