Hash Perl

Um hash é uma coleção de pares chave/valor .

Variáveis ​​hash em Perl começam com um sinal de porcentagem (%).

Acesse o formato do elemento hash: ${key} .

Aqui está um exemplo simples de hash:

Exemplo

#!/usr/bin/perl % data = ( ' google ' , ' google.com ' , ' codercto ' , ' codercto.com ' , ' taobao ' , ' taobao.com ' ) ; " $ dados{'google'} = $ dados {'google'} n " ; " $ dados{'codercto'} = $dados { 'codercto'} n " imprimir " $ dados{'taobao'} = $dados {'taobao'} n " ;

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

Crie um hash

Existem duas maneiras de criar um hash:

1. Defina o valor para cada chave

 $data{'google'} = 'google.com';$data{'codercto'} = 'codercto.com';$data{'taobao'} = 'taobao.com';

2. Configuração por meio de lista

O primeiro elemento da lista é a chave e o segundo elemento é o valor.

 %dados = ('google', 'google.com', 'codercto', 'codercto.com', 'taobao', 'taobao.com');

Você também pode usar o símbolo => para definir chave/valor:

 %dados = ('google'=>'google.com', 'codercto'=>'codercto.com', 'taobao'=>'taobao.com');

O exemplo a seguir é uma variação do exemplo acima, usando - em vez de aspas:

 %dados = (-google=>'google.com', -codercto=>'codercto.com', -taobao=>'taobao.com');

Desta forma, espaços não podem aparecer na chave. A forma de ler os elementos é:

 $val = $data{-google}$val = $data{-codercto}

Acessar elementos hash

Acesse o formato do elemento hash: ${key} , o exemplo é o seguinte:

Exemplo

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' => ' taobao.com ' ) ; " $ dados{'google'} = $ dados {'google'} n " ; " $ dados{'codercto'} = $dados { 'codercto'} n " imprimir " $ dados{'taobao'} = $dados {'taobao'} n " ;

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

Ler valor de hash

Você pode extrair valores de um hash da mesma forma que um array.

O valor hash é extraído em um formato de sintaxe de array: @{key1,key2} .

Exemplo

#!/uer/bin/perl %dados = ( - taobao => 45 , -google => 30 , -codercto => 40 ) ; @array = @data { -taobao , -codercto } ;​​ " Matriz: @array n " ;

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

 Matriz: 45 40

Leia a chave hash e o valor

Leia todas as chaves

Podemos usar a função keys para ler todas as chaves do hash.

 chaves %HASH

Esta função retorna um array de todas as chaves para todos os hashes.

Exemplo

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %dados ; imprimir " $nomes [0] n " ; " $nomes [1] n " ; " $nomes [2] n " ;

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

 taobaogooglecodercto

Da mesma forma, podemos usar a função de valores para ler todos os valores do hash. O formato da sintaxe é o seguinte:

 valores% HASH

Esta função retorna um array de todos os valores para todos os hashes.

Exemplo

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %dados ; imprimir " $urls [0] n " ; " $urls [1] n " ; " $urls [2] n " ;

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

 taobao.comcodercto.comgoogle.com

Verifique se o elemento existe

Se você ler um par chave/valor que não existe no hash, um valor indefinido será retornado e um aviso aparecerá durante a execução.

Para evitar esta situação, podemos usar a função existe para determinar se a chave existe e lê-la quando ela existir:

Exemplo

#!/usr/bin/perl %data = ( ' google ' => ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; existe ( $dados { ' facebook ' } ) ) { imprimir " A URL do Facebook é $data {'facebook'} n " } outro { imprimir " a chave do Facebook não existe n " }

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

 chave do facebook não existe

No código acima, usamos a instrução IF...ELSE , que apresentaremos em detalhes nos capítulos seguintes.

Obtenha o tamanho do hash

O tamanho do hash é o número de elementos. Podemos obter o tamanho do hash obtendo primeiro todas as matrizes de elementos de chave ou valor e, em seguida, calculando o número de elementos da matriz.

Exemplo

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %dados ; $ tamanho = @chaves ; " 1 - Tamanho do hash: $tamanho n " ; @valores = valores %dados ; $tamanho = @valores imprimir ; " 2 - Tamanho do hash: $tamanho n " ;

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

 1 - Tamanho do hash: 32 - Tamanho do hash: 3

Adicionar ou remover elementos de um hash

A adição de pares chave/valor pode ser feita por meio de atribuição simples. Mas para excluir um elemento hash você precisa usar a função delete :

Exemplo

#!/usr/bin/perl %data = ( ' google ' = > ' google.com ' , ' codercto ' = > ' codercto.com ' , ' taobao ' = > ' taobao.com ' ) ; %dados ; $ tamanho = @chaves ; " 1 - Tamanho do hash: $size n " # Adicionar elementos $ dados { ' facebook ' } = ' facebook.com ' ;​​ %dados ; $ tamanho = @chaves ; " 2 - Tamanho do hash: $size n " # Remove elementos do hash excluir $dados { ' taobao ' } ; @keys = chaves %dados ; $ tamanho = @chaves ; " 3 - Tamanho do hash: $tamanho n " ;

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

 1 - tamanho do hash: 32 - tamanho do hash: 43 - tamanho do hash: 3