Что означает «$ :: n» для perl?

Question

Знаете ли вы, что «$ :: n;» означает ? Раздел кодов выглядит следующим образом.

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

Я помню, что я также встретил $ :: v раньше. Что такое $ :: v? Имеет ли он дополнительное использование?

Я знаю только $: зарезервированное слово для perl statment с большим количеством линий, заполняющих поле.

С уважением,

TWLMD.

Answer 1

$::n такой же, как $main::n или просто $n где $ п проживает в main:: пакете.

Такие обозначения игнорируют возможные лексические (определенные с помощью my) определение $n, т.е.

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

выход 3