need to print status of all files in directory 1

[nuarj83]

Hi, I am new-bee in perl, i need script that prints out complete modifcations(c,a,m-times or any files added or deleted) of all files in a directory.

Any help is appreciated.

 

[eewah]

Hi,
You can have some things like:

foreach $filename (<*>)
{
    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
       $atime,$mtime,$ctime,$blksize,$blocks)
           = stat($filename);
     ........
}

You can refer to this page for more information:

http://perldoc.perl.org/functions/stat.html

;-)

 

[KevinADC]

c,a,m times yes, but files added or deleted?

 

[PaulTEG]

For files added or deleted, you would need to maintain a data structure that you can load to compare against

Have a look at Storable.pm

HTH
--Paul

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[Kirsle]

Data:umper to store and load data structures:

use Data::Dumper;

# create a hashref
my $hash = {};

# load the hash keys from a file
$hash = do "./data.txt" if -f "./data.txt";

# modify the hash or whatnot...
$hash->{$filename} = 1;
$hash->{$another_filename} = 1;

# save it to a file again
open (DATA, ">./data.txt");
print DATA Dumper($hash);
close (DATA);

It should work the same with normal hashes (ie the $hash{$filename} format, without the arrows), you'd probably change the $hash=do line to %hash=do... I like working with hashrefs though for the little arrows between keys, it makes it easy to read

 

[nuarj83]

Thank you for all the valuable time and replies.
i figured out the solution and sorry for the late reply.

-arj