Listenseparator (Sonstige Beiträge (auch Spaß und Sinnloses))

[thread]21512[/thread]

Listenseparator

Leser: 8

Articles: hide open all | hide show old branches

+21 replies
barney

2023-11-30 19:33
User since
2008-08-31
168 Artikel
BenutzerIn
Aus wichtigen Gründen, sprich Prokrastination, habe ich in perlvar geschmökert und beim Listenseparator hängen geblieben. Ergeniss war der folgende Mehrzeiler:
Code: (dl )

1 2 3 4 5 6

use v5.24; use strict; use warnings; $" = '-'; say "foo$\"bar";
- +2 replies
- rosti
  
  2023-12-01 08:57
  
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  
  Und überrascht Dich das Ergebnis? MFG
  - barney
    
    2023-12-01 10:04
    
    User since
    2008-08-31
    168 Artikel
    BenutzerIn
    
    Ja, das Ergebniss hat mich überrascht. Ein gequotetes " wird ja normalerweise zu einem literalen " und nicht zum Namensteil einer Variable.
    
    Und say "foo$\(bar"; gibt ja auch nicht die Gruppen ID aus.
- +9 replies
- GwenDragon
  
  2023-12-01 09:26
  
  User since
  2005-01-17
  14758 Artikel
  Admin1
  
  Du meinst, wegen des $\"?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - rosti
    
    2023-12-01 09:35
    
    User since
    2011-03-19
    3492 Artikel
    BenutzerIn
    
    2023-12-01T08:26:17 GwenDragon
    Du meinst, wegen des $\"?
    
    Ich kanns auch kaum erwarten wie das Ergebnis zu interpretieren ist.
  - +7 replies
  - barney
    
    2023-12-01 10:07
    
    User since
    2008-08-31
    168 Artikel
    BenutzerIn
    
    Ja, anscheinend wird das \" ganz früh zu einem ". Damit verbleibt im String $". Das ist eine Spezialvariable die in den den String interpoliert wird.
    - +3 replies
    - rosti
      
      2023-12-01 10:17
      
      User since
      2011-03-19
      3492 Artikel
      BenutzerIn
      
      2023-12-01T09:07:59 barney
      Ja, anscheinend wird das \" ganz früh zu einem ". Damit verbleibt im String $". Das ist eine Spezialvariable die in den den String interpoliert wird.
      
      Setz mal $\ = 1; dazu.
      
      also
      
      Code (perl): (dl )
      
      1 2 3
      
      $" = '-'; $\ = 1; print "foo$\"bar";
      
      Last edited: 2023-12-01 10:22:44 +0100 (CET)
      - +2 replies
      - rosti
        
        2023-12-01 10:33
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        was zeigt, daß in $\" sowohl ein $" als auch ein $\ interpoliert werden. MFG
        
        barney
        
        2023-12-01 10:56
        
        User since
        2008-08-31
        168 Artikel
        BenutzerIn
        
        Das ist eine interessante Variante. Aber die 1 wird ja nicht wegen dem $\" ausgegeben. Es wird als implizites letztes Argument von print ausgegeben.
    - +3 replies
    - haj
      
      2023-12-01 22:56
      
      User since
      2015-01-07
      557 Artikel
      BenutzerIn
      
      2023-12-01T09:07:59 barney
      Ja, anscheinend wird das \" ganz früh zu einem ". Damit verbleibt im String $". Das ist eine Spezialvariable die in den den String interpoliert wird.
      
      Richtig: Das passiert schon, wenn der Tokenizer das Ende des Strings sucht. Jeder \, der nicht vor dem Stringbegrenzer steht, wird beibehalten. Ein \ vor dem Stringbegrenzer hat aber seinen Zweck erfüllt und wird eliminiert.
      
      Andersrum formuliert: Wenn Du $" zwischen "" interpolieren willst, dann musst Du das als $\" schreiben, sonst ist hört der String mit dem $ auf. Es gibt einen Syntaxfehler Final $ should be \$ or $name.
      
      Dass es am Begrenzer liegt, kann man vorführen, indem man die Funktion qq verwendet:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      use v5.24; use strict; use warnings; $/ = 'IRS'; $\ = 'ORS'; $" = '-'; say qq"foo$\"bar"; # foo-bar say qq'foo$\"bar'; # fooORS"bar say qq'foo$"bar'; # foo-bar say qq/foo$\/bar/; # fooIRSbar say qq/foo$\bar/; # fooORSbar say qq$foo\$"bar$; # foo-bar say qq$foo\$\"bar$; # fooORS"bar
      
      Dass der Syntax-Highlighter hier ins Schleudern kommt, wundert mich auch nicht weiter.
      Dass Perl solche Verrücktheiten zuläßt, wird ja manchmal als Argument gegen die Sprache verwendet. Aber ich finde es ganz sympathisch, dass die Sprachsyntax uns als vernunftbegabte Wesen betrachtet und davon ausgeht, dass man Magie nur dort einsetzt, wo sie notwendig ist.
      - rosti
        
        2023-12-02 11:54
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        Danke haj!
        
        Der ganze Ausdruck wird sozusagen von innen her aufgelöst. Jedoch war meine Annahme falsch daß auch $\ interpoliert wird.
        
        MFG
      - barney
        
        2023-12-02 18:26
        
        User since
        2008-08-31
        168 Artikel
        BenutzerIn
        
        Und weil es so schön ist:
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        use v5.24; use strict; use warnings; my $q = qq q\qq; say qq q$\qq;
- +4 replies
- barney
  
  2023-12-01 11:46
  User since
  2008-08-31
  168 Artikel
  BenutzerIn
  Lustig ist auch:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  $ cat output_record_separator.pl use v5.24; use strict; #use warnings; $\ = 'ORS'; say "Foo$\\Bar"; $ perl output_record_separator.pl FooORSBar
  
  Da könnte man meinen dass zuerst \\ durch \ ersetzt wird und dann die Variable $\ übrig bleibt. Tatsächlich wird in $\\B zuerst das $\ ersetzt und aus dem verbleibenden \B wird ein einfaches B.
  
  Spaßeshalber kann man auch $\\b verwenden. Dann ist noch ein Backspace im Spiel.
  - +3 replies
  - rosti
    
    2023-12-01 12:48
    
    User since
    2011-03-19
    3492 Artikel
    BenutzerIn
    
    Die zweckbestimmung dieser Variablen ist ja auch eine ganz andere.
    - +2 replies
    - barney
      
      2023-12-01 12:55
      
      User since
      2008-08-31
      168 Artikel
      BenutzerIn
      
      In "Spaß und Sinnloses" ist der Zweck ziemlich belanglos.
      - rosti
        
        2023-12-01 13:55
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        2023-12-01T11:55:00 barney
        In "Spaß und Sinnloses" ist der Zweck ziemlich belanglos.
        
        Ja da hast Du Recht ;)
        Aber wenn Du mal richtig lachen willst schalte einfach den Fernseher ein.
        
        Schönes Wochenende ;)
