Você está aqui: Perl ::: Dicas de Estudo e Anotações ::: Estruturas de Controle |
Aprenda a usar o laço foreach da linguagem PerlQuantidade de visualizações: 8251 vezes |
|
O laço foreach da linguagem Perl é útil quando queremos acessar ou percorrer os elementos de um array ou hash (array associativo) de forma individual. A vantagem de se usar este laço é que o Perl automaticamente nos fornece um iterador para acessar os itens da coleção de dados. Veja um exemplo no qual acessamos cada elemento de um array, adicionamos 2 ao seu valor atual e imprimimos o valor resultante: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
# Como usar o laço foreach em Perl
# declarando e inicializando um array de inteiros
@valores = (40, 6, 3, 10, 87);
# vamos usar um laço foreach para percorrer todos os
# elementos do array
foreach $valor(@valores){
$valor += 2;
print $valor . "\n";
}
Note que aqui nós usamos o escalar $valor para servir como iterador nos elementos do array @valores. Uma forma alternativa é usar o escalar "$_" como iterador padrão (fornecido automaticamente pelo Perl). Veja: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
# Como usar o laço foreach em Perl
# declarando e inicializando um array de inteiros
@valores = (12, 6, 3, 10, 87);
# vamos usar um laço foreach para percorrer todos os
# elementos do array
foreach(@valores){
$_ += 2;
print $_ . "\n";
}
É claro que esta segunda forma torna o laço foreach menos legível, mas é totalmente funcional. O laço foreach também é útil quando precisamos percorrer os itens de um hash (array associativo). Veja: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
# Como usar o laço foreach em Perl
# declarando e inicializando um hash de códigos
# e nomes de clientes
%codigos = (12 => "Osmar J. Silva",
43 => "Marcos de Souza Oliveira",
56 => "Gustavo Jorge Palmeira");
# vamos usar um laço foreach para percorrer todas as
# chaves e valores do hash codigos
foreach $codigo(keys %codigos){
print "Código: " . $codigo . " - Cliente: " .
$codigos{$codigo} . "\n";
}
Aqui nós usamos a função keys para obter cada chave individual do hash e guardá-la no escalar $codigo. Em seguida nós usamos este escalar para obter o valor correspondente à chave atual. |
 Link para compartilhar na Internet ou com seus amigos: |
Veja mais Dicas e truques de Perl |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
