IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Interfaces Graphiques Perl Discussion :

Perl TK programme MAJ


Sujet :

Interfaces Graphiques Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    43
    Détails du profil
    Informations personnelles :
    Âge : 37
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 43
    Par défaut Perl TK programme MAJ
    Salut,
    Comment ça va?

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    if ( /^(\S+); $suiv / )
    Quand je l'execute il me met cette erreur :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Use of uninitialized value in concatenation (.) or string at ... ligne 45
    La ligne 45 est celle là :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    if ( /^(\S+); $prec / )

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    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

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mars 2008
    Messages
    43
    Détails du profil
    Informations personnelles :
    Âge : 37
    Localisation : France

    Informations forums :
    Inscription : Mars 2008
    Messages : 43
    Par défaut
    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 )

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. CGI Perl + execution programme
    Par UonaN dans le forum Web
    Réponses: 3
    Dernier message: 28/11/2007, 13h28
  2. PERL AIDE PROGRAMMATION
    Par kiza dans le forum Langage
    Réponses: 2
    Dernier message: 17/10/2005, 16h57
  3. Réponses: 5
    Dernier message: 08/07/2004, 19h57
  4. Réponses: 4
    Dernier message: 16/01/2003, 14h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo