Trong Perl, có bất kỳ sự khác biệt nào giữa việc tạo bí danh và tạo bí danh trực tiếp qua stash không?

Question

Trong Perl, là có bao giờ bất kỳ sự khác biệt giữa hai cấu trúc sau:

*main::foo = *main::bar 

và

$main::{foo} = $main::{bar} 

Họ dường như có chức năng tương tự (aliasing tất cả các khe trong *main::foo tượng quy định tại *main::bar), nhưng tôi chỉ tự hỏi nếu tương đương này luôn luôn giữ.

Answer 1

Có lẽ không phải là loại chênh lệch bạn đang tìm kiếm, nhưng có hai sự khác biệt lớn giữa *main::foo và $main::{foo}; các cựu nhìn lên glob trong stash lúc biên dịch thời gian, tạo ra nó nếu cần thiết, trong khi sau này sẽ cho glob trong stash tại thời gian chạy, và sẽ không tạo ra nó.

Điều này có thể tạo ra sự khác biệt với bất kỳ điều gì khác trong trò chơi, và chắc chắn có thể ảnh hưởng đến việc bạn nhận được cảnh báo used only once hay không.

Answer 2

Các kịch bản sau đây:

#!/usr/bin/env perl 

#mytest.pl 

no warnings; 


$bar = "this"; 
@bar = qw/ 1 2 3 4 5 /; 
%bar = qw/ key value /; 

open bar, '<', 'mytest.pl' or die $!; 

sub bar { 
    return "Sub defined as 'bar()'"; 
} 
$main::{foo} = $main::{bar}; 

print "The scalar \$foo holds $foo\n"; 
print "The array \@foo holds @foo\n"; 
print "The hash \%foo holds ", %foo, "\n"; 
my $line = <foo>; 
print "The filehandle 'foo' is reads ", $line; 
print 'The function foo() replies "', foo(), "\"\n"; 

Đầu ra:

The scalar $foo holds this 
The array @foo holds 1 2 3 4 5 
The hash %foo holds keyvalue 
The filehandle 'foo' is reads #!/usr/bin/env perl 
The function foo() replies "Sub defined as 'bar()'" 

Vì vậy, nếu *main::foo = *main::bar; không làm điều tương tự như $main::{foo} = $main::{bar};, tôi đang ở một mất mát như thế nào để phát hiện một thực tế Sự khác biệt. ;) Tuy nhiên, từ góc độ cú pháp, có thể có những tình huống dễ sử dụng hơn so với phương pháp khác. ... các cảnh báo thông thường về việc nhét xung quanh trong bảng biểu tượng luôn luôn áp dụng.

Answer 3

Truy cập stash là $A::{foo} = $obj cho phép bạn đặt bất kỳ thứ gì lên bảng biểu tượng trong khi *A::foo = $obj địa điểm $obj trên khe mong đợi của typeglob theo loại $obj.

Ví dụ:

DB<1> $ST::{foo} = [1,2,3] 

    DB<2> *ST::bar = [1,2,3] 

    DB<3> x @ST::foo 
Cannot convert a reference to ARRAY to typeglob at (eval 7)[/usr/local/perl/blead-debug/lib/5.15.0/perl5db.pl:646] line 2. 
at (eval 7)[/usr/local/perl/blead-debug/lib/5.15.0/perl5db.pl:646] line 2 
    eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package main; $^D = $^D | $DB::db_stop; 
    @ST::foo; 

;' called at /usr/local/perl/blead-debug/lib/5.15.0/perl5db.pl line 646 
    DB::eval called at /usr/local/perl/blead-debug/lib/5.15.0/perl5db.pl line 3442 
    DB::DB called at -e line 1 
    DB<4> x @ST::bar 
0 1 
1 2 
2 3 
    DB<5> x \%ST:: 
0 HASH(0x1d55810) 
    'bar' => *ST::bar 
    'foo' => ARRAY(0x1923e30) 
     0 1 
     1 2 
     2 3