regex auf sämtliche ASCII-Zeichen möglich? (Allgemeines zu Perl)

[thread]13901[/thread]

regex auf sämtliche ASCII-Zeichen möglich?

Leser: 26

Articles: hide open all | hide show old branches

+16 replies
Duff

2009-08-20 08:32

User since
2006-10-06
283 Artikel
BenutzerIn

Hallo,

ich habe ein kleines Perl-Skript geschrieben, mit dem ich hex-Eingaben anhand einer Tabelle in ascii-Zeichen umwandel.

Die Tabelle (ist in einer Datei, die ich dann auslese und in einem Hash speichere) ist wie folgt aufgebaut.
HEX DEZ ASCII

Ich speicher zunächst die Tabelle in einem Hash, wo der key der HEX-Wert ist und der value den ASCII-Zeichen entspricht.
Die Eingabe von HEX-Werten wird in einem Array gespeichert und anschließend wird das Array und der Hash durchlaufen und mit Hilfe von regex nach Übereinstimmungen gesucht.
Diese werden dann wieder in ein array gepackt und am Ende ausgegeben.

Dies funktioniert auch ganz gut (HEX2ASCII).

Mache dies jedoch anders herum, also ASCII to HEX, werden die regex nicht korrekt ausgewertet. Ich bekomme immer Fehlermeldungen, da bei den ASCII-Zeichen auch sämtliche Sonderzeichen enthalten sind und diese werden dann wohl falsch interpretiert.

Ist dies überhaupt mit regex möglich?

