Opened by root at 2003-11-07 19:41
User since
2003-08-15
120 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
120 Artikel
BenutzerIn
Hi!
Ich möchte einen Text nach seinen Wörtern zerhacken und in geziehlt falscher Reihenfolge wieder zusammen setzen...
Ziel ist folgendes: Die Buchstaben der Wörter, die nicht erster oder letzter Buchstabe sind, sollen je Wort gemischt werden.
Beispiele:
aus "nicht" wird "nchit"
aus "Toll!!!" wird "Tlol!!!"
Problem sind für mich die Sonderzeichen und Umbrüche. Die müssen an der richtigen Stelle sitzen.
Dann habe ich ja mein @zeichen, wie kann ich das "mischen"? Gibt es da nen random Befehl???
Freue mich auf Antworten!!!
Ich möchte einen Text nach seinen Wörtern zerhacken und in geziehlt falscher Reihenfolge wieder zusammen setzen...
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
my @woerter= split " ", $eingang{'text'};
foreach (@woerter){
next if ($_ =~ m/^\W+$/); #Versuch Sonderzeichen zu übergehen
$_ =~ m/^(\w)(\w*)(\w)(\W*)$/; # Umlaute bringen alles durcheinander
my @zeichen = split "", $2;
@zeichen = reverse @zeichen;
$_ = $1;
$_ .= join "", @zeichen;
$_ .= $3;
$_ .= $4;
}Ziel ist folgendes: Die Buchstaben der Wörter, die nicht erster oder letzter Buchstabe sind, sollen je Wort gemischt werden.
Beispiele:
aus "nicht" wird "nchit"
aus "Toll!!!" wird "Tlol!!!"
Problem sind für mich die Sonderzeichen und Umbrüche. Die müssen an der richtigen Stelle sitzen.
Dann habe ich ja mein @zeichen, wie kann ich das "mischen"? Gibt es da nen random Befehl???
Freue mich auf Antworten!!!