Discussion :

[hackensolo]

Bonjour à tous,
malgré mes recherches je ne trouve pas de solution à ce problème...bien qu'il doit être simple pour la plupart d'entrevous.

Je dois rediriger la sortie d'une commande et l'écrire dans un fichier mais je bloque au moment de l'écriture.
Je précise que le programme ne m'envoi aucune erreur mais me crée un fichier vide.

Je travail sur Gentoo (je sais pas si c'est utile de le savoir mais au cas où)

Voici le bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
if ($res eq "o")
{
	for (my $nbmax = 0; $nbmax <= $max; $nbmax++)
	{
		print $nbmax.") ".$nb." x ".$nbmax." = ".$nb*$nbmax."\n";
	}
	my $value = <>;
 
	open (FILE, ">>/home/user/Bureau/fichier.txt") or die ("Erreur d'écriture du fichier");
	print FILE $value;
	close (FILE);
}

Ma version de Perl:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
perl -v
 
This is perl 5, version 22, subversion 2 (v5.22.2) built for x86_64-linux
(with 30 registered patches, see perl -V for more detail)
 
Copyright 1987-2015, Larry Wall
 
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
 
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

Merci d'avance pour l'aide.

[hackensolo]

J'ai trouvé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
if ($res eq "o")
{
	open (FILE, ">/home/user/Bureau/fichier.txt") or die ("Erreur d'écriture du fichier");
 
	for (my $nbmax = 0; $nbmax <= $max; $nbmax++)
	{
		print FILE $nbmax.") ".$nb." x ".$nbmax." = ".$nb*$nbmax."\n";
	}
 
	close (FILE);
}

[Lolo78]

Bon tu as résolu ton problème, tout va bien, mais ta syntaxe d'ouverture de fichier

Code :

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

1
2
 
open (FILE, ">/home/user/Bureau/fichier.txt") or die ("Erreur d'écriture du fichier");

est quelque peu périmée. Voici la syntaxe préférée de nos jours pour ouvrir un fichier:

Code :

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

1
2
 
open my $FILE, ">", "/home/user/Bureau/fichier.txt" or die ("Erreur d'écriture du fichier");

Et bien sûr utiliser $FILE au lieu de FILE dans la suite du programme.