matriz Perl

Una matriz Perl es una variable de lista que almacena valores escalares. Las variables pueden ser de diferentes tipos.

Las variables de matriz comienzan con @. Para acceder a los elementos de la matriz, use el formato $ + nombre de variable + [valor de índice] para leer.

Ejemplo

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

En el programa, el símbolo $ se escapa con , lo que permite generarlo tal como está.

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

crear matriz

Las variables de matriz comienzan con el símbolo @ y los elementos se colocan entre corchetes. También puede definir una matriz que comience con qw .

 @array = (1, 2, 'Hola');@array = qw/Esta es una matriz/;

La segunda matriz utiliza el operador qw// , que devuelve una lista de cadenas con elementos de la matriz separados por espacios. Por supuesto, también puedes usar varias líneas para definir una matriz:

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

También puedes asignar valores a una matriz por índice, de la siguiente manera:

 $array[0] = 'Lunes';...$array[6] = 'Domingo';

Acceder a elementos de la matriz

Para acceder a los elementos de la matriz, use el formato $ + nombre de variable + [valor de índice] para leer. El ejemplo es el siguiente:

Ejemplo

@sites = qw/ google taobao codercto / ; " $sitios [0] n " ; " $sitios [1] n " ; " $sitios [2] n " ; " $sitios [-1] n " # Número negativo, leído en dirección inversa

 googletaobaocoderctocodercto

Los valores del índice de matriz comienzan desde 0, es decir, 0 es el primer elemento, 1 es el segundo elemento, y así sucesivamente.

Los números negativos se leen en dirección inversa, -1 es el primer elemento, -2 es el segundo elemento

número de secuencia de matriz

Perl proporciona un formato de matriz que se puede generar en secuencia. El formato es valor inicial + .. + valor final .

Ejemplo

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

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

tamaño de matriz

El tamaño de la matriz está determinado por el contexto escalar dentro de la matriz. :

 @array = (1,2,3);imprimir "tamaño de matriz:", escalar @array,"n";

La longitud de la matriz devuelve el tamaño físico de la matriz, no el número de elementos. Podemos ver el siguiente ejemplo:

Ejemplo

#!/uer/bin/perl @matriz = ( 1 , 2 , 3 ) ; $matriz [ 50 ] = 4 ; $ tamaño = @matriz $max_index = $# matriz ; " Tamaño de la matriz: $tamaño n " ; " Índice máximo: $max_index n " ;

 Tamaño de matriz: 51 Índice máximo: 50

Como se puede ver en el resultado, solo hay cuatro elementos de la matriz, pero el tamaño de la matriz es 51.

Agregar y eliminar elementos de matriz

Perl proporciona algunas funciones útiles para agregar y eliminar elementos de una matriz.

Si no tiene experiencia en programación antes, puede preguntar qué es una función. De hecho, la impresión que usamos antes es una función de salida.

La siguiente tabla enumera las funciones de operación comúnmente utilizadas en matrices:

número de serie	Tipo y descripción
1	presione @ARRAY, LISTA Pon el valor de la lista al final del array.
2	pop @ARRAY Extraiga el último valor de la matriz y devuélvalo
3	cambio @ARRAY Muestra el primer valor de la matriz y lo devuelve. El valor del índice de la matriz también se reduce en uno.
4	deshacer @ARRAY, LISTA Coloca la lista delante de la matriz y devuelve el número de elementos de la nueva matriz.

Ejemplo

#!/usr/bin/perl #Crea una matriz simple @sites = ( " google " , " codercto " , " taobao " ) ;​ " 1. @ sites = @sites n " # Agrega un elemento al final de la matriz . empujar ( @sites , " baidu " ) ;​ " 2. @ sites = @sites n " # Añade un elemento al principio de la matriz . unshift ( @sites , " weibo " ) ;​ " 3. @ sites = @sites n " # Eliminar elementos al final de la matriz pop ( @sitios ) ; imprimir " 4. @ sites = @sites n " # Eliminar elementos al principio de la matriz . cambio ( @sitios ) ; imprimir " 5. @ sitios = @sitios n " ;

Cortar matriz

Podemos cortar una matriz y devolver la nueva matriz después del corte:

Ejemplo

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

 weibo qq facebook

El índice de matriz debe especificar un valor de índice válido, que puede ser un número positivo seguido de un número negativo. Cada valor de índice está separado por una coma.

Si es un índice continuo, puede usar .. para indicar el rango especificado:

Ejemplo

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

 weibo qq facebook

Reemplazar elementos de la matriz

La función splice() se utiliza para reemplazar elementos de matriz en Perl. El formato de sintaxis es el siguiente:

 empalme @ARRAY, DESPLAZAMIENTO [ , LONGITUD [ , LISTA ] ]

