looking for shell / perl script to capture the folder time stamp and the files inside the folder - perl

Question

I am looking for script to capture the folder time stamp and the files inside the folder
Example: I have a folder Cform12 with files inside say note1.txt , note2.rtf , note3.ldt
ls -lrt will generate drwxr-xr-x 5 r12applprd dba 4096 Dec 4 02:31 Cform12
and
ls -lrt SCF6761-PROD will generate
total 12
-rwxr-xr-x 3 r12applprd dba 4096 Dec 4 02:30 note1.txt
-rwxr-xr-x 3 r12applprd dba 4096 Dec 4 02:30 note2.rtf
-rwxr-xr-x 26 r12applprd dba 4096 Dec 4 02:31 note3.ldt
Now i have output as
Dec 4 02:31 , Cform12 , note1.txt
Dec 4 02:31 , Cform12 , note2.txt
Dec 4 02:31 , Cform12 , note3.txt
Need help me with the shell or perl script for the same.

Answer 1

I have created the following script to help with my question .Thanks to the contributors for all the directions
use strict;
use warnings;
my $dir = '/tmp/';
opendir(DIR, $dir) or die $!;
while (my $file = readdir(DIR)) {
next unless (-d "$dir/$file");
my $fdir = "$dir/$file";
print "$fdir\n";
my $mtime = (stat $fdir)[9];
$mtime = localtime($mtime);
$mtime = echo "$mtime" | awk '{print \$2 , \$3, \$4}' 2 > /dev/ null;
chomp($mtime);
my #files1 = find $fdir -type f | awk -F "/" '{ print \$NF }';
foreach my $fil (#files1) { print "$mtime,$file,$fil"; }
}
closedir(DIR);
exit 0;

Answer 2

I think this script will help you if my understanding is correct..
use strict;
use warnings;
my $path="/var/inner";#directory absolute path
my $mtime=(stat $path)[9];
my $name=`basename $path`;
chomp($name);
$mtime= localtime($mtime);
$mtime=`echo "$mtime" | awk '{print \$2 , \$3, \$4}'`;
chomp($mtime);
my #files = glob("$path/*");
foreach my $file(#files){
print "$mtime , $name , ".`basename $file`;
}
The script below does the same but recursively. Is this what you want?
use strict;
use warnings;
my $path="/export/home/tarumugam/shellshop";#directory absolute path
sub rotator{
(my $path)=#_;
my $mtime=(stat $path)[9];
my $name=`basename $path`;
chomp($name);
$mtime= localtime($mtime);
$mtime=`echo "$mtime" | awk '{print \$2 , \$3, \$4}' 2> /dev/null`;
chomp($mtime);
my #files = glob("$path/*");
foreach my $file(#files){
if(-f $file){
print "$mtime , $name , ".`basename $file`;
}else{
rotator($file);
}
}
}
rotator($path);

Answer 3

Are you looking for something like the following?
$ stat -c "%x" src; find src -mindepth 1 -maxdepth 1 -exec basename '{}' \;
2013-12-03 22:39:42.911796567 -0500
UndirectedGraphClient.java
UndirectedGraph.java
Bag.java
A bash scripting guide could help you out a lot. Maybe take a look at http://mywiki.wooledge.org/BashGuide or http://wiki.bash-hackers.org/doku.php ?