Matriz Perl

Uma matriz Perl é uma variável de lista que armazena valores escalares. As variáveis ​​podem ser de diferentes tipos.

Variáveis ​​de array começam com @. Para acessar os elementos da matriz, use o formato $ + nome da variável + [valor do índice] para ler.

Exemplo

#!/usr/bin/perl @hits = ( 25 , 30 , 40 ) ; @nomes = ( " google " , " codercto " , " taobao " ) ;​ " $ acessos[0] = $ acessos [0] n " ; " $ acessos[1] = $ acessos [1] n " ; " $ acessos[2] = $ acessos [2] n " ; " $ nomes [0] = $nomes [0] n " ; " $ nomes [1] = $nomes [1] n " ; " $ nomes[2] = $nomes [2] n " ;

No programa, o símbolo $ é escapado com , permitindo que ele seja exibido como está.

 $hits[0] = 25$hits[1] = 30$hits[2] = 40$nomes[0] = google$nomes[1] = codercto$nomes[2] = taobao

criar matriz

Variáveis ​​de array começam com o símbolo @ e os elementos são colocados entre colchetes. Você também pode definir um array começando com qw .

 @array = (1, 2, 'Olá');@array = qw/Este é um array/;

O segundo array usa o operador qw// , que retorna uma lista de strings com elementos do array separados por espaços. Claro, você também pode usar múltiplas linhas para definir um array:

 @dias = qw/googletaobao...codercto/;

Você também pode atribuir valores a um array por índice, da seguinte forma:

 $array[0] = 'Segunda-feira';...$array[6] = 'Domingo';

Acessar elementos da matriz

Para acessar os elementos da matriz, use o formato $ + nome da variável + [valor do índice] para ler.

Exemplo

@sites = qw/ google taobao codercto / ; " $sites [0] n " ; " $sites [1] n " ; " $sites [2] n " ; " $sites [-1] n " ; # Número negativo, lido na direção inversa

 googletaobaocoderctocodercto

Os valores do índice da matriz começam em 0, ou seja, 0 é o primeiro elemento, 1 é o segundo elemento e assim por diante.

Os números negativos são lidos na direção inversa, -1 é o primeiro elemento, -2 é o segundo elemento

número de sequência da matriz

Perl fornece um formato de array que pode ser gerado em sequência. O formato é valor inicial + .. + valor final .

Exemplo

#!/usr/bin/perl @ var_1 0 = ( 1..10 ) ; @ var_2 0 = ( 10..20 ) ; @var_abc = ( a..z ) ;​​​​​" @var_10 n " ; # Saída 1 a 10 imprimir " @var_20 n " ; # Saída 10 a 20 imprimir " @var_abc n " ; # Saída de a a z

 1 2 3 4 5 6 7 8 9 1010 11 12 13 14 15 16 17 18 19 20a bcdefghijklmnopqrstuv wxyz

tamanho da matriz

O tamanho do array é determinado pelo contexto escalar dentro do array. :

 @array = (1,2,3);print "tamanho do array: ",scalar @array,"n";

O comprimento do array retorna o tamanho físico do array, não o número de elementos. Podemos ver o seguinte exemplo:

Exemplo

#!/uer/bin/perl @array = ( 1 , 2 , 3 ) ; $ array [ 50 ] = 4 ; $ tamanho = @array ;​​​ " Tamanho da matriz: $tamanho n " ; " Índice máximo: $max_index n " ;

 Tamanho da matriz: 51 Índice máximo: 50

Como pode ser visto na saída, existem apenas quatro elementos do array, mas o tamanho do array é 51.

Adicionar e remover elementos do array

Perl fornece algumas funções úteis para adicionar e remover elementos de array.

Se você não tem experiência em programação antes, pode perguntar o que é uma função. Na verdade, o print que usamos antes é uma função de saída.

A tabela a seguir lista funções de operação comumente usadas em matrizes:

número de série	Tipo e descrição
1	pressione @ARRAY, LISTA Coloque o valor da lista no final do array
2	pop @ARRAY Pop o último valor do array e retorne-o
3	mudança @ARRAY Abre o primeiro valor do array e o retorna. O valor do índice da matriz também é diminuído em um.
4	unshift @ARRAY, LIST Coloca a lista na frente do array e retorna o número de elementos do novo array.

Exemplo

#!/usr/bin/perl #Crie um array simples @sites = ( " google " , " codercto " , " taobao " ) ;​ " 1. @ sites = @sites n " # Adiciona um elemento ao final do array push ( @sites , " baidu " ) ;​ " 2. @ sites = @sites n " # Adiciona um elemento ao início do array unshift ( @sites , " weibo " ) ;​ " 3. @ sites = @sites n " # Exclui elementos no final do array pop ( @sites ) ; imprimir " 4. @ sites = @sites n " # Remove elementos no início do array shift ( @sites ) ;​ " 5. @ sites = @sites n " ;

Cortar matriz

Podemos cortar um array e retornar o novo array após o corte:

Exemplo

#!/usr/bin/perl @sites = qw/ google taobao codercto weibo qq facebook Netease / @ sites2 = @sites [ 3 , 4 , 5 ] ; " @sites2 n " ;

 weibo qq facebook

O índice da matriz precisa especificar um valor de índice válido, que pode ser um número positivo seguido por um número negativo. Cada valor de índice é separado por uma vírgula.

