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 :

Explicite package name


Sujet :

Interfaces Graphiques Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    462
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2009
    Messages : 462
    Par défaut Explicite package name
    Bonjour, je ne comprend pas d'où vient mon problème d'Explicite package name sur $result...

    j'ai rajouté au milieu de mon code ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    # ===== BOUTON IMPRESSION =====
     
    my $impression = $onglet_controle->Photo( -file => "imprimante.jpg" );
    $cadre_controle_saisie->Button(
     
      -image => $impression,
      -command    => [ \&impress, $onglet_controle],
      -foreground => '#CF0063',
      -background => 'white',
    )->pack(qw/ -side bottom /);

    et en fin de prog :

    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
    23
    24
    25
    26
    27
    # ===== Procédures d'impression =====
     
    sub impress {
     
    open IN,  '<', 'liste.txt' or die ("Lecture impossible : $!")
     
    while (my $lg = <IN> ) {
     
    chomp $lg;
    my $result .= $lg."\n";
     
    }
     
    my $lp = new Net::LPR( RemoteServer => 'xx.xxx.xxx.xxx', );
     
    $lp->connect();
    my $jobkey = $lp->new_job();
     
    $lp->send_jobs('lp');
      $lp->job_mode_text($jobkey);
      $lp->job_send_control_file($jobkey);
      $lp->job_send_data($jobkey, $result,length($result));
      $lp->disconnect();
     
     close IN;
    # return;
    }

  2. #2
    Membre éclairé Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    462
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2009
    Messages : 462
    Par défaut
    et sur $lg aussi ... global symbol...

  3. #3
    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
    Colle nous entièrement le message d'erreur.

  4. #4
    Membre éclairé Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    462
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2009
    Messages : 462
    Par défaut
    syntax error at C:\DOCUME~1\xxxx\Bureau\SCRIPT~1\run-3.pl line 404, near ") {"
    Global symbol "$lg" requires explicit package name at C:\DOCUME~1\xxxx\Bureau\S
    CRIPT~1\run-3.pl line 406.
    Global symbol "$result" requires explicit package name at C:\DOCUME~1\xxxx\Bure
    au\SCRIPT~1\run-3.pl line 419.
    Global symbol "$result" requires explicit package name at C:\DOCUME~1\xxxx\Bure
    au\SCRIPT~1\run-3.pl line 419.
    syntax error at C:\DOCUME~1\xxxx\Bureau\SCRIPT~1\run-3.pl line 424, near "}"
    Execution of C:\DOCUME~1\xxxx\Bureau\SCRIPT~1\run-3.pl aborted due to compilati
    on errors.

  5. #5
    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
    A quoi correspond les lignes 404, 406, 419 et 424 ?

  6. #6
    Membre éclairé Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    462
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2009
    Messages : 462
    Par défaut
    A la partie de mon 2è code.

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

Discussions similaires

  1. [Magento][1.6.2] Erreur Invalid package name
    Par speed034 dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 1
    Dernier message: 05/07/2012, 04h22
  2. erreur de type require package name.
    Par alius dans le forum Langage
    Réponses: 4
    Dernier message: 04/11/2009, 10h19
  3. Réponses: 2
    Dernier message: 24/04/2008, 15h31
  4. javadoc: error Illegal package name: JNI
    Par pitator dans le forum Entrée/Sortie
    Réponses: 1
    Dernier message: 11/03/2007, 18h38

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