In Perl, qual è la differenza tra un file .pm (Perl module) e .pl (Perl script)?

Question

Qual è la differenza tra il .pm (modulo Perl) e .pl (script Perl) file?

Ti prego, dimmi anche il motivo per cui torniamo 1 da file. Se restituisci 2 o qualsiasi altra cosa, non genera alcun errore, quindi perché restituiamo 1 dal modulo Perl?

Answer 1

A .pl è un singolo script.

In .pm (Perl Module) si dispone di funzioni che è possibile utilizzare da altri script Perl:

modulo A Perl è un pezzo autonomo di codice Perl che può essere utilizzato da un programma Perl o da altri moduli Perl. È concettualmente simile a una libreria C link o a una classe C++.

Answer 2

Al centro, l'estensione di file utilizzata non fa differenza su come perl interpreta quei file.

Tuttavia, mettere i moduli in .pm file seguendo una certa struttura di directory che segue il nome del pacchetto fornisce una comodità. Quindi, se si dispone di un modulo Example::Plot::FourD e lo si inserisce in una directoryin un percorso nel proprio @INC, quindi use e require farà la cosa giusta quando viene indicato il nome del pacchetto come in use Example::Plot::FourD.

Il file deve restituire true come ultima istruzione per indicare l'esecuzione con successo di qualsiasi codice di inizializzazione, quindi è consuetudine terminare tale file con 1; meno che non siate sicuri che restituisca vero il contrario. Ma è meglio mettere semplicemente lo 1;, nel caso aggiungeste altre dichiarazioni.

Se EXPR è un bareword, il require assume un'estensione ".pm" e sostituisce '::' con '/' nel nome del file per voi, per rendere più facile il caricamento dei moduli standard. Questa forma di caricamento dei moduli non rischia di alterare il tuo spazio dei nomi.

Tutto use fa è di capire il nome del file dal nome del pacchetto disponibile, require in un blocco BEGIN e richiamare import sul pacchetto. Non c'è nulla che ti impedisca di non utilizzare use ma di eseguire questi passaggi manualmente.

Ad esempio, qui sotto ho messo il pacchetto Example::Plot::FourD in un file chiamato t.pl, caricato in uno script in un file s.pl.

C:\Temp> cat t.pl 
package Example::Plot::FourD; 

use strict; use warnings; 

sub new { bless {} => shift } 

sub something { print "something\n" } 

"Example::Plot::FourD" 

C:\Temp> cat s.pl 
#!/usr/bin/perl 
use strict; use warnings; 

BEGIN { 
    require 't.pl'; 
} 

my $p = Example::Plot::FourD->new; 
$p->something; 


C:\Temp> s 
something 

Questo esempio dimostra che i file dei moduli non devono finire in 1, qualsiasi valore reale farà.