Deane,
try
# Printer_available.pl listet alle verfügbaren Drucker und die
dazugehörigen
# Ports auf den aktuellen Rechner
use Printer;
$prn = new Printer('linux' => 'lp',
'MSWin32' => 'LPT1',
$OSNAME => 'Printer');
%available_printers = $prn->list_printers;
print "Verfügbare Drucker\n";
printf ("%3s %40s\t%s\n", 'Nr.', 'Name', 'Port');
print "-" x 70, "\n";
foreach $i (0 .. $#{$available_printers{'name'}})
{printf ("%3d %40s\t", $i, $available_printers{'name'}[$i]);
print "$available_printers{'port'}[$i]\n";
}
Generates the output
Verfügbare Drucker
Nr. Name Port
-------------------------------------------------------------------------------------------
0 A3H
EG_Olivetti_D300_30.0.0.87
1 A4H
EDV_IP_30.0.0.249
2 Color LaserJet 4500 PCL Vertrieb
COLOR_Vertrieb_IP_30.0.0.220
3 DesignJet 800 24 by HP
Farbe_TB_30.0.0.126
4 EDV HP LaserJet 1015 PCL 5e lokal EDV_IP_30.0.0.249
5 EG_Olivetti d-Copia 300 KX
EG_Olivetti_D300_30.0.0.87
6 FinePrint FPR5:
7 Microsoft Office Document Image Writer Microsoft Document
Imaging Writer Port:
8 OG_Kyocera KM-3050 KX OG_Kyocera_30.0.0.88
9 PDFCreator PDFCreator:
If you have problems like this
Can't locate Printer.pm in @INC (@INC contains: C:/Perl/site/lib
C:/Perl/lib .)
at d:\Help\perl\Printer_available.pl line 4.
BEGIN failed--compilation aborted at d:\Help\perl\Printer_available.pl
line 4.
copy printer.pm from C:\Perl\site\lib to C:\Perl\site\lib\win32 after
installing Printer-0.98.zip
Manfred
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
