Trucs perl -2

An article by Olivier Legras    Pas de Commentaire

Remplacer un caractère ou une chaine dans une chaine :

$chaine =~ s/\//-/g;

Ici on remplace “/” par “–” dans l’ensemble de la chaine grâce à l’option “g”. “/” étant un caractère interprété par perl, il faut mettre un “\” devant.

Cette expression fonctionne également pour remplacer une chaine dans la chaine.

exemple :

$chaine=”Bonjour je m’appel Olivier”;

$chaine =~ s/olivier/jean/g;

$chaine contient alors  “Bonjour je m’appel jean”;

Ouvrir et Fermer un fichier :

open FILE, "> mon_fichier.txt" or die "Impossible d’ouvrir mon_fichier.txt”;
close FILE;

Le fait d’ouvrir un fichier, le créé automatiquement.

Lire un fichier ligne par ligne :

open (FILE2, "$nom_fichier") or die "Can’t open ".$nom_fichier ;
while ($ligne = <FILE2>) {
          print $ligne;
}
close FILE2;

Ecrire dans un fichier :

open FILE, "> mon_fichier.txt" or die "mpossible d’ouvrir mon_fichier.txt”;
        print FILE $contenu_fichier;
close FILE;

Ici, on écrit le contenu de la variable $contenu_fichier dans le fichier “mon_fichier.txt”.

Parser une chaine :

$chaine=”8:5:6:5:4”;

@tableau = split(/:/, $chaine);

Cette fonction permet de décomposer la chaine en utilisant les séparations “’:”.

Voici le contenu du tableau @tableau :