Imprimer un fichier (imprimante)

**PadawanInPerl** · 03/12/2010, 15h45

Bonjour,

Je cherche comment faire pour lancer l'impression d'un fichier sur l'imprimante par defaut.

**djibril** · 03/12/2010, 15h53

essaye la commande lpr de dos

**PadawanInPerl** · 03/12/2010, 17h02

j'ai essayé ça.

ça marche presque, si ce n'est que ça imprime tout sur une ligne et que je n'arrive pas à forcer le retour ligne-

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
use Printer;
 
open IN,  '<', 'liste.txt' or die("Lecture impossible : $!");
 
while ($data=<IN>){
chomp $data;
push (@tout,$data."\n");
}
close IN;
 
 $prn = new Printer('MSWin32' => 'IP_xx.xxx.xxx.xxx',
                    );
 
 
 $prn->print(@tout);