Sintaxis de Perl sigil

Question

Puedo saber de qué sirve el & en frente de los subs cuando, sin él, los subs todavía se pueden ejecutar.

Y también, el my delante de las variables perl.

Sé que es para la sintaxis del lenguaje estricto o no, pero ¿por qué no simplemente lo convierten en un estándar que cada variable debe ser declarada por un my?

EDIT

Gracias por todas sus discusiones/respuestas, que desean aceptar muchas de sus respuestas, pero ya que soy sólo puede aceptar una, me aceptarán aquel en el que otros usuarios puedan entender con facilitar.

Answer 1

En Perl, las llamadas de función se han optimizado para no requerir el sigil & en todo momento. Cuando se declara una subrutina:

sub hello {print "world\n"} 

se le puede llamar como hello; o hello(); o &hello(); que todos hacen lo mismo.

Si su subrutina toma argumentos, es un poco diferente:

sub hello {print "Hello, @_!\n"} 

hello 'World'; # prints 'Hello, World!' 
hello('World'); # same 
&hello('World'); # same 

hello; # prints 'Hello, !' 
&hello(); # same 
&hello; # different, uses whatever was in @_ when hello was called 

@_ = 'Bob'; 

hello; # prints 'Hello, !' 
&hello(); # prints 'Hello, !' 
&hello; # prints 'Hello, Bob!' 

Así como se puede ver, utilizando el sigilo & es en gran medida redundante, excepto en el caso en que no hay ninguna lista de argumentos. En ese caso, se llama a la subrutina con los valores actuales en @_.

El & sigil también tiene otro comportamiento especial, relacionado con los prototipos de Perl. Digamos que estuviera escribiendo su propia función keys, y quería que se comporte como Perl:

sub mykeys (\%) {keys %{$_[0]}} 

Aquí el Perl (\%) prototipo dice que el primer argumento de mykeys debe ser un hash literal (que se pasa como un hash referencia).

my $hashref = {...}; 

say for mykeys %$hashref; 

Si por alguna razón usted necesita para conseguir alrededor de este requisito (por lo general no es la mejor idea), se podría escribir esto:

say for &mykeys($hashref); # note that there is no `%` 

En este caso, la adición de & antes de la sub desactiva el prototipo comprobar y cualquier acción posterior que habría realizado (como tomar la referencia). En este uso, & es básicamente una afirmación de que sabes exactamente qué argumentos necesita mykeys, y no quieres que perl se interponga en el camino.

En general, se debe evitar el uso de & en las subrutinas, a menos que desee explícitamente uno de los comportamientos que mencioné anteriormente.

Por último, & también se necesita cuando se está refiriendo a la referencia de código real:

my $coderef = \&hello; 

o

if (defined &hello) {print "hello is defined\n"} # but is not called 

---

Como otros han mencionado, el operador my declara las variables en el alcance léxico actual. Se requiere cuando se carga el pragma use strict;.Perl tiene dos tipos de variables, las variables léxicas declaradas con my y las variables del paquete.

my variables viven en lo que se llama una almohadilla léxica, que es un espacio de almacenamiento creado por Perl cada vez que se introduce un nuevo ámbito. Las variables de paquete viven en la tabla de símbolos global.

use strict; 
use warnings; 

$main::foo = 5; # package variable 

{ # scope start 
    my $foo = 6; 

    print "$foo, $main::foo\n"; # prints '6, 5'; 
} # scope end 

print "$foo, $main::foo\n"; # syntax error, variable $foo is not declared 

Puede utilizar la palabra clave our para crear un alias de léxico a una variable global:

use strict; 


our $foo = 5; # $main::foo == $foo 


{ # scope start 
    my $foo = 6; 

    print "$foo, $main::foo\n"; # prints '6, 5'; 
} # scope end 

print "$foo, $main::foo\n"; # prints '5, 5' 
          # since $foo and $main::foo are the same 

Answer 2

El my limita la variable al alcance actual. Con el use strict pragma, que debe usar, debe declarar las variables (por ejemplo, con my). La alternativa de irse sin existe por razones de flexibilidad para scripts muy cortos.

& casi nunca se utiliza, ya que Perl interpreta por defecto las palabras sigil-less como subrutinas, pero es útil si desea crear una referencia a la subrutina.

sub say_hi { print "hi\n" } 
my $sub_ref = \&say_hi; 

Answer 3

se puede saber cuál es el uso de la & frente a los submarinos cuando sin ella, los sandwiches son todavía capaces de correr.

compatibilidad hacia atrás con Perl 4

Y también, el de mi frente a las variables de Perl.

Establece ámbito de bloque

Sé que es para la sintaxis del lenguaje estricta o lo que no, pero ¿por qué no simplemente lo convierten en un estándar que todas las variables debe ser declarada por un mi?

1. Compatibilidad hacia atrás (de ahí use strict; rechazando las declaraciones de variables desnudos)
2. Las variables también se pueden declarar con our o local

Answer 4

& ha sigue siendo bastante bueno distinción: llamar con ella (&YourSub) hace actual @_ visible para sub llamado también. De todos modos, lo uso en mis scripts sobre todo por razones de claridad: deja en claro, que son mis propias funciones y las funciones de núcleo o módulos.

Acerca de my. Todos los tutoriales y documentos sugieren utilizar use strict; pragma, por lo que debe declarar su varaible con my también.Entonces, la situación desde mi punto de vista es bastante atrás: si el alcance es tan importante para las mejores prácticas, sería normal que las variables tengan un alcance predeterminado (como decimos con my ahora) y cuando realmente necesitamos variables globales, deberíamos declararlos como eso. Entiendo que es el legado de Perl, pero aún así es contrario a la ideología de Perl evitar la redundancia. El uso de my cada vez que se declara podría ser anulado por algún tipo de pragma. [Lo siento, robobooga, tal vez ir demasiado lejos de tu pregunta]

Answer 5

Si quieres saber cómo escribir Perl moderno, te recomiendo que leas Modern Perl? Puede comprar una versión de árbol muerto o descargar una versión electrónica de forma gratuita.