>type ee1.pl de C:\home\jerome
#! Perl
usar estrito;
usar MyTest;
imprimir “$_ \ n” para as chaves %hash;
>type MyTest.pm de C:\home\jerome
pacote MyTest;
usar estrito;
usar o qw baixo (exportador);
nossos @EXPORT = qw (%hash);
nosso %hash = (=> “valor” do Tag);
1; # isto é exigido. Não suprimir desta linha!
>perl ee1.pl de C:\home\jerome
Tag
|