Perl in Windows How Do I Print/Write to the Printer

[Gary Efron]

Hi,
I can write and print to the terminal, but do not know how to write or
print to the printer. The examples I saw, did not work. Please either
tell me or direct me to some documentation.
Thanks, in advance,
Gary
gj******@cox.net

[Roel van der Steen]

Gary Efron <ge*****@cox.net> wrote in message news:<VbO%b.3085$506.900@fed1read05>...

I can write and print to the terminal, but do not know how to write or
print to the printer. The examples I saw, did not work. Please either
tell me or direct me to some documentation.

Open a filehandle and write to that handle. If your printer is on the
network, do something like:

use IO::Socket;
my $remote_host = '192.168.1.49';
my $remote_port = '9100';
my $socket = IO::Socket::INET->new(
PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => 'tcp',
Type => SOCK_STREAM,
) || die "Couldn't connect to $remote_host\:$remote_port : $@\n";
while ( my $psdata = <DATA> ) { print $socket $psdata; }

[Gary Efron]

Roel van der Steen wrote:

Gary Efron <ge*****@cox.net> wrote in message news:<VbO%b.3085$506.900@fed1read05>...

I can write and print to the terminal, but do not know how to write or
print to the printer. The examples I saw, did not work. Please either
tell me or direct me to some documentation.

Open a filehandle and write to that handle. If your printer is on the
network, do something like:

use IO::Socket;
my $remote_host = '192.168.1.49';
my $remote_port = '9100';
my $socket = IO::Socket::INET->new(
PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => 'tcp',
Type => SOCK_STREAM,
) || die "Couldn't connect to $remote_host\:$remote_port : $@\n";
while ( my $psdata = <DATA> ) { print $socket $psdata; }

Thanks for your help, but I was trying to write to a local printer.
Gary Efron
gj******@cox.net

[Roel van der Steen]

Gary Efron <ge*****@cox.net> wrote in message news:<PMN1c.27985$aZ3.27893@fed1read04>...

Thanks for your help, but I was trying to write to a local printer.

Maybe you just want to try Win32::Printer?