Opened by Balduin at 2017-06-12 11:33
Ich bin gerade dabei, mit Perl6 zu experimentieren und möchte einen String,
in dem <i>Text</i> vorkommt, so modifizieren, daß der besagte Text dann farbig auf dem Bildschirm erscheint.
Ich möchte also $str durch Suchen und Ersetzen in $str1 verwandeln. Es klappt zwar schon, die Tags zu entfernen, aber bei der Farbe scheitere ich.
Habt Ihr vielleicht eine Idee, wie das funktioniert.
Last edited: 2017-06-12 13:21:54 +0200 (CEST)
in dem <i>Text</i> vorkommt, so modifizieren, daß der besagte Text dann farbig auf dem Bildschirm erscheint.
Ich möchte also $str durch Suchen und Ersetzen in $str1 verwandeln. Es klappt zwar schon, die Tags zu entfernen, aber bei der Farbe scheitere ich.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14
use v6; use Terminal::ANSIColor; my $str = "Text mit einem <i>kursiven</i> Wort."; my $str1 = "Text mit einem { colored( "kursiven" , 'bold blue') } Wort."; $str = $str.subst(/"<i>"(.*)"</i>"/ , -> { colored( $0 , 'bold blue') } , :g); # entfernt die Tags #$str = $str.subst(/"<i>"(.*)"</i>"/ , -> { $0 } , :g); say $str; say $str1;
Habt Ihr vielleicht eine Idee, wie das funktioniert.
Last edited: 2017-06-12 13:21:54 +0200 (CEST)