Ersetzung von $( verhindern (gelöst) (Allgemeines zu Perl) - Perl-Community.de

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

2024-04-29 12:36:19
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]16216[/thread]

submit to reddit

Ersetzung von $( verhindern [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 27

Articles: hide open all | hide show old branches

+16 replies
bianca

2011-04-23 15:12
User since
2009-09-13
6977 Artikel
BenutzerIn
Guten Tag!

Wie kann ich verhindern, dass Perl in diesem Fall $( ersetzt?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl -w use strict; use warnings; print <<HTML_AUSGABE ein bisschen $( und noch mehr $ ( und noch noch mehr $ ( HTML_AUSGABE ;
Code: (dl )

1 2 3

ein bisschen 0 und noch mehr 0 und noch noch mehr 0
Danke

Edit: Andere vorkommende Variablen sollen weiterhin ersetzt werden!

Editiert von bianca: Hinweis ergänzt
10 print "Hallo"
20 goto 10
- +8 replies
- topeg
  
  2011-04-23 15:57
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  So sollte es gehen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl -w use strict; use warnings; my $var= <<'HTML_AUSGABE'; ein bisschen $( und noch mehr $ ( und noch noch mehr $ ( HTML_AUSGABE # quote "$(" $var=~s/(\$\s*\()/\\$1/gs; print eval(qq{"$var"});
  - bianca
    
    2011-04-23 16:23
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Danke Dir, sieht gut aus.
    10 print "Hallo"
    20 goto 10
  - +3 replies
  - rosti
    
    2011-04-25 21:07
    
    User since
    2011-03-19
    3197 Artikel
    BenutzerIn
    
    Genau! Das wird wohl gerne übersehen, dass das Token in Here-Doc im Default ein double-Quote ist. Oder es steht nirgendwo so richtig ;)
    - +2 replies
    - Linuxer
      
      2011-04-25 21:20
      
      User since
      2006-01-27
      3871 Artikel
      HausmeisterIn
      
      Es steht in perldoc perlop unter <<EOF im zweiten Absatz recht eindeutig geschrieben.
      
      perldoc perlop
      ...
      The terminating string may be either an identifier (a word), or some quoted text. An unquoted identifier works like double quotes. There may not be a space between the << and the identifier, unless the identifier is explicitly quoted. (If you put a space it will be treated as a null identifier, which is valid, and matches the first empty line.) The terminating string must appear by itself (unquoted and with no surrounding whitespace) on the terminating line.
      ...
      (Hervorhebung von mir)
      
      ;o)
      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!
      - rosti
        
        2011-04-25 21:31
        
        User since
        2011-03-19
        3197 Artikel
        BenutzerIn
        
        Quote
        An unquoted identifier works like double quotes
        
        Danke Dir!!!
  - +3 replies
  - MatthiasW
    
    2011-04-26 15:04
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Doppelte Anführungszeichen sollte man aber auch noch escapen, da sonst aus Versehen Code ausgeführt werden könnte:
    
    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 -w use strict; use warnings; my $var= <<'HTML_AUSGABE'; ein bisschen $( und noch mehr $ ( und noch noch mehr $ ( "; print "your code here\n"; " HTML_AUSGABE # quote "$(" $var=~s/(\$\s*\()/\\$1/gs; $var=~s/"/\\"/gs; print eval(qq{"$var"});
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - +2 replies
    - pq
      
      2011-04-26 15:25
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wenn man code-ausführung verhindern will, kommt man damit eh nicht weit.
      schreib @{[ system 'rm -rf' ]} in den string und du hast verloren.
      
      will man in einem string in double quotes etwas *nicht* interpolieren, hat man das schon immer mit dem backslash gemacht.
      
      wenn es sich um einen string aus einer externen, nicht vetrauenswürdigen quelle handeln würde, bei der ich nachträglich variablen ersetzen *muss*, dann würde ich das mit einem template-system machen oder mit einer regex
      s/\$(var1|var2|...)/ $hash{ $1 } /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
      - MatthiasW
        
        2011-04-26 15:39
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        2011-04-26T13:25:11 pq
        schreib @{[ system 'rm -rf' ]} in den string und du hast verloren.
        
        Stimmt, daran hab' ich gar nicht mehr gedacht.
        
        2011-04-26T13:25:11 pq
        wenn es sich um einen string aus einer externen, nicht vetrauenswürdigen quelle handeln würde[...]
        
        Nunja, wie wohl auch die Ersetzung von $( zeigt, kann man doch sehr einfach überrascht werden. Anführungszeichen sind schließlich auch nichts allzu seltenes und schon bekommt man unerwartete Ergebnisse, oder macht sich sogar irgendwas kaputt.
        
        2011-04-26T13:25:11 pq
        dann würde ich das mit einem template-system machen oder mit einer regex
        s/\$(var1|var2|...)/ $hash{ $1 } /g;
        
        ++
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- +7 replies
- pq
  
  2011-04-23 17:01
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  backslash vor das $ setzen
  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
  - bianca
    
    2011-04-23 18:36
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2011-04-23T15:01:00 pq
    backslash vor das $ setzen
    
    Ja, so hab ich es auch gemacht. Lösung von topeg erschien mir am Ende zu rechenintensiv für diese Sache.
    
    Gewundert hat mich aber schon, dass der Interpreter auch $ ( ersetzt hat. Die Blanks scheinen keine Rolle zu spielen.
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2011-04-23 18:52
      
      User since
      2005-01-17
      14538 Artikel
      Admin1
      
      Nein, die Blanks spielen keine Rolle, die ignoriert Perl, ist ein Feature.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +4 replies
    - renee
      
      2011-04-25 08:48
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Was meinst Du mit "zu rechenintensiv"?
      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/
      - +3 replies
      - pq
        
        2011-04-25 14:07
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich würde mal sagen, im vergleich zu der möglichkeit, einfach das dollarzeichen zu escapen, ist topegs code ein haufen mehr aufwand (und IMHO dazu noch irreführend - zuerst einen string mit single quotes deklarieren, nur um ihn dann an string eval zu übergeben).
        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
        
        renee
        
        2011-04-25 16:45
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Oh, String-eval habe ich übersehen. Danke!
        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/
        
        bianca
        
        2011-04-25 16:55
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2011-04-25T12:07:26 pq
        ich würde mal sagen, im vergleich zu der möglichkeit, einfach das dollarzeichen zu escapen
        
        Ja, das meinte ich.
        10 print "Hallo"
        20 goto 10

View all threads created 2011-04-23 15:12.