Contenu | Rechercher | Menus

Annonce

Si vous avez des soucis pour rester connecté, déconnectez-vous puis reconnectez-vous depuis ce lien en cochant la case
Me connecter automatiquement lors de mes prochaines visites.

À propos de l'équipe du forum.

#1 Le 23/02/2008, à 21:30

pmdzlineur

perl-Tk, comment lancer une sub fonction ?

j'ai deux problèmes :
je ne sais pas comment déclarer la variable correspondant à mon user (c'est $USER en bash mais en perl ?);
j'ai donc cherché à contourner, mais ... :
le deuxième problème est que je ne comprend pas comment lancer ma fonction par perl-Tk.
Je suis tout débutant en Perl et je m'y noie un peu...
Mon essai :

#!/usr/bin/perl -w
use Tk;
my $fen=MainWindow -> new; 
$fen -> title ("bonjour");
$fen -> Label(-text => "Entrez votre login (nom de votre Dossier Personnel)")-> pack;
$login=$fen -> Entry(-width=>40);
$login->pack;
$fen->Button(-text=>"continuer",-command=>sub{'ensuite'})->pack;
MainLoop;
sub ensuite {
my $user = shift;
open(TABLE,"> /home/$user/table.txt");
close TABLE;
}

J'aimerais un peu d'aide ou une orientation pour m'en sortir svp.
J'ai beaucoup cherché (trop?) dont le site de creteil, le linux sur perl, ...le man perl-TK ... mais je suis bloqué.
Merci et bonne nuit.

Dernière modification par pmdzlineur (Le 23/02/2008, à 21:31)


je ne suis pas informaticien, juste utilisateur un peu averti ;-)
http://www.freemedforms.com/fr/start
http://code.google.com/p/rapidcomptamed/
médecin volant, mais pas en même temps ;-)

Hors ligne

#2 Le 23/02/2008, à 23:25

nono75

Re : perl-Tk, comment lancer une sub fonction ?

Salut,

si tu commences en Perl, saches que la documentation est très bien fournie smile
un petit

man perlsub

t'apprendra à appeler une fonction.

n'hésite pas à utiliser google aussi !
la première réponse  de la requête  : variable environnement perl
http://lists.ze-linux.org/2003-06/msg00294.html

Je te conseille vraiment de trouver un cours d'introduction et de consulter les pages man :

nono@arrakis:~$ man perl
Display all 145 possibilities? (y or n)

Dernière modification par nono75 (Le 23/02/2008, à 23:29)

Hors ligne

#3 Le 24/02/2008, à 10:30

pmdzlineur

Re : perl-Tk, comment lancer une sub fonction ?

ok merci
mais je sais allez sur google hmm
seulement ce n'est pas pour ça que les réponses sont toujours claires.
Bon j'ai commandé un livre sur perl qui est promis être clair pour un débutant...
Merci pour la réponse sur les variables d'environnement que je n'avais pas trouvée.


je ne suis pas informaticien, juste utilisateur un peu averti ;-)
http://www.freemedforms.com/fr/start
http://code.google.com/p/rapidcomptamed/
médecin volant, mais pas en même temps ;-)

Hors ligne