Shell Programming and Scripting

use Time::Local;

opendir (D, $ARGV[0]) or die "Cant open";

foreach $file (readdir D)
{
 $path = "$ARGV[0]/$file";
 next if ! -T $path;

 $last_mod = (stat $path[9]);
 ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime ($last_mod);
 printf "%-15s: $-10s %3s %2d %4d\n",$file,$day,$mon,$year+1900,"\n";
}

($mday,$mon,$year,$wday) = (split //, $last_mod)[3,4,5,6]; # this is not working!!!

#!/usr/bin/perl

use warnings;
use strict;

my $dir = shift or die "usage: $0 <dirname>\n";

for my $file ( glob "$dir/*" ) {
    next unless -T $file;
    my ( $mday, $mon, $year, $wday ) =
      ( localtime( ( stat $file )[9] ) )[ 3 .. 6 ];
    printf "%-15s: %-10s %3s %2d %4d\n", $file, $wday, $mday, $mon + 1,
      $year + 1900;
}

ls -l <dir_name>
./<script_name> <dir_name>

ls -l <dir_name>

-rw-r--r-- 1 s98820 unix 18 Nov 12 13:06 a
-rw-r--r-- 1 s98820 unix 137 Nov 12 12:09 command