view release on metacpan or  search on metacpan

ls2.pl  view on Meta::CPAN

	     $size, 
	     format_time($mtime),
	     $attr,
	     $name,
	    )
    ]
  );
}

sub ui {
  ($u{$_[0]} ||= getpwuid($_[0]) || $_[0]),
    ($g{$_[1]} ||= getgrgid($_[1]) || $_[1]);
}

sub format_time {
  return $time{$_[0]} if exists $time{$_[0]};
  my $timestr;
  my($sec, $min, $hour, $day, $mon, $year) = localtime($_[0]);

  if( $_[0] < $^T - 180*24*3600 || $_[0] > $^T + 3600 ){
    $timestr = sprintf "$mon[$mon] %2d  %4d", $day, $year+1900;