liên quan đến câu hỏi: How do I substitute with an evaluated expression in Perl?Nội suy chuỗi Perl có thể thực hiện bất kỳ đánh giá biểu thức nào không?
Trong Perl, là có một cách như trong Ruby để làm:
$a = 1;
print "#{$a + 1}";
và nó có thể in ra 2?
Có một cách viết tắt tương tự trong Perl cho điều này:
$a = 1;
print "@{[$a + 1]}"
này hoạt động vì [] tạo ra một tham chiếu đến một mảng chứa một phần tử (kết quả của việc tính toán), và sau đó là @{} dereferences mảng, mà nội suy chuỗi bên trong in từng phần tử của mảng theo thứ tự. Vì chỉ có một, nó chỉ in một phần tử.
Bạn có thể sử dụng mẹo @{[ EXPRESSION ]} mà Greg Hewgill đã đề cập.
Ngoài ra còn có mô-đun Interpolation, cho phép bạn thực hiện các phép biến đổi tùy ý trên các giá trị bạn đang nội suy (như các thực thể HTML mã hóa) ngoài việc đánh giá các biểu thức.
Có một tùy chọn khác '" $ {\\ ($ a + 1)} "' nhưng tôi thích cũ hơn vì mục đích dễ đọc. –
Tôi không nghĩ rằng bạn cần phải thoát khỏi dấu gạch chéo ngược. Tôi đã thử nó và nó hoạt động: '" $ {\ ($ a + 1)} "' –
@ Hynek-Pichi-Vychodil 'in" $ {\\ (Cwd :: cwd)} ";' get'SCALAR (0x28b7124) ',' in "$ {\ (Cwd :: cwd)}"; 'get'C:/Người dùng/Quản trị viên/IdeaProjects/untitled2' cho tôi – BaiJiFeiLong