perl Socket的问题

frankwen

1：use IO::Socket
2：my $sock = new IO::Socket::INET("address:25";

3：print $sock "HELO Web";

4：close($sock);

到了第二步的时候，还是连着的状态，到了第三步就断开了
请问这是什么？

兰花仙子

原帖由 "frankwen" 发表：
1：use IO::Socket
2：my $sock = new IO::Socket::INET("address:25";

3：print $sock "HELO Web";

4：close($sock);

到了第二步的时候，还是连着的状态，到了第三步就断开了
请问这是什么？

你怎么知道它断开了呢？它只是写入socket句柄一个会话。
如果你要捕获服务器的输出，还要补充code。

frankwen

在服务器上做netstat看到的，发现发了8个字节的数据，但是接受端服务器并没有接收，只是连上的一瞬间，就断开了。


还有，向这个句柄发送数据我这样写法应该没有问题吧？

兰花仙子

原帖由 "frankwen" 发表：
在服务器上做netstat看到的，发现发了8个字节的数据，但是接受端服务器并没有接收，只是连上的一瞬间，就断开了。


还有，向这个句柄发送数据我这样写法应该没有问题吧？

没错，但要加上\r\n的回车换行符。
这个符号根据系统的不同而不同，试试这样：

use IO::Socket qw(EFAULT :crlf);
print $sock "...",CRLF;

frankwen

DEFAULT :crlf)

这个crlf用不用大写？

兰花仙子

原帖由 "frankwen" 发表：
DEFAULT :crlf)

这个crlf用不用大写？

不用