Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
17.05.2006, 09:01 Uhr
Lensflare

Hallo.

wie kann ich bei Perl in einem Textstring nach einem Zeichen suchen und dieses mit anderen ersetzen?

zum Beispiel sowas:

Code:

$text = "schöner Text";
#suche nach "ö" und ersetze mit "ö"
print"$text";

--
Wenn das Gehirn so einfach wäre, dass wir es verstehen könnten, wären wir so einfach, dass wir es nicht verstehen könnten.
(Emerson Pugh Trost)

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
17.05.2006, 14:21 Uhr
J-jayz-Z
Perl Crack ala Carte
(Operator)

Ganz einfach, nimm Pattern matching:

C++:

$text =~ s/ö/\Qö\E/g;

Das \Q bedeutet, das alles bis \E nicht als regulärer Ausdruck ausgewertet werden soll.
Das g hinten bedeutet, das jedes mal o ersetzt wird, nicht nur das erste
--
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="66756e2d736f66742e6465"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
07.06.2006, 15:46 Uhr
Lensflare

wenn ich

Code:

$text =~ s/ö/\Qö\E/g;

verwende, dann erhalte ich folgendes ergebnis:

Code:

sch\&ouml\;ner Text

ich habe deswegen \Q und \E weggelassen

Code:

$text =~ s/ö/ö/g;

und es wird dann richtig angezeigt:

Code:

schöner Text

Danke.
--
Wenn das Gehirn so einfach wäre, dass wir es verstehen könnten, wären wir so einfach, dass wir es nicht verstehen könnten.
(Emerson Pugh Trost)

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Perl/CGI ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: