Débutant Perl question fichier

Bonjour aymanouch, bonjour à tous,

Je débute Perl que je viens d'installer sous windows.
Voilà ma situation: j'ai un fichier texte 'lefic.txt' qui contient les 8 lignes suivantes (entre les deux traits):
________________________________
Allo 132, Allo 132
a525, b525
c415, h415,c414,c413,c412,c411, c410
c413 h415,c414,c413,c412,c411, c410
c412 h415,c414,c413,c412,c411, c410
c411, h415,c414,c413,c412,c411, c410
c410, h415,c414,c413,c412,c411, c410
c414 h415,c414,c413,c412,c411, c410
________________________________
avec l'arborescence d:\dossiersDD\lefic.txt.

Je veux écrire un script Perl qui fasse:
1. une copie de lefic.txt avec un nouveau nom lefic2.txt(dans le même repertoire)
2. dans le fichier lefic2.txt tout c413 va être substitué par n212
3. dans le fichier lefic2.txt tout 525 va être substitué par 606
4. dans le fichier lefic2.txt toute séquence 414 va être supprimée (ou remplacée par la séquence vide : '' ).

Merci infiniment.

Bonjour,

comme répondait gilou dans le forum "Programmation" de Hardware-fr.com :

Eh bien, si tu nous montrait ton début de script?
Parce qu'il n'est pas question qu'on fasse ton boulot à ta place.
A+

:mouarf: :mouarf: :mouarf:

PS 1 : tu aurais pu enlever "aymanouch" au début de ton texte, il n'est pas ici je crois :aie:
PS 2 : inutile de nous remercier, nous attendons ton code à présent

Citation:

---

Envoyé par maestro1303

Bonjour aymanouch, bonjour à tous,

Je débute Perl que je viens d'installer sous windows.
Voilà ma situation: j'ai un fichier texte 'lefic.txt' qui contient les 8 lignes suivantes (entre les deux traits):
________________________________
Allo 132, Allo 132
a525, b525
c415, h415,c414,c413,c412,c411, c410
c413 h415,c414,c413,c412,c411, c410
c412 h415,c414,c413,c412,c411, c410
c411, h415,c414,c413,c412,c411, c410
c410, h415,c414,c413,c412,c411, c410
c414 h415,c414,c413,c412,c411, c410
________________________________
avec l'arborescence d:\dossiersDD\lefic.txt.

Je veux écrire un script Perl qui fasse:
1. une copie de lefic.txt avec un nouveau nom lefic2.txt(dans le même repertoire)
2. dans le fichier lefic2.txt tout c413 va être substitué par n212
3. dans le fichier lefic2.txt tout 525 va être substitué par 606
4. dans le fichier lefic2.txt toute séquence 414 va être supprimée (ou remplacée par la séquence vide : '' ).

Merci infiniment.

---

Bonjour,


1. utilise la fonction rename(OLDNAME,NEWNAME).
2. récupère le contenu de ton txt dans une variable perl $maVariable puis fait l'expression régulière suivant :

Code:

---

$maVariable=~s/c413/n212/g

---

3. même chose que le piont 2

Code:

---

$maVariable=~s/525/606/g

---

4. idem

Code:

---

$maVariable=~s/414//g

---

à la fin tu réécris la variable dans ton fichier.

Ca s'écrit en une ligne sous unix:

Code:

---

1 2	cat file | perl -nle 's/c413/n212/g; s/525/606/g;s/414//g; print' > file2

---

Bon, à mon avis, ce que tu demande est bizarre. C'est quoi 414, c'est c414 ?

A toi de te débrouiller avec ça.

Bonjour,

Voici le code que je viens d'écrire avec votre aide à tous.

Code:

---

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

#!c\\Perl\\bin\\perl -w   use File::Copy;   copy('C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic.txt','C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') || die "Erreur E/S:$!\n";   #DANS LA COMMANDE QUI SUIT JE PENSE CHARGER LE CONTENU DU TEXTE DANS $maVariable open('C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt',$maVariable) || die "Erreur E/S:$!\n"; #DANS LA COMMANDE QUI SUIT JE PENSE substituer n212 à c413 $maVariable=~s/c413/n212/g; #DANS LA COMMANDE QUI SUIT JE PENSE SAUVEGADER LE NOUVEAU CHANGEMENT DANS lefic2.txt open('>C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt',$maVariable) || die "Erreur E/S:$!\n";

---

quand je lance le programme à partir du point de commande DOS par perl marche1.pl j'obtiens le message d'erreur suivant:

Code:

---

1 2 3 4

Name "main::C:\C_et_Win\Perl\Scripts_Programs\Exemples\fText\lefic2.txt" used on ly once: possible typo at marche1.pl line 7. Use of uninitialized value $maVariable in open at marche1.pl line 7. Erreur E/S:No such file or directory

---

Par contre le programme me copie bien lefic dans lefic2 mais ne fait pas davantage.

Merci à tous;

ps: toutes les remarques de Arioch sont exactes et pertinentes:oops: SCUSI

open, c'est pas en sens inverse ?

Code:

---

open ($handler_file,"c:\\mon_rep\\tralala.txt");

