związane z pytaniem: How do I substitute with an evaluated expression in Perl?Czy interpolacja napisów w języku Perl może przeprowadzić dowolną ocenę wyrażenia?
w Perlu, czy istnieje sposób, jak w Ruby zrobić:
$a = 1;
print "#{$a + 1}";
i można go wydrukować 2?
Jest podobna skrótowym w Perlu na to:
$a = 1;
print "@{[$a + 1]}"
To działa, ponieważ [] tworzy odwołanie do tablicy zawierającej jeden element (wynik obliczeń), a następnie @{} dereferences tablicę, która wewnętrzna interpolacja ciągów drukuje kolejno każdy element tablicy. Ponieważ jest tylko jeden, po prostu wypisuje jeden element.
Możesz użyć sztuczki @{[ EXPRESSION ]}, o której wspominał Greg Hewgill.
Istnieje również moduł Interpolation, który umożliwia wykonywanie dowolnych transformacji wartości, które interpolujesz (takich jak kodowanie encji HTML), oprócz oceny wyrażeń.
Istnieje jeszcze jedna opcja '" $ {\\ ($ a + 1)} "' ale ja preferuję dawną ze względu na czytelność. –
Nie sądzę, że musisz uciec przed odwrotnym ukośnikiem. Próbowałem tego i działa: '' $ {\ ($ a + 1)} '' –
@ Hynek-Pichi-Vychodil 'print" $ {\\ (Cwd :: cwd)} ";' get'SCALAR (0x28b7124) ',' print "$ {\ (Cwd :: cwd)}"; 'get'C:/Users/Administrator/IdeaProjects/untitled2' dla mnie – BaiJiFeiLong