Lecture/Ecriture dans un fichier

Je viens de faire un petit script perl dont je ne comprends pas trop le message d'erreur, j'ai bien cherché sur le net avant mais rien n'y fait je n'arrive pas avancer.

J'aimerais ouvrir mon fichier en lecture/écriture afin d'y écrire par la suite.

Message d'erreur :

Code:

---

1 2 3

$ perl test1.pl Use of uninitialized value $line in string at test1.pl line 8.

---

Mon Script :

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use strict ; use warnings ; use MIME::Lite ;   open (FIC, "/home/bakka/wme.txt"); my $line = <FIC>; print "$line"; close (FIC);

---

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use strict; use warnings; use MIME::Lite;   open(FIC, '<', "/home/bakka/wme.txt") or die("Impossible de lire /home/bakka/wme.txt : $!\n"); my $line = <FIC>; print $line; close(FIC);

---

Une petite lecture s'impose.

Merci pour ton aide, finalement ca m'a orienté vers l'utilisation de Tie::File que je ne connais pas mais qui fait exactement ce que je veux.

Code:

---

1 2 3 4 5 6 7

my $object = tie my (@lines), 'Tie::File', $filename or die "We couldn't tie $filename to an array in readwrite mode : $!\n";   for (@lines) { s/$OLD_COUNT/$NEW_COUNT/g; }

---