Discussion :

[caramon _majere]

Bonjour,

On m'a donné un fichier texte sous le format ci-après pour en faire un fichier csv avec séparateur ";" en remplaçant les symboles
\s
<->
->
:

udp 10.63.29.130:59773->10.63.10.4:8040 0/1 48
udp 10.63.29.130:42114->10.63.10.4:8040 0/1 24
tcp 10.63.29.30:2591<->10.69.25.204:49192 97434/94677 120
tcp 10.63.29.130:5666<->10.222.65.130:35023 9/8 24
tcp 10.242.254.63:telnet<->10.252.16.215:59111 29/30 30
udp 10.63.29.130:57000->10.63.10.4:8040 0/1 36
tcp 10.63.29.30:10001<->10.239.8.17:60683 2153/2210 120
tcp 10.63.29.30:2591<->10.239.8.17:60677 2/1 6
..............................

J'ai fait ca qui fonctionne

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
my @input = @ARGV;
 
foreach my $fichier (@input) {
 
open my $fh, '<', "$fichier";
open my $didierCSV , '>' , "didier.csv";
 
 
while (my $ligne = <$fh>) {
 
$ligne =~ s/\s/;/g;
$ligne =~ s/\</;/g;
$ligne =~ s/\-+/;/g;
$ligne =~ s/\>+/;/g;
$ligne =~ s/\:+/;/g;
$ligne =~ s/\;+/;/g;
 
print "$ligne\n";
 
print $didierCSV "$ligne\n";
}
 
close $fichier;
close $didierCSV;
}

Mais je n'arrive pas à indiquer de multiple possibilités (pas de OU, ET) avec les symbols <-> vu comme une seule pièce par exemple d'ou le fait de passer par x lignes de substitutions
$ligne =~ s/\s/;/g;
$ligne =~ s/\</;/g;
$ligne =~ s/\-+/;/g;
$ligne =~ s/\>+/;/g;
$ligne =~ s/\:+/;/g;
$ligne =~ s/\;+/;/g;
La dernière étant pour éviter d'avoir ;;; à la place de <->

Merci

[caramon _majere]

Bon j'ai gagné au moins une ligne pour le moment avec le ?

Code :

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

1
2
3
$ligne =~ s/\s/;/g;
$ligne =~ s/\b<?->\b/;/g;
$ligne =~ s/\;+/;/

g;

[__dardanos__]

Salut,
Tu peux définir un choix avec un "|" ou en utilisant une classe [].

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
$ cat foo
udp 10.63.29.130:59773->10.63.10.4:8040 0/1 48
udp 10.63.29.130:42114->10.63.10.4:8040 0/1 24
tcp 10.63.29.30:2591<->10.69.25.204:49192 97434/94677 120
tcp 10.63.29.130:5666<->10.222.65.130:35023 9/8 24
tcp 10.242.254.63:telnet<->10.252.16.215:59111 29/30 30
udp 10.63.29.130:57000->10.63.10.4:8040 0/1 36
tcp 10.63.29.30:10001<->10.239.8.17:60683 2153/2210 120
tcp 10.63.29.30:2591<->10.239.8.17:60677 2/1 6
$ perl -pe 's/(?!$)(?:[\s:]|\b<?->\b)/;/g' foo
udp;10.63.29.130;59773;10.63.10.4;8040;0/1;48
udp;10.63.29.130;42114;10.63.10.4;8040;0/1;24
tcp;10.63.29.30;2591;10.69.25.204;49192;97434/94677;120
tcp;10.63.29.130;5666;10.222.65.130;35023;9/8;24
tcp;10.242.254.63;telnet;10.252.16.215;59111;29/30;30
udp;10.63.29.130;57000;10.63.10.4;8040;0/1;36
tcp;10.63.29.30;10001;10.239.8.17;60683;2153/2210;120
tcp;10.63.29.30;2591;10.239.8.17;60677;2/1;6
$

[Lolo78]

Si j'ai compris le problème, tu pourrais réorganiser l'ordre de tes substitutions, en commençant pas les plus longues. Trois substitutions devraient suffire

Code :

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

1
2
3
4
 
$ligne =~ s/<->/;/g;
$ligne =~ s/->/;/g;
$ligne =~s/[\s:]+/;/g;

[djibril]

Voilà en plus condensé :

Code :

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

