È buona pratica esportare variabili in Perl?

Question

Sto trovando molto comodo per passare la configurazione e altri dati che vengono letti o calcolati una volta, ma poi utilizzati più volte in un programma utilizzando il meccanismo use di Perl. Lo sto facendo esportando un hash nello spazio dei nomi del chiamante. Per esempio:

package Myconfiguration; 

my %config; 

sub import { 
    my $callpkg = caller(0); 
    my $expsym = $_[1]; 

    configure() unless %config; 

    *{"$callpkg\::$expsym"} = \%config; 
} 

e poi in altri moduli:

use MyConfiguration (loc_config_sym); 

if ($loc_config_sym{paramater}) { 
    # ... do stuff ... 
} 

Tuttavia, non sono sicuro di questo come una best practice. È meglio aggiungere un metodo che restituisca un hash ref con i dati? Qualcos'altro?

Answer 1

Se solo si desidera leggere i valori di %config, allora perché non avere una routine di farlo per tu?

my %config; 
sub config_value 
{ 
     my ($value) = @_; 
     return $config{$value}; 
} 

Si potrebbe esportare questo per difetto se si voleva:

package Mypackage; 
require Exporter; 
@EXPORT = qw/config_value/; 

La ragione per cui non avrei consentire l'accesso a l'hash in tutto il luogo in un sacco di diversi moduli è che avrei dovuto un periodo difficile tenendo mentalmente conto di tutti i posti in cui è stato utilizzato. Preferirei fare il tipo di accesso di cui sopra in modo tale che, se si verifica qualche errore, potrei aggiungere un'istruzione di stampa alla routine, o qualcosa del genere, per scoprire quando è stato effettuato l'accesso al valore. Non so se questo è collegato alle "migliori pratiche" o è solo perché sono stupido, ma il tipo di confusione creato dalle variabili globali mi spaventa.

Non c'è ragione per cui non si può avere un set di routine troppo:

sub set_value 
{ 
     my ($key, $value) = @_; 
     $config{$key} = $value; 
} 

Answer 2

Penso che sia meglio lavorare con una copia dell'hash di configurazione. In questo modo, se modifichi alcuni elementi, ciò non influirà sul resto del codice.

Io di solito uso l'oggetto semplice (facoltativamente Singleton) per questo con un singolo metodo come get_property().

Answer 3

In generale, è meglio consentire all'utente di decidere se importare o meno i simboli. Exporter rende tutto questo facile. Scrivere un metodo personalizzato import per consentire all'utente di decidere cosa denominare i simboli importati può essere utile in rare occasioni, ma non penso che questo sia uno di questi.

package MyConfiguration; 
require Exporter; 

our @ISA  = qw(Exporter); 
our @EXPORT_OK = qw(Config); 

our %Config; 

E poi, nello script:

use MyConfiguration; 
print $MyConfiguration::Config{key}; 

o

use MyConfiguration qw(Config); 
print $Config{key}; 

Answer 4

Suggerisco di non esportare variabili. Creare una classe che può invece restituire un riferimento a una variabile privata. Le persone possono quindi memorizzarle in una variabile con il nome che preferiscono e solo quando decidono di volerlo utilizzare.