DESS TIMH

Introduction au langage Perl

3. Chaînes de caractères

• chop(ch)

Enlève le dernier caractère de la chaîne
$ch='cerises'; chop($ch);

=> ch contient 'cerise'

• chomp(ch)Même chose que « chop » mais enlève uniquement un « retour-chariot »
  éventuel en fin de chaîne. Utilisé dans le parcours de fichiers (cf p. 18)

• length(ch)

• uc(ch)

• lc(ch)

Retourne la longueur de la chaîne (nombre de caractères)
$l = length('cerise')=> 6

Retourne la chaîne en majuscules (Perl 5)
$ch = uc('poire')=>'POIRE'

Retourne la chaîne en minuscules (Perl 5)
$ch = lc('POIRE')=>'poire'

• lcfirst(ch), ucfirst(ch)Retourne la chaîne avec simplement lepremier caractère en
  minuscule/majuscule (Perl 5)
  $ch = ucfirst('la poire')=>'La poire'

• split('motif', ch)Sépare la chaîne en plusieurs éléments (le séparateur étant motif).
  Le résultat est un tableau. (Fonction très utilisée)
  @t = split(' / ', 'amande / fraise / cerise');
  => ('amande','fraise', 'cerise')

• substr(ch, indicedébut, longueur)
  Retourne la chaîne de caractère contenue dans ch, du caractère indicedébut
  et de longueur longueur.
  $ch=substr('dupond', 0, 3)=> 'dup'
  $ch=substr('Les fruits', 4)=> 'fruits'

• index(ch, recherche)Retourne la position de recherchedans la chaîne ch
  $i=index('Le temps des cerises','cerise');=> 13

Remarque:
Par défaut la plupart de ces fonctions travaillent sur la variable spéciale $_
$_ = 'amandes'; chop; print;=> Affichera 'amande'

4. tableaux, listes

• grep(/expression/, tableau)Recherche d'une expression dans un tableau
  if (grep(/poivron/, @fruits));=> faux
  if (grep(/$f/, @fruits) {print 'fruit connu';}
  grep retourne un tableau des éléments trouvés :
  @f = grep(/ise$/, @fruits); => fraise;cerise

• join(ch, tableau)Regroupe tous les éléments d'un tableau dans une chaîne de
  caractères (en spécifiant le séparateur)
  print join(', ', @fruits);=> affiche 'amande, fraise, cerise'

http://www.med.univ-rennes1.fr/~poulique/cours/perl/

Page 14