Help for this page

Select Code to Download


  1. or download this
    sub printattr{
    my $file = shift;
...
    }
    print "]\n";
}
  2. or download this
    use feature 'state';

...
    print $attrs->[$_ < $maxi ? $_ : $maxi] for split //, (stat $file)
+[2];
    print "]\n";
}
  3. or download this
    sub print_attr
{
...
    print $attrs->[$_] for split //, (stat $file)[2];
    print "]\n";
}