返回顶部

收藏

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

相关聚客文章
  1. Anne 发表 2018-08-15 07:19:27 未来十年,将是市场网络的十年
  2. 发表 2013-02-06 11:00:36 启用图片防盗链
  3. 郑永 发表 2013-04-02 23:12:15 囧!人在囧途把泰途告上法院
  4. 发表 2013-04-29 12:55:41 13年4月最新ed2k电骡服务器
  5. P迪 发表 2013-05-21 00:26:27 《致青春》真的引爆了社交网络吗?
  6. coder4 发表 2013-06-25 09:20:12 [转]Perl使用Getopt获取命令行参数
  7. 博主 发表 2009-12-15 08:00:00 使用 Perl 快速解析 Apache Log
  8. xmydlinux 发表 2013-04-24 09:04:48 H3C-5120-EI刷固件全程
  9. zhiwei 发表 2013-08-24 14:32:27 https流量分析工具mitmproxy
  10. 发表 2013-09-14 03:32:01 世界之窗6.0.1.128RC版
  11. 博主 发表 2013-10-15 16:00:00 Perl 的 overload 妙用
  12. tst 发表 2013-11-27 14:42:00 我走了,青春留给北京

发表评论