Précédent   Forum du club des développeurs et IT Pro > Autres langages > Perl > SGBD
SGBD Toutes vos questions sur l'interaction entre Perl et les bases de données (SQL, mysql, postgresql, ORACLE, ...) Avant de poster, veuillez consulter les FAQs perl, les cours Perl.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 17/06/2011, 17h14   #1
yassine_golden
Invité de passage
 
Homme Yassine Boukamar
Ingénieur systèmes et réseaux
Inscription : juin 2011
Messages : 1
Détails du profil
Informations personnelles :
Nom : Homme Yassine Boukamar
Localisation : France, Val d'Oise (Île de France)

Informations professionnelles :
Activité : Ingénieur systèmes et réseaux
Secteur : Industrie

Informations forums :
Inscription : juin 2011
Messages : 1
Points : 0
Points : 0
Par défaut Code qui se connecte dans une BD et liste les adresse IP PE..

Bonjour à tous ;

Pour faire simple , je voudrais afficher le résultat mais je n'arrive pas , j'ai essayé avec la fonction print() et array mais j'arrive pas , en attente de vos réponse , merci de vouloir m'aider
voici le code :

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
#!/usr/bin/perl -w
 
## info Mysql  ##
use strict;
use Net::Telnet;
use Net::Ping;
use Net::MySQL;
my $hostname = '10.129.4.60';
my $database = 'ness3';
my $user     = 'netcool';
my $password = 'ncool';
my $timeout  = 1 ;
my $query;
my $result;
my $mysql;
my $debug;
 
#      ----------------------------Mes Fonctions----------------------
 
sub f_open_mysql {
                     $mysql = Net::MySQL->new(
                      hostname => $hostname,   # Default use UNIX socket
                      database => $database,
                      user     => $user,
                      password => $password,
                      timeout => $timeout,
                      debug => $debug
                     );
}# fin sub
 
sub f_Query_mysql {
                my $query = "SELECT s.subnet_name ,ip.ip_addr, ip.name FROM subnet s , ip , block b
                        WHERE
                        s.block_id = b.oid
                        and ip.subnet_id = s.oid
                        and ip.row_enabled = 1
                        and b.block_name = 'Loopback local Redback'
                        and ip.name regexp '^[0-9][0-9][A-Z0-9][A-Z][A-Z0-9][A-Z]{0,2}\-SE[0-9][0-9]0'
                        order by ip.ip_addr" ;
 
                ## execution de la request ##
                $result = $mysql->query( $query );
 
#---- je voudrais aficher le résultat-----------------
 
if ($mysql->is_error) { die ("SQL Request Error !!!\nEnd script\n");}
}# fin sub
 
print "test2\n";
sub f_close_mysql {
                $mysql->close;
}# fin sub
yassine_golden est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/06/2011, 12h59   #2
Beniou
Membre expérimenté
 
Avatar de Beniou
 
Homme
Inscription : novembre 2009
Messages : 357
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 33
Localisation : France, Nord (Nord Pas de Calais)

Informations forums :
Inscription : novembre 2009
Messages : 357
Points : 509
Points : 509
Pour afficher le résultat d'une requête il y a plusieurs méthodes (fetchrow...).

Tu peux regarder ce tutoriel pour des exemples
Beniou est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 17h56.


 
 
 
 
Partenaires

Hébergement Web