a little perl

[frankx]

Hellihello Alexander

Moin Moin!

was ist "shift"?

Ohne Parameter in einer Funktion: erstes Element aus der Parameterliste entfernen und zurückgeben.

print "Verzeichnis: $where\n";
  my $dir=IO::Dir->new($where) or die "$where: $!";

Was ist IO::Dir?

OOP-verpacktes Directory-Handle, hat u.a. den netten Nebeneffekt, das es sich beim Verlassen des Scopes selbst schließt, wie auch IO::File. So lungern keine offenen Handles herum.

Was ist $! ?

OS-Error, Code im numerischen Kontext, Fehlermeldung im String-Kontext, true bei Fehlern im Bool-Kontext.

my @items=$dir->read();
  $dir->close(); # Handles gibt es nur begrenzt, also schnell wieder freigeben
  foreach my $item (@items) {
    if (-d "$where/$item") {

-d heißt "is_dir()"?

Ja

heißt: du erzeugst ein Array mit allen Ordnerpfaden, die durchsucht werden wollen?

In der Variante mit der TO-DO-Liste, ja.

Alexander

Dank und Gruß,

frankx