perl6 Ersetze HTML Tags durch farbigen Text (solved) (Raku / Perl 6)

[thread]20305[/thread]

perl6 Ersetze HTML Tags durch farbigen Text [solved]

Tags: perl6 Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+3 replies
guest Balduin

2017-06-12 11:33
Ich bin gerade dabei, mit Perl6 zu experimentieren und möchte einen String,
in dem Text 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 kursiven Wort."; my $str1 = "Text mit einem { colored( "kursiven" , 'bold blue') } Wort."; $str = $str.subst(/""(.*)""/ , -> { colored( $0 , 'bold blue') } , :g); # entfernt die Tags #$str = $str.subst(/""(.*)""/ , -> { $0 } , :g); say $str; say $str1;
Habt Ihr vielleicht eine Idee, wie das funktioniert.
Last edited: 2017-06-12 13:21:54 +0200 (CEST)
- +2 replies
- guest Balduin
 
 2017-06-16 22:40
 Mit etwas Hilfe von Stackoverflow bin ich selbst noch auf die richtige Lösung gekommen:
 
 https://stackoverflow.com/questions/44589950/repla...
 
 Code (perl): (dl )
 
 $str.subst(/''(.*?)''/ , { colored( "$0" , 'blue') }, :global);
 
 Last edited: 2017-06-17 09:06:55 +0200 (CEST)
 - Linuxer
 
 2017-06-17 18:13
 
 User since
 2006-01-27
 3891 articles
 HausmeisterIn
 
 Danke, dass Du die Lösung hier noch genannt hast.
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2017-06-12 11:33.