पर्ल में, क्या सीधे ग्लोब एलियासिंग और छेड़छाड़ के माध्यम से एलियासिंग के बीच कोई अंतर है?

Question

पर्ल में, निम्नलिखित दो संरचनाओं के बीच कभी भी कोई अंतर है:

*main::foo = *main::bar 

और

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

वे एक ही कार्य करते हैं (*main::bar में परिभाषित किए गए *main::foo में सभी स्लॉट को अलियासिंग करना), लेकिन मैं बस सोच रहा हूं कि यह समकक्ष हमेशा रहता है या नहीं।

Answer 1

शायद नहीं अंतर आप देख रहे थे की तरह है, लेकिन वहाँ *main::foo और $main::{foo} के बीच दो बड़े मतभेद हैं; पूर्व संकलन समय पर छेड़छाड़ में ग्लोब को देखता है, यदि आवश्यक हो तो इसे बनाते हैं, जबकि बाद में रन टाइम पर छिद्र में ग्लोब की तलाश होती है, और इसे नहीं बनाया जाएगा।

इससे किसी भी चीज में फटकारने के बारे में कोई फर्क पड़ सकता है, और यह निश्चित रूप से प्रभावित हो सकता है कि आपको used only once चेतावनी मिलती है या नहीं।

Answer 2

निम्न स्क्रिप्ट:

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

आउटपुट:

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

तो अगर *main::foo = *main::bar;$main::{foo} = $main::{bar}; के रूप में एक ही बात नहीं करता है, मैं कैसे एक व्यावहारिक पता लगाने के लिए के रूप में एक नुकसान में हूँ अंतर। ;) हालांकि, एक वाक्यविन्यास परिप्रेक्ष्य से, ऐसी स्थितियां हो सकती हैं जहां एक विधि बनाम एक विधि का उपयोग करना आसान हो। ... प्रतीक तालिका में चारों ओर घूमने के बारे में सामान्य चेतावनियां हमेशा लागू होती हैं।

Answer 3

गुप्त कोष को एक्सेस करना के रूप में $A::{foo} = $obj आप जबकि *A::foo = $obj स्थानों $obj typeglob की उम्मीद स्लॉट पर $obj प्रकार के अनुसार प्रतीक मेज पर कुछ भी रख सकते हैं।

उदाहरण के लिए:

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