Sub-rotinas Perl (funções)

As sub-rotinas Perl também são funções definidas pelo usuário.

Uma sub-rotina Perl é um trecho de código separado que executa uma tarefa específica, o que pode reduzir o código repetitivo e tornar o programa mais fácil de ler.

As sub-rotinas Perl podem aparecer em qualquer lugar do programa e o formato da sintaxe é o seguinte:

 sub subrotina{ instruções;}

Formato de sintaxe para chamar a sub-rotina:

 subrotina(lista de parâmetros);

Nas versões anteriores ao Perl 5.0, o método de chamada de uma sub-rotina é o seguinte:

 &subrotina(lista de parâmetros);

Na nova versão, embora este método de chamada também seja suportado, seu uso não é recomendado.

A seguir, vejamos um exemplo simples:

Exemplo

#!/usr/bin/perl # Definição de função sub Olá { imprimir " Olá, mundo! n " ; #Chamada de função Olá ( ) ;

Executando o programa acima, o resultado de saída é:

 Olá, mundo!

Passar parâmetros para sub-rotina

Os subprogramas Perl podem aceitar vários parâmetros como outros parâmetros de programação são marcados com o array especial @_.

Portanto, o primeiro parâmetro da sub-rotina é $_[0], o segundo parâmetro é $_[1] e assim por diante.

Independentemente de os parâmetros serem escalares ou array, quando o usuário passa os parâmetros para a sub-rotina, o Perl os chama por referência por padrão.

Exemplo

#!/usr/bin/perl #Definir função de média sub Média { # Obtém todos os parâmetros recebidos $n = escalar ( @_ ) ; $ soma = 0 ; $item ( @_ ) { $soma += $ item } $average = $sum / $n; print 'O parâmetro passado é: ',"@_n"; # Imprime o array inteiro print "O primeiro valor do parâmetro é: $_[0]n"; O primeiro parâmetro print "O valor médio dos parâmetros passados ​​é: $averagen" #Imprime o valor médio} #Chama a função Average(10, 20, 30);

Executando o programa acima, o resultado de saída é:

 Os parâmetros passados ​​são: 10 20 30 O valor do primeiro parâmetro é: 10 O valor médio dos parâmetros passados ​​é: 20

Os usuários podem alterar o valor do parâmetro real correspondente alterando o valor na matriz @_.

Passar uma lista para uma sub-rotina

Como a variável @_ é um array, uma lista pode ser passada para ela na sub-rotina.

Mas se precisarmos passar parâmetros escalares e de array, precisamos colocar a lista no último parâmetro, conforme mostrado abaixo:

Exemplo

#!/usr/bin/perl #define a função sub ImprimirLista { meu @lista = @_ ; imprimir " A lista é: @list n " ; $ a = 10 ; @b = ( 1 , 2 , 3 , 4 ) ; ImprimirLista ( $a , @b ) ;

O programa acima combina escalares e arrays, e a saída é:

 A lista é: 10 1 2 3 4

Podemos passar vários arrays e hashes para a sub-rotina, mas ao passar vários arrays e hashes, identidades independentes serão perdidas. Portanto, precisamos usar referências (serão apresentadas no próximo capítulo) para passar.

Passar hash para sub-rotina

Quando uma tabela hash é passada para a sub-rotina, ela é copiada para @_ e a tabela hash é expandida em uma lista de combinações de chave/valor.

Exemplo

#!/usr/bin/perl #Definição de método sub ImprimirHash { meu ( % hash ) = @_ ; meu $chave ( chaves %hash ) { meu $valor = $ hash { $chave } ; " $chave : $valor n " } } %hash = ( ' nome ' => ' codercto ' , ' idade ' = > 3 ) ; ImprimirHash ( %hash ) ;

O resultado de saída da execução do programa acima é:

 idade: 3nome: codercto

valor de retorno da sub-rotina

As sub-rotinas podem retornar valores de função usando a instrução return, assim como em outras linguagens de programação.

Se uma instrução return não for usada, a última linha da sub-rotina será usada como valor de retorno.

Exemplo

#!/usr/bin/perl #Definição de método sub add_a_b { #Não use retorno $_ [ 0 ] + $ _ [ 1 ] ; # retornar $_[0]+$_[1]; } imprimir add_a_b ( 1 , 2 )

O resultado de saída da execução do programa acima é:

 3

Podemos retornar escalares, arrays e hashes em sub-rotinas, mas ao retornar múltiplos arrays e hashes, identidades independentes serão perdidas. Portanto, precisamos usar referências (introduzidas no próximo capítulo) para retornar múltiplos arrays e funções.

