[Probléme] Script.pl + Script.conf

Version imprimable

30/11/2007, 14h12
maloute80

[Probléme] Script.pl + Script.conf
Bonjour,

Comment Importer mes valeur de mon fichier Script.conf dans mon Script.pl?

Script.pl
Code:

1 2 $sybase = DBI->connect('dbi:Sybase:script_conf{name_sybase_server}','$script_conf{user_sybase_server}','$script_conf{password_sybase_server}')
Script.conf

Citation:

name_sybase_server:zzz
user_sybase_server:yyy
password_sybase_server:iii

Merci à vous.
30/11/2007, 14h33
Arioch
Citation:
Envoyé par maloute80

Bonjour,

Comment Importer mes valeur de mon fichier Script.conf dans mon Script.pl?

Script.pl

Code:

1 2 $sybase = DBI->connect('dbi:Sybase:script_conf{name_sybase_server}','$script_conf{user_sybase_server}','$script_conf{password_sybase_server}')

Script.conf

Merci à vous.
Et bien c'est fort simple : au début de ton script.pl, tu lis le fichier script.conf, tu en récupères les lignes et les affecte à différentes variables. Ensuite, tu t'assures que tu as bien récupéré toutes les variables obligatoires pour la suite du déroulement de ton script et voilà.

Rien de bien compliqué ;)
30/11/2007, 14h42
maloute80

Citation:

Rien de bien compliqué

Pour un programmeur perl moi étant débutant quelque notion en C.
Peut tu me donner un exemple stp par rapport aux lignes que j'ai mit plus haut ou un lien qui le montre un exemple.
Si tu ne veut pas je te remerci tout de même pour ta réponse 8-)

Citation:

Envoyé par maloute80

Pour un programmeur perl moi étant débutant quelque notion en C.
Peut tu me donner un exemple stp par rapport aux lignes que j'ai mit plus haut ou un lien qui le montre un exemple.
Si tu ne veut pas je te remerci tout de même pour ta réponse 8-)

Le problème que tu demandes est, soyons franc, un problème fort simple en Perl : comment lire un fichier et en récupérer son contenu.

Sur cette page, tu trouveras pas mal de doc en français sur Perl : http://perl.enstimac.fr/DocFr.html mais ici même, il y a bon nombre de tutoriaux !

Faire du Perl (comme tout autre langage) passe aussi par une phase d'apprentissage et de lecture. Voire pour certains, des exercices (je parle en connaissance de cause).

Pour répondre à ta question, voici un petit exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 # contenu du fichier toto.conf (ligne 1 = user, 2 = password) toto tititututata # un script qui lit ce fichier et affecte les valeurs à 2 variables différentes use strict; use warnings; my $user; my $pwd; open(CONF, "toto.conf") or die ("err de lecture du fichier .conf : $!\n"); @_ = <CONF>; close(CONF); chomp(@_); ($user, $pwd) = ($_[0], $_[1]); print "données lues du fichier .conf :\n"; print "utilisateur : $user\n"; print "mot de passe : $pwd\n";
Mais avant de prendre ce code et l'adapter simplement pour tes besoins, le comprend-tu déjà ? N'hésite pas à poser des questions ;)

