view release on metacpan or  search on metacpan

example/file.pl  view on Meta::CPAN

  return sprintf($p, $size);
}

sub transmode {
  # Returns a string showing the entry permissions (a la ls -l)
  #
  # Usage:  $mode = transmode($file);

  my $file = shift;
  my $stat = (stat($file))[2];
  my $mode = defined $stat ? sprintf('%04o', $stat & 07777) : '0000';
  my @ebits = qw(r w x);
  my @bits = (4, 2, 1);
  my ($digit, $i, $rv);

  # Translate last three octets
  foreach $digit (split(//, substr($mode, 1))) {
    for ($i = 0; $i < @bits; $i++) {
      $rv .= $digit & $bits[$i] ? $ebits[$i] : '-';
    }