29 Sep
2001
29 Sep
'01
1:51 p.m.
On Sat Sep 29, 2001 at 14:54:37 +0200, Josef Spillner wrote:
ich habe ein ziemlich böses Problem mit Perl - böse deshalb, weil bestimmt in einer der oo Manpages dazu was steht und ich es nicht finde:
OO?
$foo = "bar (x) foo"; $x = "(x) f"; $y = "(y) f";
$foo =~ s/$x/$y/g;
[...]
Also quote ich den String vorher: $x =~ s/)/\)/g; $x =~ s/(/\(/g;
Warum regexp, wenn Du sie nicht brauchst?
Das Ziel soll sein, ähnlich wie bei Gettext komplette Textpassagen auszuwechseln.
substr($foo, index($foo, $x), length($x), $y);
Fuer's g noch ein Schleifchen umwickeln:
my $i = 0; while (($i = index($foo, $x)) != -1) { substr($foo, $i, length($x), $y); }
Adam
--
Adam al10@inf.tu-dresden.de
Lackorzynski http://a.home.dhs.org