Discussion :

[Earl7]

Dernier détail (oui encore désolé ...), l'affichage est impeccable sur toutes les lignes excepté un truc

MAC: 0:a0:d1:69:e1:b6 172.22.4.67 IP: 1211452879 Epoch: Texte: eth1 Autre:

Edit : je suis passé à

if($ligne =~ /(.*)\t(.*)\t(.*)\t(.*)\t(.*)/)

ça marche comme ça, toutes les lignes sont bonnes.

Après ce programme fait dans la précipitation je continuer à étudier le Perl via certains tutos !

Encore merci

[Earl7]

Une fois mes données récupérées je voudrais enregistrement le tout dans une base de données ... mais je coince au niveau de la requête, je ne vois pas trop quoi mettre dans VALUES ...

Partie en question :

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
19
20
21
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh = DBI->connect($dsn, $login, $mdp) or die "Echec de connexion";
 
$requete = "INSERT INTO titi (mac, ip, epoch, texte) VALUES ();";
$sth = $dbh->prepare($requete);
 
while ($ligne = <fichier>)
{
my ($mac, $ip, $epoch, $texte, $autre);
    if($ligne =~ /(.*)\t(.*)\t(.*)\t(.*)\t(.*)/)
    {
        $sth->execute();
    }
    else
    {
        print "Enregistrement impossible\n";
    }
}
 
$sth->finish;
$dbh->disconnect;

[Jasmine80]

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
19
20
21
use strict;  # au début du code
 
....
 
my $dsn = "DBI:mysql:database=$database;host=$hostname";
my $dbh = DBI->connect($dsn, $login, $mdp) or die "Echec de connexion";
 
my $ligne;
while ($ligne = <fichier>)
{
    if($ligne =~ /(.*)\t(.*)\t(.*)\t(.*)\t.*/)
    {
        my $requete = "INSERT INTO titi (mac, ip, epoch, texte) VALUES ('$1', '$2', '$3', '$4')";
        my $sth = $dbh->prepare($requete) or die "erreur de préparation\n";
        $sth->execute() or die "erreur d'exécution\n";
    }
    else
    {
        print "Enregistrement impossible\n";
    }
}

[Earl7]

Merci Jasmine, bon je poursuis dans le même sujet

Pour qu'un enregistrement soit possible il ne faut pas qu'il y ait un enregistrement dans la table contenant la même mac ip et epoch ...

donc j'ai déjà fait la condition par la mac, mais pour combiner les trois j'ai du mal ...

Pour la mac j'ai ça :

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
19
20
21
22
23
24
25
$reqa = "SELECT mac FROM titi;";
$sth = $dbh->prepare($reqa);
$sth->execute();
 
while ($ligne = <fichier>)
{
my ($mac, $ip, $epoch, $texte, $autre);
    if($ligne =~ /(.*)\t(.*)\t(.*)\t(.*)\t(.*)/)
    {
                if($reqa != $1)
                {
                        $requete = "INSERT INTO titi (mac, ip, epoch, texte) VALUES ('$1', '$2', '$3', '$4');";
                        $sth = $dbh->prepare($requete);
                        $sth->execute();
                }
                else
                {
                print "Enregistrement déjà présent\n";
                }
    }
    else
    {
        print "Enregistrement impossible\n";
    }
}

Pour combiner les 3 je pensais faire :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
$reqa = "SELECT mac FROM titi;";
$sth = $dbh->prepare($reqa);
$sth->execute();
 
$reqb = "SELECT ip FROM titi;";
$sth = $dbh->prepare($reqb);
$sth->execute();
 
$reqc = "SELECT epoch FROM titi;";
$sth = $dbh->prepare($reqc);
$sth->execute();
 
while ($ligne = <fichier>)
{
my ($mac, $ip, $epoch, $texte, $autre);
    if($ligne =~ /(.*)\t(.*)\t(.*)\t(.*)\t(.*)/)
    {
                if($reqa != $1, reqb != $2, reqc != $3)
                {
                        $requete = "INSERT INTO titi (mac, ip, epoch, texte) VALUES ('$1', '$2', '$3', '$4');";
                        $sth = $dbh->prepare($requete);
                        $sth->execute();
                }
                else
                {
                print "Enregistrement déjà présent\n";
                }
    }
    else
    {
        print "Enregistrement impossible\n";
    }
}