- +5 replies
- GwenDragon
  
  2023-12-02 13:01
  
  User since
  2005-01-17
  14758 Artikel
  Admin1
  
  Wenn ich mich mal im Quoting doch verheddere oder nicht weiß, wie Perl das extrapoliert, versuche ich dann mit Verkettung per Punkt-Operator und hoffe, das Perl oder ich dann den Fehler besser erkennt.
  $" = '-'; say "foo" . $" . "bar";
  
  Beim String-Escape denke ich ab und an noch, trotz jahrelangem Wissen: Abhauen, Flucht.
  
  $" = '-'; say "foo${"}bar";
  Das beliebte, zum besseren Erkennen einer Variablen in Zeichenketten genutzte ${} hilft da leider nicht.
  
  Den Perl-Parser genauer zu kennen, wäre schon praktisch, um solche Fallen zu vermeiden.
  Last edited: 2023-12-02 13:25:28 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - rosti
    
    2023-12-02 14:14
    
    User since
    2011-03-19
    3492 Artikel
    BenutzerIn
    
    Stringverkettungen sind unschön. Aber Perl hat ja Alternativen wie q() und qq() sowie sprintf() und manchmel lohnt es sich über den Einsatz einer Template-Engine nachzudenken.
    
    mfg
    - +3 replies
    - GwenDragon
      
      2023-12-02 15:18
      
      User since
      2005-01-17
      14758 Artikel
      Admin1
      
      ein qq() löst gar nix in jedem Fall. ;-)
      Aber ich benutze es, schon wegen des sonst nötigen nervigen Escaping bei ".
      
      Ja, Verkettungen sind unschön, aber lange Zeichenpythons auch, wenn sie dann die Programmierenden beißen.
      Last edited: 2023-12-02 15:24:02 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - rosti
        
        2023-12-02 15:33
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        Deswegen ja qq(). So darf sich die Quoterei auch mal über mehrere Zeilen erstrecken und jeder Editor ist in der Lage Anfang und Ende zu finden. Es sei denn man nimmt Stringbegrenzer die nicht korrespondieren damit der Editor ja nicht das Gegenstück findet, habe ich alles schon gesehen bei Kollegen die auf diese Art und Weise Strings handelten die sich über mehrere DINA4-Seiten erstreckten ;)
      - rosti
        
        2023-12-02 15:53
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        ein qq() löst gar nix in jedem Fall.
        
        Doch, es zeigt ob $\ oder $" interpoliert wird.
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $" = '-'; $\ = "\n"; print qq($\"); # $\ print "$\""; # $"

View all threads created 2023-11-30 19:33.