Perl có biến động như PHP không?

Question

Trong PHP, tôi có thể viết:

$vname = 'phone'; 
$$vname = '555-1234'; 
print $phone; 

... Và kịch bản sẽ ra "555-1234".

Có tương đương nào trong Perl không?

Có cách nào để hạn chế $phone đến phạm vi của khối cục bộ, như thể tôi đã viết my $phone? Sử dụng my $$vname mang lại cho tôi "Không thể khai báo các tham số vô hướng trong các lỗi ... của tôi".

Answer 1

Những gì bạn đang cố gắng thực hiện được gọi là "tham chiếu tượng trưng". Trong khi bạn có thể làm điều này trong Perl you shouldn't. Các tham chiếu tượng trưng chỉ hoạt động với các biến toàn cầu - không phải các biến số từ vựng (my). Không có cách nào để hạn chế phạm vi của họ. Các tham chiếu tượng trưng rất nguy hiểm. Vì lý do đó, chúng không hoạt động theo pragma strict.

Nói chung, bất cứ khi nào bạn nghĩ rằng bạn cần tài liệu tham khảo mang tính biểu tượng, bạn nên sử dụng một băm thay vì:

my %hash; 
$hash{phone} = '555-1234'; 
print $hash{phone}; 

Có một vài trường hợp symrefs là hữu ích và thậm chí cần thiết. Ví dụ, cơ chế xuất khẩu của Perl sử dụng chúng. Đây là những chủ đề nâng cao. Đến lúc bạn sẵn sàng cho họ, bạn sẽ không cần phải hỏi làm thế nào. ;-)

Answer 2

Bạn có thể làm điều đó một cách rất giống nhau:

Nhưng mà bạn có thể không có nghĩa là bạn nên. Cách tốt nhất để quản lý việc này là, as Michael Carman says, SỬ DỤNG TIỀN MẶT!

Answer 3

Bạn không thể thực hiện việc này với chế độ pragma nghiêm ngặt được bật và pragma nghiêm ngặt thường luôn được bật. Bạn có thể làm điều đó với pragma tắt tuy nhiên, hãy nhìn vào này một liner:

perl -le 'my $vname = "phone"; ${ $vname } = "555-1234"; print $phone' 

Điều đó sẽ làm việc, nhưng điều này sẽ không:

perl -Mstrict -le 'my $vname = "phone"; ${ $vname } = "555-1234"; print $phone' 

"-Mstrict" cho nó để "sử dụng nghiêm khắc".

Tốt nhất nên sử dụng hàm băm cho một thứ như thế này, giống như một mảng kết hợp trong PHP.

Answer 4

Đọc các bài viết của Mark-Jason Dominus về việc này trong Why it's stupid to `use a variable as a variable name'.

Bạn sẽ giới hạn phạm vi thay đổi của bạn đến $ điện thoại bằng cách bắt đầu khối với

local $phone; 

hoặc thậm chí

local $$vname; 

(Mặc dù một trong hai thay đổi $ điện thoại cho bất kỳ tàu ngầm gọi từ khối của bạn quá , vì vậy nó không giống như phạm vi từ vựng của một tuyên bố my().)

Answer 5

Bạn nhận ra rằng PHP thừa hưởng nhiều tính năng của nó từ Perl, phải không?

Không chỉ Perl có thể làm tất cả các biểu tượng tài liệu tham khảo thứ PHP có thể,

use strict; 
use warnings; 
use 5.010; 

our $test=1; 

# Access $test through the special hash %:: 
say ${$::{test}}++; 

# This is essentially what the previous line did. 
say ${\$test}++ 

# Same as $test 
say ${test}++; 

{ 
    # PHP's simple symbolic ref 
    my $ref = "test"; 
    no strict 'refs'; 
    say $$ref++; 
    say ${"test"}++; 
} 
{ 
    package d; 
    say ${$main::{test}}++; 

    my $ref = $main::{"test"}; 
    say $$ref++; 

    $ref = \$main::test; 
    say $$ref++; 
}