Opened by Strat at 2004-12-19 01:23
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
(Warum steht die Frage eigentlich im Forum "sonstige Sprachen", obwohl es doch eindeutig um Perl geht? Und warum lautet der Betreff "Objektorientiertes Programmieren", obwohl ueberhaupt nicht von OO-Programmierung die Rede ist? Sei's drum...)
Da getc() sowieso nicht gleich jedes Zeichen von STDIN verarbeitet und ausserdem ziemlich ineffizient ist, wuerde ich den Diamant-Operator fuer die Eingabe bevorzugen. Da hat man automatisch einen neuen Schleifendurchgang fuer jede Zeile:
Wenn es mehr Ersetzungen zu machen gibt, dann wuerde ich auch strats Methode mit dem Hash nehmen.
Da getc() sowieso nicht gleich jedes Zeichen von STDIN verarbeitet und ausserdem ziemlich ineffizient ist, wuerde ich den Diamant-Operator fuer die Eingabe bevorzugen. Da hat man automatisch einen neuen Schleifendurchgang fuer jede Zeile:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
while (1) {
print "Geben Sie Wörter mit \"\ä\" ein:\n";
my $text = <>;
last if $text eq "\n"; # Abbruch, wenn keine Eingabe
$text =~ s/ä/ae/g; # alle ä durch ae ersetzen
print $text;
}
Wenn es mehr Ersetzungen zu machen gibt, dann wuerde ich auch strats Methode mit dem Hash nehmen.