再帮我一个网络编程的问题~

ocean2000

socket server怎么绑定cmd实现可以用telnet交互~谢谢先

apile

我都在unix上面寫socket server....
不過兩者原理差不多...
client端用telnet xxx.xxx.xxx 9876
連到某台server的9876 port
輸入某些字串後...
server端接收到這些字串後，回傳給client..
這時候一般的程序都會將socket handle關閉..
其實你只要不close(SOCKET);就可以繼續接收client端的
輸入..（這樣子就變成interactive了)..然後你可以作後續的處理..

client端按下"Enter"時，
socket server才會收到client的送來的字串...

注意M$ Windows的cmd ，
執行telnet 會看不到你輸入的字串..
所以可以的話找台linux或unix..
作telnet 的測試....

ocean2000

老大，谢谢你了。能给我写个简单的代码吗？

apile

#!/usr/bin/perl
use Socket;
$AF_INET=2;
$SOCK_STR=1;
$PROTOCOL=0;
$port=6667;
$PACKIT='S n C4x8';
select(NEWSOCK);
$|=1;
select(STDOUT);
socket(MY_SOCKET,$AF_INET,$SOCK_STR,$PROTOCOL)||die "\n $0:Cannot open socket!";
print "socket successfull opended!\n";
$my_ip_addr=pack($PACKIT,$AF_INET,$port,127.0.0.1);
bind(MY_SOCKET,$my_ip_addr) || die "bind fail!";
print "bound to socket!";
listen(MY_SOCKET,5)|| die "cann't listen!";
print "listening..";
while(1){
$remote=accept(NEWSOCKET,MY_SOCKET) || die "unaccept!";
defined(my $pid=fork()) || &cleanup;

if($pid==0){   ## Child Process(子進程)..
sleep(3);
print NEWSOCKET "weclome to this server!";

while(chomp($ClientStr=<NEWSOCKET> ne "quit"{
## Client不管輸入什麼..都直接response回去
## 輸入quit時..Child Process會停止..送出CHLD signal給
## Parent Process..
   print NEWSOCKET "Your Input IS : ".$ClientStr."\n";
}

close NEWSOCKET;
close MY_SOCKET;
exit;
}
sleep 10;
close MY_SOCKET;
close NEWSOCKET;
exit;
}
sub cleanup {close NEWSOCKET;close(MY_SOCKET);die "cann't fork!";}

## 這個Server最好加上對Signal的處理...
## 否則很容易自動停掉..怎麼加其實不難...
## 你自行研究吧...

ocean2000

好的，谢谢啦：）~