Reprise du message précédent :
Hello    
 
Je retravaille (un peu) sur le script d'export et j'ameliiore encore un peu le travail . . .  
 
Je voudrais mettre en place l'archivage des données vers une BDD mysql dont je dispose de l'adresse IP, user et mot de passe.
Et-il possible de mettre en place la partie connexion et export vers BDD dans le script de départ? ou si je dois créer un autre script ?
 
Je posterais ce soir le bout de code de connexions pour voir si cela correspond bein à la logique.
 
Merci
 
@+

 
Pour causer à une BDD en Perl, on emploie le module DBI.
Et une des multiples docs sur l'emploi de DBI: http://oreilly.com/catalog/perldbi/chapter/ch04.html  
 
A+,

En fait, j'ai trouvé un peu daide sur le dbi, mais je dois installer le module DBI sur le poste.
Ensuite, le but est de metre en place ce script dans un serveur pour le faire tourner en H24/24.
 
Le serveur doit du coup avoir un module PERL, DBI pour fonctionner ?  
 
Merci
 
 
@+

La machine sur laquelle tourne l’exécutable perl doit avoir accès au bons modules dans son environnement pour pouvoir les trouver lors de l’exécution d'un script.
A+,

Ok, donc je dois mettre les mêmes modules de mon PC de developpement sur mon mini serveur.
 
Merci pour l'aide.
 
 
@+

Salut Gilou,  
Après avoir pas mal étudier le cours sur le DBI, j'ai 2-3 qestions en suspens . . .  
 
D'abord, dans tous les scripts de connexions aux BDD, il est toujours marqué  

du coup, pour ma connexion à la base, je dois remplacer le code Oracle par MySQL ?  
 
Ensuite,  lors de mes connexions entre BDD et script, je dois :  
 
Ouvrir ma session sur le compteur,
Ouvrir une session BDD,  
"coller" les valeurs de mon export,  
fermer la connexion BDD,
fermer la session compteur.
 
si je suis la même logique que pour les precedents scripts?  
 
J'ai ce morceau de code qui compile, il me reste à le mettre en place dans le script que l'on a vu ensemble, et a le tester à temps réel.
 

 
Merci  
 
@+

Juste une question, dans le fichier adresses_ip.txt, de format :
192.168.1.1;
192.168.1.2;
192.168.1.3;
 
Si je rajoute une info de type :
192.168.1.1;exemple1;
192.168.1.2;exemple2;
192.168.1.3;exemple3;
 
Est-il possible de les lire la valeur de "exemple" dans une boucle différentes sachant que l'on lit déja la valeur de l'adresse IP dans la boucle suivante :
 

 
Sans biensur modifier le reste du script de lecture des adresses IP.
 
En cherchant sur le net, j'ai trouvé des fonctions du type  

mais rien n'aboutit comme je le souhaiterais
Si jamais il existe d'autre méthode ou d'autre fonction de lecture des valeurs.
 
merci  
 
@+

Non, la le code avec grep marchait parce que tu n'avais qu'une valeur par ligne, si tu change le format du fichier en entrée, il faut changer ton code de lecture de ces données et il faudra faire une vraie boucle de lecture ligne à ligne.
A+,

