Diferentes exemplos de módulos Perl
Os métodos de uso dos módulos Perl integrados e módulos definidos pelo usuário são mostrados nesta parte do tutorial.
Exemplo 1: Usando o Módulo Integrado
Neste exemplo, são mostrados os usos de três módulos integrados de Perl. Estes são “estritos”, “avisos” e “5.34.0”. O módulo “estrito” é usado para habilitar os diferentes tipos de restrições para escrever os scripts Perl. Por exemplo, nenhuma variável pode ser declarada sem a palavra-chave “my” se este módulo for usado no script. O módulo “warnings” é usado para exibir os diferentes tipos de mensagens de aviso após a execução do script que ajuda o codificador a entender o erro. O módulo “5.34.0” é utilizado para utilizar os diferentes recursos deste módulo no script. A função “say” que serve para imprimir as mensagens com nova linha é o recurso deste módulo.
#!/usr/bin/perl
#Ativar restrição para codificação
usar estrito ;
#Exibir mensagem de aviso de erro
usar avisos ;
#Habilitar serviços diferentes
usar 5.34.0 ;
#O uso da palavra-chave 'my' é obrigatório para o módulo 'estrito'
meu $idioma = 'Perl' ;
#Ative o uso do recurso 'dizer'
dizer 'Aprenda programação em linguagem $.' ;
Saída:
A seguinte saída aparece após a execução do script:
Exemplo 2: Usando o Módulo Definido pelo Usuário
Os usuários Perl podem criar seu módulo para uma finalidade específica criando um arquivo com a extensão “.pm”. Neste exemplo, um módulo definido pelo usuário é criado e usado em outro script Perl usando a palavra-chave “use”.
Crie um módulo definido pelo usuário:
Crie um arquivo chamado “Bonus.pm” com o seguinte script. Aqui, a palavra-chave “pacote” é usada para definir que se trata de um módulo. Este módulo contém uma subrotina que calcula o bônus de um funcionário com base no salário e no valor das vendas. Dois valores de argumento são passados do script Perl no qual este módulo é usado. O primeiro argumento contém o salário e o segundo argumento contém o valor das vendas. O bônus é de 15% do valor das vendas se o salário for superior a 10.000. O bônus é de 10% do valor das vendas se o salário for superior a 7.000. O bônus é de 5% do valor das vendas se o salário for inferior a 10.000 ... O “1;” é usado no final do módulo para retornar verdadeiro. Caso contrário, um erro será impresso.
Bônus.pm
#!/usr/bin/perlusar estrito ;
usar avisos ;
usar 5.34.0 ;
pacote bônus ;
#Declare sub-rotina para calcular o bônus
sub calcular_bonus
{
# Inicialize as variáveis
meu $salário = $_ [ 0 ] ;
meu $sales_amount = $_ [ 1 ] ;
meu $ bônus = 0,0 ;
#Calcular bônus
se ( $salário > 10.000 )
{
$ bônus = $valor_vendas* 0,15 ;
}
Elif ( $salário > 7.000 )
{
$ bônus = $valor_vendas* 0,10 ;
}
outro
{
$ bônus = $valor_vendas* 0,05 ;
}
#Devolver o bônus calculado
retornar $ bônus ;
}
1 ;
Importe um módulo em um script Perl:
Crie um arquivo Perl com o script a seguir que importa o módulo “Bônus” criado anteriormente para calcular o valor do bônus de um funcionário com base no salário e no valor das vendas atribuídos no script.
#!/usr/bin/perlusar estrito ;
usar avisos ;
usar 5.34.0 ;
usar bônus ;
#Inicializar variáveis
meu $nome = 'Mir Sabbir' ;
meu $salário = 60.000 ;
meu $sal_quantia = 9700 ;
#Chama a sub-rotina do módulo
meu $ bônus = Bônus::calculate_bonus ( $salário , $sal_valor ) ;
meu $salário_com_bonus = $ salário + $ bônus ;
#Imprima as informações do funcionário com base nas vendas
dizer 'Detalhes do funcionário: \n ' ;
dizer 'Nome: $nome' ;
dizer 'Salário: $salário' ;
dizer 'Salário (com bônus): $salary_with_bonus' ;
Saída:
A seguinte saída aparece após a execução do script. Aqui, o “-eu”. deve ser usada no momento da execução do script para descobrir o módulo importado definido pelo usuário:
Exemplo 3: Usando o Módulo Definido pelo Usuário Usando “Exigir”
A função “require” é outra forma de importar os módulos no script Perl e é mostrada neste exemplo. O módulo “Bonus” criado anteriormente é importado para o script usando a função “require”. Os valores do salário e do valor das vendas são obtidos do usuário neste script. A outra parte do script é semelhante ao exemplo anterior.
#!/usr/bin/perlusar estrito ;
usar avisos ;
usar 5.34.0 ;
exigir bônus ;
#Obtenha a opinião do usuário
dizer 'Digite o nome do funcionário:' ;
mastigar ( meu $nome = <> ) ;
dizer 'Insira o salário:' ;
mastigar ( meu $salário = <> ) ;
dizer 'Insira o valor da venda:' ;
mastigar ( meu $sal_quantia = <> ) ;
#Chama a sub-rotina do módulo
meu $ bônus = Bônus::calculate_bonus ( $salário , $sal_valor ) ;
meu $salário_com_bonus = $ salário + $ bônus ;
#Imprima as informações do funcionário com base nas vendas
dizer 'Detalhes do funcionário: \n ' ;
dizer 'Nome: $nome' ;
dizer 'Salário: $salário' ;
dizer 'Salário (com bônus): $salary_with_bonus' ;
Saída:
A seguinte saída aparece após a execução do script:
Conclusão
Os usos de módulos integrados e definidos pelo usuário em Perl são mostrados neste tutorial usando exemplos simples.