Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Invité de passage
    Homme Profil pro Yassine Boukamar
    Ingénieur systèmes et réseaux
    Inscrit en
    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

  2. #2
    Membre expérimenté Avatar de Beniou
    Homme Profil pro
    Inscrit en
    novembre 2009
    Messages
    357
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : novembre 2009
    Messages : 357
    Points : 509
    Points
    509

    Par défaut

    Pour afficher le résultat d'une requête il y a plusieurs méthodes (fetchrow...).

    Tu peux regarder ce tutoriel pour des exemples

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •