probème de split

Version imprimable

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

11/06/2008, 12h58
Earl7

probème de split
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:

1 2 ($champ1, $champ2, $champ3, $champ4) = split/le néant/$ligne;
11/06/2008, 13h08
CKLN00

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

Code:

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

devient

Code:

split(/\t/,$ligne);

\t est le code pour une tabulation (comme \n celui pour une fin de ligne et \r un retour chariot)
11/06/2008, 13h44
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:

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.

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:

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;

11/06/2008, 16h37
CKLN00

ligne 32 dbh ...

Code:

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

devrais etre

Code:

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

je suppose

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:

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

Citation:

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

Mais que voudrais-tu comme affichage? Une donnée par ligne?

Code:

print "MAC: $1 \nIP: $2 \nEpoch: $3 \nTexte: $4\n";

Code:

1
2
3
4
5
6
7
8
    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";

=> ça ne peut pas fonctionner

Tu dois écrire

Code:

1
2
3
4
    if($ligne =~ /(\w+)\t(\w+)\t(\w+)\t(\w+)\t(w+)/)
    {
        print "MAC: $1 IP: $2 Epoch: $3 Texte: $4\n";
    }

Code:

1
2
3
4
5
6
7
8
9
10
 
    my ($mac, $ip, $epoch, $texte);    
    if($ligne =~ /(\w+)\t(\w+)\t(\w+)\t(\w+)\t(w+)/)
    {
        $mac = $1;
        $ip = $2;
        $epoch = $3;
        $texte = $4;
    }
    print "MAC: $mac IP: $ip  Epoch: $epoch Texte: $texte\n";

Alors non Jasmine, le soucis c'est plutot qu'il ne reprend pas les données de mon fichiers ...

Là par exemple avec ton aide j'arrive à :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 #!/usr/bin/perl #ouverture du fichier : open fichier,"< collecte/sauveur3-arpwatch.txt" or die "Le fichier n'existe pas !"; while ($ligne = <fichier>) { my ($mac, $ip, $epoch, $texte); if($ligne =~ /(\w+)\t(\w+)\t(\w+)\t(\w+)\t(w+)/) { $mac = $1; $ip = $2; $epoch = $3; $texte = $4; } print "MAC: $mac IP: $ip Epoch: $epoch Texte: $texte\n"; } close (FILE, "collecte/sauveur3-arpwatch.txt");
Et comme résultat j'ai des lignes vides :

MAC: IP: Epoch: Texte:

Et tout à l'heure j'avais des données rognées, au lieu d'avoir une adresse IP j'en avais seulement le début (172)

12/06/2008, 10h35
Earl7

Ok je suis passé de

Code:

if($ligne =~ /(\w+)\t(\w+)\t(\w+)\t(\w+)\t(w+)/)

à

Code:

if($ligne =~ /(\w+)\t(\w+)\t(\w+)\t(\w+)/)

J'ai des bouts de données ... du genre

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

Le problème vient donc de mon fichier, voici à quoi ressemble les 2 premières lignes :

données<tab>données<tab>données<tab><tab>données
données<tab>données<tab>données<tab>données

Erf :/
12/06/2008, 11h04
CKLN00
le fautif est l'expression régulière (le \w ne gère pas les espaces) à la place des \w+ met tout simplement des .+?
mais à ta place je ferais ça si tu veut absolument utiliser les expression réguliere :
Code:

1 2 3 4 5 6 7 my @tabRez ; while ($line ~= /^(.*?)\t(.*)$/) { push(@tabRez, $1) ; $line = $2 ; } print "MAC: $tabRez[1] IP: $tabRez[2] Epoch: $tabRez[3] Texte: $tabRez[4]\n"
un conseille
utilise le

Code:

@tabRez = split(/\t+/,$ligne)

c'est bien plus simple !
12/06/2008, 11h06
Jasmine80
MAC: 68 IP: 1211794757 Epoch: pctriax3 Texte: eth1

Code:

données<tab>données<tab>données<tab><tab>données

Il ne semble pas y avoir d'espaces dans ce genre de données (68, 1211794757, pctriax3 et eth1)

Vu que tu peux avoir plusieurs \t successifs
Code:

1 2 ($line ~= /^(\d+)\t+(\d+)\t+(\w+)\t+(\w+)$/) # chiffres\t+chiffres\t+chiffres_lettres\t+chiffres_lettres

Même si j'ai encore un petit soucis j'ai opté pour
Code:

