Opened by xAmp at 2009-09-23 14:49
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
zwei Lösungen habe ich auch noch:
oder
Das Problem ist einfach, dass man mit RegExp nicht filtern kann, sondern nur suchen und ersetzen. Da braucht man immer zwei Schritte.
Code (perl): (dl
)
1 2 3
my $text2 = "tldmfmyvkif4dwhbvysdrtaysdf"; my $out=join('', ($text2=~/([^y])/gc)[0..12]); print "$out\n";
oder
Code (perl): (dl
)
1 2 3
my $text2 = "tldmfmyvkif4dwhbvysdrtaysdf"; (my $out=$text2) =~s/^((?:y*.){13}).+$/$_=$1;tr!y!!d;$_/e; print "$out\n";
Das Problem ist einfach, dass man mit RegExp nicht filtern kann, sondern nur suchen und ersetzen. Da braucht man immer zwei Schritte.