wiedereinmal reg. ausdrücke (Allgemeines zu Perl)

[thread]14046[/thread]

wiedereinmal reg. ausdrücke

Leser: 31

Articles: hide open all | hide show old branches

+11 replies
jan999

2009-09-21 18:34

User since
2009-04-02
109 Artikel
BenutzerIn

Moin !

vor einigen Wochen hatte ich nach einer Konvertierung von Straßennamen gefragt und

perl -p -i.bak -e "~s|[Dd]octor[-\s]|Dr.|" [Dateiname]

bekommen. Nun wollte ich diese Funktion dahingehend anpassen das aus dem Wort Calle die spanische Abkürzung C/ wird und habe deshalb die Funktion in folgenden Ausdruck geändert.

perl -p -i.bak -e "~s|[Calle[-\s]|C/|" [Dateiname]

Damit zerschieße ich mir allerdings die gesamte Datei und vermutlich hängt es mit dem "/", hinter dem C zusammen.

Kann mir einer sagen wie es richtig wäre ?? Ich hatte es auch mit // versucht - aber ohne den gewünschten Erfolg.

Gruß Jan :-)
- +2 replies
- havi
  
  2009-09-21 18:55
  User since
  2003-08-04
  2036 Artikel
  BenutzerIn
  Code: (dl )
  
  perl -p -i.bak -e "~s|[Calle[-\s]|C\/|" [Dateiname]
  
  Perl-Zeitung - http://perl-zeitung.at/
  Perl-Blog - http://usr-bin-perl.blogspot.com/
  - pq
    
    2009-09-21 19:01
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    wozu escapest du den slash? ist doch hier nicht notwendig und löst auch nicht das problem.
    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
- moritz
  
  2009-09-21 18:56
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  Was meinst du denn mit "zerschiesst die ganze Datei"? Was sollte rauskommen, was kommt raus?
  Perl 6 - Perls Zukunft
