usarioma escribiste:¿Qué es lo que hace la función qw()?
También vi usar de esta manera:
use POSIX qw/ strftime /;
qw() sirve para delimitar una lista de palabras. Es decir, que
Using perl Syntax Highlighting
my @palabras = ( '12', 'abuela', '45', 'casa' );Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
se puede escribir de forma más cómoda así:
Using perl Syntax Highlighting
my @palabras = qw( 12 abuela 45 casa
);Coloreado en 0.013 segundos, usando
GeSHi 1.0.8.4
o incluso así:
Using perl Syntax Highlighting
my @palabras = qw(
12 abuela
45 casa
);Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
En cuanto a los delimitadores, se pueden usar varios:
Using perl Syntax Highlighting
my @palabras = qw( 12 abuela 45 casa
);
my @palabras = qw[ 12 abuela 45 casa
];
my @palabras = qw{ 12 abuela 45 casa
};
my @palabras = qw/ 12 abuela 45 casa /;
my @palabras = qw" 12 abuela 45 casa ";
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
y así.
usarioma escribiste:¿Cómo hago para retornar una variable desde el segundo script? ¿return() y nada más?
Depende de como se haya hecho la llamada. No es lo mismo haberlo ejecutado con un do(), que haber importado funciones con use() o require(). Presenta algo de código y te diremos.
usarioma escribiste:¿Para que sirve __END__?
Para separar la zona del programa de otra zona que el compilador no mirará. Se puede usar para dejar allí comentarios, documentación, código viejo, código sin usar...