Newbie Trying to learn perl

[Nathan M.]

I needed some help trying to figure out how to write a small perl
script in a Sun Solaris environment that can recursivly search through
a directory structure and get file information such as owner, size,
last modified date, permissions, things like that. I have tried to
use a File::Find but because I am very new at this I don't know where
to go from there. Thanks for any help.

 

[Joe Smith]

I needed some help trying to figure out how to write a small perl
script in a Sun Solaris environment that can recursivly search through
a directory structure and get file information such as owner, size,
last modified date, permissions, things like that. I have tried to
use a File::Find but because I am very new at this I don't know where
to go from there. Thanks for any help.

Are you aware that there is a perl utility called `find2perl`?
You give it the same command line arguments as you would to `find`
and it produces a perl program that outputs the same results.

solaris% find /tmp /var/tmp -ls
solaris% find2perl /tmp /var/tmp -ls >myprog.pl
solaris% perl myprog.pl

The relevant parts are:

# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/tmp', '/var/tmp');
exit;

sub wanted {
my ($dev,$ino,$mode,$nlink,$uid,$gid);
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
ls;
}

sub ls () {
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = lstat(_);
...
}


-Joe