Se for um índice contínuo, você pode usar .. para indicar o intervalo especificado:

Exemplo

#!/usr/bin/perl @sites = qw / google taobao codercto weibo qq facebook Netease / ; @sites2 = @sites [ 3 .5 ] ; " @sites2 n " ;

 weibo qq facebook

Substitua os elementos da matriz

A função splice() é usada para substituir elementos do array em Perl. O formato da sintaxe é o seguinte:

 emendar @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

Descrição do parâmetro:

@ARRAY: Array a ser substituído.

OFFSET: posição inicial.

COMPRIMENTO: O número de elementos a serem substituídos.

LISTA: Lista de elementos de substituição.

O exemplo a seguir substitui 5 elementos em uma matriz começando no 6º elemento:

Exemplo

#!/usr/bin/perl @nums = ( 1. .20 ) ;​​ " Antes de substituir -@ nums n " ; splice ( @nums , 5 , 5 , 21. .25 ) ; " Após a substituição - @nums n " ;

 Antes da substituição - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Após a substituição - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

Converter string em array

Para converter uma string em um array em Perl, use a função split().

 dividir [ PADRÃO [ , EXPR [ , LIMITE ] ] ]

Descrição do parâmetro:

PADRÃO: delimitador, o padrão é espaço.

EXPR: Especifique o número de strings.

LIMITE: Se este parâmetro for especificado, o número de elementos do array será retornado.

Exemplo

#!/usr/bin/perl #define string $var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google , taobao,codercto,weibo " ; @teste = divisão ( ' ' , $ var_teste ) ; @string = divisão ( ' - ' , $ var_string ) ;​​​​​​​​​​" $teste [3] n " ; imprimir " $string [2] n " ; imprimir " $nomes [3] n " ; # Saída weibo

 ocomweibo

Converter array em string

Em Perl, a função join() é usada para converter um array em uma string.

 junte-se a EXPR, LISTA

Descrição do parâmetro:

EXPR: Conector.

LISTA: Lista ou array.

Exemplo

#!/usr/bin/perl #define string $var_string = " www-codercto-com " ; $var_names = " google ,taobao,codercto,weibo " # Converte string em array @string = split ( ' - ' , $ var_string ) @names = split ( ' , ' , $ var_names ) ; $string1 = juntar ( ' - ' , @corda ) ; $string2 = juntar ( ' , ' , @nomes ) ; imprimir " $string1 n " ; " $string2 n " ;

 www-codercto-comgoogle,taobao,codercto,weibo

Classificação de matriz

A classificação de array em Perl usa a função sort() e a sintaxe é a seguinte:

 classificar [SUBRROTINA] LISTA

Descrição do parâmetro:

SUBRROTINA: Especifique regras.

LISTA: Lista ou array.

Exemplo

#!/usr/bin/perl #define matriz @sites = qw( google taobao codercto facebook ) imprimir ; " Antes de classificar: @sites n " ; @sites = ordenar ( @sites ) ;​ " Após a classificação: @sites n " ;

 Antes de classificar: google taobao codercto facebook Depois de classificar: facebook google codercto taobao

Nota: A classificação da matriz é baseada em valores numéricos ASCII. Portanto, quando classificamos o array, é melhor converter cada elemento em letras minúsculas antes de classificar.

Variáveis ​​especiais: $[

A variável especial $[ representa o primeiro valor do índice do array, que geralmente é 0. Se definirmos $[ como 1, o primeiro valor do índice do array será 1, o segundo será 2 e assim por diante. Os exemplos são os seguintes:

Exemplo

#!/usr/bin/perl #define matriz @sites = qw( google taobao codercto facebook ) imprimir ; " Websites: @sites n " ; # Defina o primeiro índice do array como 1 $ [ = 1 ; " @ sites[1]: $ sites [1] n " ; " @ sites[2]: $sites [2] n " ;

 Site: google taobao codercto facebook@sites[1]: google@sites[2]: taobao

Em geral, não recomendamos o uso da variável especial $[ . Na nova versão do Perl, esta variável foi abandonada.

Mesclar matrizes

Os elementos do array são separados por vírgulas. Também podemos usar vírgulas para mesclar arrays, conforme mostrado abaixo:

Exemplo

#!/usr/bin/perl @ números = ( 1 , 3 , ( 4 , 5 , 6 ) ) ; " números = @números n " ;

 números = 1 3 4 5 6

Também é possível incorporar vários arrays em um array e mesclá-los no array principal:

Exemplo

#!/usr/bin/perl @ ímpar = ( 1 , 3 , 5 ) ; @par = ( 2 , 4 , 6 ) ; @números = ( @ímpar , @par ) ; " números = @números n " ;

 números = 1 3 5 2 4 6

Selecione o elemento da lista

Uma lista pode ser usada como um array especificando o valor do índice depois que a lista pode ler o elemento especificado, conforme mostrado abaixo:

Exemplo

#!/usr/bin/perl $ var = ( 5 , 4 , 3 , 2 , 1 ) [ 4 ] ; " O valor de var é = $var n "

 O valor de var é = 1

Da mesma forma, podemos usar .. em um array para ler elementos em um intervalo especificado:

Exemplo

#!/usr/bin/perl @lista = ( 5 , 4 , 3 , 2 , 1 ) [ 1 .3 ] ;​​ " valor da lista = @lista n " ;

 valor da lista = 4 3 2