Discussion :

[bakka]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mon Script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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);

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[bakka]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;
}