Discussion :

[willo]

bonjour a tous,

je cherche a faire une petite fenetre en perl tk (ou perl gtk) qui affiche les valeurs qu'elle recoit depuis son entree standard en rafraichissant chaque fois qu'une nouvelle valeur est recut.
Est ce que vous auriez des pistes pour realiser ca, sur la facon de rafraichir la fenetre d'affichage.

Le but a terme est d'afficher des donnees venant d'instrument brancher sur un port serie sous linux.

merci d'avance.

willo

[djibril]

Tu n'auras peut être même pas besoin de rafraichir ta fenêtre.
Il y a des moyens en Tk permettant de modifier une valeur automatiquement en donnant une référence à la variable.
Que veux tu faire exactement, soit plus clair.

[willo]

Bonjour,

je souhaite faire un cat /dev/ttyUSB0 | grep TRUC | affichage.pl

J'ai des donnée en nmea qui arrive sur le port série et je veux juste que le script perl tk affiche la derniere valeur transmise.

willo

[djibril]

je comprends pas en comment tu veux lancer ton script!!
pourquoi ne pas directement faire ce que tu souhaites dans ton script affiche.pl directement?

[willo]

J'ai plusieurs type de données qui passe sur le port série. En fait je veux un afficheur générique capable d'afficher le résultat du grep, comme ça pour j'ai juste a changer l'appel pour changer les données affichées.

Mais si il y a d'autre solution plus simple pourquoi pas.

willo

[djibril]

bon si tu fais ainsi, un cat ne s'exécute qu'une seul fois, donc normalement avec ton grep, t'affichera ce que tu souhaites, mais une seul fois en console, donc même avec affiche .pl je pense pas que ce soit judicieux.

Néanmoins, tu peux faire un script qui fera ta commande pour afficher ce qu'il y a dans ton fichier tty*** et l'afficher, plus, il est possible de dire à TK de renouveler l'affichage toutes les minutes par ex.

[Jedai]

Bonjour,

je souhaite faire un cat /dev/ttyUSB0 | grep TRUC | affichage.pl

J'ai des donnée en nmea qui arrive sur le port série

/dev/ttyUSB0 est ton port série ? Drôle de nom...
En tout cas, pour gérer un port série sous Linux en Perl, tu as Device::SerialPort. Par ailleurs tu pourrais éventuellement te contenter d'ouvrir ton fichier spécial et le lire, en utilisant select() pour éviter de bloquer (ou en l'ouvrant en mode non-bloquant avec sysopen() et compagnie).

En tout cas, le cat | grep ne t'apporte absolument rien, tu peux faire tout ça en Perl et tu contrôleras mieux ce qui se passe.

--
Jedaï

[willo]

/dev/ttyUSB0 est ton port série ? Drôle de nom...
En tout cas, pour gérer un port série sous Linux en Perl, tu as Device::SerialPort. Par ailleurs tu pourrais éventuellement te contenter d'ouvrir ton fichier spécial et le lire, en utilisant select() pour éviter de bloquer (ou en l'ouvrant en mode non-bloquant avec sysopen() et compagnie).

faute de port série je passe par un adaptateur USB <-> serie d'ou le peripherique.

En tout cas, le cat | grep ne t'apporte absolument rien, tu peux faire tout ça en Perl et tu contrôleras mieux ce qui se passe.

Ca fait deux personnes qui me disent ca donc je vais regarder dans ce sens. Par contre je cherche toujours a comprendre comment je vais faire pour que l'affichage soit actualisé chaque fois qu'une nouvelle valeur arrivant sur le port série est sélectionée ?

--
willo

[djibril]

ça ne sera pas le plus compliqué à faire en perl Tk, tu peux pour l'instant déjà faire le script comme ci tu allais l'utiliser en mode console en faisant des procédure.
On t'aidera ensuite pour la fenêtre