verankern von regular expressions (gelöst) (Allgemeines zu Perl)

[thread]16809[/thread]

verankern von regular expressions [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+11 replies
suresh

2011-10-13 11:08
User since
2010-10-12
109 Artikel
BenutzerIn
Verankern von regular expressions scheint ja nun wohl die sicherste Methode zu sein um genau das pattern zu matchen was man auch wirklich will.

Nun habe ich folgenden Fall:
Ich möchte den Input von einem Scriptparameter auf dessen Richtigkeit überprüfen.
Code (perl): (dl )

1 2 3 4 5 6 7

if ( $opt_v =~ m/^\d{6}$/ ) { print "INFO: Eingabe ist richtig!\n"; } else { print STDERR "Leider falsch!\n"; exit 1; }
Es soll also der Input genau 6 digits lang sein (zb: 123456).
Leider matcht die Abfrage so nicht! Selbst wenn ich dem Parameter 6 digits übergebe nicht, nur wenn ich den Anker "$" weglasse.

Das versteh ich gerade nicht...
- +7 replies
- Linuxer
  
  2011-10-13 11:16
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Gerade ausprobiert:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
  
  $ perl t1.pl 12345 passt nicht. $ perl t1.pl 123456 yo, das passt. $ perl t1.pl 1234567 passt nicht. # das Programm: $ cat t1.pl #!/usr/bin/perl use strict; use warnings; my $value = shift @ARGV; if ( $value =~ m/^\d{6}$/ ) { print "yo, das passt.\n"; } else { print "passt nicht.\n"; } __END__ $
  
  Vielleicht solltest Du mal kontrollieren, was wirklich in $opt_v drin steckt...
  Wie wird die Variable befüllt?
  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!
  - +6 replies
  - suresh
    
    2011-10-13 12:06
    User since
    2010-10-12
    109 Artikel
    BenutzerIn
    
    Gibt es denn eine sichere Methode zu sehen was wirklich in der Inhalt der Variable ist (e.g.: ob Leerzeichen oder Zeilenumbrüche enthalten sind)?
    
    Kann ich das über den Perl debugger nachvollziehen?
    
    Die Variable $opt_v wird wie folgt genutzt:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    use Getopt::Std; use vars qw($opt_v $opt_w $opt_h); getopts('v:w:'); if ( $opt_v =~ m/^\d{6}$/ ) { print "INFO: Eingabe ist richtig!\n"; } else { print STDERR "Leider falsch!\n"; exit 1; }
    - +5 replies
    - Linuxer
      
      2011-10-13 12:30
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Hi,
      
      du kannst Data::Dumper dafür verwenden (sollte im Core schon vorhanden sein):
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
      
      #!/usr/bin/perl # vim: set ts=4 sw=4 et sta: use strict; use warnings; use Data::Dumper; $Data::Dumper::Useqq = 1; my @tests = ( "123456", "123456\n", "123456\r\n", ); for my $value ( @tests ) { if ( $value =~ m/^\d{6}$/ ) { print "yo, das passt: ", Dumper( $value ),"\n"; } else { print "passt nicht:", Dumper( $value ), "\n"; } }
      
      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!
      - +4 replies
      - suresh
        
        2011-10-13 13:11
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Was wird in der Zeile unten noch gesetzt?
        
        2011-10-13T10:30:56 Linuxer
        
        Code (perl): (dl )
        
        $Data::Dumper::Useqq = 1;
        
        +3 replies
        
        Linuxer
        
        2011-10-13 13:32
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Da wird eine skalare Variable im Namespace Data::Dumper gesetzt, die das Verhalten von Data::Dumper beeinflusst. Nachzulesen ist das in der verlinkten Dokumentation. ;o)
        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
        
        suresh
        
        2011-10-13 13:37
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Link nicht gesehen, danke :)
        
        suresh
        
        2011-10-13 17:10
        
        User since
        2010-10-12
        109 Artikel
        BenutzerIn
        
        Das Data::Dumper feature gefällt mir sehr gut!
        
        Ich werd's wohl in Zukunft öfter nutzen, denn so lässt sich ja solch ein matching Problem doch noch um einiges leichter auflösen.
        
        Grüße
- +2 replies
- payx
  
  2011-10-13 11:16
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo suresh,
  
  die regex ist richtig, wenn genau eine sechsstellige Zahl übergeben wird.
  
  Kannst Du testen, indem Du versuchst:
  
  Code (perl): (dl )
  
  my $opt_v = 123456;
  
  Typischerweise ist die Ursache, dass vergessen wurde, bei einer Eingabe das Newline-Zeichen zu löschen:
  
  Code (perl): (dl )
  
  chomp($opt_v);
  
  HTH
  Grüße
  payx
  
  PS: Sorry, stimmt so nicht, es müsste auch mit Newline matchen. Aber wenn $opt_v wirklich aus sechs Ziffern und sonst nichts besteht, müsste die regex matchen.
  
  Vielleicht mal vor dem if einfügen: print "#$opt_v#";. Dann siehst Du, ob Leerzeichen anhängen o.ä.
  
  Editiert von payx: PS
  Last edited: 2011-10-13 11:22:53 +0200 (CEST)
  - suresh
    
    2011-10-13 12:09
    
    User since
    2010-10-12
    109 Artikel
    BenutzerIn
    
    Ok danke payx!
    
    Ich versuche das mit dem print...
- suresh
  
  2011-10-13 17:06
  
  User since
  2010-10-12
  109 Artikel
  BenutzerIn
  
  Das matching funktioniert nun.
  Leider kann ich selbst nichtmehr nachvollziehen warum.. :/

View all threads created 2011-10-13 11:08.