Discussion :

[Earl7]

J'ai un fichier dat, chaque ligne est composée de 4 données séparées par des tabulations.

Dans le but d'insérer ces données dans une table je voudrais définir que champ1 = donnée1 etc.

Mais j'ai du mal à le définir ...

Code :

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

1
2
($champ1, $champ2, $champ3, $champ4) = split/le néant/$ligne;

[CKLN00]

si j'ai tout suivit tu veut splite ta chaine par rapport à une tabulation nan ?
alors

Code :

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

split(/le néant/,$ligne);

devient

Code :

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

split(/\t/,$ligne);

\t est le code pour une tabulation (comme \n celui pour une fin de ligne et \r un retour chariot)

[Jasmine80]

Tu devrais faire un chomp($ligne) avant ton split afin de ne pas récupérer le saut de ligne dans ton $champ4

Sinon, au lieu du split, tu pourrais également utiliser une expression régulière.

Code :

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

1
2
3
4
5
6
7
8
while ($line = <FICH>){
    if($line =~ /(\w+)\t(\w+)\t(\w+)\t(\w+)/){
        my $champ1 = $1;
        my $champ2 = $2;
        my $champ3 = $3;
        my $champ4 = $4;
    }
}

Par exemple, si tu avais des lignes vides entre tes lignes de données, cela éviterait de les sélectionner.

[Earl7]

Merci a vous, j'ai donc essayé ce que tu m'as proposé Jasmine.
Je début en Perl, donc pas mal de petits soucis...

J'ai le message d'erreur suivant :

Can't locate object method "prepare" via package "dbh" (perhaps you forgot to load "dbh"?) at nouveau.pl line 32, <fichier> line 1.

Voici mon code :

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
36
37
38
39
40
#!/usr/bin/perl
 
use DBI;
use CGI;
 
$co = new CGI;
#print $co->header;
 
$database="arpwatch";
$hostname="localhost";
$login="arpwatch";
$mdp="mdp";
 
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh = DBI->connect($dsn, $login, $mdp) or die "Echec de connexion";
 
#ouverture du fichier :
 
open fichier,"< /collecte/sauveur3-arpwatch.dat" or die "Le fichier n'existe pas !";
 
while ($ligne = <fichier>)
{
 
    if($ligne =~ /(\w+)\t(\w+)\t(\w+)\t(\w+)/)
    {
        my $mac = $1;
        my $ip = $2;
        my $epoch = $3;
        my $texte = $4;
    }
$req = "INSERT INTO titi (mac, ip, epoch, texte) VALUES ($1, $2, $3, $4);";
$sth = dbh->prepare($req);
$sth->excute();
 
}
 
close (FILE, "/collecte/sauveur3-arpwatch.dat");
 
$sth->finish;
$dbh->disconnect;

[CKLN00]

ligne 32 dbh ...

Code :

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

$sth = dbh->prepare($req);

devrais etre

Code :

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

$sth = $dbh->prepare($req);

je suppose

[Earl7]

Je vais reprendre étape par étape, donc avant de faire le lien avec ma db je voudrais seulement faire un affichage classique ...

J'ai donc :

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
#!/usr/bin/perl
 
#ouverture du fichier :
 
open fichier,"< collecte/sauveur3-arpwatch.dat" or die "Le fichier n'existe pas !";
 
while ($ligne = <fichier>)
{
 
    if($ligne =~ /(\w+)\t(\w+)\t(\w+)\t(\w+)\t(w+)/)
    {
        my $mac = $1;
        my $ip = $2;
        my $epoch = $3;
        my $texte = $4;
    }
    print "MAC: $1 IP: $2 Epoch: $3 Texte: $4\n";
}
 
close (FILE, "collecte/sauveur3-arpwatch.dat");

Plusieurs choses, je viens de m'apercevoir que certaines lignes de mon fichier contiennent 5 données (toujours séparées par des tabulations) bon ça c'est de l'ordre du détail, par contre au niveau de l'affichage ça coince ... je me retrouve avec un affichage du genre :

MAC: 68 IP: 1211794757 Epoch: pctriax3 Texte: eth1