Perl

1
Perlsous-programmessyntaxe de base

• sub foo
• my arg1 shift
• my arg2 shift
• do stuff with arg1, arg2,, compute result.
• return result
• my res foo(x, y)
• my res foo(x, y, _at_a) _at_a est simplement
  ignoré
• my res foo(x) arg2 sera  undefined 
• my _at_b (1, 2)
• res foo(_at_b) Même chose que foo(1,2)!!!

2
Perlsous-programmesdéclarer les paramètres

• Pour préciser le nombre et le type des paramètres
  
• sub foo(\_at_)
• my arg1 shift
• my arg2 shift
• my arg3 shift le tableau est _at_arg3,
  arg31
• my res foo(x, y) Erreur de compilation
  ici
• my res foo(x, y, _at_a, b) Erreur de
  compilation ici
• my res foo(x, y, _at_a) Ok
• On peut aussi enlever les parenthèses si
  foo(\_at_) est déclarée
• my res foo x, y, _at_a

3
Perlsous-programmestypes de paramètres

• Les types de paramètres suivants sont possibles
• une variable scalaire
• sub foo() my a shift
• foo p foo 3 foo asdf
• \_at_ une référence à un tableau
• sub foo(\_at_) my aref shift
• foo _at_p
• \ une référence à un tableau associatif
• sub foo(\) my href shift
• foo p

4
Perlréférences

• Utilisation dune référence à un tableau
• my _at_a my aref \_at_a
• _at_aref le tableau lui-même
• aref lindex du dernier élément
• aref-gti ou arefi lélément i du
  tableau
• Utilisation dune référence à un tableau
  associatif
• my h my href \h
• href le tableau associatif
• href-gtkey ou hrefkey lélément key
  de h

5
Perlparamètres optionnels

• On peut utiliser pour séparer les paramètres
  optionnels
• sub foo()
• my a shift
• my b shift
• my option shift
• option est undefined si le troisième
  paramètre
• na pas de valeur
• option 0 if ! defined option valeur par
  défaut
• foo a, b foo a, b, 1 ok
• foo a foo a, b, 1, 2 erreurs

6
Perlnombre variable de paramètres

• On peut utiliser _at_ à la fin du prototype pour
  indiquer un nombre variable de paramètres
• sub foo(_at_)
• my a shift
• my b shift
• my _at_rest _at__ le reste des paramètres
• foreach (_at_rest)
• foo a, b foo a, b, 1 foo a, b, 1, x,
  _at_a ok
• foo(a, b) foo(a, b, 1) foo(a, b, 1, x,
  _at_a) ok
• foo a foo(a) foo foo() erreurs

7
Perlsous-programmesexemples

• Exemple extrait de perldoc perlsub
• sub max (_at_)
• my max shift(_at__)
• foreach foo (_at__)
• max foo if max lt foo
• return max
• bestday max(mon,tue,wed,thu,fri)
• Exemple récursif
• sub factoriel ()
• my n shift
• return 1 if n lt 1
• return n factoriel(n-1)

8
Perlsous-programmesutilisations

• On se sert de sous-programmes en Perl pour les
  mêmes raisons que dans les autres langages de
  programmation
• Modularité du code
• Fonctions souvent utilisées
• Éviter la répétition du même code
• Récursivité
• etc.