linux-l: Perlsuche

[Duncan Rubinger]

Hi allerseits,

ich bin leider noch nicht beosnders firm in Perl und stehe vor folgendem
Problem:

Ich möchte ein script schreiben, welches unter /home alle
Userverzeichnisse nach public_html abgrast, Suchtiefe 1, also direkt im
jew. Userverzeichnis sein!

Bisher habe ich mit glob herumgespielt:

opendir(VERZ,"/home");
for(1..5)
 {
  #  print $zeile=readdir(VERZ)."\n";
    @array = glob("/public_html");
    @array = sort(map {lc $_;} @array);
  foreach $datei (@array)
  {
   print
   print "$datei\n";
  }

 }
 rewinddir(VERZ);
closedir(VERZ);

Bringts aber nicht ausser 5x public_html :-(

Jemand ne idee ?

Ciao, Duncan