Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]9194[/thread]

my $count = ($input =~ tr/\E$zeichen//);



<< >> 8 Einträge, 1 Seite
Gast Gast
 2007-07-16 16:46
#78526 #78526
moin,
my $count = ($input =~ tr/\E$zeichen\Q//);

also das script soll mir sagen wie oft $zeichen in einen string vorkommt...
$zeichen wird vorher in einer for schleife gesetzt...
aber irgendwie macht er es nicht... ich hab den verdacht das die variable nicht interpretiert wird..

wie bekomme ich das hin?
lichtkind
 2007-07-16 16:54
#78527 #78527
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
man beachte wirkung von \E und \Q
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
pq
 2007-07-16 17:04
#78528 #78528
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[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:
Code: (dl )
my $count = ($input =~ s/$zeichen//g);
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
lichtkind
 2007-07-16 18:28
#78529 #78529
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
ja so kenn ichs auch bloss, aber da tr die anzahl der übersetzen oder gelöschten buchstaben zurückgibt, könnte eine lösung mit tr möglich sein, solage man nur einzelne buchstaben sucht.
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
pq
 2007-07-16 18:36
#78530 #78530
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=lichtkind,16.07.2007, 16:28]ja so kenn ichs auch bloss, aber da tr die anzahl der übersetzen oder gelöschten buchstaben zurückgibt, könnte eine lösung mit tr möglich sein, solage man nur einzelne buchstaben sucht.[/quote]
eben *nicht*, wenn das zeichen nicht im code steht, sondern in
einer variablen. das ginge dann nur mit eval, aber dann kann man doch
gleich s/// benutzen. das gibt auch die anzahl der ersetzungen zurück.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
lichtkind
 2007-07-16 19:51
#78531 #78531
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
oder ein eval drumherum bauen :)\n\n

<!--EDIT|lichtkind|1184601256-->
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
pq
 2007-07-16 20:03
#78532 #78532
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=lichtkind,16.07.2007, 17:51]oder ein eval drumherum bauen :)[/quote]
lies mein artikel nochmal genau, bitte =)
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
lichtkind
 2007-07-17 10:47
#78533 #78533
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
hast ja recht, aber diesmal hab ich ne bessere ausrede. sitz hier mit wlan auf bank vor der dorfkirche und war abgelenkt. mir hatte grad ne taube auf tastatur geschissen. (leider kein scherz)
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
<< >> 8 Einträge, 1 Seite



View all threads created 2007-07-16 16:46.