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;
};

[download]

Replies are listed 'Best First'.
Re: Look for ~*/.netscape/ dirs
by Dominus (Parson) on Apr 13, 2001 at 03:49 UTC
    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";
        }

    [download]
[reply]
[d/l]
Re: Look for ~*/.netscape/ dirs
by strredwolf (Chaplain) on Apr 14, 2001 at 10:09 UTC
    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";

[reply]
[d/l]
      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

[reply]
        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;
}

        [download]

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

[reply]
[d/l]

Back to Cool Uses for Perl