tags:

views:

101

answers:

1
+3  Q: 

How can I diagnose problems with Perl's getc?

I am having this strange problems with the getc function. I use getc to get a character from a socket file handler. I need to simulate message exchanges between pc and a mobile device. For the first few messages, getc works fine. But for this one, getc couldn't get anything from the socket. The whole Perl program blocked until I reset that mobile device. But the wireshark shows the message was send to the right port number.

Is there tool I can use to what's going on?

Thanks

+2  A: 

A common source of problems with file and socket handles is that the end of input can be reached and the handles error or eof flag could be set. Try calling seek HANDLE,0,1 to reset the handle after a call to getc doesn't return anything (or should it be sysseek? Is getc a buffered I/O operation?

mobrule  2010-02-24 00:10:51
Thanks for the reply. I use wireshark and capture an extra Fin,Ack sends from tcp client which cause the next 3-way handshakes get out of sync. I fix the problem by use the same socket from previous test. It looks good now.
alex  2010-02-24 01:11:31

related questions

Regex to replace Boolean with bool
How do I lock a file in Perl?
How do you use XML::Parser with Style => 'Objects'
Parsing XML Elements & Attributes with Perl
Regex to match all HTML tags except <p> and </p>
Best way to extract data from a FileMaker Pro database in a script?
What's the fastest way to determine a full URL from a relative URL (given a base URL).
Why can't I connect to my CAS server with Perl's AuthCAS?
Why can't I fetch wikipedia pages with LWP::Simple?
How do I perform a Perl substitution on a string while keeping the original?
How do I read in the contents of a directory in Perl?
How can Perl's system() print the command that it's running?
How can I test STDIN without blocking in Perl?
How do I tell if a variable has a numeric value in Perl?
Why doesn't my Perl map return anything?
How can I determine the type of a blessed reference in Perl?
Parsing attributes with regex in Perl
How do you retrieve selected text using Regex in C#?
Why does the Perl conditional operator not do what I expect?
Class::DBI-like library for php?
How do you create objects in Perl?
How do I remove duplicate items from an array in Perl?
Is The Perl Journal available online?
Can you force either a scalar or array ref to be an array in Perl?
What's the safest way to iterate through the keys of a Perl hash?