Juil
23
2009

Trucs perl -2


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 :

8
5
6
5
4

Au sujet de l'auteur: Olivier Legras

Auteur de ce Blog, je partage quelques unes de mes notes que je juge utile à vous comme à moi. Je suis très heureux de voir que mon blog a de plus en plus d'affluence. Merci à vous!

Laissez un commentaire



Je soutiens

Publicité :)

Mes derniers tweets