你这个有些不对。<br>recv是针对udp或者是紧急数据的。<br>tcp应该是联上去，然后直接像读文件一样读就可以了。<br><br><br><br><br><div><span class="gmail_quote">在08-2-19，<b class="gmail_sendername">Steven Zhu</b> <<a href="mailto:stevenzyk@gmail.com">stevenzyk@gmail.com</a>> 写道：</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>perl不熟，最近有空开始尝试用IO::Socket模块建立通讯</div>
<div>碰到问题server和client端可以建立连接，但是server端收不到client发的数据</div>
<div>请帮忙看看是哪里出了问题啊?</div>
<div>server code:</div>
<div>use IO::Socket;<br>$sock = new IO::Socket::INET (LocalAddr => 'software01',<br> LocalPort => 4455,<br> Proto => 'tcp',<br> Listen => 5);<br>
die "$!" unless $sock;<br>$success_accept = $sock->accept();<br>$receive = $sock->recv($data,100,0);</div>
<div> </div>
<div>client code:</div>
<div>use IO::Socket;<br>$sock = new IO::Socket::INET (PeerAddr => 'software01',<br> PeerPort => 4455,<br> Proto => 'tcp');<br>die "$!" unless $sock;<br>
$success_send = $sock->send("asdf") or print "connection closed at other end";<br><br> </div>
<div><span class="gmail_quote">在08-1-31，<b class="gmail_sendername">tiger peng</b> <<a href="mailto:tigerpeng2001@yahoo.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">tigerpeng2001@yahoo.com</a>> 写道：</span><div>
<span class="e" id="q_11830350a0f8da29_1">
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0px 0px 0px 0.8ex; padding-left: 1ex;">
<div>
<div style="font-size: 10pt; font-family: courier,monaco,monospace,sans-serif;">
<div style="font-size: 10pt; font-family: courier,monaco,monospace,sans-serif;">Be careful! Someone else may 监听你的请求/密码.<br><br>
<div style="font-size: 12pt; font-family: times new roman,new york,times,serif;"><span>----- Original Message ----<br>From: truncatei <<a href="mailto:truncatei@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">truncatei@gmail.com</a>><br>
To: <a href="mailto:china-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">china-pm@pm.org</a><br></span><span>Sent: Wednesday, January 30, 2008 9:47:08 PM<br>Subject: Re: [PerlChina] 求助如何可以读取邮箱中邮件啊<br>
<br></span>
<div><span>Perl可以写服务器程序的，看看IO:Socket模块。<br>
<ol>
<li>在服务器上创建一个服务器进程，一直监听来自某个端口的请求
</li><li>客户端发起请求，连接到步骤1中使用的端口，连接成功后发送一些数据，比如密码和需要执行的命令
</li><li>服务器端收到客户的请求数据，验证密码，通过system调用执行命令，返回状态给客户端，如果可以取到运行后的结果数据，返回数据
</li><li>数据传输格式自己定义，客户端和服务器都遵守约定就好<br></li></ol><br>
<div class="gmail_quote">2008/1/31 Steven Zhu <<a href="mailto:stevenzyk@gmail.com" rel="nofollow" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">stevenzyk@gmail.com</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>这样的话太麻烦了，你所说的监听这个如何做哪，是否可以提供个思路或者例子啊?</div>
<div>perl不是很熟，呵呵，谢谢!<br> </div></blockquote></div><br><br clear="all"><br>-- <br>如果觉得无聊，您不妨访问Google Reader消遣 <a href="http://www.google.com/reader/view" rel="nofollow" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://www.google.com/reader/view</a><br>
要尝试黑版本Google，请访问 <a href="http://www.google.com/custom?q=&sa=Search&client=pub-4021907304270164&forid=1&channel=7519554017&ie=UTF-8&oe=UTF-8&cof=GALT%3A%23FF9900%3BGL%3A1%3BDIV%3A%230033FF%3BVLC%3ACC9900%3BAH%3Acenter%3BBGC%3A000000%3BLBGC%3A000000%3BALC%3AFFFFFF%3BLC%3AFFFFFF%3BT%3ACCCCCC%3BGFNT%3A33CC00%3BGIMP%3A33CC00%3BFORID%3A1%3B&hl=en" rel="nofollow" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://www.google.com/custom?q=&sa=Search&client=pub-4021907304270164&forid=1&channel=7519554017&ie=UTF-8&oe=UTF-8&cof=GALT%3A%23FF9900%3BGL%3A1%3BDIV%3A%230033FF%3BVLC%3ACC9900%3BAH%3Acenter%3BBGC%3A000000%3BLBGC%3A000000%3BALC%3AFFFFFF%3BLC%3AFFFFFF%3BT%3ACCCCCC%3BGFNT%3A33CC00%3BGIMP%3A33CC00%3BFORID%3A1%3B&hl=en</a> </span></div>
<div><br><br>-----Inline Attachment Follows-----<span><br><br>_______________________________________________<br>China-pm mailing list<br><a href="mailto:China-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">China-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/mailman/listinfo/china-pm</a></span></div></div><br> </div></div></div><br>
_______________________________________________<br>
China-pm mailing list<br><a href="mailto:China-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">China-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/mailman/listinfo/china-pm</a><br>
</blockquote></span></div></div><br><br clear="all"><br>-- <br>BR<br><span class="sg">Steven.zhu
</span><br>_______________________________________________<br>
China-pm mailing list<br>
<a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:China-pm@pm.org">China-pm@pm.org</a><br>
<a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br></blockquote></div><br>