O'Reilly logo

Einführung in Perl, Sixth Edition by brian d foy, Tom Phoenix, Randal L. Schwartz

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Lösungen zu den Übungen in Kapitel 13

  1. Eine Möglichkeit besteht darin, einen Glob zu benutzen:

    print "Welches Verzeichnis? (Home-Verzeichnis = leere Zeile) ";
    chomp(my $verz = <STDIN>);
    if ($verz =~ /\A\s*\Z/) {         # eine Leerzeile
      chdir or die "Kann nicht in Ihr Home-Verzeichnis wechseln: $!";
    } else {
      chdir $verz or die "chdir nach '$verz' nicht möglich: $!";
    }
    
    my @dateien = <*>;
    foreach (@dateien) {
      print "$_\n";
    }

    Zuerst geben wir eine Eingabeaufforderung aus und lesen den gewünschten Verzeichnisnamen ein, wobei das Newline-Zeichen am Ende gegebenenfalls mit chomp entfernt wird. (Ohne chomp hätten wir unter Umständen versucht, in ein Verzeichnis zu wechseln, dessen Name am Ende ein Newline-Zeichen trägt. Unter Unix ist die Verwendung von Newline-Zeichen ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required