Zeichen für eine "characterclass" in einer Variable speichern (Allgemeines zu Perl)

[thread]18811[/thread]

Zeichen für eine "characterclass" in einer Variable speichern

Tags: perl5 regex Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+8 replies
Kuerbis

2013-12-18 16:32
User since
2011-03-20
947 Artikel
BenutzerIn
Hallo, könnte man das auch anders schreiben?
(Ich möchte Zeichen in einer Variable speichern die ich dann in [...] verwenden kann.)
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/env perl use warnings; use strict; my $string = 'hello'; my $allowed = 'a-zA-Z_-'; if ( $string =~ /^([+$allowed]+)\z/ ) { say $1; }
- +4 replies
- pq
  
  2013-12-18 16:38
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  was ist denn mit der schreibweise nicht ok?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - Kuerbis
    
    2013-12-18 18:18
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Ich dachte mir, vielleicht gibt es noch eine Alternative, die mir besser gefällt.
    Wenn ich diese Zuweisung sehe und nicht an
    
    Code: (dl )
    
    [...]
    
    denke, weiß ich nicht, was hier zugewiesen wird.
    - Muffi
      
      2013-12-18 19:39
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Also was ich da noch tun würde:
      Das "-" escapen. Und auch das +.
      Und nicht ^ und \z mischen, wenns nicht explizit unterschiedlich gemeint ist.
      1 + 1 = 10
    - barney
      
      2013-12-19 11:25
      
      User since
      2008-08-31
      165 Artikel
      BenutzerIn
      
      Wie wäre es mit
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      use warnings; use strict; use feature 'say'; my $string = 'hello'; my $allowed_char = qr/[+a-zA-Z_-]/; if ( $string =~ /^($allowed_char+)\z/ ) { say $1; }
      
      Aus diese Weise ist im Code ersichtlich, daß hinter $allowed_char eine Zeichenklasse steckt.
      
      Das '+' habe ich übrigens mit in die Zeichenklasse genommen.
- +3 replies
- GwenDragon
  
  2013-12-18 16:40
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Du könntest das Regex auch aus Zeichenkettenteilen zusammen basteln und dann mit qr() kompilieren.
  
  Aber was ist an deinem /^([+$allowed]+)\z/ auszusetzen?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Kuerbis
    
    2013-12-18 18:19
    
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Damit bin ich aber weniger flexibel.
    - GwenDragon
      
      2013-12-18 18:21
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Das stand aber in deinem Eingangsposting nicht als vorrangig. ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-12-18 16:32.