- +7 replies
- pq
  
  2009-09-21 19:00
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  weisst du, was die [] klammern in regexes bedeuten?
  http://p3rl.org/perlre
  http://p3rl.org/perlretut
  
  wozu benutzt du hier eine solche öffnende klammer vor dem C? wieso nicht einfach s|Calle[-\s]|C/|
  
  wenn du warnings benutzt hättest, hätte perl dich gewarnt.
  ich kann mich nur wiederholen, anscheinend nicht oft genug sagen(*), auch bei einzeilern immer immer warnings verwenden. bei mir ist -wle schon eine eingebaute zeichenfolge, ich kann schon gar nicht mehr nur perl -e schreiben.
  
  edit: (*) es fallen auch gerne mal perl-experten damit auf die schnauze, indem sie -w weglassen und sich dann wundern, wieso es nicht funktioniert. ich wahrscheinlich auch, wenn ich mir das -w nicht antrainiert hätte. eigentlich müsste ich mir einen wrapper bauen, der gleich auch noch strict mit lädt.
  Last edited: 2009-09-21 19:03:56 +0200 (CEST)
  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
  - +6 replies
  - jan999
    
    2009-09-22 08:29
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    Moin !
    
    vielen Dank für Eure Rückmeldungen.
    
    Ich habe vielleicht vergessen zu erwähnen das ich den Ausdruck aus einem win-Batch heraus aufrufe und daher use warnings; use strict; nicht zur Anwendung kommen.
    
    Mit dem Zerschiessen meine ich das Teile der Datei konvertiert werden die nicht verändert werden sollen und somit die Dateistruktur unbrauchbar machen.
    
    Wenn ich die Zeile
    
    Code (perl): (dl )
    
    perl -p -i.bak -e "~s|[Calle[-\s]|C\/|" [Datei]
    
    anwende, dann wird z.B. aus
    
    Quote
    <?xml version='1.0' encoding='UTF-8'?>
    <osm version='0.6' generator='JOSM'>
    <bounds minlat='36.6915835180063' minlon='-4.04461216611417' maxlat='36.8905991106566' maxlon='-3.68761173107937' origin='OpenStreetMap server' />
    <node id='298468275' timestamp='2008-09-20T17:55:31Z' uid='7197' user='user_7197' visible='true' version='1' lat='36.7378345' lon='-3.9883865' />
    <node id='298468274' timestamp='2008-09-20T17:55:31Z' uid='7197' user='user_7197' visible='true' version='1' lat='36.7382273' lon='-3.9898227' />
    <node id='30635660' timestamp='2007-06-19T19:52:27Z' uid='4623' user='Quico' visible='true' version='1' lat='36.736462' lon='-3.990298'>
    <tag k='source' v='PGS' />
    </node>
    ...
    
    wird jetzt
    
    Quote
    <?xmC/ version='1.0' encoding='UTF-8'?>
    <osmC/version='0.6' generator='JOSM'>
    C/ <bounds minlat='36.6915835180063' minlon='-4.04461216611417' maxlat='36.8905991106566' maxlon='-3.68761173107937' origin='OpenStreetMap server' />
    C/ <node id='298468275' timestamp='2008-09-20T17:55:31Z' uid='7197' user='user_7197' visible='true' version='1' lat='36.7378345' lon='-3.9883865' />
    C/ <node id='298468274' timestamp='2008-09-20T17:55:31Z' uid='7197' user='user_7197' visible='true' version='1' lat='36.7382273' lon='-3.9898227' />
    C/ <node id='30635660' timestamp='2007-06-19T19:52:27Z' uid='4623' user='Quico' visible='true' version='1' lat='36.736462' lon='-3.990298'>
    C/ <tag k='source' v='PGS' />
    C/ </node>
    ...
    
    Anmerkung: siehe XML-Einleitung !
    
    Kann mir einer sagen warum das noch passiert und wie es richtig ist ???
    
    Gruß Jan .-)
    - renee
      
      2009-09-22 09:14
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      pq hat Dir ja schon den Tipp mit den [] gegeben. Du verwendest hier Zeichenklassen. Wenn Du wissen willst, was ein Regulärer Ausdruck macht, dann kannst Du YAPE::Regex::Explain verwenden:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      #!/usr/bin/perl use strict; use warnings; use YAPE::Regex::Explain; my $re = '[Calle[-\s]/'; print YAPE::Regex::Explain->new($re)->explain;
      
      gibt dann folgendes aus:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
      
      The regular expression: (?-imsx:[Calle[-\s]/) matches as follows: NODE EXPLANATION ---------------------------------------------------------------------- (?-imsx: group, but do not capture (case-sensitive) (with ^ and $ matching normally) (with . not matching \n) (matching whitespace and # normally): ---------------------------------------------------------------------- [Calle[-\s] any character of: 'C', 'a', 'l', 'l', 'e', '[''-', whitespace (\n, \r, \t, \f, and " ") ---------------------------------------------------------------------- / '/' ---------------------------------------------------------------------- ) end of grouping ----------------------------------------------------------------------
      
      Das heißt Du ersetzt das erste Vorkommen von "C" oder "a" oder "l" oder "e" oder eines Whitespace durch C/
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
    - pq
      
      2009-09-22 09:34
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2009-09-22T06:29:46 jan999
      Kann mir einer sagen warum das noch passiert und wie es richtig ist ???
      
      hast du meinen beitrag eigentlich gelesen? ich habe dir sogar die richtige regex genannt. hättest nur zu kopieren brauchen.
      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
    - pq
      
      2009-09-22 10:20
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2009-09-22T06:29:46 jan999
      Ich habe vielleicht vergessen zu erwähnen das ich den Ausdruck aus einem win-Batch heraus aufrufe und daher use warnings; use strict; nicht zur Anwendung kommen.
      
      hm, man kann aus windows-batchfiles also kein "use strict; use warnings;" in perlskripte schreiben und auch kein -w übergeben? aber laut deinem beispiel kannst du fröhlich -p usw. übergeben. das ist ja echt merkwürdig, dass ausgerechnet -w nicht funktioniert.
      windows war mir schon immer suspekt.
      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
      - +2 replies
      - bianca
        
        2009-09-22 10:27
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2009-09-22T08:20:17 pq
        2009-09-22T06:29:46 jan999
        Ich habe vielleicht vergessen zu erwähnen das ich den Ausdruck aus einem win-Batch heraus aufrufe und daher use warnings; use strict; nicht zur Anwendung kommen.
        
        hm, man kann aus windows-batchfiles also kein "use strict; use warnings;" in perlskripte schreiben und auch kein -w übergeben? aber laut deinem beispiel kannst du fröhlich -p usw. übergeben. das ist ja echt merkwürdig, dass ausgerechnet -w nicht funktioniert.
        windows war mir schon immer suspekt.
        
        MOMENT!
        Selbstverständlich kann man unter Windows diese Dinge verwenden!
        Hat mit Windoof garnichts zu tun.
        Hatte mich über diese Äußerung von jan eh schon gewundert.
        10 print "Hallo"
        20 goto 10
        
        MatthiasW
        
        2009-09-22 16:59
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        YMMD!
        Darauf wollte pq auch hinaus, denk ich mal ;-) Stichwort: Ironie.
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2009-09-21 18:34.