Dans tous les scripts il y a une ligne en haut du document qui indique le type d'interpréteur qui doit être chargé au lancement du programme. Voici concernant Perl :

#!/usr/bin/perl
use warnings;
use strict;

• Sortie d'une variable :

print @tab;
# Avec des espaces :
print "@tab";

• Saisir d'une valeur :

my $saisie = <STDIN>;
# Supprimer le retour à la ligne :
print chomp($saisie);

• Déclarations :

my $var = "string";
my @tab = ("un", 2, $var);

• Supprimer un élément :

shift(@tab);

• Ajouter un élément :

push(@tab, "nouveau");

• Supprimer le dernier élément :

pop(@tab);

• Taille d'un tableau :

scalar(@tab);

• Déclarer un tableau associatif :

my %hash = (
  "cle1" => "valeur",
  "cle2" => "valeur",
);
 
print $hash{"cle2"};

• Les itérateurs ⇒ For et Foreach

for (my $i = 0; $i < @tab; $i++) {
    print "@tab[$i]\n";
}

foreach my $e (keys(%hash) {
    print "$e\n";
    print "$hash{$e}\n";
}

• Les fonctions

sub ùa_fonction {
   print "$_[0] : $_[1]\n";
}
 
ma_fonction("p1","p2");

• Lecture :

open (Fichier, "<", "fichier.txt");
# Pour enregistrer tout le contenu du fichier dans une variable :
my $fichier <Fichier>;
# Pour analyser ligne par ligne son contenu :
while(<Fichier>) {
   print "$_";
}

la fonction close() est facultative.

• Ecriture :

open (Fichier, ">", "fichier.txt");
print Fichier "insertion";

• Test unitaire :

# Si c'est un répertoire :
if ( -d "fichier.txt") {}
# Si le fichier existe :
if ( -e "fichier.txt") {}
# Si le fichier est utilisé régulièrement :
if ( -f "fichier.txt") {}

On peut s'aider du site http://Regex101/ pour créer les patterns.

• Renvoi vrai si le mot est inclu :

my $chaine = "ma chaine";
if ($chaine =~ /ma/) {
  print "la chaine contient ma";
}

• \d = un chiffre
• \w = un caractère alphanumérique
• \s = caractère d'espacement

• Récupérer une chaine sans ponctuation :

my $chaine = "Hellène a poussée Éléonore";
$chaine =~ s/(?!-)[[:punct::]]//g;
print $chaine;
Sortie> Hellne a pousse lonore

Organison notre code en deux fichiers. L'un contenant la classe et l'autre le programme principal. Ainsi on obtient quelque chose comme suit :

nano Vehicule.pm

package Vehicule;
 
sub new {
    return "Nouveauté!";
}
1;

nano main.pl

#!/usr/bin/perl
use warngins;
use strict;
use Vehicule;
 
my $var = Vehicule->new();
print $var;

Puis en exécutant le programme on obtient :

./main.pl
Nouveauté!