probème de split

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/06/2008, 14h34
Earl7

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

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 ;)

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:

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;

Code:

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";
    }
}

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:

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:

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 :oops:

Citation:

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:

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";
    }
}

13/06/2008, 15h45
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.
13/06/2008, 15h48
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.

Citation:

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 :D
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:

$sth->finish;

et

Code:

$sth_verif->finish;
Code:

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; } }

13/06/2008, 16h16
Earl7

Tout est ok, merci Jasmine !

Voir 40 message(s) de cette discussion en une page