Tableau Perl

Un tableau Perl est une liste de variables qui stocke des valeurs scalaires. Les variables peuvent être de différents types.

Les variables du tableau commencent par @. Pour accéder aux éléments du tableau, utilisez le format $ + nom de variable + [valeur d'index] pour lire. L'exemple est le suivant :

Exemple

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

Dans le programme, le symbole $ est échappé avec , ce qui lui permet d'être affiché tel quel.

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

créer un tableau

Les variables du tableau commencent par le symbole @ et les éléments sont placés entre parenthèses. Vous pouvez également définir un tableau commençant par qw .

 @array = (1, 2, 'Bonjour');@array = qw/Ceci est un tableau/;

Le deuxième tableau utilise l'opérateur qw// , qui renvoie une liste de chaînes avec des éléments de tableau séparés par des espaces. Bien entendu, vous pouvez également utiliser plusieurs lignes pour définir un tableau :

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

Vous pouvez également attribuer des valeurs à un tableau par index, comme suit :

 $array[0] = 'Lundi';...$array[6] = 'Dimanche';

Accéder aux éléments du tableau

Pour accéder aux éléments du tableau, utilisez le format $ + nom de variable + [valeur d'index] pour lire. L'exemple est le suivant :

Exemple

@sites = qw/ google taobao codercto / ; imprimer " $sites [ 0] n " ; " $sites [1] n " ; imprimer " $sites [2] n " ; imprimer " $sites [-1] n " ; # Nombre négatif, lu dans le sens inverse

 googletaobaocoderctococodercto

Les valeurs d'index du tableau commencent à 0, c'est-à-dire que 0 est le premier élément, 1 est le deuxième élément, et ainsi de suite.

Les nombres négatifs sont lus dans le sens inverse, -1 est le premier élément, -2 est le deuxième élément

numéro de séquence du tableau

Perl fournit un format de tableau qui peut être affiché en séquence. Le format est start value + .. + end value .

Exemple

#!/usr/bin/perl @ var_1 0 = ( 1 . .10 ) ; @ var_2 0 = ( 10 . .20 ) @var_abc = ( a .. z ) ; " @var_10 n " ; # Sortie 1 à 10 imprimer " @var_20 n " ; # Sortie 10 à 20 imprimer " @var_abc n " ; # Sortie a à z

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

taille du tableau

La taille du tableau est déterminée par le contexte scalaire au sein du tableau. :

 @array = (1,2,3);print "taille du tableau : ",scalaire @array,"n";

La longueur du tableau renvoie la taille physique du tableau, pas le nombre d'éléments. Nous pouvons voir l'exemple suivant :

Exemple

#!/uer/bin/perl @array = ( 1 , 2 , 3 ) ; $array [ 50 ] = 4 ; $ size = @array ; $max_index = $#array ; " Taille du tableau : $ size n " ; " Indice maximum : $max_index n " ;

 Taille du tableau : 51 Indice maximum : 50

Comme le montre la sortie, il n'y a que quatre éléments du tableau, mais la taille du tableau est de 51.

Ajouter et supprimer des éléments de tableau

Perl fournit des fonctions utiles pour ajouter et supprimer des éléments de tableau.

Si vous n'avez aucune expérience en programmation auparavant, vous pouvez vous demander ce qu'est une fonction. En fait, l'impression que nous avons utilisée auparavant est une fonction de sortie.

Le tableau suivant répertorie les fonctions d'opération couramment utilisées dans les tableaux :

numéro de série	Type et description
1	pousser @ARRAY, LISTE Mettez la valeur de la liste à la fin du tableau
2	pop @ARRAY Pop la dernière valeur du tableau et renvoie-la
3	décalage @ARRAY Affiche la première valeur du tableau et la renvoie. La valeur d'index du tableau est également décrémentée de un.
4	annuler le décalage @ARRAY, LISTE Place la liste devant le tableau et renvoie le nombre d'éléments dans le nouveau tableau.

Exemple

#!/usr/bin/perl #Créer un tableau simple @sites = ( " google " , " codercto " , " taobao " ) ;​ " 1. @ sites = @sites n " ; # Ajouter un élément à la fin du tableau pousser ( @sites , " baidu " ) ;​ " 2. @ sites = @sites n " ; # Ajouter un élément au début du tableau unshift ( @sites , " weibo " ) ;​ " 3. @ sites = @sites n " ; # Supprimer les éléments à la fin du tableau pop ( @sites ) ; imprimer " 4. @ sites = @sites n " ; # Supprime les éléments au début du tableau décalage ( @sites ) ; imprimer " 5. @sites = @sites n " ;

Tableau coupé

Nous pouvons couper un tableau et renvoyer le nouveau tableau après la coupe :

Exemple

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

 weibo qqfacebook

L'index du tableau doit spécifier une valeur d'index valide, qui peut être un nombre positif suivi d'un nombre négatif. Chaque valeur d'index est séparée par une virgule.

S'il s'agit d'un index continu, vous pouvez utiliser .. pour indiquer la plage spécifiée :

Exemple

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

 weibo qqfacebook

Remplacer les éléments du tableau

La fonction splice() est utilisée pour remplacer les éléments d'un tableau en Perl. Le format de syntaxe est le suivant :

 épissure @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

Description du paramètre :

@ARRAY : Tableau à remplacer.

OFFSET : position de départ.

LENGTH : Le nombre d’éléments à remplacer.

LISTE : Liste des éléments de remplacement.

L'exemple suivant remplace 5 éléments dans un tableau à partir du 6ème élément :

Exemple

#!/usr/bin/perl @nums = ( 1 . .20 ) ;​ " Avant de remplacer - @nums n " ; splice ( @nums , 5 , 21 . .25 ) ; " Après remplacement - @nums n " ;

 Avant remplacement - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Après remplacement - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

Convertir une chaîne en tableau

Pour convertir une chaîne en tableau en Perl, utilisez la fonction split(). La syntaxe est la suivante :

 diviser [ PATTERN [ , EXPR [ , LIMIT ] ] ]

Description du paramètre :

MOTIF : délimiteur, la valeur par défaut est l'espace.

EXPR : spécifiez le nombre de chaînes.

LIMIT : Si ce paramètre est spécifié, le nombre d'éléments dans le tableau est renvoyé.

Exemple

#!/usr/bin/perl #définir une chaîne $var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google , taobao,codercto,weibo " ; @test = split ( ' ' , $ var_test ) ; @string = split ( ' - ' , $ var_string ) @names = split ( ' , ' , $var_names ) ; " $test [3] n " ; # Sortie o imprimer " $string [2] n " ; # Sortie com imprimer " $names [3] n " ; # Sortie weibo

 ocomweibo

Convertir un tableau en chaîne

En Perl, la fonction join() est utilisée pour convertir un tableau en chaîne. La syntaxe est la suivante :

 rejoindre EXPR, LIST

Description du paramètre :

EXPR : Connecteur.

LISTE : Liste ou tableau.

Exemple

#!/usr/bin/perl #définir une chaîne $var_string = " www-codercto-com " ; $var_names = " google ,taobao,codercto,weibo " # Convertir la chaîne en tableau @string = split ( ' - ' , $var_string ) ; @names = split ( ' , ' , $var_names ) # Convertir le tableau en chaîne ; $string1 = rejoindre ( ' - ' , @chaîne ) ; $string2 = rejoindre ( ' , ' , @names ) ; imprimer " $string1 n " ; imprimer " $string2 n " ;

 www-codercto-comgoogle,taobao,codercto,weibo

Tri par tableau

Le tri des tableaux en Perl utilise la fonction sort() et la syntaxe est la suivante :

 trier la LISTE [SOUS-ROUTINE]

Description du paramètre :

SOUS-ROUTINE : Spécifiez les règles.

LISTE : Liste ou tableau.

Exemple

#!/usr/bin/perl #définir un tableau @sites = qw( google taobao codercto facebook ) ; " Avant de trier : @sites n " # Trier le tableau @sites = trier ( @sites ) ;​ " Après tri : @sites n " ;

 Avant le tri : google taobao codercto facebook Après le tri : facebook google codercto taobao

Remarque : Le tri des tableaux est basé sur des valeurs numériques ASCII. Ainsi, lorsque nous trions le tableau, il est préférable de convertir chaque élément en minuscules avant de trier.

Variables spéciales : $[

La variable spéciale $[ représente la première valeur d'index du tableau, qui est généralement 0. Si nous définissons $[ sur 1, la première valeur d'index du tableau est 1, la seconde est 2, et ainsi de suite. Les exemples sont les suivants :

Exemple

#!/usr/bin/perl #définir un tableau @sites = qw( google taobao codercto facebook ) ; " Sites Web : @sites n " ; # Fixe le premier index du tableau à 1 $ [ = 1 ; " @ sites [1] : $sites [1] n " ; " @sites[2] : $sites [2] n " ;

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

En général, nous déconseillons d'utiliser la variable spéciale $[ . Dans la nouvelle version de Perl, cette variable a été abandonnée.

Fusionner des tableaux

Les éléments du tableau sont séparés par des virgules. Nous pouvons également utiliser des virgules pour fusionner des tableaux, comme indiqué ci-dessous :

Exemple

#!/usr/bin/perl @numbers = ( 1 , 3 , ( 4 , 5 , 6 ) ) ;​ " nombres = @nombres n " ;

 nombres = 1 3 4 5 6

Il est également possible d'intégrer plusieurs tableaux dans un tableau et de les fusionner dans le tableau principal :

Exemple

#!/usr/bin/perl @impair = ( 1 , 3 , 5 ) ; @even = ( 2 , 4 , 6 ) ; @numbers = ( @impair , @even ) ;​ " nombres = @nombres n " ;

 nombres = 1 3 5 2 4 6

Sélectionner un élément dans la liste

Une liste peut être utilisée comme tableau. La spécification de la valeur d'index après que la liste puisse lire l'élément spécifié, comme indiqué ci-dessous :

Exemple

#!/usr/bin/perl $ var = ( 5 , 4 , 3 , 2 , 1 ) [ 4 ] ; " La valeur de var est = $var n "

 La valeur de var est = 1

De même, nous pouvons utiliser .. dans un tableau pour lire des éléments dans une plage spécifiée :

Exemple

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

 valeur de la liste = 4 3 2