$ligne =~ s/(?:(?:[\s:]+|<?->))/;/g;

Ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
udp;10.63.29.130;59773;10.63.10.4;8040;0/1;48;
udp;10.63.29.130;42114;10.63.10.4;8040;0/1;24;
tcp;10.63.29.30;2591;10.69.25.204;49192;97434/94677;120;
tcp;10.63.29.130;5666;10.222.65.130;35023;9/8;24;
tcp;10.242.254.63;telnet;10.252.16.215;59111;29/30;30;
udp;10.63.29.130;57000;10.63.10.4;8040;0/1;36;
tcp;10.63.29.30;10001;10.239.8.17;60683;2153/2210;120;
tcp;10.63.29.30;2591;10.239.8.17;60677;2/1;6;

[Lolo78]

Voilà en plus condensé :

Code :

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

$ligne =~ s/(?:(?:[\s:]+|<?->))/;/g;

NB: j'avais bien vu que l'on pouvait condenser, mais j'essayais d'être pédagogique...

[caramon _majere]

Merci pour les conseilles, tous fonctionnent

Ca m'a permit de vérifier que par exemple

Code :

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

$ligne =~ s/<->/;/g;

le <-> est géré comme un \b<->\b et non pas < ensuite - ensuite >


Par contre je ne comprend pas trop la forme avec les ?:

Code :

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

$ligne =~ s/(?:(?:[\s:]+|<?->))/;/g;

En les retirant ca fonctionne tout autant et c'est plus clair

Code :

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

$ligne =~ s/[\s:]+|<?->/;/g;

je pensais que le symbole | faisait office de OU mais ici il semble faire juste séparateur entre deux groupes de caractères et tous sont vérifié

[Lolo78]

Le "|" est bien un OU logique (plus exactement une alternative) du point de vue de l'expression régulière.

Code :

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

1
2
 
$toto =~ /ab|cdef/;

permet de reconnaître soit "ab", soit "cdef" dans la chaîne $toto.

[caramon _majere]

Le terme alternative est peut être meilleurs car avec un OU par réflexe on pense que si le choix de gauche est, ici ab, il n'ira pas vérifier à droite cdef

[Lolo78]

C'est ce qui se passe (en Perl 5): si ab est reconnu, cdef ne sera pas essayé.

En Perl 6, la règle a été changée: le moteur d'expression régulière teste les deux branches de l'alternative et choisis la reconnaissance la plus longue.

[caramon _majere]

Pourtant c'est ce qui passe ici (je suis en version 5.22 strawberry)

Code :

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

$ligne =~ s/[\s:]+|<?->/;/g;

il se serait arrêté au premier espace et stoppé les remplacements pour les autres caractères mais la il semble balayer toute la ligne (tant mieux dans ce cas) même après avoir trouver les éléments à remplacer.

[Lolo78]

Non, parce que le modificateur g fait que le moteur de regex continue à analyser la suite de la ligne jusqu'au bout.

Donc, avec ce modificateur, dès qu'une reconnaissance a été obtenue, la substitution est faite, puis le moteur de regex continue à vérifier la suite de la ligne pour voir s'il trouve d'autres reconnaissances et substitutions à faire..

Considère cet exemple sous le débogueur Perl:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  DB<9> $_ = "totoababctototititutu";
 
  DB<10> s/ab|abc|titu/§/;
 
  DB<11> p $_;
toto§abctototititutu
  DB<12> $_ = "totoababctototititutu";
 
  DB<13> s/ab|abc|titu/§/g;
 
  DB<14> p $_;
toto§§ctototi§tu

Dans le premier cas, il remplace ab par $, bien qu'il y ait une reconnaissance plus longue (abc) juste après, et une encore plus longue (titu) un peu plus loin.

En repartant de la même chaîne de départ et en ajoutant l'option g, le moteur d'expression régulière va trouver la première correspondance (ab), puis continuer à partir de la lettre suivant la reconnaissance trouvée et va trouver ab (dans la chaîne abc, alors qu'abc aurait pu l'emporter, mais c'est l'ordre des motifs qui prime) puis encore chercher et trouver titu, et ces trois motifs seront remplacés par §.

[caramon _majere]

Super je comprend beaucoup maintenant

Je faisais un blocage avec le | qui devait faire un choix unique (le premier trouvé) mais additionner à l'option g ca permet de répéter les choix sur toute la ligne.