fonction defined ()

Version imprimable

fonction defined ()

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:

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

28/05/2009, 17h18
djibril

A quoi ressemble ton fichier de config ?

Peux tu nous mettre un exemple ?

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:

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

28/05/2009, 17h52
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.
;)

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:

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

29/05/2009, 00h26
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ï
29/05/2009, 07h59
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
29/05/2009, 10h20
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

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

Pourrait tu m'aider a comprendre ceci stp?
Code:

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

29/05/2009, 10h54
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