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; }![]()
Partager