Finding stats in subdirectories 1

[Guest_imported]

I want to be able to find modificiaton times in all my subdirectories. Please advise what I am doing wrong.


use strict;
my $finder = $File::Find::name; #not sure what to do here.
my $newfile = "/perl/bin/";

opendir(DIR,$newfile);
my @files = readdir(DIR);
close(DIR);

chdir ($newfile) or die "Could not change to $newfile directory\n$!\n";
for(@files) {

my $filename = $_;
next if ($_ != m/^\.+$/);
my $modtime = localtime ( (stat($filename))[9] );

print "file name : $filename\n";
print "MODIFICATION time : $modtime\n";
}

 

[JustKIDn]

You need to tell it the directory name to get the correct mtime

my $modtime = localtime ( (stat($newfile.$filename))[9] );

Otherwise it seemed to work fine.
However, I found that I didn't need
my $finder = $File::Find::name; #not sure what to do here.
or
chdir ($newfile) or die "Could not change to $newfile directory\n$!\n";

HTH
tgus

____________________________
Families can be together forever...

 

[Guest_imported]

I tried as suggested but it still only searches and list files in current directory. I need it to search all subdirectories of current directory and list all the subdirctories and files modification times.

 

[vgg]

Hi,

check this out.Set the @ENV variable in the beginning of your program.
my $newfile = "/perl/bin/";
my $PATH = $ENV{PATH};
$ENV{PATH}= "$PATH".$newfile;
Then add the other lines of code.

 

[justice41]

use File::Find like this

use File::Find;

my @directories = ("/perl/bin");
find(\&wanted, @directories);

sub wanted {

    unless (/^\..?$/) {
        print "filename : $_\n";
        my $modtime  = localtime ( (stat($_))[9] );
        print "MODIFICATION time : $modtime\n";
    }
}

It will decend the directory tree automatically.

jaa

 

[Guest_imported]

Thanks,

Long shot question:
Anyway to get the inode time for file creation on an NT?

I tried the:
my $creationtime = localtime ( (stat($_))[10]
instead of
my $modtime = localtime ( (stat($_))[9]

but it does not give me the file creation, instead it gives mod time.