La structure des tests et des expressions booléennes en Perl est une fois de plus très similaire à ce que l'on trouve en C :

  if ($i > 0) {
  print "$i est strictement positif\n";
  }

Comme pour les boucles, on peut également profiter de l'inversion de la syntaxe: dans ce cas le bloc disparait au profit d'une seule instruction, et les parenthèses deviennent également facultatives :

  print "$i est un entier strictement positif\n" if $i < 0;

Pour proposer une branche alternative :

  if ($i >= 0) {
  print "$i est positif";
  } else {
  print "$i est négatif";
  }

Par contre si l'on veut évaluer plusieurs branches (exclusives) en cascade, il y a le mot clé spécifique elsif :

  if ($i > 0) { print "$i est strictement positif"; }
  elsif ($i ====== 0) { print "$i est nul"; }
  else { print "$i est négatif"; }

C'est une erreur de syntaxe d'utiliser la construction else if…! Ce choix de langage est principalement issu du C où la distinction des imbrications ou des cascades sont la plupart du temps délicates :

Encore un emprunt du C, il doit son nom à sa spécificité: c'est le seul opérateur utilisant 3 opérandes. Cette expression :

  my $signe = ($i >= 0) ? "positif" : "négatif";

… est équivalente à cette construction :

  my $signe;
  if ($i >= 0) { $signe = "positif"; } else { $signe = "négatif"; }

Quelques exemples illustrant la différence entre les deux contextes :

Notes sur cmp et ⇔ : ces opérateurs sont utiles pour définir une relation d'ordre entre des éléments d'une liste, et donc en particulier les trier. Ce type d'opérateur se comporte comme suit :

Parfois on prend des raccourcis et on convertit un scalaire directement en valeur booléenne. Il existe donc une convention pour savoir si un scalaire est vrai ou faux :

• si le scalaire n'est pas défini ou est une chaine vide, il est faux
• si le scalaire est un entier nul, il est faux
• dans tous les autres cas il est vrai

Exemples :

Note: le contexte d'une expression booléenne est toujours scalaire, donc une liste sera considérée comme son nombre d'éléments.

On peut combiner le résultat des tests précédents, ou des valeurs booléennes tels que décrites ci-dessus à l'aide des opérateurs logiques similaires au C, doublés de leur nom en clair (comme en shell) :

Cette technique est très populaire en Shell, et également parfois utilisée en programmation C. Elle repose sur le fait que les opérations logiques ET et OU peuvent avoir un résultat défini avec la valeur d'une seule opérande dans certains cas:

• A and B: si A est faux, alors le résultat est faux (B n'est pas évalué)
• A or B: si A est vrai, alors le résultat est vrai (B n'est pas évalué)

On trouve ainsi très souvent ce genre de construction en Perl :

open(FILE, "<source.txt") or die("Erreur d'ouverture ($!)");

Comme la plupart des fonctions Perl renvoient un état booléen dépendant de leur bonne exécution, la partie droite or die… n'est évaluée que si la partie gauche est fausse.

Perl a emprunté les facilités du Shell pour effectuer des tests directement sur des fichiers, ce qui est très pratique et évite d'utiliser une bibliothèque de programmation fastidieuse (se référer à file test dans man perlfunc). Exemple :

  my $file = "source.txt";
  die "Fichier $file non présent" if (!-e $file);

Pour référence, voici les tests extrait de la documentation de Perl :