Les fonctions de Perl

Perl fournit un grand nombre de fonctions utiles. Nous en donnons, ici, la description d'un certain nombre.

Les fonctions de chaînes de caractères

Fonction 

Description

chomp(STRING) 
chomp(ARRAY)  
Supprime la fin de la chaîne de caractère ou des éléments du vecteur si elle est identique à 
la valeur de la variable $/.
chop(STRING)
chop(ARRAY)
Supprime le dernier caractère de la chaîne de caractère ou de chaque élément du vecteur.
Retourne le dernier caractère supprimé.
chr(NUMBER) Retourne le caractère ASCII codé par NUMBER.
index (STRING, SUBSTRING, POSITION)  Retourne la position de la première occurrence de SUBSTRING dans STRING à partir de POSITION. POSITION se place par défaut au début de STRING.
join(STRING, ARRAY) Retourne une chaîne de caractères qui consiste en la succession des éléments de ARRAY reliés par STRING.
lc(STRING) Retourne le STRING en minuscules.
length(STRING) Retourne la longueur de STRING.
rindex(STRING, SUBSTRING, POSITION) Retourne la position de la dernière occurrence de SUBSTRING dans STRING à partir de POSITION. POSTION se place par défaut à la fin de STRING.
uc(STRING) Retourne STRING en majuscules.
split(LIMIT, STRING) Brise STRING suivant le délimiteur LIMIT. Dans un contexte de vecteur il retourne un vecteur. Dans un contexte de scalaire il retourne le nombre d'éléments trouvés.
substr(STRING, OFFSET , LENGTH) Retourne le morceau de STRING de longueur LENGTH à partir de l'offset. Si LENGTH n'est pas spécifié toute la fin de STRING est retournée.

Exemples d'utilisation :

$var1 = substr("0123BBB789", 4, 3);
print ("\$var1 = $var1\n");


$var1 = "0123BBB789";
substr($var1, 4, 3) = "BBB";
print("\$var1 = $var1\n");


$pathname = "C:\\WINDOWS\\TEMP\\BLA.TXT";
$position = rindex($pathname, "\\") + 1;
$filename = substr($pathname, $position);
print("$filename\n");

Les fonctions de vecteur

Fonction

Description

defined(VARIABLE) Retourne 1 si VARIABLE a une valeur, que VARIABLE soit un scalaire, un vecteur, ou un vecteur associatif.
delete(KEY) Supprime les paires du vecteur associatif qui ont KEY pour clé.
each(ASSOC_ARRAY) Retourne successivement les éléments associés d'un vecteur associatif.
exists(KEY) Retourne 1 si KEY existe dans le vecteur associatif correspondant. Par exemple : exists($vect{or}) rend 1 si %vect contient une clé avec pour valeur "or".
keys(ASSOC_ARRAY) Retourne la listes des clés d'un vecteur associatif.
map(EXPRESSION, ARRAY) Evalue l'action de EXPRESSION sur chaque élément de ARRAY. La variable spéciale $ contient l'élément du vecteur avant qu'il soit évalué.
pop(ARRAY) Retourne le dernier élément de ARRAY qu'il réduit d'une unité.
push(ARRAY1, ARRAY2) Ajoute ARRAY2 à la suite ARRAY1.
reverse(ARRAY) Inverse l'ordre de ARRAY.
shift(ARRAY) Donne le premier élément de ARRAY qu'il réduit d'une unité.
sort(ARRAY) Trie ARRAY.
unshift(ARRAY1, ARRAY2); Ajoute les éléments de ARRAY2 à la tête de ARRAY1.
values(ASSOC_ARRAY) Retourne une liste de toute les valeurs du vecteur associatif ASSOC_ARRAY.
Exemple d'utilisation

%vect = ( "100", "vert", 200, "bleu");

while( ($key, $valeur) = each(%vect))
{
        print("$key=$valeur\n");
}


suite-index