Foro - Perl en Español

Código: Seleccionar todo

# funciones.pl
sub pinta
{
    my $nombre = shift;
    print "Hola $nombre\n";
}
1;


Código: Seleccionar todo

#!/usr/bin/perl
require 'funciones.pl';
my $nombre = "Leibvitz";
&pinta($nombre);


Código: Seleccionar todo

package Funciones;
sub pinta
{
    my $nombre = shift;
    print "Hola $nombre\n";
}
1;

Código: Seleccionar todo

#!/usr/bin/perl
use Funciones;
Funciones::pinta("Leibvitz");

Código: Seleccionar todo

package Funciones;
use Exporter;
@ISA = ('Exporter');
@EXPORT = qw( &pinta );
sub pinta
{
    my $nombre = shift;
    print "Hola $nombre\n";
}
1;

Código: Seleccionar todo

#!/usr/bin/perl
use Funciones;
pinta("Leibvitz");

Joaquin escribiste:No es necesario hacer un módulo para dividir un programa en partes.
El método más sencillo para incorporar funciones definidas en otros archivos perl es importarlas con el operador do o con el require.
Por ejemplo, tenemos este código con una función definida:

Joaquin escribiste:Sólo tiene una función, que necesita un parámetro. Luego, tenemos un programa que necesita esa función:

Código: Seleccionar todo

#!/usr/bin/perl
require 'funciones.pl';
my $nombre = "Leibvitz";
&pinta($nombre);


Se podía haber usado 'do' en vez de 'require', pero este último hace un chequeo de errores, provoca una excepción si no encuentra el fichero, no es capaz de compilar el código perl o si después de hacerlo algún código de inicialización devuelve un valor que no sea positivo (por eso el fichero acaba en un 1; )

Joaquin escribiste:De todas formas, hacer un módulo es fácil:
Módulo Funciones.pm:

Código: Seleccionar todo

package Funciones;
sub pinta
{
    my $nombre = shift;
    print "Hola $nombre\n";
}
1;

Programa:

Código: Seleccionar todo

#!/usr/bin/perl
use Funciones;
Funciones::pinta("Leibvitz");

O importando los nombres de las funciones dentro de tu programa:
Módulo Funciones.pm:

Código: Seleccionar todo

package Funciones;
use Exporter;
@ISA = ('Exporter');
@EXPORT = qw( &pinta );
sub pinta
{
    my $nombre = shift;
    print "Hola $nombre\n";
}
1;

Programa:

Código: Seleccionar todo

#!/usr/bin/perl
use Funciones;
pinta("Leibvitz");

- Los módulos son verificados en tiempo de compilación, a diferencia de require/do, que son en tiempo de ejecución, por lo tanto la falta de módulos y algunos otros fallos en compile-time, pueden ser atrapados directamente con use.

- En conjunto con eval puede permitirte el name mapping y otras técnicas en tiempo de ejecución.

- Lo que use realiza detrás de las cámaras es:


Código: Seleccionar todo

use Mi::Modulo;



es tratado como:


Código: Seleccionar todo

BEGIN {
   require Mi::Modulo;
   import Mi::Modulo;
}



Es decir, hace la carga del módulo, e importará al espacio de nombres actual los símbolos que dicho módulo importe por default según indicado en Exporter.
Sin embargo, cuando usamos:


Código: Seleccionar todo

use Mi::Modulo qw( foo bar baz);



lo que normalmente quiere decir Perl es:


Código: Seleccionar todo

BEGIN {
   require Mi::Modulo;
   import Mi::Modulo qw( foo bar baz );
}



es decir, importa los símbolos foo bar y baz a nuestro espacio de nombres.
y el uso de:


Código: Seleccionar todo

use Mi::Modulo ();



es convertido a:


Código: Seleccionar todo

BEGIN { require Mi::Modulo; }


Perl user escribiste:El uso de &func( params ) creo que ya lo había comentado anteriormente en el foro, ha sido descalificado desde Perl 5.003, por qué? No permite el uso de prototipos, hace mas oscuro el código, y el uso de &func hace uso de la misma @_. Sin embargo goto &func o \&func es otro rollo. &func también puede servirte sólo cuando lo usas en conjunto con defined.
No es buen estilo. Déjalo para Perl4.

A subroutine may be called using an explicit "&" prefix. The "&" is optional in modern Perl, as are parentheses if the subroutine has been predeclared. The "&" is not optional when just naming the
subroutine, such as when it's used as an argument to defined() or undef(). Nor is it optional when you want to do an indirect subroutine call with a subroutine name or reference using the "&$subref()"
or "&{$subref}()" constructs, although the "$subref->()" notation solves that problem. See perlref for more about all that.

Subroutines may be called recursively. If a subroutine is called using the "&" form, the argument list is optional, and if omitted, no @_ array is set up for the subroutine: the @_ array at the time
of the call is visible to subroutine instead. This is an efficiency mechanism that new users may wish to avoid.

&foo(1,2,3); # pass three arguments
foo(1,2,3); # the same

foo(); # pass a null list
&foo(); # the same

&foo; # foo() get current args, like foo(@_) !!
foo; # like foo() IFF sub foo predeclared, else "foo"

Not only does the "&" form make the argument list optional, it also disables any prototype checking on arguments you do provide. This is partly for historical reasons, and partly for having a conve-
nient way to cheat if you know what you're doing. See Prototypes below.

El uso de '&' es opcional si la subrutina ha sido declarada antes.
No es opcional cuando se utiliza como argumento a funciones como defined() y undef() o en una llamada indirecta, como en &$referenciaAsubrutina() o &{$referenciaAsubrutina}().
El uso de '&' hace pasar el actual valor de @_ como argumento, lo cual puede ser cómodo, pero a su vez olvida la definición dada en el prototipado