Autre exemple plus approprié à tes besoins (désolé, j'avais mal lu comment était organisé ton fichier conf) :

contenu du fichier toto.conf :
Code:

1 2 3 name_sybase_server:zzz user_sybase_server:yyy password_sybase_server:iii
script pour récupérer son contenu :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 use strict; use warnings; my %conf; open(CONF, "toto.conf") or die ("err de lecture du fichier .conf : $!\n"); while(<CONF>) { chomp(); @_ = split(/:/, $_); $conf{$_[0]} = $_[1]; } close(CONF); print "données lues du fichier .conf :\n"; foreach(keys %conf) { print "$_ = $conf{$_}\n"; }
Voilà qui est mieux :aie:

30/11/2007, 16h37
maloute80
Je ne comprend pas comment ca récupéré les champs suivants en gras? dans quel variables?

Citation:

name_sybase_server:zzz
user_sybase_server:yyy
password_sybase_server:iii

car je doit en extraire juste ces champs pas la description avant les ":" pour les insérés dans ma connexion
Code:

1 2 my $sybase = DBI->connect("dbi:Sybase$conf{$_[0]}","$conf{$_[1]}","$conf{$_[2]}")
ceci est le code qui n'est évidament pas valable mais juste la pour faire comprendre ce que je souhaite

Merci pour ton courage et ta patiente.
30/11/2007, 17h26
Arioch

Citation:

Envoyé par maloute80

Je ne comprend pas comment ca récupéré les champs suivants en gras? dans quel variables?

Pour que ton script récupère les champs en gras comme tu dis, j'utilise un hash (%conf). Chaque clé du hash est le nom d'un paramètre (ex. : name_sybase_server, user_sybase_server) et la variable que chaque clé contient = ce que tu veux (les valeurs en gras)

Donc, si je prend pour exemple la ligne name_sybase_server:zzz de ton fichier conf :

Code:

$conf{name_sybase_server} = "zzz";

C'est comme ça que mon code récupère et traite cette ligne.

Et donc :

Code:

print "$conf{name_sybase_server}\n";

Ca t'affichera zzz
03/12/2007, 08h52
maloute80
merci je comprend mieux à present grâce à toi,
Pour l'intégrer à ma connexion :
Code:

1 2 my $sybase = DBI->connect("dbi:Sybase:$conf{name_sybase_server}","$conf{user_sybase_server}","$conf{password_sybase_server}")
mais cela ne fonctionne pas je me suis dit c'est peu être les variables j'ai fait :
Code:

1 2 3 4 print "$conf{name_sybase_server}\n"; print "$conf{user_sybase_server}\n"; print "$conf{password_sybase_server}\n";
Mais tout est OK donc je doit me trompé dans les "cote" ou 'cote' je ne c'est pas la différence entre simple cote et double cote peu tu m'expliquer ayant comme exemple ma connexion.

Je te remerci encore pour tout ces explication.
03/12/2007, 10h29
Arioch

Est-ce qu'en mettant les vraies valeurs directement dans ta ligne suivante, cela fonctionne ?

Code:

my $sybase = DBI->connect("vraie valeur","vraie valeur","vraie valeur");

Le but de la question étant de savoir si, sans se préoccuper de ton fichier .conf, la connection à la base de données aboutit ou non.

Pendant que tu y es, rajoute donc un die( ), toujours sur la même ligne, pour voir :

Code:

my $sybase = DBI->connect("vraie valeur","vraie valeur","vraie valeur") or die "cannot connect to sgbd : $!\n";

Code:

1 2 3 4 $sybase = DBI->connect('dbi:Sybase:valeur1','valeur2','valeur3') or die "\nConnection Sybase:valeur1 échoué [ERREUR]$DBI::errstr\n\n"; print "\nConnection Sybase:valeur1 bien effectué [OK]\n";
résultat

Citation:

Connection Sybase:valeur1 bien effectué [OK]

Donc pour cela pas de souci :)

03/12/2007, 10h42
Arioch

Remet à présent les variables dans ta procédure de connection.

Qu'est-ce que ça donne ?
03/12/2007, 10h51
maloute80
ce que j'ai mit
Code:

1 2 $sybase = DBI->connect('dbi:Sybase:$name_sybase_server','$user_sybase_server','$password_sybase_server')
ce que ca donne

Citation:

DBI connect('$name_sybase_server','$user_sybase_server',...) failed: (no error string) at ./sybase.pl line 31
Use of uninitialized value in concatenation (.) or string at ./sybase.pl line 31.

Connection Sybase:serveur échoué [ERREUR]

je pense à une erreur de syntaxe 8O
03/12/2007, 11h03
Arioch

Essaie les " " au lieu des ' '

Code:

$sybase = DBI->connect("dbi:Sybase:$name_sybase_server","$user_sybase_server","$password_sybase_server")

Les quotes simples ' ' ne sont pas à prendre à la légère !
03/12/2007, 11h24
maloute80
Code:

1 2 $sybase = DBI->connect("dbi:Sybase:$name_sybase_server","$user_sybase_server","$password_sybase_server")
Citation:

Global symbol "$name_sybase_server" requires explicit package name at ./sybase.pl line 31.
Global symbol "$user_sybase_server" requires explicit package name at ./sybase.pl line 31.
Global symbol "$password_sybase_server" requires explicit package name at ./sybase.pl line 31.
Execution of ./sybase.pl aborted due to compilation errors.

