Discussion :

[Titigore]

Bonjour,
Débutant dans le langage Perl, je dois combiner plusieurs choses dans Perl qui me compliquent la tâche :
J'ai un fichier .txt contenant : Site;AdresseIP que je dois lire et stocker afin d'utiliser ces deux champs en ForEach
Je dois donc me connecter sur les bases PostGreSQL de chaque Site grâce à leur adresse IP, effectuer une requête plutôt simple sur une table (un select count(*) d'une table) puis stocker le nombre résultant + le Site correspondant à l'adresse IP où j'ai requêté. J'aimerai dans l'idéal stocker le résultat de chaque requête à la suite dans un fichier (.csv).
Pour le moment cela ressemble à ça mais je ne suis pas sur que cela fonctionne, et je bloque pour la suite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open(my $fd, '<', 'test.txt');
my @data = <$fd>;
close($fd);
while(<>) {
  chomp;
  push @data, [split m/;/, $_, -1] if m/;/;
}
foreach my $i (0 .. $#data)
{
#Les paramètres
my $base = 'base1';
my $host = $data[$i][1];
my $login = 'login';
my $mdp = 'mdp';
my $port = '5432';
 
AfficherMessage(\*$flog,"Initialisation de la connexion a PostGreSQL");
my $dbh = DBI-> connect("dbi:Pg:dbname=$base;host=$host;port=$port;", $login, $mdp) or die "Connexion impossible a PostGreql !";

Des suggestions ou des pistes svp?

Merci !

[Puppet_Master]

Bonjour.

Le sujet est vieux, mais ce n'est pas une raison pour ne pas y répondre. si cela peut inspirer quelqu'un ... un jour ... peut être

Code perl :

Sélectionner tout - Visualiser dans une fenêtre à part

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
use Modern::Perl;
use IO::All;
use DBI;
use DBD::PG;
 
# lecture du fichier Site;AdresseIP
my @lst_ips = io->file('site_ip.txt')->chomp->slurp;
 
# requetes plus stockage
for my $i ( @lst_ips ) {
 
    # parse la ligne
    my ( $site, $ip ) = split /;/, $i;
 
    # recup le nombre de ligne
    my $count = get_count( $ip );
 
    # stock a la suite du fichier csv
    io->file( 'stockage_result.csv' )->append($site.';'.$count);
}
 
# fonction qui retourne le nombre d'enregistrement 
# de 'la_database.public.ma_table' du serveur postgresql
# dont l'IP est passé en argument.
sub get_count {
    my $ip = shift;
 
    # init la connexion au serveur
    my $dbh_pg = DBI->connect(
        "dbi:Pg:dbname=la_database;host=$ip",
        'user',
        'passwd'
    );
 
    # definition de la requete
    my $sql = 'select count(*) from public.ma_table';
 
    # prepare et jou la requete
    my $ary = $dbh_pg->selectcol_arrayref( $sql );
 
    # return
    $ary->[0];
}