>type ee1.pl de C:\home\jerome
¡#! Perl
utilizar terminante;
utilizar MyTest;
imprimir “$_ \ n” para las llaves %hash;
>type MyTest.pm de C:\home\jerome
paquete MyTest;
utilizar terminante;
utilizar el qw bajo (exportador);
nuestro @EXPORT = qw (%hash);
nuestro %hash = (=> “valor” de la etiqueta);
1; # se requiere esto. ¡No suprimir esta línea!
>perl ee1.pl de C:\home\jerome
etiqueta
|