auf ungültige Zeichen prüfen (gelöst) (Allgemeines zu Perl)

[thread]17949[/thread]

auf ungültige Zeichen prüfen [gelöst]

Tags: perl5 auction auktion everyauction Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

Teilbaum:
auf ungültige Zeichen prüfen (14 Artikel) 2012-12-03 15:34

+15 replies
Gast DerGast

2012-12-01 15:27
2012-12-01T14:08:43 GwenDragon
Nachtrag:
Lasse nur bestimmte Zeichen zu, weil dein Login auch bei anderen Zeichen einnen 500er ergibt.

Code (perl): (dl )

1 2 3 4 5 6

if ($loginname =~ /[^a-zA-Z0-9]/) { # Benutzername enthält auch Zeichen die nicht A..Z und a..z und 0..9 sind error('Loginname enthält ungültige Zeichen! Erlaubt sind nur Zeichen von a bis z, A bis Z, und Ziffern'); } else { # hier mit login weiter }
nee besser:
if ($loginname !~ /[^a-zA-Z0-9]/)

oder einfacher:
if ($loginname =~ /\W/)

Einverstanden?

modedit Editiert von pq: teilbaum
Last edited: 2012-12-02 17:13:25 +0100 (CET)
- +3 replies
- GwenDragon
  
  2012-12-01 15:40
  
  User since
  2005-01-17
  14866 Artikel
  Admin1
  
  Mich musst du nicht fragen, ich weiß nicht welche Zeichen im Namen erlaubt sind.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Gast DerGast
    
    2012-12-01 15:55
    
    2012-12-01T14:40:20 GwenDragon
    Mich musst du nicht fragen, ich weiß nicht welche Zeichen im Namen erlaubt sind.
    
    Nunja - die Frage bezog sich auch lediglich auf Deinen Code ;-)
    Last edited: 2012-12-01 17:12:10 +0100 (CET)
    - GwenDragon
      
      2012-12-02 16:40
      
      User since
      2005-01-17
      14866 Artikel
      Admin1
      
      Mir unverständlich, was an deinem Code besser oder sinnvoller ist. Erklärs uns.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +9 replies
- pq
  
  2012-12-01 17:32
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  Guest DerGast
  nee besser:
  if ($loginname !~ /[^a-zA-Z0-9]/)
  
  oder einfacher:
  if ($loginname =~ /\W/)
  
  Einverstanden?
  
  GwenDragon schrieb:
  if ($loginname =~ /[^a-zA-Z0-9]/)
  Du:
  if ($loginname !~ /[^a-zA-Z0-9]/)
  if ($loginname =~ /\W/)
  
  wie dumm nur, dass die alle drei was anderes machen. vielleicht solltest du das dazuschreiben.
  in deinem ersten vorschlag hast du die logik einfach umgedreht, also "wenn *kein* zeichen ausser a-z, A-Z und 0-9 vorkommt".
  verstehe ich nicht. das macht es IMHO nur schwerer zu lesen und man müsste den code im if und else vertauschen.
  
  dein zweiter vorschlag benutzt \W, welches das komplement zu \w ist. \w enthält aber ausserdem noch den unterstrich, und je nachdem, was man für locales eingestellt hat, auch noch umlaute oder sonstiges.
  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
  - +8 replies
  - Gast DerGast
    
    2012-12-02 14:10
    Sorry, c&p Fehler meinerseits.
    Sollte sein:
    
    Code: (dl )
    
    if ($loginname !~ /[a-zA-Z0-9]/)
    
    Der Hinweis zur Verwendung von \W ist bekannt.
    Last edited: 2012-12-02 14:11:46 +0100 (CET)
    - +6 replies
    - FIFO
      
      2012-12-02 15:06
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Das matcht aber nicht, wenn $loginname mindestens einen gültigen char hat. über die ungültigen characters ist damit nichts gesagt.
      GwenDragons Version mit der negierten Klasse macht's richtig.
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - +5 replies
      - Gast DerGast
        
        2012-12-02 15:32
        
        Sei doch bitte so nett und erkläre mir den Unterschied zwischen
        !~ /[ ... ]
        und
        =~ /[^ ... ]
        
        Da beides eine Negierung beinhaltet verstehe ich Deinen Einwurf nicht wirklich.
        Last edited: 2012-12-02 16:22:04 +0100 (CET)
        
        +4 replies
        
        FIFO
        
        2012-12-02 16:34
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Guest DerGast
        Sei doch bitte so nett und erkläre mir den Unterschied zwischen
        !~ /[ ... ]
        und
        =~ /[^ ... ]
        
        Die Negation findet aber nicht an derselben Stelle statt:
        $s =~ /[a-z]/ $s enthält (mindestens) ein Zeichen a-z
        $s !~ /[a-z]/ $s enthält nicht (mindestens) ein Zeichen a-z
        $s =~ /[^a-z]/ $s enthält (mindestens) ein Zeichen was nicht in a-z
        
        edit: Wie gesagt, die Variante mit !~ sagt nichts über das Vorhandensein von Zeichen außerhalb der Klasse ...
        Last edited: 2012-12-02 16:42:35 +0100 (CET)
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
        
        +3 replies
        
        Gast DerGast
        
        2012-12-03 13:43
        
        OK - da hab ich in's Klo gegriffen - sorry
        
        Code: (dl )
        
        if ($loginname !~ /[a-zA-Z0-9]/)
        
        kann nur als
        
        Code: (dl )
        
        1 2
        
        if ($loginname !~ /\A[a-zA-Z0-9]\Z/) oder auch (jedenfalls oft) als
        
        if ($loginname !~ /^[a-zA-Z0-9]$/)
        funktionieren.
        und damit ist der Code der Drachin natürlich kürzer und besser.
        Last edited: 2012-12-03 13:46:06 +0100 (CET)
        
        FIFO
        
        2012-12-03 13:55
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Guest DerGast
        kann nur als
        
        Code: (dl )
        
        if ($loginname !~ /\A[a-zA-Z0-9]\Z/)
        
        oder auch (jedenfalls oft) als
        
        Code: (dl )
        
        if ($loginname !~ /^[a-zA-Z0-9]$/)
        
        funktionieren.
        
        Nein. Das ist nicht nur länger und unbesser als GwenDragon, das ist was ganz anderes. Dein Pattern matcht jetzt nur dann, wenn $loginname aus genau einem Zeichen aus [a-zA-Z0-9] besteht. Wenn schon, dann
        
        Code: (dl )
        
        if ($loginname !~ /\A[a-zA-Z0-9]+\z/)
        
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
        
        pq
        
        2012-12-03 13:55
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        meintest du vielleicht [a-zA-Z0-9]+?
        ansonsten wäre nur ein zeichen erlaubt.
        und vermutlich meintest du ein kleines \z statt \Z? das \Z würde nämlich ein newline am ende des strings erlauben und wäre somit nichts anderes als ein $
        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
    - GwenDragon
      
      2012-12-02 16:25
      
      User since
      2005-01-17
      14866 Artikel
      Admin1
      
      Worin siehst du den Vorteil deiner Regexabfrage? Erklär doch mal.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- pq
  
  2012-12-03 14:46
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  wenn man nur auf ungültige zeichen prüfen will, wäre im übrigen statt einer regex das hier besser:
  if ($loginname =~ tr/a-zA-Z0-9//c) { # ungültig
  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
  - Gast DerGast
    
    2012-12-03 15:26
    
    Danke - ich hab's nun endlich begriffen und bin dabei, einige meiner Codeteile umzubauen.
    Last edited: 2012-12-03 15:34:04 +0100 (CET)

View all threads created 2012-12-01 02:58.