Discussion :

[kioka]

Kikou !
Tout est dans le titre

J'ai une chaine de caractère genre : "kioka a besoin de vacances !" et je veut en extraire le caractère position 12 donc le "o".

Heu ... précision : Je veut faire ça sans utiliser "substr" !!! Ce serai trop facile sinon !
Par contre je ne cherche à extraire qu'un seul caractère et pas une sous chaines de plusieurs caractère (c'est juste une précision).

Donc voili ma vraie question : Est-ce possible de faire ça sans "substr" ? En gros existe-t-il un équivalent ou un autre moyen que substr ?

Mon soucis c'est que je fait des substr successif suivant plusieurs positions et que si j'ai trop de position ça devient vite très long donc je cherche à optimiser et réduire le temps d'exécution ...
Et split utilise beaucoup de mémoire aussi donc pas plus intéressant ...

Maintenant si il n'y a pas d'alternative ... bà je tenterai de me dépatouiller !

[Jasmine80]

Heu ... précision : Je veut faire ça sans utiliser "substr" !!! Ce serai trop facile sinon !
Par contre je ne cherche à extraire qu'un seul caractère et pas une sous chaines de plusieurs caractère (c'est juste une précision).

Mon soucis c'est que je fait des substr successif suivant plusieurs positions et que si j'ai trop de position ça devient vite très long donc je cherche à optimiser et réduire le temps d'exécution ...

Tu peux toujours essayer une regexp ou un split tel que

Code :

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

1
2
3
4
5
6
7
my $text = "kioka a besoin de vacances !";
 
my ($motif_11) = ($text =~ m/(.)/g)[11];
my ($motif_12) = (split //, $text)[12];
 
 
my ($motif_1, $motif_2) = ($text =~ m/(.)/g)[1, 2];

[kioka]

Oups j'ai zappé un autre détail .... désolée ! .... (j'ai vraiment besoin de vacs )

En faite je fait déjà un while ($seq =~ /(.)/g) pour parcourir une séquence, ensuite je récupère la position avec pos() et j'aimerai voir le caractère qui se trouve à la même position sur une autre séquence ... je réalise ensuite une batterie d'analyses entre ces deux caractères ...


Pour le split, je ne gagne pas vraiment en temps et je prend plus de mémoire par contre donc moins intéressant ... mais bon faut que je réalise un test plus pertinent pour le temps du split ... c'est en cours ...


[EDIT]
C'est quoi les [11] ou [12] ou [1,2] dans tes lignes ? tu peut m'expliquer un peu plus tes lignes ?

Désolée suis un peu à l'ouest ...
[/EDIT]

[Jasmine80]

C'est quoi les [11] ou [12] ou [1,2] dans tes lignes ? tu peut m'expliquer un peu plus tes lignes ?

Désolée suis un peu à l'ouest ...

Code :

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

my ($motif_12) = (split //, $text)[12];

la fonction split renvoie un array et on place dans $motif_12 la valeur de ce tableau dont l'index est 12

[kioka]

Hé bé j'aurai encore appris des trucs ...

Malheureusement le split est trop long , et la regexp semble mettre autant de temps que ma fonction avec substr ...

[Jasmine80]

Sans code, c'est difficile de t'aider. Pourrais-tu me montrer 2 exemples de phrases dans lesquelles tu veux comparer les caractères 2 à 2 ainsi que ton code.

[Klivor]

Kikou !
Tout est dans le titre

J'ai une chaine de caractère genre : "kioka a besoin de vacances !" et je veut en extraire le caractère position 12 donc le "o".

La position 12 renvoie i car tu commences à zéro et pas à un .

[Dimitry.e]

Je peux te proposer une solution avec une expression régulière mais sans liste :

Code :

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

1
2
3
4
5
 
my $s = "kioka a besoin de vacances !";
my $indice = 12;
$s=~/^.{$indice}(.)/;
print $1."\n";