Mais il me réenregistre toutes les lignes une seconde fois, ça coince au niveau du if, mais je ne sais pas comment combiner les 3 conditions).

Oui le code est sûrement un peu "lourd" pour certains mais je débute et je comprend comme ça pour l'instant

[Jasmine80]

Pour qu'un enregistrement soit possible il ne faut pas qu'il y ait un enregistrement dans la table contenant la même mac ip et epoch ...

C'est plus un problème de requête SQl que de langage perl


Essaie quelque chose de ce genre

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
use strict;  # au début du code
 
....
 
my $dsn = "DBI:mysql:database=$database;host=$hostname";
my $dbh = DBI->connect($dsn, $login, $mdp) or die "Echec de connexion";
 
my $ligne;
while ($ligne = <fichier>)
{
 
    if($ligne =~ /(.*)\t(.*)\t(.*)\t(.*)\t.*/)
    {
        my $mac = $1;
        my $ip = $2;
        my $epoch = $3;
        my $texte = $4;
 
        my $requete_verif = "SELECT * FROM titi WHERE mac = '$mac' OR ip = '$ip' OR epoch = '$epoch' OR texte = '$texte'";
        my $sth_verif = $dbh->prepare($requete_verif) or die "erreur de préparation\n";
        $sth_verif ->execute() or die "erreur d'exécution\n";
        my $rows = $sth_verif->rows;
 
        # si le nombre d'enregistrements récupérés est égal à zéro
        if ($rows == 0){
            my $requete = "INSERT INTO titi (mac, ip, epoch, texte) VALUES ('$mac', '$ip', '$epoch', '$texte')";
            my $sth = $dbh->prepare($requete) or die "erreur de préparation\n";
            $sth->execute() or die "erreur d'exécution\n";
        }
    }
    else
    {
        print "Enregistrement impossible\n";
    }
}

[Earl7]

C'était bien ça, mais j'ai du mal m'exprimer car le résultat souhaité est obtenu avec des AND et non des OR

Encore merci Jasmine.

[Earl7]

Juste petit truc, avec le même code je me retrouve avec cette erreur :

Can't call method "finish" on an undefined value at enre.pl line 44, <fichier> line 344.

[Jasmine80]

Can't call method "finish" on an undefined value at enre.pl line 44, <fichier> line 344.

Si tu me donnais la ligne 44 de ton code perl cela m'éviterait de devoir fouiller mon armoire à la recherche de ma boule de cristal
A la ligne 44 de ton script, tu essaies d'appeler la méthode 'finish' sur une variable qui n'a pas été définie. Tu as donc déclarer ta variable mais celle-ci n'a pas été initialisée, elle est 'vide', sans valeur. Cela se passe à la ligne 344 du fichier qui est lu.


D'ailleurs ce finish me fait penser que tu peux rajouter dans ton code

Code :

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

$sth->finish;

et

Code :

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

$sth_verif->finish;

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
19
20
21
    if($ligne =~ /(.*)\t(.*)\t(.*)\t(.*)\t.*/)
    {
        my $mac = $1;
        my $ip = $2;
        my $epoch = $3;
        my $texte = $4;
 
        my $requete_verif = "SELECT * FROM titi WHERE mac = '$mac' AND ip = '$ip' AND epoch = '$epoch' AND texte = '$texte'";
        my $sth_verif = $dbh->prepare($requete_verif) or die "erreur de préparation\n";
        $sth_verif ->execute() or die "erreur d'exécution\n";
        my $rows = $sth_verif->rows;
        $sth_verif->finish;
 
        # si le nombre d'enregistrements récupérés est égal à zéro
        if ($rows == 0){
            my $requete = "INSERT INTO titi (mac, ip, epoch, texte) VALUES ('$mac', '$ip', '$epoch', '$texte')";
            my $sth = $dbh->prepare($requete) or die "erreur de préparation\n";
            $sth->execute() or die "erreur d'exécution\n";
            $sth->finish;
        }
    }

[Earl7]

Tout est ok, merci Jasmine !