Re^2: Trying to read from serial port - not getting a response

[adiuva]

Well, if i connect to the modem directly with Putty for example and execute the same command I'm getting the expected feedback. I also tried different modems with the same result. I think for some reason the response is not ending up the file handle. If you look at the first code I posted you see that the loop to output the response should only be entered if there is anything in the filehandle. But it never entered it. In the second code it's just getting stuck as there is nothing in the filehandle as well. Could you maybe explain more detailed (or provide links) what you mean with "more explicit file handle discipline"? I'm not a very experienced programmer so I would need more input to understand :) I tried both now - read and sysread. But both loops are not beeing entered at all:

    my $read;
    my $sysread;
    #Reading the response
    print "reading...\n";

    while ( read(PORT,$read,2048) ) 
        { 
            print "using read:\n";
            print $read; 
        }
    
    while (sysread(PORT, $sysread, 10000))
        {
            print "using sysread:\n";
            print $sysread;
        }

Here's what's happening:

c:\Dropbox\Scripts>perl PortTest.pl

Enter AT command:ATI0
Sending: 'ATI0'
reading...
done!
c:\Dropbox\Scripts>

[graff]

When you say "both loops are not being entered at all", I would guess that it's because you have asked the "read" or "sysread" to return at the point where the serial-port device has sent 2048 or 10000 bytes worth of content, and maybe the device isn't sending that much data. (How much data are you expecting to get back after you send a given "AT" command to the device?)

Have you tried it this way?

my $buffer;
while (1) {
    read( PORT, $byte, 1 );
    $buffer .= $byte;
    if ( length( $buffer )) {
        printf( "Buffer now has %d bytes; last byte read was 0x%02x\n"
+,
                length( $buffer ), $byte );
    }
}

You can kill that process (i.e. ^C or some other method) when you feel that it has run long enough so you know what's going on. Then you can add logic inside the while loop so that when the input buffer attains some particular state (or the last byte was some particular value), you break out of the loop and do something else.

The term "discipline" applied to reading from a file handle covers things like: (a) how to delimit input records (i.e. either by number of bytes, or by watching for a particular byte value or byte sequence; and (b) whether or not your process should wait for data when it tries to read (i.e. using a "blocking" vs. "non-blocking" read - "blocking" is the default).

It's been a while since I've tried to play with non-blocking reads, but you should be able to look that up. The basic idea is that when "read" is called, it always returns pretty much right away; if the device has data to be read, your input buffer gets the data, otherwise your input buffer remains empty and your process continues to execute. This is how people handle devices where input data arrives at unpredictable intervals, but other things have to be done while waiting for input.

The example above assumes blocking input (read doesn't return until the device has delivered a byte to be read). If you were to convert it to use a non-blocking input, you'd want to set $byte to empty string or undef before the read call, then check if it contains a value after the read; if it does, then append to the buffer and print the report. (When using non-blocking input, it can also a good idea in many cases to include a "sleep()" call, to keep the loop from consuming too many cpu cycles.)

[adiuva]

I just tried the code you posted. But I'm getting the same result like with my code. The loop is somehow not entered as well:

c:\Dropbox\Scripts>perl PortTest2.pl

Enter AT command:ATI
Sending: 'ATI'
reading...

From my understanding it should at least print the buffer size one time if there is 1 byte of data. The AT-command (ATI) I'm trying should give me something like this:

ATI
Manufacturer: Company Name
Model: 1234
Revision: AABBCCDDEE-123456  1  [Dec 01 2012 14:00:00]
IMEI: 123456789012345
+GCAP: +CGSM,+DS,+ES

OK

[adiuva]

I found something else that might be useful regarding read() and sysread():

http://docs.activestate.com/activeperl/5.6/faq/Windows/ActivePerl-Winfaq8.html#How_do_I_read_from_and_write_to_