Perl TK programme MAJ

Salut,
Comment ça va? :D

J'ai un petit soucie...
Je voudrait faire un programme qui me mette à jour une liste de dépendance serveur, dans le cadre d'un arrêt/démarrage de la salle.
cependant ce n'est pas à vous de le faire quand même ;)...

Donc je voudrait juste demander une chose pour l'instant (car d'autre suivront surement!) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

# Création de trois boites de "dialogue"# $fenetre -> Entry(-textvariable => \$ajout) -> pack ( -side => 'left' ); $fenetre -> Entry(-textvariable => \$prec) -> pack ( -side => 'left' ); $fenetre -> Entry(-textvariable => \$suiv) -> pack ( -side => 'left' );   sub Valider { # Precedent while (<F>){ if ( /^(\S+); $prec / ) { print Fsor $1 . "\n" ; } }   # Suivant while (<F>){ if ( /^(\S+); $suiv / ) { print Fsor $1 . "\n" ; } }   }

---

J'appels ce Sub via un bouton.
je met des infos dans les boites (Entry) et je veut les récup. dans le Sub pour la recherche et renvoyer le résultat sur un fichier de sortie.
Cependant je n'arrive pas à les récup.
Soucie avec les variables dans les if ?

Code:

---

if ( /^(\S+); $suiv / )

---

Quand je l'execute il me met cette erreur :

Code:

---

Use of uninitialized value in concatenation (.) or string at ... ligne 45

---

La ligne 45 est celle là :

Code:

---

if ( /^(\S+); $prec / )

---

Peux tu nous mettre un peu plus de code avec la partie où tu crée ton bouton.
sinon le mesage est clair, ta variable est non initialisée.
Pourquoi ne pas récupérer en argument dans ta procédure l'objet de ton Entry afin d'appliquer la méthode get.

Bref, met nous plus de code

Salut,

Merci pour ta réponse!
Le truc avec ce code c'est que j'avais pas compris comment procéder pour faire ce que je voulais.

Je me suis écrit mon algo et fais un petit cahier des charges... Tout est plus clair!

J'ai réussit à contourner le problème! merci pour ta réponse (j'ai utilisé get ;) )