---

Bonjour,

quelques remarques :

Code:

---

copy('C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic.txt','C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') || die "Erreur E/S:$!\n";

---

Logiquement, tu peux remplacer les "\\" par "/", ça doit fonctionner et ce sera plus lisible ;)

Code:

---

open('C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt',$maVariable) || die "Erreur E/S:$!\n";

---

Je ne comprend pas ce que tu fais ici mais le 1er argument de la fonction open, c'est le handle de fichier, le second étant le nom du fichier.

Là, je ne vois pas trop pourquoi tu semble utiliser un nom de fichier comme handle ?

Bonjour,

J'ai changé le script en fonction des réponses précédentes.

Code:

---

1 2 3 4 5 6 7 8 9 10

#!c\\Perl\\bin\\perl -w #use strict; use File::Copy;   copy('C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic.txt','C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') || die "Erreur E/S:$!\n";   open($maVariable,'C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') || die "Erreur E/S:$!\n";   $maVariable=~s/c413/n212/g; open($maVariable,'>C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') || die "Erreur E/S:$!\n";

---

Je n'ai plus le message d'erreur précédent, mais le descripteur $maVariable qui contient -d'après ce que j'ai compris- une copie de lefic2.txt est... vide.

Conclusion: après la dernière commande lefic2 ne contient plus rien car il a été initilisé par $maVariable desepérement vide.


PS: je n'ai encore essayé de remplacer les "\\" par "/", car je me rappelle que sur une autre machine sous XP ça n'avait pas marché. Je vais l'essayer et je vous dis.

Si tu veux que ta variable $maVariable contienne l'intégralité du fichier, alors le code suivant me semble plus approprié :

Code:

---

1 2 3 4 5 6 7 8

open(IN,'C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') or die "Erreur E/S:$!\n";   @_ = <IN>; close(IN);   $maVariable = join("", @_);   print $maVariable;

---

Avec ceci, normalement ta variable contient tout ton fichier.

Bonjour,

Effectivement le code qui suit me permet d'afficher l'intégralité du fichier avec les substitutions qu'il faut! Merci

Code:

---

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

#!c\\Perl\\bin\\perl -w #use strict; use File::Copy;   copy('C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic.txt','C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') || die "Erreur E/S:$!\n";   open(IN,'C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') or die "Erreur E/S:$!\n";   @_ = <IN>; close(IN);   $maVariable = join("", @_); $maVariable=~s/c413/n212/g;   print $maVariable ;

---

Mon seul souci pour aujourd'hui est que je voudrais que le texte désormais contenu dans $maVariable et qui s'affiche bien à l'écran soit écrit dans le lefic2.
J'ai essayé les syntaxes:

Code:

---

open ($maVariable,'>C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt')

---

et

Code:

---

1 2	print $maVariable 'C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') ;

---

et ça n'a rien donné.

PS: J'essaierai de comprendre -en cherchant- la signification et la portée des 3 lignes de codes suivantes:

Code:

---

1 2 3 4

@_ = <IN>; close(IN);   $maVariable = join("", @_);

---

Sinon, je vais devoir vous en demander la signification plutard.

Merci beaucoup Arioch

J'essaierai de comprendre -en cherchant- la signification et la portée des 3 lignes de codes suivantes:

Code:

---

1 2 3 4 5 6

open(IN,'C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') or die "Erreur E/S:$!\n";   @_ = <IN>; close(IN);   $maVariable = join("", @_);

---

Code:

---

open(IN,'C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt') or die "Erreur E/S:$!\n";

---

Tu crées un filehandle IN

Code:

---

@_ = <IN>;

---

Via le filehandle, tu places le contenu de ton fichier dans la variable @_

Code:

---

close(IN);

---

Tu fermes le filehandle

Code:

---

$maVariable = join("", @_);

---

La fonction 'join' lie les valeurs de @_ via "" (rien du tout) cela signifie donc que $mavariable contiendra toutes les valeurs de @_ accolées bout à bout.

Est-ce clair?


Essaie avec

Code:

---

1 2 3

open(OUT,">C:\\C_et_Win\\Perl\\Scripts_Programs\\Exemples\\fText\\lefic2.txt") or die "Erreur E/S:$!\n"; print OUT $mavariable; close(OUT);

---

maestro, tu es sûr que tu ne ferais pas mieux de commencer par apprendre à programmer en Perl un minimum ? Au moins les commandes d'IO de base, non ?
Nous avons des tutoriels sur ce site si tu veux t'y mettre.

Parce que là ce sujet commence à ressembler à un mini-cours sur l'IO en Perl, mauvais et fragmenté.

Reviens nous voir après avoir appris les bases.

--
Jedaï

Bonjour à Tous,

Jedai a raison, et je vais essayer de m'y mettre aux tutos de ce langage que je découvre et que je trouve fabuleux.

Pour le moment les explications de Jasmina me suffisent et me réconfortent.

Grâce aux aides de Arioch et de Jasmina, j'estime que j'ai reglé mon problème et je marque le sujet Résolu

Merci infiniment et à bientôt dans un autre sujet.