Courage et bonne humeur :)
03/12/2007, 11h31
Arioch

Le message d'erreur indique que ces variables n'ont pas été déclarées dans ton code.

Montre moi où tu récupères les valeurs que tu leur affecte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
sub sybase_connexion() 
{
open(CONF, "scriptsybase.conf") or die ("Problème lecture .conf : $!\n");
while(<CONF>)
{
    chomp();
    @_ = split(/:/, $_);
    $conf{$_[0]} = $_[1];
}
close(CONF);
$sybase = DBI->connect("dbi:Sybase:$name_sybase_server","$user_sybase_server","$password_sybase_server")
or die "\nConnection Sybase:sybase server échoué       [ERREUR]$DBI::errstr\n\n";
print "\nConnection Sybase:sybase server bien effectué         [OK]\n";
}

et quand je fait un

Code:

1
2
3
4
 
print "$conf{name_sybase_server}\n";
print "$conf{user_sybase_server}\n";
print "$conf{password_sybase_server}\n";

il m'affiche bien les valeurs

03/12/2007, 11h39
Arioch

Logiquement, ta ligne pour te connecter devrait ressembler plutôt à celà :

Code:

$sybase = DBI->connect("dbi:Sybase:$conf{name_sybase_server}","$conf{user_sybase_server}","$conf{password_sybase_server}")

alalala que je suis nul j'ai effacer la mauvaise ligne tout à l'heure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
sub sybase_connexion() 
{
open(CONF, "scriptsybase.conf") or die ("Problème lecture .conf : $!\n");
while(<CONF>)
{
    chomp();
    @_ = split(/:/, $_);
    $conf{$_[0]} = $_[1];
}
close(CONF);
 
print "$conf{name_sybase_server}\n";
print "$conf{user_sybase_server}\n";
print "$conf{password_sybase_server}\n";
 
$sybase = DBI->connect("dbi:Sybase:$conf{name_sybase_server}","$conf{user_sybase_server}","$conf{password_sybase_server}")
or die "\nConnection Sybase:serveur échoué       [ERREUR]$DBI::errstr\n\n";
print "\nConnection Sybase:serveur bien effectué         [OK]\n";
}

Citation:

name
user
password
',...) failed: (no error string) at ./sybase.pl line 36
Use of uninitialized value in concatenation (.) or string at ./sybase.pl line 36.

Connection Sybase:serveur échoué [ERREUR]

Ligne 36

Code:

1
2
 
$sybase = DBI->connect("dbi:Sybase:$conf{name_sybase_server}","$conf{user_sybase_server}","$conf{password_sybase_server}")

03/12/2007, 12h00
Arioch
Essaie ceci, c'est juste un affichage des 3 paramètres que tu utilises pour ta connection :
Code:

1 2 3 4 foreach("dbi:Sybase:$conf{name_sybase_server}","$conf{user_sybase_server}","$conf{password_sybase_server}") { print "$_\n"; }
rajoute ce code temporaire juste avant de te connecter et affiche moi ce que ça te donne comme résultat
03/12/2007, 13h08
maloute80

résultat

Citation:

dbi:Sybase:yyy
xxx
zzz

yyy=monserveur
xxx=utilisateur
zzz=passe
03/12/2007, 13h20
Arioch

Si tu donnes les vraies valeurs lors de la connection, et que ces valeurs sont bien dbi:Sybase:yyy, xxx, zzz et que sous cette forme ça marche, alors je ne vois pas où est l'erreur.

Le résultat que tu affiches me semble ok.
03/12/2007, 14h22
maloute80
je pense que ça vient des cotes simple ou double qui faut placer au bonne endroit mais où ces là la question qu'il faut surment ce poser
Code:

1 2 $sybase = DBI->connect('dbi:Sybase:'."$conf{name_sybase_server}".',$conf{user_sybase_server}','$conf{password_sybase_server}')
j'ai tout essayer sauf celui qui va :'(
Quelqun pourrai m'aider à trouver l'introuvalbe ;)
04/12/2007, 10h29
maloute80

Edit : Problème résolu fichier .conf sous linux donc avec droits accès spécial changement des droits sur .conf est problème résolu.