PERL -> access DB

Résolu
kij_82 Messages postés 4089 Date d'inscription   Statut Contributeur Dernière intervention   -  
kij_82 Messages postés 4089 Date d'inscription   Statut Contributeur Dernière intervention   -
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

++
A voir également:

12 réponses

kij_82 Messages postés 4089 Date d'inscription   Statut Contributeur Dernière intervention   857
 
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 4089 Date d'inscription   Statut Contributeur Dernière intervention   857
 
C bon j'ai réussi, merci de votre aide précieuse..
0
Luffy =) Messages postés 365 Date d'inscription   Statut Membre Dernière intervention   110
 
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 4089 Date d'inscription   Statut Contributeur Dernière intervention   857
 
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   Statut Membre Dernière intervention   110
 
ben remarques, le perl... c'est pour faire des colliers ça nan ? :-DDDD
0
kij_82 Messages postés 4089 Date d'inscription   Statut Contributeur Dernière intervention   857
 
Genre !
Tu ose faire des remarques sur un langage aussi 'brillebrille'ant !
0
Luffy =) Messages postés 365 Date d'inscription   Statut Membre Dernière intervention   110
 
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 4089 Date d'inscription   Statut Contributeur Dernière intervention   857
 
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   Statut Membre Dernière intervention   110
 
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 4089 Date d'inscription   Statut Contributeur Dernière intervention   857
 
Alors ca donne quoi de bon cet apprentissage ;)
0
Luffy =) Messages postés 365 Date d'inscription   Statut Membre Dernière intervention   110
 
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 4089 Date d'inscription   Statut Contributeur Dernière intervention   857
 
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