Discussion :

[ecthelion]

Bonjour les jeunes,

J'ai une question un peu con a vous poser,

J'ai une fichier texte sur lequel je fais plein de tests différents, je veux donc faire des sous programmes pour organiser mon code. Le probleme c que en entrée de tous mes sous programmes, je voudrais avoir mon fichier .txt.

Est il possible de mettre directement en entrée mon fichier? Car si c est le cas je n y arrive pas...

Merci d'avance!

[JakoJako]

Bonjour,

Il suffit d'utiliser une globale :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
use strict;
 
my $g_fIn; # globale
 
sub fnOpenGlobalFile
{
	my $strFile= shift; 
 
	open($g_fIn , '<' . $strFile) or die "Impossible d'ouvrir $strFile";	
}
 
sub fnCloseGlobalFile
{
	close $g_fIn;
}
 
 
sub fnDumpFile
{
	my $strLine; 
	while ($strLine = <$g_fIn>)
	{
		print $strLine;
	}
}
 
 
# Main 
&fnOpenGlobalFile("c:\\tmp\\essai.txt");
 
&fnDumpFile();

[djibril]

tu te compliques la vie JakoJako.

Code :

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

1
2
3
4
5
6
&ma_fonction("toto.txt");
sub ma_fonction {
  my $fichier = shift;
...
...
}

voilà

[Jedai]

tu te compliques la vie JakoJako.

Code :

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

1
2
3
4
5
6
&ma_fonction("toto.txt");
sub ma_fonction {
  my $fichier = shift;
...
...
}

voilà

Je pense que la réponse de JakoJako était plus dans l'esprit de "subdiviser un traitement de fichier en plusieurs fonctions qui chacune ont besoin de manipuler le fichier mais pas indépendamment"... Cependant la solution proposée est légèrement inélégante : utiliser une globale ici est presque aussi dangereux que d'utiliser des handles de fichier à l'ancienne mode (des glob).
On peut tout à fait passer un handle de fichier ouvert en paramètre à une fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
use strict;
 
sub fnOpenFile
{
  my $filename= shift; 
  open my($newfile) , '<', $filename or die "Impossible d'ouvrir $filename : $!\n";
  return $newfile;
}
 
sub fnCloseFile # je ne vois pas trop l'intérêt de cette fonction mais bon...
{
  my $file_to_close = shift;
  print "Je ferme un fichier !\n";
  close $file_to_close;
}
 
 
sub fnDumpFile
{
	my $file_to_dump = shift; 
	while (my $line = <$file_to_dump>)
	{
		print $line;
	}
}
 
 
# Main
my $file; #lexical
$file = fnOpenFile("c:\\tmp\\essai.txt");
fnDumpFile( $file );
fnCloseFile( $file );

Voilà ! Plus de variable globale qui traîne (d'autant plus que dans ton exemple c'était pas une vraie variable globale, c'était une variable lexicale, ce qui faisait des fonctions des closures.... à la limite tant qu'à faire ça autant le faire proprement dans son propre bloc)

--
Jedaï

[ecthelion]

Oui ca marche mais j'ai un probleme dans mon programme principal.

Ca n'est surement pas lié du tout a ca je ne sais pas, mais seulement le premier sous programme que je met dans le main marche correctement.

Les autre compilent mais c'est comme si ils n'executaient pas le code.

Si je met un autre sous programme en premier celui marche et plus les autres...

[Woufeil]

Bonjour,

Si tu veux plus d'aide, donne nous ton code, là comme ça on ne peut pas t'aider.