In Perl, perché ho bisogno di esportatore?

Question

Ho un modulo chiamato hsfSubs.pm nella mia cartella perl\lib. Non ho nulla nel modulo ma subroutine e 1; alla fine.

Una subroutine, ad esempio, è denominata pause. Non ho implementato alcuna routine di importazione o esportazione.

Nei miei programmi principali, dico semplicemente use hsfSubs; e successivamente posso chiamare senza problemi pause. Idem se dico use hsfSubs qw(pause);.

Perché dovrei usare Esportatore, @EXPORT e @EXPORT_OK, ecc. O altre complicazioni?

Le risposte multiple su Stack Overflow a domande su Esportatore indicano come utilizzarlo, ma non riesco a capire perché utilizzarlo.

Answer 1

La versione breve è che si desiderava un modulo, ma si è finito con quello che this chiama una libreria. Questi non sono buoni perché inquinano lo spazio dei nomi del chiamante (che può causare molti problemi). Ma ancora più importante, caricarli usando require o use (come opposto a do) è buggato.

Se fosse stato scritto correttamente come modulo, il tuo esempio non funzionerebbe. L'esportatore è la soluzione a questo problema.

---

Entriamo nei dettagli.

Come ho già detto, c'è un problema con il modulo. Come hai notato, a volte funziona nonostante l'errore.

$ cat Buggy.pm 
sub test { "ok!" } 
1; 

$ perl -e'use Buggy; CORE::say(test());' 
ok! 

Ma questo è solo perché il tuo esempio è troppo semplice. Aggiungiamo al modulo un modulo ^[1] correttamente scritto.

$ cat Buggy.pm 
sub test { "ok!" } 
1; 

$ cat Other.pm 
package Other; 
use Buggy; 
1; 

$ perl -e'use Other; use Buggy; CORE::say(test());' 
Undefined subroutine &main::test called at -e line 1. 

Il bug nel modulo è che non ha una direttiva package. I moduli caricati utilizzando use e require devono sempre utilizzare una direttiva package. Ma non appena lo aggiungi, il tuo modulo smette di funzionare.

$ cat NotBuggy.pm 
package NotBuggy; 
sub test { "ok!" } 
1; 

$ perl -e'use NotBuggy; CORE::say(test());' 
Undefined subroutine &main::test called at -e line 1. 

L'esportatore è utilizzato per risolvere questo problema.

$ cat Final.pm 
package Final; 
use Exporter qw(import); 
our @EXPORT = qw(test); 
sub test { "ok!" } 
1; 

$ perl -e'use Final; CORE::say(test());' 
ok! 

---

1. Beh, non proprio. Se è stato scritto correttamente, dovrebbe includere use strict; use warnings 'all';. Includilo sempre! È stato omesso qui per mantenere le cose visivamente semplici.