PERL -> access DB

Résolu/Fermé
kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
- 13 avril 2005 à 12:16
kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
- 26 avril 2005 à 09:36
Cette idée qui me travere l'esprit est la suivante :

Elle concerne le Perl :
Je souhaite récupérer tous les drivers installé sur ma machine pour les connexion aux DB et pour chaque driver récupéré de cette facon, je voudrais récupérer la liste des DB existantes sur ma machine.
Pour ce la, voici e script que j'ai pondu :

#!C:/Perl/bin/perl.exe

use DBI;


my @driver_names = DBI->available_drivers;
my $nbDriver = @driver_names;
printf("Nombre de driver presents : %d\n",$nbDriver);

local $i = 0;
while( $i < $nbDriver )
{
$driver_names[$i++] = lc($driver_names[$i]);
}

# selection du type de base demande :
while (<>)
{

my $driver = $driver_names[$_];
printf("Driver 1 : %s\n",$driver);


local @ary;
if( @ary= DBI->data_sources($driver) ){0
my @base =split(/:/,$ary[0]);
printf("Nom de la base : %s\n",$base[2]);
}
else{
printf("Aucune base de donnee trouvee pour ce driver\n");
}
printf("\n---------------------------------\n");

}


Le pb, c'est que ca me donne bien la liste des drivers dispo mais quand je selectionne celui pour acceder aux bases de type mysql, il me dit qu'il n'y a aucune bases mysql sur ma machine alors que j'en ai 5 qui tournent...

Bon ca fait trois jour que je me suit mis au Perl alors ca doit être bourré de fautes... si qqun peut m'aider ?

Merci à tous

++

12 réponses

kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
856
13 avril 2005 à 14:12
Bon ca a changé, ca donne ca maintenant mais le probleme reste entier... snif!

#!C:/Perl/bin/perl.exe

use DBI;

# liste des drivers présents :
my @driver_names = DBI->available_drivers;
my @data_sources = DBI->data_sources("mysql", \%attr);

my $nbDriver = @driver_names;

print "Nombre de driver presents : $nbDriver\n";
foreach my $un_driver (@driver_names){
print "\nle driver: $un_driver\n";
eval { @data_sources = DBI->data_sources($un_driver);}; print "probleme avec ce driver ($un_driver)\n" if $@;
foreach my $un_db (@data_sources){
print " database: $un_db\n";
}
@data_sources =();
}
0
kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
856
25 avril 2005 à 17:12
C bon j'ai réussi, merci de votre aide précieuse..
0
Luffy =)
Messages postés
365
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
19 mai 2006
108
25 avril 2005 à 17:14
lol, tu aimes bien te faire des posts tout seul toi :-DDDDD
promis je cours à ton secours la prochaine fois ;-)
0
kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
856
25 avril 2005 à 17:18
Oui, j'en ai toute une collection sur les question que j'ai posé en Perl !!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Luffy =)
Messages postés
365
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
19 mai 2006
108
25 avril 2005 à 17:20
ben remarques, le perl... c'est pour faire des colliers ça nan ? :-DDDD
0
kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
856
25 avril 2005 à 17:28
Genre !
Tu ose faire des remarques sur un langage aussi 'brillebrille'ant !
0
Luffy =)
Messages postés
365
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
19 mai 2006
108
25 avril 2005 à 17:31
ben fait j'ose surtout faire des remarques sur un langage que je ne connais pas... donc je vais aller l'étudier un peu, puis je reviendrais rigoler un peu ;-)
0
kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
856
25 avril 2005 à 17:36
ah bon, ben bonne chance alors !
Faut dire que j'ai attaqué de suite sur les acces DB et traitements de requetes sans connaitre ce qu'était un hash...
... enfin je dit ça mais... tu verra bien! AH AH !
;)
0
Luffy =)
Messages postés
365
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
19 mai 2006
108
25 avril 2005 à 17:51
Ouais ben vu le temps que je viens de passer à trouver un tuto, ben c'est po gagné...
pour ceux que ça intéresse : http://www.moteurprog.com/?url=tuto_affiche.php&ID_tutorial=32

je te raconterais ça demain ;-)
0
kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
856
26 avril 2005 à 09:04
Alors ca donne quoi de bon cet apprentissage ;)
0
Luffy =)
Messages postés
365
Date d'inscription
mercredi 20 avril 2005
Statut
Membre
Dernière intervention
19 mai 2006
108
26 avril 2005 à 09:22
salut kij :-)

ben j'ai pas eu le temps de regarder finalement (l'appel de war III a été le plus fort ...)

Mais vite fait, apparement le perl est surtout costaud dans la manipulation de chaines de caratères, je me trompe ? Mais c'est un langage quand même peu utilisé...
0
kij_82
Messages postés
4088
Date d'inscription
jeudi 7 avril 2005
Statut
Contributeur
Dernière intervention
30 septembre 2013
856
26 avril 2005 à 09:36
Oui, c'est relativement utilisé pour la manip de chaine, et c'est tres pratique pour ce que j'ai à faire : traiter et adapter des requetes à un type de base.

Pour le reste, c'est pas tres intéressant je trouve.
0