>type ee1.pl de C:\home\jerome
# ! Perl
employer strict ;
employer MyTest ;
imprimer « $_ \ n » pour les clefs %hash ;
>type MyTest.pm de C:\home\jerome
paquet MyTest ;
employer strict ;
employer le qw bas (exportateur) ;
notre @EXPORT = qw (%hash) ;
notre %hash = (=> « valeur » d'étiquette) ;
1 ; # ceci est exigé. Ne pas supprimer cette ligne !
>perl ee1.pl de C:\home\jerome
étiquette
|