perl6 Ersetze HTML Tags durch farbigen Text (gelöst) (Raku / Perl 6) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Raku / Perl 6

2024-04-20 11:00:17
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]20305[/thread]

submit to reddit

perl6 Ersetze HTML Tags durch farbigen Text [gelöst]

[gelöst]

Tags: perl6 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+3 replies
Gast Balduin

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.
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)
- +2 replies
- Gast 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(/'<i>'(.*?)'</i>'/ , { 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
    3870 Artikel
    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.