Was bedeutet '$ :: n' für Perl?

Question

Wissen Sie, was "$ :: n;" meint ? Der Codeabschnitt ist wie folgt.

use JSON::XS; 
# ... 
open (YI, "| $cmd"); 
my $msg = { test => test }; 
my $emsg = encode_json($msg); 
print YI "$msg_inject\n" unless $::n; 
close YI;` 

Ich erinnere mich, dass ich auch traf $ :: v vor. Was ist $ :: v? Hat es zusätzliche Verwendung?

Ich weiß nur $: ist reserviertes Wort für eine Perl-Anweisung mit mehr Zeilen füllen ein Feld.

Mit freundlichen Grüßen,

TWLMD.

Answer 1

$::n ist die gleiche wie $main::n oder nur $n wobei $ n in main:: Paket befinden.

Diese Notation ignoriert eventuelle lexikalische (definiert mit my) Definition von $n, dh.

perl -Mstrict -we 'our $n=3; my $n=1; print $::n' 

Ausgang ist 3