¿Qué significa "1"? significa en Perl?

Question

me he encontrado con algunos módulos Perl que, por ejemplo, un aspecto similar al siguiente código:

package MyPackage; 

use strict; 
use warnings; 
use constant PERL510 => ($] >= 5.0100); 

require Exporter; 

our @ISA = qw(Exporter); 
our @EXPORT = qw(); 

{ #What is the significance of this curly brace? 

    my $somevar; 

    sub Somesub { 
     #Some code here 
    } 
} 

1; 

¿Cuál es el significado de 1; y de las llaves que encierran el $somevar y la Subcomisión?

Answer 1

1 al final de un módulo significa que el módulo devuelve true a use/require declaraciones. Se puede usar para decir si la inicialización del módulo fue exitosa. De lo contrario, use/require fallará.

$somevar es una variable a la que solo se puede acceder dentro del bloque. Se usa para simular variables "estáticas". A partir de Perl 5.10 se puede utilizar la palabra clave state palabra clave para tener los mismos resultados:

## Starting from Perl 5.10 you can specify "static" variables directly. 
sub Somesub { 
    state $somevar; 
} 

Answer 2

Las llaves limitar el alcance de la variable local $ somevar:

{ mi $ somevar; ... } # $ el alcance de algunos somevar aquí

Answer 3

Los módulos tienen que devolver un valor verdadero. 1 es un verdadero valor.

Answer 4

No sé mucho sobre Perl, pero normalmente se crea un ámbito con llaves. Probablemente $ somevar no estará disponible globalmente?

Answer 5

Cuando carga un módulo "Foo" con use Foo o require(), perl ejecuta el archivo Foo.pm como un script ordinario. Espera que devuelva un valor verdadero si el módulo se cargó correctamente. El 1; hace eso. Podría ser 2; o "hey there"; igual de bien.

El bloque alrededor de la declaración de $somevar y la función Somesub limita el alcance de la variable. De esta manera, sólo es accesible desde Somesub y no recibe aclaró en cada invocación de Somesub (que sería el caso si se declaró en el interior del cuerpo de la función). Este lenguaje ha sido reemplazado en las últimas versiones de Perl (5.10 en adelante) que tienen la palabra clave state.

Answer 6

módulos Perl deben devolver algo que se evalúa como verdadera. Si no lo hacen, Perl informa un error.

C:\temp>cat MyTest.pm 
package MyTest; 
use strict; 
sub test { print "test\n"; } 
#1; # commented out to show error 

C:\temp>perl -e "use MyTest" 
MyTest.pm did not return a true value at -e line 1. 
BEGIN failed--compilation aborted at -e line 1. 

C:\temp> 

Aunque es costumbre usar "1;", todo lo que resulte verdadero funcionará.

C:\temp>cat MyTest.pm 
package MyTest; 
use strict; 
sub test { print "test\n"; } 
"false"; 

C:\temp>perl -e "use MyTest" 

C:\temp> (no error here) 

Por otra obvious reasons valor de retorno popular es .

Hay una lista de valores de retorno geniales mantenidos en http://returnvalues.useperl.at/values.html.

Answer 7

De la documentación para require:

El archivo debe devolver verdadero como el último declaración para indicar éxito ejecución de cualquier código de inicialización, por lo que es habitual para poner fin a un archivo de este tipo con 1; a menos que esté seguro de que va a devolver verdadero de lo contrario. Pero es mejor solo para poner el 1; , en caso de que agregue más declaraciones.