Regular Expression (für Buchstaben,Zahlen,Unterstriche) (Allgemeines zu Perl)

[thread]18732[/thread]

Regular Expression (für Buchstaben,Zahlen,Unterstriche)

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+14 replies
Eng1958

2013-11-08 11:37
User since
2013-06-04
37 Artikel
BenutzerIn
Guten Morgen
folgendes Problem:
Ein Argument soll darauf überprüft werden ob es nur Buchstaben(groß/klein)/Zahlen oder Unterstriche enthält.
Die habe ich zuerst so gemacht:
Code: (dl )

1 2 3 4 5 6 7 8

my $argv1 = $ARGV[1]; if($argv1 =~ m/^[a-zA-Z0-9_]+$/) { $argv1 = $1; print "$1"; } else { die "Bad Data in $argv1"; }
Allerdings bekomme ich bei z.B. "Abcd_" Die Meldung:

Quote
Use of uninitialized value in concatenation (.) or string at rnetposts.pl line 84.
.
Das heißt ja eigendlich, dass $1 nicht definiert/deklariert ist bzw. nichts drinn steht.
Allerdings bekomme ich auch nicht die Meldung: "Bad Data" so wie es dann eigentlich sein sollte. Es gibt das ganze auch nochmal mit ARGV0 nur das dort nur Zahlen und Buchstaben drinn stehen dürfen. Dort funktioniert es auch hiermit: "m/^[a-zA-Z0-9]+$/"

modedit Editiert von GwenDragon: Titel ergänzt
Last edited: 2013-11-08 13:59:52 +0100 (CET)
- +9 replies
- bianca
  
  2013-11-08 11:46
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Wenn du $1 haben willst muss du in der Regex runde Klammern verwenden.
  Was soll $1 denn enthalten?
  10 print "Hallo"
  20 goto 10
  - +8 replies
  - Eng1958
    
    2013-11-08 12:01
    
    User since
    2013-06-04
    37 Artikel
    BenutzerIn
    
    Okey danke nur jetzt bekomme ich ein Bad Data. String = "ABCD1_"
    
    Also laut Google soll in $1 das Ergebnis von der Expression drinstehen, also der gefilterte String.
    - +7 replies
    - bianca
      
      2013-11-08 12:12
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Wenn du nur den gefilterten String brauchst würde ich einfach auch alles filtern, was nicht reingehört:
      $argv1 =~ s/[^a-z0-9_]//ig
      Ohne if drum rum.
      10 print "Hallo"
      20 goto 10
      - +6 replies
      - Eng1958
        
        2013-11-08 12:31
        
        User since
        2013-06-04
        37 Artikel
        BenutzerIn
        
        Ja was heißt gefiltert...
        Das eigentliche Problem ist tainted Code und das ist die letzte Hürde zum untainted Code.
        Werde es jetzt nochmal mit deinem Vorschlag probieren. Allerdings kann sich mit der Antwort auf sich warten lassen, da das ganze Produktiv eingesetzt werden muss und der Admin in einer Beschprechung ist.
        Last edited: 2013-11-08 12:37:29 +0100 (CET)
        
        +5 replies
        
        bianca
        
        2013-11-08 12:39
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-11-08T11:31:59 Eng1958
        Das eigentliche Problem ist tainted Code und das ist die letzte Hürde zum untainted Code.
        
        Wie lautet denn die Meldung?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        Eng1958
        
        2013-11-08 12:47
        
        User since
        2013-06-04
        37 Artikel
        BenutzerIn
        
        Quote
        Insecure dependency in `` while running setgid at /VAW/natural/sharedlibs/rnetposts.pl line 92.
        
        dein Code hat genau das gegenteil gemacht :D. Es löscht ja alle Buchstaben und Zahlen raus, aber ganau diese müssen drinnen bleiben.
        
        Muffi
        
        2013-11-08 12:50
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Was willst du denn eigentlich tun?
        Oben steht ja du willst nur prüfen.
        1 + 1 = 10
        
        Relais
        
        2013-11-08 12:52
        
        User since
        2003-08-06
        2261 Artikel
        ModeratorIn
        
        s/\W//g ist das gewünschte Gegenteil (zum unerwünschten Gegenteil).
        Last edited: 2013-11-08 12:54:05 +0100 (CET)
        Erst denken, dann posten --
        27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.
        
        Winter is Coming
        
        bianca
        
        2013-11-08 12:57
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Mit meinem Code? Hast du gesehen, dass das Dach in die Eckige Klammer muss?
        10 print "Hallo"
        20 goto 10
- +3 replies
- Linuxer
  
  2013-11-08 12:53
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  $1 wird nur dann gefüllt, wenn es eine Regex-Match gab und der Regex etwas mit Runden Klammern einfangen sollte.
  
  Also:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $argv1 = $ARGV[1]; if($argv1 =~ m/^([a-zA-Z0-9_]+)$/) { $argv1 = $1; print "$1"; } else { die "Bad Data in $argv1"; }
  
  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!
  - +2 replies
  - Eng1958
    
    2013-11-08 13:01
    
    User since
    2013-06-04
    37 Artikel
    BenutzerIn
    
    AHHH okey habe die Eckigen Klammern mit runden ersetzt. Melde mich nachher nochmal ob es geklappt hat.
    - Linuxer
      
      2013-11-08 13:23
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Vielleicht solltest Du Dich mal mit der Doku auseinandersetzen:
      
      perlretut # Tutorial
      perlrequick # Quick start
      perlre # "normale" umfassende Doku
      
      edit: kl. Fehler korrigiert
      Last edited: 2013-11-08 16:16:35 +0100 (CET)
      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!
- GwenDragon
  
  2013-11-08 13:11
  User since
  2005-01-17
  14890 Artikel
  Admin1
  Wenn du einen Regexausdruck "fangen" willst, muss der in Klammern stehen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $argv1 = $ARGV[1]; if($argv1 =~ m/^([a-zA-Z0-9_]+)$/) { $argv1 = $1; print "$1"; } else { die "Bad Data in $argv1"; }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-11-08 11:37.