Quoten von " (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-16 02:46:16
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]16903[/thread]

submit to reddit

Quoten von " [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 27

Articles: hide open all | hide show old branches

+13 replies
Jiep1963

2011-11-09 20:19

User since
2008-08-20
37 Artikel
BenutzerIn

Ich habe viele verschieden Versionen probiert, wie ich einen Text der z.B. einer Stelle ein "Wort" oder "einen ganzen Satz" Anführungszeichen enthielt diese mit \" modifizieren kann. Es ist mir nicht geglückt. Vielleicht mag mir jemand sagen, wie ich z.b. aus "Wort" \"Wort\" machen kann und den ganzen Text wieder gespeichert bekomme. Einer der (vielen) Fehlversuche:

$_ =~ tr/"/\"/; oder /"/\\"/ oder über Variablen ...

hat alles keinen Erfolg gehabt.
Danke für die Mühen vorab!
Last edited: 2011-11-09 20:21:32 +0100 (CET)
- rosti
  
  2011-11-09 20:30
  
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  
  perdoc -f quotemeta
  
  Hilft das?
- +10 replies
- pktm
  
  2011-11-09 21:47
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  Meinst du sowas hier?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!perl use strict; use warnings; my $text = qq~"bla blubb " <invalid html="abc>~; $text =~ s/"/\\"/g; print $text;
  
  Gibts auch, um ein bereits mit Fluchtzeichen versehenes Anführungszeichen zu überspringen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!perl use strict; use warnings; my $text = q~"bla blubb \" <invalid html="abc>~; $text =~ s/(<=\\)"/\\"/g; print $text;
  
  Last edited: 2011-11-09 21:50:46 +0100 (CET)
  http://www.intergastro-service.de (mein erstes CMS :) )
  - +2 replies
  - Jiep1963
    
    2011-11-10 08:00
    
    User since
    2008-08-20
    37 Artikel
    BenutzerIn
    
    $text =~ s/"/\\"/g;
    
    Da macht man(n) wochenlang so viel mit Perl - aber manchmal ... *SichMitDerFlachenHandVorDieStirnHaut* Und wieder bewahrheitet sich der Spruch: "Komisch, kaum macht man's richtig, schon funktioniert's !" ;-)
    
    DANKE !
    Last edited: 2011-11-10 08:04:54 +0100 (CET)
    - GwenDragon
      
      2011-11-10 08:25
      
      User since
      2005-01-17
      14746 Artikel
      Admin1
      
      Dann bitte: Thread als gelöst markieren!
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +7 replies
  - bianca
    
    2012-04-04 11:25
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2011-11-09T20:47:28 pktm
    Gibts auch, um ein bereits mit Fluchtzeichen versehenes Anführungszeichen zu überspringen:
    
    Hierzu eine Frage. Ich bekomme den Regex nicht hin, dass nur ein nicht escaptes " escapet wird.
    Also aus " wird \" und \" bleibt \" und wird NICHT zu \\"
    
    Was mache ich falsch?
    
    Code (perl): (dl )
    
    1 2 3 4
    
    my $text = 'nicht escapet" und doch escapet\\"'; print "vorher : '$text'\n"; $text =~ s/(\\)"/\\"/g; print "nachher: '$text'\n";
    
    Anmerkung: Möchte das verwenden, um Daten in json Format auszugeben. Da müssen auch noch andere Zeichen escapet werden. Ich verstehe auf http://json.org/ rechts unten auch nicht zu 100 %, was da jetzt ganz genau alles escapet werden muss und ob die dort angegebenen Kürzel 1 zu 1 denen der Perl Regex Maschine entsprechen. Hat dafür jemand zufällig einen Regex rumliegen?
    Vielen Dank
    10 print "Hallo"
    20 goto 10
    - +6 replies
    - pq
      
      2012-04-04 11:30
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2012-04-04T09:25:37 bianca
      Was mache ich falsch?
      
      du hast falsch abgeschrieben =)
      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
      - +5 replies
      - bianca
        
        2012-04-04 11:33
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-04-04T09:30:38 pq
        du hast falsch abgeschrieben =)
        
        Ja, ich habe < und = weggelassen, weil die Zeichen in meinem Fall nicht als "vorhandene Fluchtzeichen" betrachtet werden sollen. Oder hab ich das falsch verstanden?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        pq
        
        2012-04-04 11:39
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich weiss nicht, ich habe nur gesehen, dass du was anderes als pktm benutzt.
        vielleicht hast du auch nicht verstanden, was pktm mit fluchtzeichen meint. das ist in dem fall der slash.
        und mit dem <= wollte er vermutlich einen lookbehind machen.
        das ginge dann aber eher so:
        s/(?<!\\)"/\\"/g;
        
        das escaped dann aber auch ein quote nicht, wenn vorher eine gerade zahl von slashes kommt.
        musst du wissen.
        ich frage mich eher, was du für einen input hast, wenn der eine teil schon escaped ist und der andere nicht.
        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
        
        2012-04-04 11:46
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-04-04T09:39:20 pq
        ich frage mich eher, was du für einen input hast, wenn der eine teil schon escaped ist und der andere nicht.
        
        Du hast Recht. Wenn das \ in der Quelle vorkommt ist es nicht als Escapezeichen gemeint. Das heißt, ich muss aus \" vermutlich ein \\\" machen damit es json fähig ist.
        Hast du einen json Regex da?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        pq
        
        2012-04-04 11:50
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        soweit ich weiss:
        
        Code (perl): (dl )
        
        1 2 3
        
        $var =~ s/([\\"])/\\$1/g; $var =~ s/\r/\\r/g; $var =~ s/\n/\\n/g;
        
        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
        
        bianca
        
        2012-04-04 11:54
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Danke dir, sieht gut aus.
        10 print "Hallo"
        20 goto 10
- moritz
  
  2012-04-04 11:41
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  Der Ansatz mit tr/// funktioniert nicht, weil tr/// immer ein Zeichen durch ein anderes ersetzt (oder es loescht). Wenn du ein Zeichen durch zwei ersetzen willst, kannst du also nicht tr nehmen.
  Perl 6 - Perls Zukunft

View all threads created 2011-11-09 20:19.