Einführung in Perl, Sixth Edition

Lösungen zu den Übungen in Kapitel 9

1. So könnte eine mögliche Lösung aussehen:

   /($was){3}/

   Ist $was einmal interpoliert, haben wir ein Muster wie /(fred|barney){3}/. Ohne die Klammern sähe das Muster so aus: /fred|barney{3}/, was das Gleiche bedeutet wie /fred|barneyyy/. Die runden Klammern müssen also auf jeden Fall benutzt werden.

2. Hier eine mögliche Lösung:

   my $eingabe = $ARGV[0];
   if (! defined $eingabe) {
     die "Benutzung: $0 Dateiname";
   }
   my $ausgabe = $eingabe;
   $ausgabe =~ s/(\.\w+)?$/.out/;
   if (! open $ein_fh, '<', $eingabe ) {
     die "Kann '$eingabe' nicht öffnen: $!";
   }
   if (! open $aus_fh, '>', $ausgabe ) {
     die "Kann nicht in '$ausgabe' schreiben: $!";
   }
   while (<$ein_fh>) {
     s/Fred/Larry/gi;
     print $aus_fh $_;
   }

   Das Programm beginnt damit, seinem einzigen ...