Jones
Jones
Smith
Smith
Richards
####
Jones
Smith
Richards
##
##
#!/usr/local/bin/perl -w
open STDERR, "> /dev/null" || die "Cant redirect standrd error: $!";
use File::Find;
use strict;
print "Web owners\n";
print "----------\n\n";
my $ct = 0;
sub search
{
if( $_ =~ /\.html?$/)
{
$datetime = scalar(localtime(time));
my $name = $File::Find::name;
open ( F, $name ) or die "$!: $name\n";
while(my $owner = )
{
($ownerid, $groupid) = (stat( "$owner" ))[4];
$ownerName = getpwuid($ownerid);
{
$ownerName{$1} = 1;
}
}
close F;
}
}
my $dirs = '/thisdirectory/directory';
find( \&search, $dirs));
foreach (keys %ownername)
{
print "$_\n";
}
print "$ct\n";