richtiger Weg ein Perl globalen Variable aktualisiert

Question

Ich habe den globalen folgende in Variable in file_1.pl, im Paket main:

package main; 

my $var = -1; 

Wenn ich diese Variable aus einer anderen Perl-Datei aktualisieren muß, was ist der Weg es zu tun? Ich habe versucht:

$main::var = 1 

Aber es hat nicht funktioniert.

Was ist der richtige Weg?

Vielen Dank!

Answer 1

Sie haben die Variable mit our anders zu erklären, als lexikalischer Variable betrachtet würde es so ändern wie

our $var = -1; 

Answer 2

Sie können eine Wrapper-Funktion erstellen.

In Hauptdatei

our $var; 
sub updateGlobal { 
    $var = shift; 
} 

In der anderen Datei aufrufen nur eine Funktion

updateGlobal(1); 

Answer 3

Die my macht eine lexikalische Variable. Es ist auf seinen Block oder, wenn nicht in einem Block, auf die Datei beschränkt. Sie können nicht außerhalb ihres Geltungsbereichs gesehen werden.

Sie könnten eine globale Variable erstellen, wie andere Antworten haben gezeigt:

our $var; 

jedoch einen besseren Weg, andere Teile des Codes eine Schnittstelle zum Aktualisieren der lexikalische Version zu geben:

my $private; 

sub set_private { $private = shift } 

Wie auch immer, wenn Sie das tun, können Sie auch eine Schnittstelle haben, um den Wert zu erhalten. Nun, da Variable muss nur im gleichen Umfang wie die Subroutinen sein, die es verwenden, so können Sie es aus dem Rest der Datei verstecken:

{ 
my $private; 
sub set_private { $private = shift } 

sub get_private { $private } 
} 

jetzt Sie sind nur einen Schritt entfernt von einem Objekt (in Dieser Fall, ein Singleton):

use v5.12; 

package Foo { 
    my $private; 
    sub new { bless \$private, shift } 
    sub set { my $self = shift; $$self = shift; } 

    sub get { my $self = shift; $$self; } 
    }