1 2 3 4 5 6 7 8 9 10 11 12 while ($ligne = <fichier>) { my ($mac, $ip, $epoch, $texte, $autre); if($ligne =~ /(.+)\t(.+)\t(.+)\t(.+)\t(.+)/) { $mac = $1; $ip = $2; $epoch = $3; $texte = $4; $autre = $5 } print "MAC: $mac IP: $ip Epoch: $epoch Texte: $texte Autre: $autre\n";
Tout juste débutant en Perl je préfère l'option simple CKLN00 ;).

Même si j'ai encore un petit soucis, soit j'ai un affichage correct, soit je n'ai rien ...

du genre :

MAC: 0:b:cd:9:1d:6d IP: 137.121.27.75 Epoch: 1212594289 Texte: pcnguyenph Autre: eth1
MAC: 0:1:e6:5b:86:f6 IP: 137.121.27.201 Epoch: 1212634445 Texte: hpsols22 Autre: eth1
MAC: IP: Epoch: Texte: Autre:

12/06/2008, 11h37
Jasmine80

Citation:

Le problème vient donc de mon fichier, voici à quoi ressemble les 2 premières lignes :

données<tab>données<tab>données<tab><tab>données
données<tab>données<tab>données<tab>données

Code:

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

Fais attention, car tu as plus d'une tabulation entre deux données, les tabulations surnuméraires seront récupérées dans tes variables.

utilise plutôt

Code:

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

essaye plus tot :
Code:

1 2 3 4 if($ligne =~ /(.+)\t(.+)\t(.+)\t(.+)\t(.+)/) { print "MAC: $1 IP: $2 Epoch: $3 Texte: $4 Autre: $5\n"; }
et tu n'aurais plus de résultat vide ... essaye de comprendre pourquoi (simple question de logique pas besoin de connaitre perl :p)

Edit : mais j'insiste et te conseille le split :
Code:

1 2 3 4 5 my @tabREZ = split(/\t/, $ligne) print "MAC: $tabRez[1] IP: $tabRez[2] Epoch: $tabRez[3] Texte: $tabRez[4]"; if ($tabRez[5]) {print Autre: $tabRez[5];} print "\n";
Edit 2 : non il n'y as pas d'espace mais le \w ne gérè pas les . non plus ....

12/06/2008, 11h39
Earl7
Citation:
Envoyé par Jasmine80

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

Code:

données<tab>données<tab>données<tab><tab>données

Il ne semble pas y avoir d'espaces dans ce genre de données (68, 1211794757, pctriax3 et eth1)

Vu que tu peux avoir plusieurs \t successifs

Code:

1 2 ($line ~= /^(\d+)\t+(\d+)\t+(\w+)\t+(\w+)$/) # chiffres\t+chiffres\t+chiffres_lettres\t+chiffres_lettres
Excuse moi Jasmine, je n'ai pas été assez précis avec toi.

C'est le résultat éroné que j'ai écrit, le résultat correct est de la forme :

MAC: 0:b:cd:67:ef:3d IP: 137.121.23.164 Epoch: 1206546631 Texte: pcthesard7 Autre: eth1
12/06/2008, 11h43
Jasmine80

A d'accord

Citation:

Le problème vient donc de mon fichier, voici à quoi ressemble les 2 premières lignes :

données<tab>données<tab>données<tab><tab>données
données<tab>données<tab>données<tab>données

:) je pensais que tu parlais des deux premières lignes de ton fichier.
Donc en fin de compte, tout fonctionne comme tu le veux?
12/06/2008, 11h45
CKLN00
juste je signale que j'ai éditer mon message plus haut (on se bouscule sur ce forum ditent donc !)
Citation:
Envoyé par CKLN00

Edit : mais j'insiste et te conseille le split :

Code:

1 2 3 4 5 my @tabREZ = split(/\t/, $ligne) print "MAC: $tabRez[1] IP: $tabRez[2] Epoch: $tabRez[3] Texte: $tabRez[4]"; if ($tabRez[5]) {print Autre: $tabRez[5];} print "\n";
cette solution avec split est plus efficace je pense que la solution avec la Regex et plus souple donc ...
12/06/2008, 12h28
Jasmine80

Le split fonctionne avec une RegExp en arrière fond
D'ailleurs tu peux faire

Code:

split(/RegExp/, $texte);

Alors ça marche oui et non ... désolé CKLN00 je me suis entêté sur l'idée de base, mais je jetterai surement un oeil à la tienne par la suite ;)

Alors j'en suis là :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 while ($ligne = <fichier>) { my ($mac, $ip, $epoch, $texte, $autre); if($ligne =~ /(.+)\t(.+)\t(.+)\t(.+)\t(.+)/) { print "MAC: $1 IP: $2 Epoch: $3 Texte: $4 Autre: $5\n"; } else { print "Enregistrement impossible\n"; } }
Désolé mais j'en reviens à mon fichier .dat, j'ai 3 types de lignes sur ce fichier et avec le else je me suis rendu compte que seul l'enregistrement du premier type était correct

mac<tab>ip<tab>epoch<tab>texte<tab>autre
mac<tab>ip<tab>epoch<tab>texte<tab>
mac<tab>ip<tab>epoch<tab><tab>autre

12/06/2008, 13h19
CKLN00

pour valider tout met cette expression régulière la :
/(.*)\t(.*)\t(.*)\t(.*)\t?(.*)/

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

Fuseau horaire GMT +2. Il est actuellement 11h59.