Variáveis ​​privadas de sub-rotina

Por padrão, todas as variáveis ​​em Perl são variáveis ​​globais, o que significa que as variáveis ​​podem ser chamadas em qualquer lugar do programa.

Se precisarmos definir uma variável privada, podemos usar o operador my para defini-la.

O operador my é usado para criar variáveis ​​com escopo lexical. As variáveis ​​criadas por my sobrevivem desde o início da declaração até o final do escopo fechado.

O escopo fechado refere-se à área dentro de um par de chaves, um arquivo ou uma string if, while, for, foreach ou eval.

O exemplo a seguir demonstra como declarar uma ou mais variáveis ​​privadas:

 sub somefunc { my $variable; # $variable não é visível fora do método somefunc() my ($another, @an_array, %a_hash);

Exemplo

#!/usr/bin/perl #Variáveis ​​globais $string = " Olá, Mundo ! " ; sub ImprimirOlá { #Variáveis ​​privadas da função PrintHello meu $string ; $string = " Olá , Codercto! " ; " String dentro da função: $string n " ; # Função de chamada ImprimirOlá ( ) ; imprime " String fora da função: $string n " ;

O resultado de saída da execução do programa acima é:

 String dentro da função: Hello, Codercto! String fora da função: Hello, World!

Atribuição temporária de variáveis

Podemos usar local para fornecer valores temporários para variáveis ​​globais e retornar os valores originais após sair do escopo.

As variáveis ​​definidas por local não existem no programa principal, mas existem no subprograma e nos subprogramas chamados pelo subprograma. Você pode atribuir um valor a ele ao defini-lo, como:

Exemplo

#!/usr/bin/perl #Variáveis ​​globais $string = " Olá , mundo! " ; ImprimirCodercto { #PrintHello variável privada da função local $string ; $string = " Olá, Codercto ! " ; ImprimirMe ( ) ;​ " Valor da string na função PrintCodercto: $string n " ; sub Imprimir- me { imprimir " Valor da string na função PrintMe: $ string n " } sub ImprimirOlá { imprimir " Valor da string na função PrintHello: $string n " ; #Chamada de função PrintCodercto ( ) ; ImprimirOlá ( ) ;​ " Valor da string fora da função: $string n " ;

O resultado de saída da execução do programa acima é:

 Valor da string dentro da função PrintMe: Hello, Codercto!PrintCodercto Valor da string dentro da função: Hello, Codercto!PrintHello Valor da string dentro da função: Hello, World! Valor da string fora da função: Hello, World!

variável estática

A função do operador de estado é semelhante ao modificador estático em C. A palavra-chave state torna as variáveis ​​locais persistentes.

state também é uma variável lexical, portanto só é válida no escopo lexical em que a variável está definida.

Exemplo

#!/usr/bin/perl usar recurso ' estado ' ;​ Contagem de impressões { estado $count = 0 ; #Inicializar variáveis imprimir " o valor do contador é: $ count n " ; para ( 1.5 ) {​​ ImprimirContagem ( ) ;​

O resultado de saída da execução do programa acima é:

 O valor do contador é: 0 contador O valor é: 1 contador O valor é: 2 contador O valor é: 3 contador O valor é: 4

Nota 1: o estado só pode criar variáveis ​​cujo escopo fechado esteja dentro da sub-rotina.

Nota 2: o estado foi introduzido a partir do Perl 5.9.4, portanto use deve ser adicionado antes do uso.

Nota 3: o estado pode declarar escalares, arrays e hashes. Mas arrays e hashes não podem ser inicializados quando são declarados (pelo menos não em Perl 5.14).

contexto de chamada de sub-rotina

Durante o processo de chamada da sub-rotina, diferentes tipos de valores serão retornados de acordo com o contexto. Por exemplo, a seguinte sub-rotina localtime() retorna uma string em um contexto escalar e uma lista em um contexto de lista:

Exemplo

#!/usr/bin/perl # Contexto escalar meu $datastring = hora local ( tempo ) ; imprimir $datastring ; imprimir " n " ; # contexto da lista ( $sec , $min , $hour , $mday , $ mon , $ year , $ wday , $yday , $isdst ) = hora local ( hora ) ; :%d " , $ano + 1990 , $mon + 1 , $mdia , $hora , $min , $sec ) ; imprimir " n " ;

O resultado de saída da execução do programa acima é:

 Domingo, 12 de junho 15:58:09 20162106-6-12 15:58:9