Debuter avec Perl

Pourquoi Perl ?

Perl (Practical Extraction and Report Language) est un langage de script puissant et polyvalent. Il a été créé en 1987 par Larry Wall pour aider les ingénieurs système à gérer des fichiers texte volumineux sur des systèmes Unix. Perl est aujourd'hui utilisé dans une variété d'applications, notamment le développement web avec le framework Dancer ou Mojolicious, l'analyse de données avec BioPerl, et la gestion de systèmes et de réseaux.

Un cas d'utilisation concret de Perl est sa capacité à automatiser des tâches complexes sur les serveurs web. Par exemple, un script Perl peut être utilisé pour traiter des formulaires HTML, gérer les requêtes HTTP, générer du contenu dynamique, et même interagir avec des bases de données.

Prerequis

• Connaissances en programmation : Les concepts de base comme les variables, les boucles, les conditions, et les fonctions.
• Outils à installer :
  • Perl (version 5.30 ou plus tard)
  • Un éditeur de texte ou un IDE (par exemple, Visual Studio Code avec la extension Perl)

Concepts fondamentaux

Variables

Les variables en Perl commencent par une $, @, ou %. Les scalaires stockent des valeurs individuelles, les tableaux stockent des listes de valeurs, et les hashes stockent des paires clé-valeur.

## Variable scalaire
$nom = "John";
print "Nom : $nom\n";

## Tableau
@nombres = (1, 2, 3, 4, 5);
print "Premier nombre : $nombres[0]\n";

## Hash
%contacts = ("Alice" => "555-1234", "Bob" => "555-5678");
print "Numéro de Alice : $contacts{'Alice'}\n";

Conditions et Boucles

Perl utilise des structures de contrôle comme if, else, for, et while.

## Condition
$age = 20;
if ($age >= 18) {
    print "Majeur\n";
} else {
    print "Mineur\n";
}

## Boucle for
for ($i = 1; $i <= 5; $i++) {
    print "$i\n";
}

Fonctions

Les fonctions en Perl commencent par le mot-clé sub.

## Définition de fonction
sub saluer {
    my ($nom) = @_;
    return "Salut, $nom !";
}

## Appel de fonction
print saluer("John"), "\n";

Gestion des fichiers

Perl offre des outils puissants pour lire et écrire dans les fichiers.

## Ouvrir un fichier en lecture
open(my $fh, '<', 'example.txt') or die "Impossible d'ouvrir example.txt : $!";

## Lire le contenu du fichier
while (my $line = <$fh>) {
    print $line;
}

## Fermer le fichier
close($fh);

Mise en pratique : Projet fil rouge

Mini-projet : Un Gestionnaire de Tâches

Nous allons créer un simple gestionnaire de tâches en Perl. Ce projet comprendra les fonctionnalités suivantes :

1. Ajouter une tâche
2. Afficher la liste des tâches
3. Supprimer une tâche

## Structure des fichiers
## main.pl : Le script principal
## tasks.txt : Le fichier où les tâches seront stockées

## main.pl
use strict;
use warnings;

my $action = shift @ARGV;
if ($action eq "add") {
    my $task = shift @ARGV;
    add_task($task);
} elsif ($action eq "list") {
    list_tasks();
} elsif ($action eq "delete") {
    my $index = shift @ARGV;
    delete_task($index);
} else {
    print "Usage: perl main.pl <add|list|delete> [args]\n";
}

sub add_task {
    my ($task) = @_;
    open(my $fh, '>>', 'tasks.txt') or die "Impossible d'ouvrir tasks.txt : $!";
    print $fh "$task\n";
    close($fh);
}

sub list_tasks {
    open(my $fh, '<', 'tasks.txt') or die "Impossible d'ouvrir tasks.txt : $!";
    while (my $line = <$fh>) {
        chomp $line;
        print "$line\n";
    }
    close($fh);
}

sub delete_task {
    my ($index) = @_;
    open(my $fh, '<', 'tasks.txt') or die "Impossible d'ouvrir tasks.txt : $!";
    @tasks = <$fh>;
    close($fh);

    if (exists $tasks[$index]) {
        splice(@tasks, $index, 1);
        open(my $fh, '>', 'tasks.txt') or die "Impossible d'écrire dans tasks.txt : $!";
        print $fh "$_\n" for @tasks;
        close($fh);
        print "Tâche supprimée avec succès.\n";
    } else {
        print "Index invalide.\n";
    }
}

Étapes pour exécuter le projet

1. Créez un fichier main.pl et copiez-y le code ci-dessus.
2. Créez un fichier vide nommé tasks.txt.
3. Pour ajouter une tâche, exécutez :

   perl main.pl add "Faire les courses"
   

4. Pour afficher la liste des tâches, exécutez :

   perl main.pl list
   

5. Pour supprimer une tâche, exécutez :

   perl main.pl delete 0
   

Erreurs frequentes et debugging

Erreur 1 : Variable non définie

## ❌ Mauvais
print $nom;

## ✅ Correct
$nom = "John";
print $nom;

Erreur 2 : Syntaxe incorrecte

## ❌ Mauvais
if ($age > 18) {
    print "Majeur\n";

## ✅ Correct
if ($age > 18) {
    print "Majeur\n";
}

Erreur 3 : Fichier non trouvé

## ❌ Mauvais
open(my $fh, '<', 'non_existant.txt') or die "Impossible d'ouvrir le fichier";

## ✅ Correct
if (-e 'non_existant.txt') {
    open(my $fh, '<', 'non_existant.txt') or die "Impossible d'ouvrir le fichier : $!";
} else {
    print "Fichier non trouvé.\n";
}

Pour aller plus loin

1. Programmation orientée objet

Apprenez à créer des classes et des objets en Perl pour structurer votre code de manière plus modulaire.

2. Manipulation des structures de données complexes

Explorez les structures de données comme les tableaux multidimensionnels, les listes chaînées, etc., pour gérer des jeux de données plus complexes.

3. Intégration avec le réseau et le web

Découvrez comment utiliser Perl pour créer des applications web avec le framework Dancer ou Mojolicious.

Défi pratique : Créez une application simple en ligne qui permet aux utilisateurs de s'inscrire, de se connecter, et d'afficher leurs informations personnelles. Utilisez les modules CGI et DBI pour l'interface utilisateur web et la gestion des données respectivement.

N'oubliez pas, le practice est clé en programmation. Soyez patient avec vous-même et n'hésitez pas à consulter la documentation de Perl ou à demander de l'aide sur les forums lorsque vous rencontrez des problèmes.