Warum wird das nicht erkannt ? (gelöst) (Allgemeines zu Perl)

[thread]18936[/thread]

Warum wird das nicht erkannt ? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+7 replies
jan99

2014-03-03 09:39
User since
2008-09-18
439 Artikel
BenutzerIn
HI !

ich habe da ein kleines Tool erstellt was einen Wert addr:housenumber aufsplittet und analysiert.

Der Code folgt am Ende. Das Problem ist, wenn der Wert b10 ist, dann wird dieser nicht von dem If-Statement für den bicycle_parking nicht erkannt. Dieses könnte Werte von B0 bis b999 haben.

Kann mir einer weiterhelfen ?

Gruß Jan :-)
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 28 29 30 31 32 33

for my $element (@data) { my ($lon,$lat) = $element->center(); print "id: ".$element->id()." - lon: ".$lon." - lat: ".$lat."\n"; print $fh_out " <node id='".($element->id())."' action='modify' visible='true' version='1' lat='".$lat."' lon='".$lon."'>\n"; # liegt überhaupt eine Info vor ? if($element->has_tag('addr:housenumber')) { print "Wert: ".$element->tag('addr:housenumber')->value()."\n"; # aufsplitten der Informationen my @tags = split(/\//,$element->tag('addr:housenumber')->value()); # print Dumper(@tags)."\n"; $tags[0] = lc($tags[0]); #print Dumper \@tags; if( $tags[0] =~ /^[0-9]{6}/ ){ .... }elsif ($tags[0] eq '' && $tags[1] =~ /^[0-9]{1,6}/){ .... }elsif( $tags[0] =~ /^bj.*/ ){ .... }elsif( $tags[0] eq 'hs' ){ .... }elsif( $tags[0] =~ /^b[0-9]{1-3}/ ){ # das müßte erkannt werden ! writeKV($fh_out,'amenity','bicycle_parking'); ...
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- Muffi
  
  2014-03-03 10:03
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  {1,3}
  1 + 1 = 10
- +2 replies
- barney
  
  2014-03-03 10:11
  
  User since
  2008-08-31
  131 Artikel
  BenutzerIn
  
  Ich nehme an, dass der Qantifier falsch angegeben ist. Also anstatt $tags[0] =~ /^b[0-9]{1-3}/ sollte es $tags[0] =~ /^b[0-9]{1,3}/ heissen.
  [1,3} bedeutet mindestens einmal aber maximal dreimal.
  - jan99
    
    2014-03-03 10:17
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    danke !
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +3 replies
- GwenDragon
  
  2014-03-03 10:25
  User since
  2005-01-17
  14555 Artikel
  Admin1
  Code (perl): (dl )
  
  }elsif( $tags[0] =~ /^b[0-9]{1-3}/ ){
  
  {1-3} wird zu {-2}
  Das wäre aber ein relativer Quantifer.
  Allerdings gibt es das meines Wissens nur bei Regexgruppen und das müsst dann aber \g{-2} heißen.
  http://perldoc.perl.org/perlre.html#Capture-groups
  Last edited: 2014-03-03 10:27:34 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - Linuxer
    
    2014-03-03 10:44
    User since
    2006-01-27
    3875 Artikel
    HausmeisterIn
    
    Hi,
    
    Quote
    {1-3} wird zu {-2}
    
    da muss ich leider leicht widersprechen ;-)
    
    So wie ich http://perldoc.perl.org/perlre.html#Quantifiers verstehe, ist das Format für den Quantifier recht klar festgelegt; alles, was dem nicht entspricht, wird als Literal interpretiert.
    
    Ein x{3-2} ist demnach auch kein x{1}, sondern eben ein Literal "x{3-2}".
    
    Test:
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    # würde er rechnen, müsste der Regex /a{1}/ entsprechen und einen Match erzeugen > perl -Mstrict -wE "my $re = qr{ a{3-2} }x; say 'Result: ', 'abc' =~ $re ? 'yes: ' : ' no: ' . $re " Result: no: (?^ux: a{3-2} ) # test auf Literal > perl -Mstrict -wE "my $re = qr{ a{3-2} }x; say 'Result: ', 'a{3-2}' =~ $re ? 'yes: ' : ' no: ', $re " Result: yes: (?^ux: a{3-2} )
    
    edit: Tested on WinDOS 7 with perl 5.18.0
    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
      
      2014-03-03 12:51
      
      User since
      2005-01-17
      14555 Artikel
      Admin1
      
      Danke für die Berichtigung, dass falls es kein gültiger Quantifier ist, als Literal (als Zeichenkette) vom Regexparser angesehen wird.
      Was gelernt.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2014-03-03 09:39.