Sonderzeichen ersetzen (gelöst) (Allgemeines zu Perl)

[thread]15043[/thread]

Sonderzeichen ersetzen [gelöst]

Tags: regex encoding Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+5 replies
protag

2010-05-20 10:11
User since
2008-02-21
28 Artikel
BenutzerIn
Hallo,
ich möchte in einem String alle Sonderzeichen durch ihre entsprechenden HTML-Entities ersetzen.
Soweit kein Problem es funktioniert für ein Ä z.B. mit:
Code: (dl )

($techname =~ s/(Ä)/\&Auml\;/);
Da ich diesen Code nicht für alle Umlaute wiederholen möchte frage ich mich (und euch) ob man das mit einem Einzeiler lösen kann?

Schönen Dank.
- +2 replies
- renee
  
  2010-05-20 10:28
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  perl -MHTML::Entities -e 'print encode_entities( $ARGV[0] )' "String für Umwandlung"
  
  Edit: Innerhalb eines Skripts
  
  Code (perl): (dl )
  
  1 2 3 4
  
  use HTML::Entities; my $string = "String für Umwandlung"; print encode_entities( $string );
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - protag
    
    2010-05-20 10:32
    
    User since
    2008-02-21
    28 Artikel
    BenutzerIn
    
    vielen Dank
    
    Au Backe, da war ich wohl zu doof (faul) selber mal richtig nachzuschauen.
- +2 replies
- GwenDragon
  
  2010-05-20 10:35
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Darf es auch mit einem Modul sein?
  Dein Einzeiler:
  
  Code: (dl )
  
  use strict;use HTML::Entities;encode_entities($techname);
  
  Das "normale" Ersetzen wie du meinst, schlägt bei Unicode fehl, funktioniert also nur bei Ein-Byte kodierten Zeichen.
  
  //EDIT: Kaum ist eine kurz am telefonieren und hat es noch nicht abgesendet, ist schon jemand schneller ;)
  Last edited: 2010-05-20 10:36:54 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - protag
    
    2010-05-20 10:48
    
    User since
    2008-02-21
    28 Artikel
    BenutzerIn
    
    habs eingebaut.
    
    Danke

View all threads created 2010-05-20 10:11.