借人气问xinetd的超级疑惑

whizchen

下面是我建立一个xinetd监听端口，并把接收到的字符串写入文件。
下面是用perl写的一个程序，其实我用c写同样功能的程序也存在同样的问题（后面会说到）

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use strict;
   
5. 
   
6. open(FP,">;>;/home/chenwb/perl/file");
   
7. my $line=<STDIN>;;
   
8. print FP "$line";
   
9. close(FP);
   
10. 
    
11. 
    
12. 建立/etc/xinetd.d/hellogod
    
13. [code]
    
14. service hellogod
    
15. {
    
16.         socket_type     =stream
    
17.         protocol        =tcp
    
18.         wait            =no
    
19.         user            =root
    
20.         server          =/home/chenwb/perl/hello.pl
    
21.         disable = no
    
22. }
    

复制代码

在/etc/services里添加一行：
hellogod        23456/tcp                       #/home/chenwb/perl/hello.pl

问题是我通过其他机器用指令telnet到本机(ip 192.168.2.13)
echo "good day" | telnet 192.168.2.13 23456
就能写入到文件file里

而在本机上通过指令:
echo "good day" | telnet 192.168.2.13 23456
或者echo "good day" | telnet localhost 23456
或者echo "good day" | telnet 127.0.0.1 23456

都没有写入到文件file里（准确说应该是大多数时候是写不进去，有时也能写入)

兰花仙子

原帖由 "whizchen" 发表：
!/usr/bin/perl -w

use strict;

open(FP,">;>;/home/chenwb/perl/file";
my $line=<STDIN>;;
print FP "$line";
close(FP);


建立/etc/xinetd.d/hellogod
[code]
service hellogod..........

so strange! 这样写：

use strict;
my $line=<STDIN>;;
print $line;
warn $line;

再从本机：
telnet 127.0.0.1 port
input something...


看看能否收到屏幕输出？
如果有输出的话，就说明server端接受到数据了。

whizchen

没有修改程序，按楼上的测试方法，可以得到结果如下：

1. 
   
2. [root@FrontCheckServer perl]# telnet 127.0.0.1 23456
   
3. Trying 127.0.0.1...
   
4. Connected to localhost.localdomain (127.0.0.1).
   
5. Escape character is '^]'.
   
6. receive good!
   
7. Connection closed by foreign host.
   
8. [root@FrontCheckServer perl]# ls
   
9. file  hello.pl
   
10. [root@FrontCheckServer perl]# cat file
    
11. receive good!
    

复制代码

兰花仙子

[quote]原帖由 "whizchen"][/quote 发表：


偶明白了，这样写：

1. open(FP,">;>;/home/chenwb/perl/file");
   
2. select FP;$|=1;select STDOUT;

复制代码

albcamus

搭车问一下，The Perl Programming Language有中译本吗？我在china-pub没找到；若没有，能给我推荐基本经典图书吗？

apile

1.Programming Perl当然有中文罗...
2.楼主的问题..应该在於tcp的buffer...
一般tcp ip再做完three way handle shaking之後...就开始传送资料...
client与server处各会有一个buffer...
兰花仙子的作法是吧..buffer给auto flush...这样子不管什麽string
server端的buffer都会flush给对应的program...

一般buffer 会把资料送给程序，有三种情形：
1.碰到$/ 定义的char..会送给program..$/ 代表的是eol...
2.碰到eof...会送给program，同时close connection
3.buffer满了...会自动送给program...
所以在做tcp的server的时候 autoflush最好是设定为1..
这样才比较不会有问题...

兰花仙子

[quote]原帖由 "albcamus"]搭车问一下，The Perl Programming Language有中译本吗？我在china-pub没找到；若没有，能给我推荐基本经典图书吗？[/quote 发表：


偶入门看的是<learning perl>;这本书，偶有e文的，若需要，偶发给你。

whizchen

原帖由 "apile" 发表：
1.Programming Perl当然有中文罗...
2.楼主的问题..应该在於tcp的buffer...
一般tcp ip再做完three way handle shaking之後...就开始传送资料...
client与server处各会有一个buffer...
兰花仙子的作法是吧..buff..........

呵呵，看了过后，大概知道可能是和三次握手有关系。
但是不知道该怎么改？
可能是perl学习得不够好吧！
我加了兰花仙子给的：
select FP;$|=1;select STDOUT;

不是很理解，不过还是不行！

真的很疑惑！

兰花仙子

原帖由 "whizchen" 发表：


呵呵，看了过后，大概知道可能是和三次握手有关系。
但是不知道该怎么改？
可能是perl学习得不够好吧！
我加了兰花仙子给的：
select FP;$|=1;select STDOUT;

不是很理解，不过还是不行！

真的很疑惑！

我加了兰花仙子给的：
select FP;$|=1;select STDOUT;

不是很理解，不过还是不行！

$|=1就是关掉I/O缓存嘛。
你的问题不在三次握手哦。
xinetd的协议连接实现得很好的。