http://www.perlmonks.org?node_id=186643

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to read data from a paging receiver which is connected to the serial port. Here is the problem, I can only read/store the first 14 characters that are sent to the device. Here is part of my code:
$ob->lookclear; #clear the buffers $ob->buffers(4096,4096); #read, write sleep 1; until($return ne "") { if (($return = $ob->input) ne "") { $ob->write ($return); print "return:$return a"; } else { print "ERROR!! Did not receive a page yet!\n"; } }#end until print "return is:$return"; undef $ob;
Is there any way to store more than 14 characters in the variable. Also, any sample "serial port" code would be helpful. Thanks for your help, Jason