Ben pourquoi poser la question, puisque tu donnes la réponse dans la suite?
>> my $dbh = DBI->connect( "DBI:mysql:database=$bd;host=$serveur;port=$port", ...

La logique c'est:
Ouvrir ma session sur le compteur,
Récupérer les infos sur le compteur
Ouvrir une session BDD,  
"coller" les valeurs de mon export, ( ou un log d'erreur ?)
fermer la connexion BDD,
fermer la session compteur.

A+

Oui, c'est vrai.
Je regarde tout ça et je reviens dans la soirée, j'ai bien avancé le script.
 
Merci quand même    

Hello  
 
J'ai retravaillé le script ce weekend pour la lecture des variables à exporter en plus (exemple1, exemple2, ...)
En créant un nouvelle boucle avec un nouveau fichier.
Du coup, je l'ai intégré au script maisj'ai un souci dans la boucle de sub_session.
Il ne me reconnait pas la variable $adress
 

et definition de la fonction :  
 

 
Merci
 
@+

C'est ceci qui ne passe pas?  
printf($adress $_ );
Ben c'est normal puisqu'il n'est défini de variable $adress nulle part auparavant. Et j'en vois d'ailleurs pas trop l'intérêt puisque nulle part le code n'utilise une telle variable.
A+,

     Oui, effectivement,  
Je croyais avoir initialisé ma variable avant de l'utiliser.
 
     En fait, le but est de lire un fichier et d'exporter la valeur de la variable en même temps que les valeur de puissance.
Du coup, je regardais pour lire dans un fichier txt et pour l'incorporer dans le fichier csv.
 
     Ensuite, pour la connexion à ma Bdd, je bute toujours sur l'installation du module DBI, je ne peux pas me connecter à la base CPAN.
peut-etre un souci de pare-feu ou de proxi   mais sa, c'est une autre histoire.
 
Merci
@+
 

> je ne peux pas me connecter à la base CPAN
avec le perl d'active state?
il suffit pourtant de lancer ppm
A+,

En passant par le cpan (avec la fenetre de commande) je suis bloqué au niveau du proxi je pense car impossible de telecharger.
Et du coup, je pensais refaire les reglages du proxi car le réseau doit bloquer le telechargement.
 
[cpp]
cpan[1]> install dbi
Catching error: "Proxy mus
.net' is not at C:\\Perl64
pm line 392, <IN> line 1.
        CPAN::shell() call
        App::Cpan::_proces
n.pm line 364
        App::Cpan::run('Ap
←[32mFetching with LWP:
http://ppm.activestate.com
←[32mLWP failed with code[
10060)]←[0m
←[31mWarning: no success d
t.gz.tmp4140'. Giving up o
←[32mFetching with LWP:
http://cpan.perl.org/autho
←[32mLWP failed with code[
]←[0m
←[31mWarning: no success d
t.gz.tmp4140'. Giving up o
←[31mWarning: no success d
t.gz.tmp4140'. Giving up o
←[32mNo external ftp comma
 
←[32mFetching with LWP:
http://ppm.activestate.com
←[32mLWP failed with code[
10060)]←[0m
←[31mWarning: no success d
t.gz.tmp4140'. Giving up o
←[32mFetching with LWP:
http://cpan.perl.org/autho
←[32mLWP failed with code[
]←[0m
←[31mWarning: no success d
t.gz.tmp4140'. Giving up o
←[31mWarning: no success d
t.gz.tmp4140'. Giving up o
←[32mNo external ftp comma
 
←[31mPlease check, if the
(http://ppm.activestate.co
urllist can be edited. E.g
 
←[31mCould not fetch autho
←[32mLockfile removed.←[0m
[fixed]
 
je suis sur un PC de developpement au taf.
 
Merci  
@+

Apres,  
Est il possible d installer le module DBI sans passer par internent ou en telechargeant un fichier et en le placant dans un repertoir PERL ?  
 
 
@+

Mais pourquoi passes tu par cpan et non par ppm?
> Est il possible d installer le module DBI sans passer par internent ou en telechargeant un fichier et en le placant dans un repertoir PERL ?  
Pas toujours (c'est souvent un ou plusieurs répertoires, et il faut tenir compte des dépendances, de la compatibilité des fichiers C compilés le cas échéant...)
A+,

En passant par la cmd, lorsque je tape ppm, une fenetre s'ouvre et  
j'ai la fenetre ppm qui s'ouvre. Quand je faits une recherche de DBI, il y a un module d'installer, 1.623.
 
tous les champs apparaissent en jaune.
 
@+

Question à 1.52€, mais utile,  
en C++, quand on créé des fichiers ou des sauvergarde;
 
On peut marquer dans le chemin soit :  

 
Pour enregistrer le fichier à un emplacement défini.
 
En perl, on peut faire la même chose, pour simplifier le portage du script d'un pc à un autre ?
 
@+

Donc tu as bien DBI d'installé.
Si tu utilises MySQL, vérifies aussi que son module driver pour DBI est installé, c'est DBD::mysql
 
A+,
 

aucun des deux chemins que tu donnes en exemple n'est valable en C++
Par contre, 'D:/chemin/de/sauvegarde' et '../sauvegarde' ont des chances de marcher
 
A+,

Là, par contre ça coince, pas de DBD::mysql  d'installé sur ppm.
Il est necessaire de le mettre pour faire mes requetes et export vers ma base mysql => logique que sa ne marche pas donc    
 
Mais pour l'installer, comment je fait, avec la commande cpan ou toujours avec ppm ?  
 
merci
@+

Pour les chemins de sauvegarde, c'est OK.
J'ai bien regarde mes projets de cpp et j'ai compris comment faire;
 
Merci
@+

toujours avec ppm
Il est dans la liste des modules dispo pour l'installation (en gris et non en jaune)
A+,

J'ai bien regarde sur le ppm, mais en bas de la page, il y a de marqué :
 
273 packages, 273 listed / 273 instaled 0 to install, 0 to remove.
 
Et pas de trace de DBD:: mysqldedans.
 
La version de ppm est 4.17
et ActivePerl version est 5.16.3.1603.
 
merci
@+

J'ai enfin avancé sur le script et k'ai telecharge PerlEdit pour mes debuggage et compilation car j'ai un souci sur la compil
du script de connexion et d'export des données vers la bdd Sql.  
 
j'ai mis une partie du code en enlevant les connexions miodbus (elles sont OK) j'ai un souci au niveau de la boucle d'insertion des données
dans la bdd.
 
Faut il mettre des { } après les SQL ou non, car j'ai compilé plusieurs soultions et ien ne fonctionne, j'ai oujours l erreur des accolades de remontée dans
la liste des erreurs.
 
 

 
Merci Gilou
@+

fonctions d'export des valeurs
sub start_connection_sql($) {
    print "Content-type: text/htmlnn";
    ## mysql user database name
    my $db ="energie_ste";
    ## mysql database user name
    my $user = "xxxxxxx";
    ## mysql database password
    my $pass = "xxxxxxx";
    ## user hostname : @ IP
    my $host="172.17.1.200";
    my $dbh;  
    $dbh = DBI->connect("DBI:mysql:$db:$host", $user, $pass) or die "Unable to connect: $DBI::errstr\n";
    return $dbh;
}
 
....
my $dbh = start_connection_sql($_);
 
et plus loin, ça devrait être un truc dans ce genre:
    my $query = "INSERT INTO puissance( id_compteur, puissance_p, puissance_q, puissance_s, dephasage) VALUES (";
    foreach (keys %values) {
        $query .= $values{$_}.", ";
    }
    chop; chop;   # pour virer le  ", " final;
    $query .= " )";
    my $sqlQuery  = $dbh->prepare($query) or die "Can't prepare $query: $dbh->errstrn";
    $sqlQuery->execute();
    $query = "INSERT INTO puissance(temps) VALUES (".$time." )";
    $sqlQuery  = $dbh->prepare($query) or die "Can't prepare $query: $dbh->errstrn";
    $sqlQuery->execute();
 
A+,

Merci Gilou,  
Il me manque encore quelques automatismes pour le perl, mais je commence à comprendre le fonctionnalités
Et les variables @, $, . . .
 
Merci pour le coup de main, je teste sa ce matin.
 
@+
Merci

Re-Hello
 
Après avoir essaye le code, j'ai ces erreurs qui apparaissent dans le compilateur (PerlEdit 1.09)
Juste une question, lors de la déclaration des $query, $sqlquery, ... est-ce obligatoire de mettre le my $query  ?
Parsque du coup, il ne me prend pas la déclaration. En mettant # devant les déclarations, tout compile.
 
[. . . ]
sub start_connection_sql($)  
{  
    print "Content-type: text/htmlnn";  
     
## mysql user database name  
    my $db ="***";  
     
## mysql database user name  
    my $user = "***";  
     
## mysql database password  
    my $pass = "***";  
     
## user hostname : @ IP  
    my $host="***";  
     
    my $dbh;  
     
 $dbh = DBI->connect("DBI:mysql:$db:$host", $user, $pass) or die "Unable to connect: $DBI::errstr\n";
    return $dbh;  
}  
 [ . . . ]  
 
 
sub session ()  
    {
   
  #Chemin d'acces aux adresses des IP Serveur, à modifier au besoin
  my @servers = make_servers_list('Cadresses_ip.txt');  
  my %params = make_params_list();
 
 
  foreach (@servers)
 
  {
   my $connection = start_connection($_);
   my $connection_sql = start_connection_sql($_);
   next unless ($connection);
   my %values = get_values($connection, %params);
 
   # log_write(%values);
   end_connection($connection);
 
 
  foreach (@servers)
 
   {
   
   my $query = "INSERT INTO puissance( id_compteur, puissance_p, puissance_q, puissance_s, dephasage) VALUES (";
      foreach (keys %values)  
    {  
           $query .= $values{$_}.", ";  
       }  
 
     
    chop; chop;   # pour virer le  "," final; $query .= " )";  
 
 $sqlQuery  = $dbh->prepare($query) or die "Can't prepare $query: $dbh->errstrn";  <== Global symbol "$dbh" requieres explicit name
 $sqlQuery->execute();  <== Global symbol "$sqlquery" requieres explicit name
 
 $query = "INSERT INTO puissance(temps) VALUES (".$time." )"; <== Global symbol ".$time." " requieres explicit name
 
 
 $sqlQuery  = $dbh->prepare($query) or die "Can't prepare $query: $dbh->errstrn"; <== Global symbol "$dbh" requieres explicit name
 
 $sqlQuery->execute();  <== Global symbol "$sqlquery" requieres explicit name
   
 
   }
  }
    }
 
# Fonction main
session();
 
#test de fin de connexion et d'ecriture des valeurs
print("\n Fin d export \n" );
 
[/cpp]
 
 
@+
Merci

Si tu lis mon code, j'avais écrit
my $dbh = start_connection_sql($_);  
et toi tu as écrit a la place
my $connection_sql = start_connection_sql($_);  
normal qu'il y ait problème.
 
my ça déclare que la variable qu'on définit est locale a la procédure en cours. Ca évite tout un tas d'effets de bord imprévu et permet d'avoir du code propre sans variables globales a effet de bord.
Son emploi (de my) est rendu (volontairement) obligatoire par le "use strict;" en tête de programme.
 
A+,

A ok,  
Autant pour moi, j'ai mal recopier le script.
 
Pour le my, j'avais un doute dessus, mais j'ai compris.
 
Merci pour l explication Gilou
 
 
@+
Merci

Donc, si en travaillant sans le

,  
On s'expose à des dérives des variables non déclarées dans le script ?
Et a avoir des variables avec des valeurs bizard
 
Parcontre, dans la boucle de :
 j'ai l'erreur
 
Lorsque que je met en commentaire #use strict

 
ou alors j'ai :
avec use strict sans commentaires

Je pense avoir fait une erreur dans la déclaration de .$time.  
Pourtant, j'export bien le bon champ et la bonne valeur lors de l'export en CSV.
 
 
@+
Merci
 
 
 
 

Ben tu la définis ou ta variable $time?
A+,

J'ai bien mis la declaration au-dessus de la boucle, car avant j'appelais la fonction avant ma declaration de fonction.
 
Voila la fin de programme.
 

Merci
@+

Donc $time est local au bloc
{
$mois += 1 and $annee += 1900;
$jour = sprintf("%0d",$jour);
$mois = sprintf("%0d",$mois);
my $time = "$annee-$mois-$jour $heure";
#print $time,"n";
}
et n'est pas connu en dehors
 
Pour le voir en dehors, utiliser une routine qui retourne sa valeur ou autre.
 
A+,

Salut Gilou,  
J'ai refais le script pour la subroutine de time :
 
# création de la variable timestamp pour les horodatages :
 

 
Que j'appelle dans session() avec  
 

 
 
Merci
@+

C'est bon, l'erreur est trouvée, et le script compile.
 
Lors du lancement du script par contre, j'ai des ereurs qui apparaissent.
 

 
Je commence à regarder d'ou cela peut provenir.
 
Merci Gilou
@+
 

Dans ton script, imprime la valeur de $query avant de la filer à $dbh->prepare adin d'avoir le contenu complet de la string de query afin de débugger le SQL.
EDIT: c'est clair a lire le message: tu passes a VALUES une chaine, 2014-6-3-8-41, sans quotes autour.
$query = "INSERT INTO puissance(Date VALUES ('".$time."')";
ça devrait le faire, non?
A+,

OK,  
Pour les quotes, je vois le truc.
J'ai mis un print pour chaque $query et mis en commentaire els lignes prepare,  execute . . .  
 
Et j'obtient cela.
Il memanque juste une info et je pense que cela doit faire bugger la requete, car on exporte que 4 valeurs pour les 5 champs de la bdd :
 Il me manque l'info de ID_Compteur qui est l'adresse IP du serveur interrogé, qui est contenu dans le parametre de connexion modbus.
 
On l'avait mis à partir de

dans le script precedent qui exportait vers le CSV.
 
 

 
Du coup, je vais y rajouter la valeur de l'adresse IP du serveur interrogé et sa marchera un peu plus ^^
 
Merci
@+

Je viens de voir que al valeur de dephasage n'est pas a sa place dans la $query.
Cela ne me derange pas, j'ai fais la modif sur le script
 
Parcontre, je ne vois pas pourquoi, mes exports vers la bdd ne marche pas, si les requetes son bonnes ?  
Vu que les valeurs de ma $query sont bien les bonnes aussi.
 
Merci
@+

Il faut que tu regardes les codes de retour de ton appel a $sqlQuery->execute
 
A+,