Hi,
I have written a small script that is supposed to tell me the oldest file in my
directory (as per ctime). I have read the various times the various files were
created, into an array called times. I have then sorted this array - @sorted_times.
when i do ls -l i get the following:
wxrwxr-x 1 radhika wheel 1028 Mar 24 11:57 chapter11_1.pl
-rwxrwxr-x 1 radhika wheel 387 Mar 24 12:37 chapter11_2.pl
-rwxrwxr-x 1 radhika wheel 551 Mar 24 21:25 chapter11_3.pl
-rwxrwxr-x 1 radhika wheel 281 Mar 15 16:28 file_basename.pl
-rw-rw-r-- 1 radhika wheel 236 Mar 21 11:46 filereader.pl
-rw-rw-r-- 1 radhika wheel 115 Mar 24 12:04 new.txt
-rw-rw-r-- 1 radhika wheel 115 Mar 24 12:00 rad.txt
-rwxrwxr-x 1 radhika wheel 648 Mar 15 15:40 rm_file_30days.pl
-rwxrwxr-x 1 radhika wheel 554 Mar 15 16:37 rmoldshares.pl
and when I execute the program I get the following:
radhika$ ./chapter11_3.pl *
Mon Mar 15 15:55:58 2004
Mon Mar 15 16:28:50 2004
Mon Mar 15 16:37:46 2004
Sun Mar 21 11:46:36 2004
Wed Mar 24 11:57:21 2004
Wed Mar 24 12:00:15 2004
Wed Mar 24 12:04:01 2004
Wed Mar 24 12:37:10 2004
Wed Mar 24 21:26:56 2004
my question is - where did the very first line from my output come from? ie Mon Mar 15
15:55:58.
As you can see, ls -l does not show any file created at that time. Even . and .. are
not the above time.
Is it using sort(@array), that sorts it in some manner that I do not understand?
Thanks,
Radhika
------
I've pasted the code for the script below.
----------------------------------------
#! /usr/bin/perl -w
use strict;
use diagnostics;
my $create_time;
my $i=0;
my @times;
my @sorted_times;
my $file;
foreach $file (@ARGV) {
my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime,
$blksize, $blocks) = stat($file);
$create_time = localtime($ctime);
$times[$i] = $create_time;
$i++;
}
@sorted_times = sort(@times);
my $this_time;
foreach $this_time (@sorted_times) {
my($day, $mon, $dt, $tm, $yr) = split /\s+/,$this_time;
my ($hr, $mn, $sec) = split /:/, $tm;
print "$this_time\n";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
