Discussion :

[antony03]

Bonjour,

J'ai un fichier contenant des lignes dans un format alphanumérique comme ceci:

122A32T23AGT44

Je veux séparer la string en alpha et numérique. De plus, les caractères alpha doivent être séparés entre eux. Pour mon exemple ci-haut:

122
A
32
T
23
A
G
T
44

Je sais comment utiliser split avec un delimiter constant (pour la virgule pour un format csv). Je n'ai cependant aucune idée sur comment faire la séparation avec mon format actuel.

Merci!

[__dardanos__]

Salut,
Ça semble plus simple de rechercher directement les éléments que le séparateur pour utiliser Split :

Code :

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

1
2
3
4
5
6
7
8
9
10
$ echo "122A32T23AGT44" |perl -ne 'print join("\n", m/\d+|\w/g) . "\n"'
122
A
32
T
23
A
G
T
44

[Lolo78]

Bravo pour cette réponse astucieuse, effectivement bien meilleure que ce que l'on peut imaginer avec split.

[cmcmc]

On peut très bien utiliser split. Il suffit de découper autour des caractères qui ne sont pas des chiffres.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Taisha:~/perl/forum $ perl -E 'say for split /(?<=\D)|(?=\D)/, "122A32T23AGT44"'
122
A
32
T
23
A
G
T
44
Taisha:~/perl/forum $

l'expression régulière utilisée est une alternation (|) entre

• (?<=\D) : zero-length positive look-behind sur \D, ce qui signifie que le caractère précédent n'est pas un chiffre
• (?=\D) : zero-width positive look-ahead sur \D, ce qui signifie que le caractère suivant n'est pas un chiffre

Le résultat est une assertion de largeur nulle qui découpe autour des lettres (précisément, des non-chiffres).
La documentation standard est dans perlre

[Schmorgluck]

On peut aussi mettre des parenthèses dans le terme de recherche du split, ce qui retourne les séparateurs en plus des termes séparés.

Code :

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

1
2
3
4
5
6
7
8
perl -e'print "$_\n" for split /(\D+)/,"122A32T23AGT44"'
122
A
32
T
23
AGT
44

[Lolo78]

Bien le coup des assertions positives avant et arrière de cmccmc, mais encore plus astucieux l'idée de Schmorgluck de la mise entre parenthèses du terme de recherche de split. Bravo et ++ à tous les deux.

[cmcmc]

On peut aussi mettre des parenthèses dans le terme de recherche du split, ce qui retourne les séparateurs en plus des termes séparés.

Code :

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

1
2
3
4
5
6
7
8
perl -e'print "$_\n" for split /(\D+)/,"122A32T23AGT44"'
122
A
32
T
23
AGT
44

Non, ça ne marche pas parce que la spec initiale demande qu'on sépare les lettres... Donc en l'occurrence le + est de trop dans /(\D+)/ :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Taisha:~/perl/forum $ perl -e'print "$_\n" for split /(\D)/,"122A32T23AGT44"'
122
A
32
T
23
A
 
G
 
T
44
Taisha:~/perl/forum $

mais on se retrouve avec des chaînes vides entre les lettres, qu'il faut filtrer, par exemple avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Taisha:~/perl/forum $ perl -e'print "$_\n" for grep { $_ ne q{} } split /(\D)/,"122A32T23AGT44"'
122
A
32
T
23
A
G
T
44
Taisha:~/perl/forum $

et ça devient un peu lourd