multiple substitutions de symboles

Version imprimable

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:

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

26/08/2015, 17h24
caramon _majere
Bon j'ai gagné au moins une ligne pour le moment avec le ?
Code:

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

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

Code:

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
$

26/08/2015, 19h56
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:

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

Voilà en plus condensé :

Code:

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

Ce qui donne :

Code:

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;

26/08/2015, 22h09
Lolo78

Citation:

Envoyé par djibril

Voilà en plus condensé :

Code:

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

NB: j'avais bien vu que l'on pouvait condenser, mais j'essayais d'être pédagogique... ;) :ptdr:
27/08/2015, 11h18
caramon _majere

Merci pour les conseilles, tous fonctionnent :)

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

Code:

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

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

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

Code:

$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é 8O
27/08/2015, 11h50
Lolo78
Le "|" est bien un OU logique (plus exactement une alternative) du point de vue de l'expression régulière.
Code:

1 2 $toto =~ /ab|cdef/;
permet de reconnaître soit "ab", soit "cdef" dans la chaîne $toto.
27/08/2015, 12h26
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
27/08/2015, 15h36
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.
27/08/2015, 17h22
caramon _majere

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

Code:

$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.

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:

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 §.

27/08/2015, 21h50
caramon _majere

Super je comprend beaucoup maintenant :merci:

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.