Comment garder une variable portée à tous les sous-routines

Question

je suis en train de créer un module qui est comme ce

package MyModule; 

use strict; 
use Exporter; 
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); 

$VERSION = 1.00; 
@ISA = qw(Exporter); 
@EXPORT = qw(func1); 

sub func1 {  
    my x = shift;  
    print x;  
    func2();  
} 

sub func2 {  
    print x;  
} 

et à partir d'un script perl, je fais appel func1 du module et le passage d'une variable x. comment puis-je rendre cette variable visible aux deux sous-programmes ou dire toutes les fonctions à l'intérieur de ce module. S'il vous plaît aider.

Answer 1

Déclare $x dans le cadre du fichier en utilisant my ou our:

my $x; 

# subroutines definition 

fichier a Plus grande portée lexicale, de sorte que la variable sera visible pour le reste du code (sauf si vous le re-déclarer dans une portée interne en utilisant my).

Answer 2

Faire $x lexical dans le fichier package plutôt qu'un seul sous-programme:

package MyModule; 

use strict; 
use Exporter; 
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); 

$VERSION = 1.00; 
@ISA = qw(Exporter); 
@EXPORT = qw(func1); 

my $x; 

sub func1 { 

    $x = shift; 
    print $x; 

    func2(); 
} 

sub func2 { 

    print $x; 
} 

---

Mais cet exemple ne fait pas vraiment de sens. Un exemple plus raisonnable serait de définir un descripteur de fichier lexical qui sous-routines multiples dans le package imprimer à:

package PoorManLogger; 

my $fileHandle; 

sub initialize { open $fileHandle, '<', +shift } 

sub alert { print $fileHandle 'ALERT: ', @_, "\n"; } 

sub debug { print $fileHandle 'DEBUG: ', @_, "\n"; } 

sub close { close $fileHandle; } # Though this isn't technically needed. 

1; 

Answer 3

voir our

(commentaires à ma suggestion sont correctes, ma suggestion n'a pas été)

Answer 4

L'un des principaux avantages de OO est l'encapsulation:

#!/usr/bin/perl 

package MyModule; 

use strict; use warnings; 

sub new { 
    my $class = shift; 
    bless { x => shift } => $class; 
} 

sub x { 
    my $self = shift; 
    $self->{x} = shift if @_; 
    return $self->{x}; 
} 

sub func2 { 
    my $self = shift; 
    print $self->x, "\n"; 
} 

package main; 

use strict; use warnings; 

my $m = MyModule->new(5); 

$m->func2; 

$m->x(7); 

$m->func2;