In Perl, c'è qualche differenza tra l'aliasing globale di glob e l'aliasing tramite lo stash?

Question

In Perl, v'è mai alcuna differenza tra i seguenti due costrutti:

*main::foo = *main::bar 

e

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

Essi sembrano avere la stessa funzione (aliasing tutti gli slot in *main::foo a quelle definite nella *main::bar), ma mi chiedo solo se questa equivalenza è sempre valida.

Answer 1

Forse non è il tipo di differenza che stavate cercando, ma ci sono due grandi differenze tra *main::foo e $main::{foo}; il primo ricerca il glob nella memoria in fase di compilazione, creandolo se necessario, mentre il secondo cerca il glob nella memoria in fase di esecuzione e non lo crea.

Questo potrebbe fare la differenza per qualsiasi altra cosa che riguarda la memoria, e sicuramente può influire sull'avviso used only once.

Answer 2

Il seguente script:

#!/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"; 

Uscite:

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()'" 

Quindi, se *main::foo = *main::bar; non fa la stessa cosa che $main::{foo} = $main::{bar};, io sono in perdita su come rilevare un pratico differenza. ;) Tuttavia, dal punto di vista della sintassi, potrebbero esserci situazioni in cui è più semplice utilizzare un metodo rispetto ad un altro. ... si applicano sempre i soliti avvertimenti su come muoversi nella tabella dei simboli.

Answer 3

Accesso alla scorta come $A::{foo} = $obj consente di posizionare nulla sul tabella dei simboli, mentre *A::foo = $obj luoghi $obj sullo slot atteso del typeglob in base al tipo di $obj.

Ad esempio:

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