Re: help on win32::serialport
- From: jis <jismagic@xxxxxxxxx>
- Date: Tue, 05 Jun 2007 15:29:19 -0000
On Jun 5, 5:10 am, "Sisyphus" <sisyph...@xxxxxxxxxxxxxxxxx> wrote:
"jis" <jisma...@xxxxxxxxx> wrote in message
news:1180991545.660022.273750@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Can anybody help with examples on reading a serial port.
Even after reading through the win32::serialport CPAN pod my attempt
to write a working code is gone futile.
I am trying to read a barcode with a scanner.
I think your best chance of success would be to post to "Seekers of Perl
Wisdom" at perlmonks. Another option would be the 'perl-win32-users' mailing
list hosted by ActiveState, though it's really low volume these days. That's
not to say that there's no-one here who can help, but you've given us very
little to work with.
Wherever you post, it's better to provide a copy'n'paste of some code that
you've tried (along with a copy'n'paste of the error messages it generates).
That way, even if there's no-one around who can actually answer the
question, there might be someone lurking about who can see a fault in your
code and provide a correction.
Google might also be able to help out. I triedhttp://www.google.com.au/search?hl=en&q=Win32%3A%3ASerialPort+barcode...
I couldn't see anything there that stood out as a likely solution, but I
didn't actually follow any of the links.
Cheers,
Rob
Atast i could figure out how it works.if anyobdy else searching for
the same here is the code.
This reads the barcode with the help of scanner.This is a basic
code.Ofcourse need to be modified for realtime use.
use strict;
use Win32::SerialPort;
sub openPort($);
sub closePort($);
my $bar;
my $DEVICE = "COM1";
my $data=0;
my $serial =openPort($DEVICE);
while(!($data=~/\r/))
{
$data=$serial->input;
$bar=$bar.$data;
}
print $bar;
closePort($serial);
sub openPort($)
{
my ($device) = @_;
my $serial = Win32::SerialPort->new ($device, 1);
die "Can't open serial port $serial: $^E\n" unless ($serial);
$serial->user_msg(1);
$serial->databits(8);
$serial->baudrate(9600);
$serial->parity("none");
$serial->stopbits(1);
return $serial;
}
sub closePort($)
{
my ($serial) = @_;
$serial->close();
}
.
- References:
- help on win32::serialport
- From: jis
- Re: help on win32::serialport
- From: Sisyphus
- help on win32::serialport
- Prev by Date: Re: How to get GIF support with Perl-GD library? (Can't locate object method "newFromGif")
- Next by Date: Re: How to get GIF support with Perl-GD library? (Can't locate object method "newFromGif")
- Previous by thread: Re: help on win32::serialport
- Next by thread: MIME::Base64 bugs?
- Index(es):
Relevant Pages
|
