[quote=Guest,16.07.2007, 14:46]my $count = ($input =~ tr/\E$zeichen\Q//);[/quote]
also da sind ja gleich mehrere merkwürdige sachen.
1. \E beendet escaping, \Q startet es. da du am anfang \E benutzt
und am ende \Q, kannst du es auch gleich weglassen
2. \Q und \E werden in tr/// gar nicht beachtet. tr/// akzeptiert
einzig und allein einzelne zeichen bzw. zeichenklassen
3. tr/// interpoliert auch keine zeichen, d.h. wenn du ein zeichen
dynamisch ersetzen willst, musst du s/// nehmen.
folgt:
my $count = ($input =~ s/$zeichen//g);