返回顶部

收藏

Perl 一个超级简单的Socket服务器

更多
#!/usr/bin/perl
use warnings;
use strict;
use IO::Socket;
# queue up no more than 5 pending clients
my $serv = IO::Socket::INET->new(LocalPort => 9876,Listen => 5); 
while(my $client = $serv->accept()) { #somebody connected!
    print $client \"The time is now: \".scalar(localtime(time())).\"\\n\";
    close $client;
}
#该片段来自于http://outofmemory.cn

标签:perl,网络

收藏

0人收藏

支持

0

反对

0

发表评论