Programmation Perl sous Windows

Citation:

---

Envoyé par jeje.r

Tu peux aussi faire comme ca:

Code:

---

1 2 3 4 5 6

open(FIC,"<tonfichier.txt") or die "pb ouverture fichier"; foreach(<FIC>) { print $_ ; }

---

Mais c'est la base, je te conseille de regarder de plus près les 3 parties de cours : http://perl.developpez.com/cours/
Ils vont a l'essentiel, j'ai appris les bases du perl en une semaine avec ca...

---

Je recommande très chaudement l'emploi de handle de fichier lexicaux et de la forme à trois arguments de open : on évite ainsi bien des problèmes potentiels (surtout si on appelle ses handle "FIC"... :roll:). Par ailleurs utiliser "foreach" pour une lecture de fichier est une erreur : on lit l'intégralité du fichier d'un seul coup avant de le traiter ligne par ligne, c'est du gachis, autant le lire ligne par ligne dans ce cas...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#! /usr/bin/perl use strict; use warnings;   open my $input, '<', 'mon_fichier.txt' or die "Impossible d'ouvrir mon_fichier.txt : $!\n";   while( <$input> ) { print; }   close $input;

---

--
Jedaï

Citation:

---

Envoyé par Jedai

Ceci n'est pas un message d'erreur, c'est un avertissement (un warning) qui te dit que tu n'as utilisé ce nom de variable qu'une seule fois, ce qui indique que soit tu n'as pas besoin de cette variable, soit tu as oublié de faire quelque chose avec, dans tous les cas il y a une erreur dans ton programme, mais ce n'est pas une erreur de syntaxe, donc perl exécutera tout de même ton script.

--
Jedaï

---

Mon script qui ne marchera pas :?

Citation:

---

Envoyé par Jedai

Je recommande très chaudement l'emploi de handle de fichier lexicaux et de la forme à trois arguments de open : on évite ainsi bien des problèmes potentiels (surtout si on appelle ses handle "FIC"... :roll:). Par ailleurs utiliser "foreach" pour une lecture de fichier est une erreur : on lit l'intégralité du fichier d'un seul coup avant de le traiter ligne par ligne, c'est du gachis, autant le lire ligne par ligne dans ce cas...

---

Je note pour le foreach. Maintenant que tu le dis, c'est vrai que l'on voit tout le temps des while. Par contre, pour le open a 3 arguments, je ne connaissais pas, je vois pas trop l'avantage, j'ai jamais eu de problèmes avec le open a 2 arg et un handle comme FIC, même si ca ne fait jamais que 2 mois que je fais du perl assidument...

Citation:

---

Envoyé par jeje.r

Je note pour le foreach. Maintenant que tu le dis, c'est vrai que l'on voit tout le temps des while. Par contre, pour le open a 3 arguments, je ne connaissais pas, je vois pas trop l'avantage, j'ai jamais eu de problèmes avec le open a 2 arg et un handle comme FIC, même si ca ne fait jamais que 2 mois que je fais du perl assidument...

---

Bien sûr, tu n'as eu aucun problème, heureusement ! Statistiquement ça a d'assez faibles chances d'arriver si tu es en environnement fermé.
Le open à 3 arguments est plus robuste : imagine que tu écrives :

Code:

---

1 2	open FIC, ">$file" or die "...";

---

Et que $file contienne ">drole_de_nom", tu vois que tu n'obtiens pas trop le résultat désiré ! Il y a d'autres exemples, et dès lors que tu es en environnement hostile, il devient assez dangereux d'utiliser cette forme de open... Avec le open à trois arguments, il n'y a aucun problème de cet ordre.

L'emploi d'un glob en tant que handle de fichier a été longtemps la norme, mais c'est assez dangereux puisque les glob sont des variables globales. Surtout si tu emploies souvent le même nom... Imagine que tu veuilles rajouter un traitement dans ton petit script avant de réimprimer l'entrée, tu as une fonction qui te fait ce traitement, alors tu la copie colle dans ton script et ça te donne ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

open(FIC,"<tonfichier.txt") or die "pb ouverture fichier"; foreach(<FIC>) { print traitement($_) ; }   sub traitement { #...   # s'appuie sur un fichier extérieur : open FIC "<mon_fichier_de_traitement" or die "...";   #... return ...; }

---

Ton code va complètement dérailler, et si dans ce cas précis tu verras sans doute tout de suite le problème, imagine dans un code d'un millier de ligne où l'erreur apparaîtra dix lignes après l'appel de la fonction, laquelle est définie à 400 lignes de là ?


C'est pour ça que pour ma part j'utilise les handles lexicaux qui n'ont aucun de ces inconvénients, et qui en plus fournissent des capacités très sympathiques si tu fais "use IO::Handle;" au début de ton script, comme par exemple la méthode "autoflush", nettement plus lisible que l'emploi d'un idiome à base de select() et de $| ... :D

--
Jedaï