Discussion :

[Mersenne]

Bonjour.

Je rencontre le problème dans Perl Tk, mais c'est peut-être plus général.
La méthode tagRanges("sel") du widget Text renvoie une liste (autrement dit un tableau, à moins qu'il n'y ait entre les listes et les tableaux une différence qui m'échappe) d'indices.

J'aurais besoin de connaître la taille de ce tableau. (Cette taille est égale au double du nombre des parties séparées du texte qui sont sélectionnées).

Pour connaître la taille d'un tableau nommé, par exemple @tableau, Holzner, p. 88, donne 4 façons :

1° $#tableau + 1 (renvoie la taille du tableau);
2° scalar(@tableau) (renvoie la taille du tableau);
3° @tableau + 0 (renvoie la taille du tableau);
4° my $taille = @tableau (met dans $taille la taille du tableau)

Il me semble évident que 1° ne peut pas être étendu à un tableau non nommé.

J'ai essayé d'imiter 2° de la façon suivante :

Code :

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

1
2
 
$monWidgetTexte->messageBox( -message => scalar($monWidgetTexte->tagRanges("sel") ))

mais le résultat est incorrect : c'est le tableau lui-même qui s'affiche, et non sa taille.

Si on essaie d'imiter 3° de la façon suivante :

Code :

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

1
2
 
$monWidgetTexte->messageBox( -message => $monWidgetTexte->tagRanges("sel") + 0)

c'est un nombre qui s'affiche, mais pas le bon.

Ce qui m'étonne vraiment, c'est que l'application de 4° que voici :

Code :

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

1
2
3
 
my $taille = $monWidgetTexte->tagRanges("sel");
$monWidgetTexte->messageBox( -message => $taille);

ne fonctionne pas non plus comme souhaité : cela n'affiche pas la taille, mais tout le tableau.

Finalement, la seule méthode correcte que j'aie trouvée est :

Code :

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

1
2
3
 
my @liste = $monWidgetTexte->tagRanges("sel");
$monWidgetTexte->messageBox( -message => scalar(@liste) );

Pourtant, cette méthode ne me satisfait pas, parce que je supose que la première des deux instructions provoque une copie du tableau (ou de la liste), qui risque d'être volumineux.

Quelqu'un voit-il une meilleure méthode ?

Merci d'avance.
M.

[Jedai]

Finalement, la seule méthode correcte que j'aie trouvée est :

Code :

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

1
2
3
 
my @liste = $monWidgetTexte->tagRanges("sel");
$monWidgetTexte->messageBox( -message => scalar(@liste) );

Pourtant, cette méthode ne me satisfait pas, parce que je supose que la première des deux instructions provoque une copie du tableau (ou de la liste), qui risque d'être volumineux.

Quelqu'un voit-il une meilleure méthode ?

Merci d'avance.
M.

Je ne pense pas que le tableau risque d'être si volumineux que ça... Après tout il est rare qu'on sélectionne plusieurs parties d'un même texte (je ne sais même pas comment tu fais...).
Si tu as vraiment besoin d'une solution plus efficiente :

Code :

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

$monWidgetTexte->messageBox( -message => scalar(()=$monWidgetTexte->tagRanges("sel")));

En effet le problème vient de ce que la description de tagRanges() est légèrement mensongère : en contexte de liste, tagRanges() renvoie bien la liste décrite, mais en contexte scalaire, elle renvoie une référence sur la liste décrite et non une liste (qui en contexte scalaire est équivalente à sa longueur). On utilise donc le "()=" pour mettre la fonction en contexte de liste (sans faire de recopie donc sans gaspillage de ressource), puis l'un des trucs précédent pour mettre en contexte scalaire l'ensemble de l'expression, obtenant ainsi le résultat désiré.

--
Jedaï

[Mersenne]

Je ne pense pas que le tableau risque d'être si volumineux que ça... Après tout il est rare qu'on sélectionne plusieurs parties d'un même texte (je ne sais même pas comment tu fais...).

Sur un widget Text qui contient plusieurs fois le caractère "a" avec d'autres caractères entre les occurrences de "a", utiliser le menu contextuel pour demander un "find all" du caractère "a".

Si tu as vraiment besoin d'une solution plus efficiente :

Code :

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

$monWidgetTexte->messageBox( -message => scalar(()=$monWidgetTexte->tagRanges("sel")));

En effet le problème vient de ce que la description de tagRanges() est légèrement mensongère : en contexte de liste, tagRanges() renvoie bien la liste décrite, mais en contexte scalaire, elle renvoie une référence sur la liste décrite et non une liste (qui en contexte scalaire est équivalente à sa longueur). On utilise donc le "()=" pour mettre la fonction en contexte de liste (sans faire de recopie donc sans gaspillage de ressource), puis l'un des trucs précédent pour mettre en contexte scalaire l'ensemble de l'expression, obtenant ainsi le résultat désiré.

Merci. J'imagine qu'on trouve ça dans la documentation. Je devrais peut-être m'y plonger avant d'interroger les autres, mais bon, quand quelque chose n'est pas conforme à ce que disent les livres, j'ai peur de remuer ciel et terre alors qu'il y a sur developpez.net des gens qui ne demandent qu'à se rendre utiles.
Encore merci.
M.