zeichenketten durchsuchen

[Jörk Behrends]

Hallo auch!

viele Wege führen nach Rom:

Jepp - ich nehme nicht die Straße, sonder das Flugzeug ;-)

Beispiel:
$Wert = "00012231";
$Wert =~ s/0*([1-9]*)/$1/;

$Wert =~ s/^0*//;
$Wert = $Wert + 0; # oder noch besser:
$Wert += 0;

$Wert =~ s/^0*\B//;

print "$Wert\n";

Hier kann man sich das addieren von Null sparen (welches bei 0000 nötig war, da hier ja dummerweise
ALLE Nullen gelöscht wurden). Der Trick besteht darin, durch \B anzugeben, daß hinter den Nullen
KEINE Wortgrenze sein soll, wie sie am Ende der Zahl bestünde.

Jörk