Danke,
Daniel
D'OH
Daniel
- +15 replies
- freddy
  
  2009-08-20 08:39
  
  User since
  2009-08-08
  95 Artikel
  BenutzerIn
  
  Zeig mal Deine Code-Zeile, die Fehler auswirft und ein bißchen drum herum.
  - +14 replies
  - Duff
    
    2009-08-20 08:50
    User since
    2006-10-06
    283 Artikel
    BenutzerIn
    
    Hallo,
    
    danke für die schnelle Antwort.
    
    Konnte inzwischen das Problem wie folgt lösen:
    
    Code: (dl )
    
    1 2
    
    if($array[$j] =~ m{^\Q$key\E$}) { ...
    
    Habe aber nun ein weiteres Problem, welches ich noch nicht lösen konnte.
    Ich kann über die Tastatureingabe <STDIN> keine Sonderzeichen, wie z.B. ? einlesen.
    
    Bisher mache ich dies mit
    
    Code: (dl )
    
    1 2 3
    
    my $z=<STDIN> while(<$z>) { ...
    
    D'OH
    Daniel
    - +13 replies
    - freddy
      
      2009-08-20 08:54
      
      User since
      2009-08-08
      95 Artikel
      BenutzerIn
      
      undef local $/ ?
      - +3 replies
      - Duff
        
        2009-08-20 08:56
        
        User since
        2006-10-06
        283 Artikel
        BenutzerIn
        
        Wo müsste das denn hin?
        
        Habe es nun so gelöst, dass ich auch ein \Q$z\E darum geschrieben habe.
        
        Aber deinen Lösungsvorschlag würde ich auch gerne verstehen.
        D'OH
        Daniel
        
        +2 replies
        
        freddy
        
        2009-08-20 08:58
        
        User since
        2009-08-08
        95 Artikel
        BenutzerIn
        
        Bin mir garnicht sicher, ob mein Vorschlag damit zu tun hat.
        
        $/ ist der Eingabeseparator. Und mit undef local $/ setze ich den lokal außer Kraft. Aber ? ist eigentlich kein Eingabeseparator.
        
        Weiß nicht, ich lese nie von der Konsole ein.
        
        Duff
        
        2009-08-20 09:17
        
        User since
        2006-10-06
        283 Artikel
        BenutzerIn
        
        Ok, trotzdem Danke.
        
        Es funktioniert nun auf jeden Fall.
        D'OH
        Daniel
      - +9 replies
      - pq
        
        2009-08-20 09:37
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-08-20T06:54:59 freddy
        undef local $/ ?
        
        es muss heissen:
        
        Code (perl): (dl )
        
        local $/; # setzt $/ automatisch auf undef
        
        das zusätzliche undef davor ist unnötig und stiftet nur verwirrung.
        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
        
        freddy
        
        2009-08-20 10:51
        
        User since
        2009-08-08
        95 Artikel
        BenutzerIn
        
        2009-08-20T07:37:06 pq
        2009-08-20T06:54:59 freddy
        undef local $/ ?
        
        es muss heissen:
        
        Code (perl): (dl )
        
        local $/; # setzt $/ automatisch auf undef
        
        das zusätzliche undef davor ist unnötig und stiftet nur verwirrung.
        
        Ich finde lesbaren Code schön. Und ich finde auch schön, wenn man undef schreibt, um deutlich zu sehen, dass es undef annimmt.
        Ich finde es nicht schön, local $/ zu notieren und sich dazu denken zu müssen, dass dann undef dabei rauskommt, weil ich alt bin und es mir einfach machen möchte.
        
        Sorry dafür.
        
        +3 replies
        
        pq
        
        2009-08-20 10:59
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        warum programmierst du dann nicht java?
        und warum schreibst du nicht am besten noch einen kommentar hinter jedes undef, weil es ja auch leute geben könnte, die nicht wissen, was das macht?
        
        sorry, aber unnötigen code auf diese art und weise zu schreiben sieht für mich sehr unprofessionell aus, nach "hm ich weiss es nicht genau, ich schreib mal lieber noch undef davor, doppelt hält besser".
        
        wenn du dich sorgst, dass jemand local $/ nicht versteht, dann schreib dahinter, was es macht. local auf eine globale variable ohne zuweisung setzt diese variable immer auf undef, und ich bin nicht programmiererin geworden, damit ich noch doppelt und dreifach anweisungen hinzupacke, nur damit es auch dem blutigsten anfänger klar ist, was passiert.
        
        edit:
        
        2009-08-20T08:51:00 freddy
        Ich finde lesbaren Code schön.
        
        ich auch. für mich ist ein extra undef, welches unnötig ist, nur noise.
        schreibst du auch lieber: $x = $x + 1 statt $x++?
        
        auch sorry
        Last edited: 2009-08-20 11:02:30 +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
        
        havi
        
        2009-08-20 11:12
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        Stimme pq absolut zu...
        
        Hatten diese Diskussion erst in der Firma...
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        sub Subroutine($) { my $string = shift; # mach was mit $string # return $string; ICH HASSE DIESES return string; } Subroutine
        
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        murphy
        
        2009-08-20 13:59
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2009-08-20T08:59:59 pq
        [...]
        für mich ist ein extra undef, welches unnötig ist, nur noise.
        schreibst du auch lieber: $x = $x + 1 statt $x++?
        [...]
        
        Irgendwie ist das doch alles Geschmackssache: Wenn der Interpreter / Compiler nicht unglaublich schlecht ist, sollten solche kleinen Unterschiede in der Notation genau zum gleichen Maschinencode führen. Und die Lesbarkeit oder Eleganz liegt immer im Auge des Betrachters.
        
        Ich habe durchaus schon Leute sagen hören, dass die ++ und -- Operatoren unleserlich und unintuitiv seien -- schließlich wirken sie nicht wie fast alle anderen Operatoren auf den Wert einer Variablen, sondern auf die Variable selbst und machen das noch nicht einmal durch ein = in ihrem Namen kenntlich. Da ich ein großer Fan einheitlicher Nomenklatur bin, kann ich dieses Argument sogar ganz gut nachvollziehen.
        When C++ is your hammer, every problem looks like your thumb.
        
        +2 replies
        
        GwenDragon
        
        2009-08-20 11:10
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Jedem sein eigener Dokumentations- und Programmierstil.
        Ich empfehle dir mal Perl Best Practises zu lesen, da steh schön drin, was Code verständlicher macht.
        Oder Alvars Vorträge (PDF) lesen:
        http://alvar.a-blast.org/vortraege/perl-workshop/p...
        http://alvar.a-blast.org/vortraege/perl-workshop/4...
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        sid burn
        
        2009-08-20 15:43
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Laut PBP wird es übrigens empfohlen es explizit zu schreiben. Nämlich so, wenn du es schon erwähnst.
        
        Code (perl): (dl )
        
        local $/ = undef;
        
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +2 replies
        
        sid burn
        
        2009-08-20 14:26
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        2009-08-20T08:51:00 freddy
        Ich finde lesbaren Code schön. Und ich finde auch schön, wenn man undef schreibt, um deutlich zu sehen, dass es undef annimmt.
        Ich finde es nicht schön, local $/ zu notieren und sich dazu denken zu müssen, dass dann undef dabei rauskommt, weil ich alt bin und es mir einfach machen möchte.
        
        Dann schreib es aber anders.
        
        Code (perl): (dl )
        
        local $/ = undef;
        
        Hier sieht man direkt das $/ lokalisiert wird, und es undef zugewiesen wird.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        freddy
        
        2009-08-20 14:27
        
        User since
        2009-08-08
        95 Artikel
        BenutzerIn
        
        2009-08-20T12:26:02 sid burn
        2009-08-20T08:51:00 freddy
        Ich finde lesbaren Code schön. Und ich finde auch schön, wenn man undef schreibt, um deutlich zu sehen, dass es undef annimmt.
        Ich finde es nicht schön, local $/ zu notieren und sich dazu denken zu müssen, dass dann undef dabei rauskommt, weil ich alt bin und es mir einfach machen möchte.
        
        Dann schreib es aber anders.
        
        Code (perl): (dl )
        
        local $/ = undef;
        
        Hier sieht man direkt das $/ lokalisiert wird, und es undef zugewiesen wird.
        
        Das ist ein guter Einwand und konsequent. Danke Dir.

View all threads created 2009-08-20 08:32.