Frage zu Regexnutzung (solved) (Allgemeines zu Perl)

[thread]19024[/thread]

Frage zu Regexnutzung [solved]

Tags: perl5 regex Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+12 replies
bianca

2014-04-13 11:26
User since
2009-09-13
7016 articles
BenutzerIn
Guten Morgen!

Ein Script:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/perl use strict; use warnings; use 5.010; my %par = ( text => "Tes\x01t", zeichen => qr{[e\x01]}x, ); test(\%par); say $par{text}; sub test { my ($par) = @_; $par->{text} =~ s/$par->{zeichen}//; }
Frage: Warum funktioniert die Zeichenlöschung nur für das e aber nicht für \x01? Was mache ich da falsch?

modedit Editiert von pq: Stichwort regex hinzugefügt
Last edited: 2014-04-13 12:26:36 +0200 (CEST)
10 print "Hallo"
20 goto 10
- +8 replies
- pq
  
  2014-04-13 12:20
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  regex-modifier /g vergessen?
  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
  - +7 replies
  - bianca
    
    2014-04-13 14:09
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2014-04-13T10:20:28 pq
    regex-modifier /g vergessen?
    
    Wenn ich den unten ergänze ändert das nichts am Ergebnis. Wo genau muss der hin?
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - barney
      
      2014-04-13 14:36
      
      User since
      2008-08-31
      167 articles
      BenutzerIn
      
      Der g-Modifier muss an der Ersetzungsoperation.
      Die Regex habe ich ein bischen lesbarer gemacht.
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
      
      #!/usr/bin/perl use strict; use warnings; use 5.010; my %par = ( text => "Tes\x01t", zeichen => qr{ [e \x01] }x, ); test(\%par); say $par{text}; sub test { my ($par) = @_; $par->{text} =~ s/$par->{zeichen}//g; }
      - +2 replies
      - bianca
        
        2014-04-13 18:57
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        In deiner Version wird auch das Blank ersetzt, das soll nicht sein. Aber es funktioniert jetzt, ich weiß selbst nicht warum.
        10 print "Hallo"
        20 goto 10
        
        FIFO
        
        2014-04-13 19:02
        
        User since
        2005-06-01
        469 articles
        BenutzerIn
        
        perldoc perlre:
        
        /x tells the regular expression parser to ignore most whitespace that is neither backslashed nor within a character class.
        
        d.h. Whitespace in den [] wird nicht ignoriert.
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - +3 replies
    - pq
      
      2014-04-13 14:39
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      was bekommst du denn für ein ergebnis und welches hättest du gerne? welche perl-version benutzt du? bisschen mehr info, weisste doch eigentlich.
      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
        
        2014-04-13 18:59
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Es funktioniert jetzt.
        Vorhin kam die ganze Zeit Ts☺t raus, jetzt ist das \x01 auch raus, ich weiß nicht warum. Hab ich mich wohl irgendwo vertan.
        Danke für die Hilfe.
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2014-04-13 19:25
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        kein problem, kenn ich ja schon.
        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
- bianca
  
  2014-04-13 19:04
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  Jetzt klappts doch nicht mehr.
  Code:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  #!/usr/bin/perl use strict; use warnings; use 5.010; my %par = ( text => <<'TESTDATEI' Te|s\x01t Test| TESTDATEI , zeichen => qr{[|\x01]}x, ); test(\%par); say $par{text}; sub test { my ($par) = @_; $par->{text} =~ s/$par->{zeichen}//g; }
  
  Ausgabe: Tes\x01t Test
  Erwartet: Test Test
  Perl Strawberry 5.16.3 Windows 7
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - FIFO
    
    2014-04-13 19:08
    
    User since
    2005-06-01
    469 articles
    BenutzerIn
    
    Das liegt an Deinen Singlequotes beim HERE-doc, nimm mal <<"TESTDATEI"
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - bianca
      
      2014-04-13 19:12
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      Stimmt, danke dir.
      10 print "Hallo"
      20 goto 10

View all threads created 2014-04-13 11:26.