Look for ~*/.netscape/ dirs

[merlyn]

Ever wanted to look for the .netscape directories of everyone on a system? Simple enough if you know the right pieces to squish together. This is a great list for searching as input to File::Find.

my @dirs = grep -d, do {
  my %list;
  my @item;
  $list{$item[7]}++ while @item = getpwent;
  map "$_/.netscape", keys %list;
};

[Dominus]

The original poster (on clp.misc) was only looking for files that would match /^(li|)prefs.js$/, and it turned out he didn't actually need a recursive search. So I suggested that he avoid File::Find completely:

        while (@data = getpwent) { 
          my $dir = $data[7];  # home directory
          push @files, 
            grep -e, "$dir/.netscape/prefs.js", 
                     "$dir/.netscape/liprefs.js";
        }

[strredwolf]

I think this would work better. Unfortunately, it doesn't use perl...

find ~/.netscape -name prefs.js -o -name liprefs.js -print

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";

[merlyn]

You missed the star after the tilde (which doesn't really work) {grin}. My solution looks in all home directories. Yours looks only in your own.

-- Randal L. Schwartz, Perl hacker

[strredwolf]

From your snippet, I couldn't see if it actually did go through all the homes (getpwent's worthy, but still, where's the full search?)

Of course, there's...

open(IN,"</etc/passwd");
while(<IN>) {
    chomp; next unless(/^([^:]+):/);
    $names=`find ~$1/.netscape -name prefs.js -o -name liprefs.js -pri
+nt`;
    @names=split /\n/, $names;
    push @files, @names;
}

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";