impression imprimante USB

Bonjour à tous,

je suis confronté à une problématique d'impression.
Je travail avec l'aide d'un script perl qui nous permait d'imprimer des tickets, ce script a été écrit il y a longtemps ... dans une autre galaxie ou pas.
Ce script fonctionne avec des imprimantes connectées par liaison série.

Le temps faisant les imprimantes ont évolué et sont désormais en USB

voici le morceau du script actuel servant à l'impression :

Code:

---

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 28 29 30 31 32

use strict;   my ($fic_imp) = 'C:\perl\essail\fichier.txt'; #fichier à imprimer   DEB:   my $Buffer="";   if(-e "$fic_imp") { open(LF,"<$fic_imp") || die "Cannot open fichier.txt : $!\n"; read(LF,$Buffer,10000);   print("contenu = $Buffer\n"); close (LF) || die "can't close fichier.txt: $!";   IMPRIME($Buffer);   }   sub IMPRIME { my(@liste)=@_;   print "liste = @liste\n"; open (F,">com1:") || die "cannot open com1 port \n";   print F "@liste\n";   close F;   }   FIN:

---

Ma question étant comment déclarer l'imprimante comme étant une imprimante USB raccordée à un port USB et non plus au COM1?

Cordialement

à la ligne 24, je tenterai :

Code:

---

open (F,">lpt1:") || die "cannot open com1 port \n";

---

ou

Code:

---

open (F,">usb001:") || die "cannot open com1 port \n";

---

Bonjour JeanMi3000,

merci pour ta réponse bien essayé mais raté malheureusement.
J'ai essayé plusieurs synthaxes mais rien ne veux...

D'autres propositions?

Belle journée

Bonsoir,

C'est une question que je ne me suis jamais posé, c'est-à-dire envoyer des données directement vers une imprimante.
Je n'ai pas de suite une imprimante sous la main, mais en cherchant rapidement, as-tu testé quelques modules ?
Exemple :
Net::Printer ;
Net::LPR.

Voici un test chez moi qui fonctionne :

Code:

---

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

#!/usr/bin/perl use strict; use warnings; use Net::Printer;   # Mon fichier à imprimer my $mon_fichier = 'C:/perl/essail/fichier.txt'; my $nom_imprimante = 'Brother MFC-9140CDN Printer'; my $ip_imprimante = '192.168.1.237'; # Ou nom dns my $port = 515; # port par défaut   if ( -e $mon_fichier ) {   # Création de mon imprimante my $lineprinter = new Net::Printer( filename => $mon_fichier, printer => $nom_imprimante, server => $ip_imprimante, port => $port, lineconvert => "YES" );   # Impression du fichier $lineprinter->printfile(); }

---