comandos - perl manejo de archivos

¿Cómo incluyo funciones de otro archivo en mi script de Perl?

Question

Parece una pregunta muy simple, pero de alguna manera mi Google-Fu me falló.

¿Cuál es la sintaxis para incluir funciones de otros archivos en Perl? Estoy buscando algo como C''s #include "blah.h"

Vi la opción de usar módulos Perl, pero parece que requerirá una reescritura no insignificante de mi código actual.

Answer 1

Además, do ''file.pl''; funcionará, pero los módulos son la mejor solución.

Answer 2

Creo que estás buscando require o use palabras clave.

Answer 3

Lo que estás buscando es ''require file.pl'', pero lo que deberías mirar es ''use module''.

Answer 4

Perl require hará el trabajo. Deberá asegurarse de que cualquier archivo ''requerido'' devuelva la verdad al agregar

1;

al final del archivo.

Aquí hay una pequeña muestra:

$ cat m1.pl
use strict;
sub x { warn "aard"; }
1;
$ cat m2.pl
use strict;
require "m1.pl";
x();
$ perl m2.pl
aard at m1.pl line 2.

Pero migre a módulos tan pronto como pueda .

EDITAR

Algunas ventajas de migrar código de scripts a módulos:

• Sin paquetes, todo ocupa un solo espacio de nombres, por lo que puede acceder a una situación donde dos funciones de archivos separados desean el mismo nombre.
• Un paquete le permite exponer algunas funciones, pero esconder otras. Sin paquetes, todas las funciones son visibles.
• Los archivos incluidos con require solo se cargan en tiempo de ejecución, mientras que los paquetes cargados con el use están sujetos a comprobaciones anteriores en tiempo de compilación.

Answer 5

Sé que la pregunta específicamente dice "funciones", pero obtengo esta publicación en lo alto cuando busco "incluir perl", y muchas veces (como ahora) quiero incluir variables (de una manera sencilla, sin tener que pensar) sobre módulos). Así que espero que esté bien publicar mi ejemplo aquí (ver también: Perl require and variables , en resumen: use require , y asegúrese de que tanto los archivos "includer" como "includee" declaren la variable como our ):

$ perl --version
This is perl, v5.10.1 (*) built for i686-linux-gnu-thread-multi ...
$ cat inc.pl
use warnings;
use strict;
our $xxx = "Testing";
1;
$ cat testA.pl
use warnings;
use strict;
require "inc.pl";
our $xxx;
print "1-$xxx-/n";
print "Done/n";
$ perl testA.pl
1-Testing-
Done
$ cat testB.pl
use warnings;
use strict;
our $xxx;
print "1-$xxx-/n";
$xxx="Z";
print "2-$xxx-/n";
require "inc.pl";
print "3-$xxx-/n";
print "Done/n";
$ perl testB.pl
Use of uninitialized value $xxx in concatenation (.) or string at testB.pl line 5.
1--
2-Z-
3-Testing-
Done

Answer 6

Sin embargo, debería buscar en los módulos perl, para un hack rápido siempre podría ejecutar "perl -P", que ejecuta su script perl a través del preprocesador C. Eso significa que puedes hacer #include y friends ....

Solo un truco rápido, ten cuidado ;-)

Answer 7

Todas las respuestas anteriores ignoraron la parte del cliente: cómo importar el módulo.

Consulte la respuesta aceptada aquí: ¿Cómo uso un módulo Perl desde una ubicación relativa?

Sin el truco en esta respuesta, tendrá muchos problemas para tratar de obtener la ruta del módulo correcta cuando use $mymodule;

Answer 8

Usa un módulo. Consulte perldoc perlmod y Exporter .

En el archivo Foo.pm

package Foo;
use strict;
use warnings;
use Exporter;
our @ISA= qw( Exporter );
# these CAN be exported.
our @EXPORT_OK = qw( export_me export_me_too );
# these are exported by default.
our @EXPORT = qw( export_me );
sub export_me {
# stuff
}
sub export_me_too {
# stuff
}
1;

En tu programa principal:

use strict;
use warnings;
use Foo; # import default list of items.
export_me( 1 );

O para obtener ambas funciones:

use strict;
use warnings;
use Foo qw( export_me export_me_too ); # import listed items
export_me( 1 );
export_me_too( 1 );

También puede importar variables del paquete, pero la práctica es desalentada.