Langage de programmation - Perl - Référence de procédures et fonctions

CHOP	Change l'opérateur
Perl

Syntaxe

chop VARIABLE

chop(LIST)

chop

Paramètres

Nom	Description
VARIABLE	Ce paramètre permet d'indiquer une variable à traiter
LIST	Ce paramètre permet d'indiquer une liste à traiter

Description

Cette fonction permet d'enlever le dernier caractère et retourne le caractère haché.

Remarques

Il est beaucoup plus efficace que s/.$//s car il ne parcours pas et ne copie pas la chaîne de caractères. Si VARIABLE est omis, l'instruction effectue un «chop $_». Si VARIABLE est un hachage, il hache les valeurs du hachage, mais pas ses clefs, réinitialisant ainsi chaque itérateur dans le processus.
Vous pouvez réellement couper tout ce qui est une valeur, y compris une association.
Si vous coupez une liste, chaque élément est coupé. Seule la valeur du dernier hachage est renvoyée.
Notez que chop renvoie le dernier caractère. Pour renvoyer tout sauf le dernier caractère, utilisez «substr($string, 0, -1)».

Exemples

Voici quelques exemples typiques de l'utilisation de cette fonction :



				#!/usr/bin/perl

 
@result = split("/","/usr:/lib:/cron:/");


for(my $I = 0; $I <= $#result;$I++) {


    chop($result[$I]);

    print "Niveau " . $I . ": " . $result[$I] . "\n";


}

on obtiendra le résultat suivant :

Niveau 0: Niveau 1: usr Niveau 2: lib Niveau 3: cron

Voici un exemple permettant d'afficher la première lettre de chacun des registres d'un processus Intel :



				#!/usr/bin/perl

 
use strict;

 
my @registreIntel = ("AX","BX","CX","DX","SI","DI","SP","BP");


foreach(@registreIntel) {

   chop;

   tr/a-z/A-Z/;


   print;

}

on obtiendra le résultat suivant :

ABCDSDSB

Références

La Bible Micro Application HTML & Développement Web, Stefan Munz, Wolfgang Nefzger, 2003, ISBN: 2-7429-2898-7, page 1096
Perl/CGI-Programmation avancée Grand Livre, Edition Micro Application, Rolf D. Stoll, 2001, ISBN: 2742919082, page 134

Dernière mise à jour : Dimanche, le 18 octobre 2015

Section courante

A propos

Section administrative du site

CHOP

Perl