Help for this page

Select Code to Download


  1. or download this
        next unless -e $file;
    my ( $mode, $nlink, $uid, $gid, $size, $mtime )
        = ( stat(_) )[ 2 .. 5, 7, 9 ];
  2. or download this
        my ( $mode, $nlink, $uid, $gid, $size, $mtime )
        = ( lstat $file )[ 2 .. 5, 7, 9 ]
            or next;