Descripción del parámetro:

@ARRAY: Matriz que se va a reemplazar.

OFFSET: posición inicial.

LONGITUD: El número de elementos a reemplazar.

LISTA: Listado de elementos de reposición.

El siguiente ejemplo reemplaza 5 elementos en una matriz a partir del sexto elemento:

Ejemplo

#!/usr/bin/perl @nums = ( 1. .20 ) ; imprimir​ " Antes de reemplazar -@ nums n " ; empalme ( @nums , 5 , 5 , 21. .25 ) ; " Después del reemplazo - @nums n " ;

 Antes del reemplazo - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Después del reemplazo - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

Convertir cadena a matriz

Para convertir una cadena en una matriz en Perl, use la función split(). La sintaxis es la siguiente:

 dividir [ PATRÓN [ , EXPR [ , LÍMITE ] ] ]

Descripción del parámetro:

PATRÓN: delimitador, el valor predeterminado es espacio.

EXPR: especifique el número de cadenas.

LÍMITE: Si se especifica este parámetro, se devuelve el número de elementos de la matriz.

Ejemplo

#!/usr/bin/perl #definir cadena $var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google , taobao,codercto,weibo " ; @test = dividir ( ' ' , $ var_test ) ; @string = dividir ( ' - ' , $ var_string ) ;​​​​​​​​​​" $prueba [3] n " # Salida o ; imprimir " $cadena [2] n " # Salida com ; imprimir " $nombres [3] n " # Salida weibo

 ocomweibo

Convertir matriz a cadena

En Perl, la función join() se utiliza para convertir una matriz en una cadena. La sintaxis es la siguiente:

 unirse a EXPR, LISTA

Descripción del parámetro:

EXPR: Conector.

LISTA: Lista o matriz.

Ejemplo

#!/usr/bin/perl #definir cadena $var_string = " www-codercto-com " ; $var_names = " google,taobao,codercto,weibo " # Convertir cadena en matriz ; @string = split ( ' - ' , $var_string ) ; @names = split ( ' , ' , $ var_names ) ; $cadena1 = unirse ( ' - ' , @cadena ) ; $cadena2 = unirse ( ' , ' , @nombres ) ; imprimir " $cadena1 n " ; " $cadena2 n " ;

 www-codercto-comgoogle,taobao,codercto,weibo

ordenar matriz

La clasificación de matrices en Perl utiliza la función sort() y la sintaxis es la siguiente:

 ordenar [SUBRUTINA] LISTA

Descripción del parámetro:

SUBRUTINA: Especifica reglas.

LISTA: Lista o matriz.

Ejemplo

#!/usr/bin/perl #definir matriz @sites = qw( google taobao codercto facebook ) ; " Antes de ordenar: @sites n " # Ordenar la matriz @sitios = ordenar ( @sitios ) ; imprimir " Después de ordenar: @sites n " ;

 Antes de ordenar: google taobao codercto facebook Después de ordenar: facebook google codercto taobao

Nota: La clasificación de matrices se basa en valores numéricos ASCII. Entonces, cuando ordenamos la matriz, es mejor convertir cada elemento a minúsculas antes de ordenar.

Variables especiales: $[

La variable especial $[ representa el primer valor de índice de la matriz, que generalmente es 0. Si configuramos $[ en 1, el primer valor de índice de la matriz es 1, el segundo es 2, y así sucesivamente. Los ejemplos son los siguientes:

Ejemplo

#!/usr/bin/perl #definir matriz @sites = qw( google taobao codercto facebook ) ; " Sitios web: @sites n " # Establece el primer índice de la matriz en 1 $ [ = 1 ; " @ sitios[1]: $ sitios [1] n " ; " @ sitios[2]: $sitios [2] n " ;

 Sitio web: google taobao codercto facebook@sites[1]: google@sites[2]: taobao

En general, no recomendamos utilizar la variable especial $[ . En la nueva versión de Perl, esta variable se ha abandonado.

Fusionar matrices

Los elementos de la matriz están separados por comas. También podemos usar comas para fusionar matrices, como se muestra a continuación:

Ejemplo

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

 números = 1 3 4 5 6

También es posible incrustar múltiples matrices dentro de una matriz y fusionarlas en la matriz principal:

Ejemplo

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

 números = 1 3 5 2 4 6

Seleccionar elemento de la lista

Se puede utilizar una lista como una matriz. Al especificar el valor del índice después de que la lista pueda leer el elemento especificado, como se muestra a continuación:

Ejemplo

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

 El valor de var es = 1

De manera similar, podemos usar .. en una matriz para leer elementos en un rango específico:

Ejemplo

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

 valor de la lista = 4 3 2