Bases & syntaxe
#!/usr/bin/perl
use strict;
use warnings;
Initialise un script Perl avec les bonnes pratiques.
Structures de données
Tableau (Array)
my @array = (1, 2, 3, 4);
Stocke une liste ordonnée d'éléments.
Hash (Dictionnaire)
my %hash = ('key1' => 'value1', 'key2' => 'value2');
Associe des clés uniques à des valeurs.
Fonctions & méthodes essentielles
Boucle For
for my $i (0 .. $#array) {
print "$array[$i]\n";
}
Parcourt un tableau et effectue une action sur chaque élément.
If Condition
if ($condition) {
# code à exécuter si condition vraie
} elsif ($another_condition) {
# code pour condition alternative
} else {
# code pour condition fausse
}
Permet de réaliser des décisions en fonction de conditions.
Patterns courants
Fonction anonyme
my $add = sub { my ($a, $b) = @_; return $a + $b; };
print $add->(3, 4); # Affiche 7
Crée une fonction qui peut être stockée et utilisée plus tard.
Regex (Expression régulière)
if ($string =~ /pattern/) {
# code à exécuter si le motif est trouvé
}
Permet de rechercher et manipuler des chaînes de caractères.
Opérations avancées
Map & Filter
my @filtered = grep { $_ % 2 == 0 } @array;
my @doubled = map { $_ * 2 } @array;
Manipule les éléments d'un tableau en utilisant une fonction anonyme.
Debugging & outils
Utilisation de warn pour le débogage
warn "Debug message\n";
Affiche un message de débogage qui aide à suivre l'exécution du code.
Perl Debugger (p)
$ perl -d script.pl
Utilise le débogueur intégré de Perl pour inspecter le code en cours d'exécution.