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

**maloute80** · 30/11/2007, 14h12

Bonjour,

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

Script.pl

Code :

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

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

Script.conf

name_sybase_server:zzz
user_sybase_server:yyy
password_sybase_server:iii

Merci à vous.

**Arioch** · 30/11/2007, 14h33

Envoyé par maloute80

Bonjour,

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

Script.pl

Code :

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

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é

**maloute80** · 30/11/2007, 14h42

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

**Arioch** · 30/11/2007, 14h58

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

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 :

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
# 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

**Arioch** · 30/11/2007, 15h10

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

contenu du fichier toto.conf :

Code :

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

1
2
3
name_sybase_server:zzz
user_sybase_server:yyy
password_sybase_server:iii

script pour récupérer son contenu :

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
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

**maloute80** · 30/11/2007, 16h37

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

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 :

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

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.

**Arioch** · 30/11/2007, 17h26

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 :

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

$conf{name_sybase_server} = "zzz";

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

Et donc :

Code :

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

print "$conf{name_sybase_server}\n";

Ca t'affichera zzz

**maloute80** · 03/12/2007, 08h52

merci je comprend mieux à present grâce à toi,
Pour l'intégrer à ma connexion :

Code :

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

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 :

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

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.

**Arioch** · 03/12/2007, 10h29

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

Code :

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

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 :

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

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

**maloute80** · 03/12/2007, 10h37

Code :

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

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

Connection Sybase:valeur1 bien effectué [OK]

Donc pour cela pas de souci

**Arioch** · 03/12/2007, 10h42

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

Qu'est-ce que ça donne ?

**maloute80** · 03/12/2007, 10h51

ce que j'ai mit

Code :

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

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

ce que ca donne

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

**Arioch** · 03/12/2007, 11h03

Essaie les " " au lieu des ' '

Code :

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

$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 !

**maloute80** · 03/12/2007, 11h24

Code :

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

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

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

**Arioch** · 03/12/2007, 11h31

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

**maloute80** · 03/12/2007, 11h37

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
 
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 :

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

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

**Arioch** · 03/12/2007, 11h39

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

Code :

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

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

**maloute80** · 03/12/2007, 11h43

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

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
 
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";
}

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 :

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

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

**Arioch** · 03/12/2007, 12h00

Essaie ceci, c'est juste un affichage des 3 paramètres que tu utilises pour ta connection :

Code :

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

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

**maloute80** · 03/12/2007, 13h08

résultat

dbi:Sybase:yyy
xxx
zzz

yyy=monserveur
xxx=utilisateur
zzz=passe

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

Langage Perl

Discussions similaires

Partager

Partager