RegExp: Zahl x durch x Unterstreichungszeichen ersetzen

[Richard Voß]

Moin, moin!

*1

ich würds immer noch so machen:

sicher?

if ($string =~ m/^(.*\)([0-9]*)(\.*)/)
{
my $count = 0;
my $striche;
while($count < $2)
{
  $striche=$striche."\_";
  $count++;
}
my $ergebnis = $1.$striche.$3;
print"Ergebnis= $ergebnis";
}

Das hat den großen Vorteil, dass man noch nach 2 Wochen weiß was es macht wund wie es das macht.

Ich würde mich schon nach 2 Stunden fragen, welche komplexen Berechnungen ich da in 12 Zeilen Code anstellen lasse. Ausserdem würden mich schon beim ersten mal die uninitialized-Warnungen in der Zeile '$striche = $striche."\_"' nerven.

btw.: _ ist kein Sonderzeichen, weder in strings, noch in regulären Ausdrücken.

so long, wie wir coolen Saarländer sagen [S. Bernarding, 2002]

bezüglich *1: Sagen die Saarländer wirklich "Moin, moin" ?

Christoph

Richard, kein Saarländer