Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re^2: Practical example of "Is Perl code maintainable"

by xdg (Monsignor)
on Aug 13, 2007 at 10:43 UTC ( #632185=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    use File::stat qw(stat);
      my $stat = stat($path) or return -1;
      return $stat->mode;