Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
my $n_mode = (stat $file)[2] & 07777;
print "stat Permissions are $n_mode decimal\n";
print Dump(\$n_mode),"\n";
  2. or download this
    sprintf Permissions are 0666
        which is 438 in decimal
...
    PV = 0x18a1f2c "438"\0
    CUR = 3
    LEN = 4