Discussion :

[iro972]

Bonjour,

J'essaye de réaliser un split afin de retourner des parametre de mon ficchier de config.
J'utilise la fonction defined et j'ai une erreur que je n'arrive pas a résoudre

Pouvez vous m'aider svp?

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
sub Recherche_parametre()
{
	my @lignes;
	my @config;
 
	open(CONF, "<".$file);
	while(defined(@lignes = <CONF>))
	{
			print @lignes;
			@config = split("=", @lignes);
			print $config[0];
			print $config[1];
 
	}
	close(CONF);
 
}

merci d'avance

[djibril]

A quoi ressemble ton fichier de config ?

Peux tu nous mettre un exemple ?

[iro972]

non bah c'est bon j'ai trouvé par contre vous trouvez des erreurs dans ce script parce que la je vois pas svp

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
sub Recherche_parametre()
{
	my $lignes;
	my @config;
	my @parametre;
 
	open(CONF, "<".$file);
	while(defined($lignes = <CONF>))
	{
			@config = split("=", $lignes);
			if(@config(0) eq "user")
			{
			$user=@config(1);
			}
			else if(@config(2) eq "mdp")
			{
			$mdp=@config(3);
			}
			else if(@config(4) eq "server")
			{
			$server=@config(5);
			}
 
		@parametre($user,$mdp,$server);
	}
	close(CONF);
 
 return @parametre;
 
}

merci d'avance

[djibril]

si je vous ai posé cette question, c'est pour éviter de parser des fichiers de configuration de la sorte, c'est déconseillé et pas propre du tout.

[drogba72]

edit : je suis iro972 c'est juste que j'avais perdu mon compte pardon

Ah bon? Pourquoi?

Voici mon fichier de config :

user=photographe
mdp=passe
server=127.0.0.1

et voici toute ma classe

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#!/usr/bin/perl
use strict;
use warnings;
use Net::FTPSSL;
 
my $file = '/home/seb/workspace/Islo_People/Configuration';
my $user;
my $mdp;
my $server;
 
 
sub new
{
	my @parametre = Recherche_parametre();
	$user = $parametre[0];
	$mdp = $parametre[1];
	$server = $parametre[2];
}
 
sub Recherche_parametre()
{
	my $lignes;
	my @config;
	my @parametre;
 
	open(CONF, "<".$file);
	while(defined($lignes = <CONF>))
	{
			@config = split("=", $lignes);
 
			if($config[0] == 'user')
			{
			$user=$config[1];
			}
			if($config[2] == 'mdp')
			{
			$mdp=$config[3];
			}
			if($config[4] == 'server')
			{
			$server=$config[5];
			}
 
		@parametre=($user,$mdp,$server);
	}
	close(CONF);
 
 return @parametre;
}
 
sub Connection
{
	my $etat = "vrai";
	my $ftps = Net::FTPSSL->new("$server",
								Port=> 21,
								Encryption => EXP_CRYPT,
								Debug => 1)
			or $etat = "faux";
 
	$ftps->	login('$user', '$mdp')
		or $etat = "faux";
 
	return $etat;
 
}

D'ailleur je dit classe mais en faite je ne l'ai pas encore déclaré, pourriez vous me dire comment on l'a déclare en perl svp car je ne trouve que comme réponse packetage et j'aimerais vérifier svp

merci d'avance

[Jedai]

Parser à la main des fichiers de configurations c'est une mauvaise idée : ce n'est pas flexible, c'est très fragile, etc. Il est de loin préférable d'utiliser l'un des modules du CPAN spécialisé pour cette tâche (Config::*).

Par ailleurs ton script (même pas un module...) n'est absolument pas une classe, ton new() ne crée pas un objet et ton Connexion() ne sert à rien si ce n'est à vérifier que la connexion est possible...

--
Jedaï

[drogba72]

Ok alors je vais essayer de'utiliser un module la je vien de regarder sur le cpan et j'ai trouvé Config::General qui a l'air bien. Maintenant je ne vois pas trop comment l'utiliser pourriez vous me l'indiquer svp?

Pour ce qui est de la méthode connexion() effectivement elle est la pour vérifier si la connection est possible c'est bien l'objectif lol.

Par quand tu dit "ton new() ne crée pas un objet" je ne comprend pas l'erreur que tu veut soulever peut tu détailler stp?

Merci d'avance

[djibril]

Bien que Config::General soit le module le plus complet et puissant, pour ma part, j'utilise Config ::Std. Très simple, rapide et pas mal pour les fichier de conf de type section.
Ex :
[Section TOTO]
pass = tutu
login = bidulle

...


Je te le recommande

[drogba72]

Merci pour ta réponse je vais donc tenter de l'appliquer

Pourrait tu m'aider a comprendre ceci stp?

Code :

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

1
2
3
4
5
$frame1 ->Button ( -text => 'Parcourir' ,
                     -command => sub {
                        			 my $chemin = $fen -> getOpenFile ( -initialdir => '/home') ;  
                    				 }
            	) ->pack (-anchor=>'w') ;

Le truc c'est que je souhaiterais retourner $chemin mais je ne comprend pas sub sans nom.
C'est bien une fonction? Comment pourrais je le retourner? svp

merci davance

[djibril]

Si c'est un souci Tk, s'il te plait, crée un post dans le sous forum interface graphique et je t'aiderais.

Merci