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;
}