Author: Exemples, Cours et Tutoriels Perl
Perl: Trouver la fin d’une chaîne de caractères
#!/usr/local/bin/perl -w
LINE:
while (my $ligne = ) {
next LINE if $ligne
Perl: Modifier un fichier
#!/usr/local/bin/perl
my $old=”fichier1.txt”;
my $new=”fichier2.txt”;
open(OLD, “”, $new) or
while ()
Perl: Trouver la fin d’un chaîne
#!/usr/local/bin/perl -w
LINE:
while (my $ligne = ) {
next LINE if $ligne
Structure de Contrôle: Exemple de l’opérateur ternaire
#!/usr/local/bin/perl -w
print “Tapez un nombre: “;
$line=;
# Vérifier si un nombre est
Additionner deux tableaux avec l’opérateur ‘+’
#!/usr/bin/perl -w
use strict;
#définition de deux tableaux @tab1 et @tab2
my @tab1 = (“janvier”,
Trouver la nième occurence d’un mot dans une chaîne à l’aide de modificateur ‘/g’
# Trouver le mot qui precede la 3ème occurence du mot “Perl”
$occur = 3; #Nième occurence
$
Perl: Lire les fichiers d’un répertoire
# Spécifier le dossier à utilisé
chdir ‘..’; #Dossier courant
# Ouvrir le
Perl: Lancer un programme externe
#!/usr/local/bin/perl
# lancer la calculatrice de windows
exec “calc”;
die “Impossible de lancer l