🚀 go-pugleaf

DOn 4 Jun 1997, Piotr Piatkowski wrote:

> : >print "2+2=@{[2+2]}\n";
> 
> To tylko sposób na wstawienie do stringu praktycznie dowolnego 
> wyrażenia (bez używania kropki do sklejania), takiego jakiego można
> podać funkcji eval. Ale jest to trochę mało czytliwe i szczerze 
> mówiąc nigdy z tego nie korzystałem (a teraz musiałem dość długo 
> szukać w man perlref).
> 
> A jak to dokładnie działa to pewny nie jestem :-> chociaż się 
> domyślam... W każdym razie format jest @{[ wyrażenie ]}

  Dla ciekawych:

  [ lista_wyrazen ] tworzy anonimowa referencje do tablicy zawierajacej
poszczegolne wyrazenia (oddzielone przecinkami (chyba, ze nie)). @{ ref }
robi z tej referencji z powrotem tablice, ktora print wypisuje. 

    $var = 'J';
    $ref = [ Ewa, $var . 'B', 'Iza' ];
    print @{ $ref }[1], "\n"; # 
  
  A ze perl po malpce lub dolarze w stringu robi sie skrupulatny co do
liczby zamknietych i otwartych nawiasow rzeczywiscie mozna do niego
wstawic co sie chce. 
              
  pozdrawiam

   Piotr Budrewicz  

Piotr Dominik Budrewicz  | "Knocking him down won the first fight. I wanted
Wa-wa, Batorego 27 m. 24 |  to win all the next ones, too. So they'd leave
tel. (022)25-53-34       |  me alone."
e-mail: pdb@irc.pl.      |     Ender Wiggin -- `Ender's game' - Orson Scot Card