chr in regular expression (solved) (Allgemeines zu Perl)

[thread]20726[/thread]

chr in regular expression [solved]

Tags: perl5 Similar Threads

Readers: 10

Articles: hide open all | hide show old branches

+5 replies
Henry07

2020-01-18 09:27

User since
2007-11-07
48 articles
BenutzerIn

Hallo,

ich bin nur ein ab und zu Perlbenutzer. Also bitte Nachsicht.

Meine Frage: Ich habe eine Regular Expression

$_ =~ s/^([^-]*)-+.*$/\1/g;

und will aber anstelle nach "-" einen nicht tipbaren
Character, z.B. char(150)suchen.
Kann ich da einfach das - durch chr(150) ersetzen ?

$_ =~ s/^([^chr(150)]*)chr(150)+.*$/\1/g;

Das gibt einen Fehler. Wie kann ich das machen ?
Henry

eingeben.

$_ =~ s/^([^-]*)-+.*$/\1/g;
- rosti
  
  2020-01-18 10:13
  User since
  2011-03-19
  3463 articles
  BenutzerIn
  Wenn Du Funktionen einbaust, Siehe /e Modifier. Ich empfehle jedoch anstelle chr die pack-Funktion. Also pack "C", 150 in Deinem Fall. Da kannst Du auch längere Sequenzen (mehrere Bytes) erzeugen.
  
  Es gibt aber noch etwas Grundsätzliches gerade hier zu beachten: Unterscheide ob Du mit Zeichen einer bestimmten Zeichenkodierung oder mit Bytes operierst.
  
  MFG
  
  Siehe auch perldoc -f chr
  
  Code: (dl )
  
  1 2 3
  
  Note that characters from 128 to 255 (inclusive) are by default internally not encoded as UTF-8 for backward compatibility reasons.
  
  D.h., Du arbeitest mit chr(150) auf Byteebene wo es keine Kodierung gibt.
  Last edited: 2020-01-18 10:59:13 +0100 (CET)
- +3 replies
- GwenDragon
  
  2020-01-18 10:51
  User since
  2005-01-17
  14741 articles
  Admin1
  So geht auch:
  
  Code (perl): (dl )
  
  1 2
  
  my $c = chr(150); $_ =~ s/^([^{$c}]*){$c}+.*$/$1/g;
  
  Warum muss du das Zeichen als dezimalen Code suchen?
  
  Code (perl): (dl )
  
  $_ =~ s/^([^\x96]*)\x96+.*$/$1/g;
  
  Last edited: 2020-01-18 10:57:37 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - guest Henry
    
    2020-01-18 17:01
    
    Danke für die schnelle Antworten.
    Ihr habt mir sehr weitergeholfen.
    Werde es gleich einbauen.
    
    Henry
    Last edited: 2020-01-18 17:43:53 +0100 (CET)
    - GwenDragon
      
      2020-01-18 17:44
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Und welche Lösung hilft dir?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2020-01-18 09:27.