• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

PerlSocket传输(带注释)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

研究结果出来了,看了下仙子的案例,这个是最稳定最靠谱的了。

Server端:

#!/usr/bin/perl

use IO::Socket;
use IO::Select;

# 如果需要打印到目前终端,需要加上
$|++;

# 创建一个监听
my $socket=IO::Socket::INET->new(LocalAddr =>'192.168.31.60',
                                            LocalPort =>9981,
                                            Listen     =>5,
                                            Proto         =>'tcp') or die $@;
# 创建一格IO::Select目标
my $read_set=new IO::Select();

# 把上述侦听socket加入到检查队列
$read_set->add($socket);

# 启动的时候添加一个标识,用于调试
print "监听启动\n";

# 创建一个死循环
while(1){
   # 返回一个三参数列表,第一个参数表示可读的socket句柄集合(一个数组引用)
  my ($rh_set) = IO::Select->select($read_set, undef, undef, undef);

  # 遍历可读的socket
  foreach my $rh (@$rh_set){
     if($rh == $socket){
        my $ns = $rh->accept();
        $read_set->add($ns);
     }else{
        my $buf = undef;
        if (sysread($rh,$buf,2048)){
           print "插入数据:$buf\n";
           open LOG,'>>a.out';
              print LOG "$buf\n";
           close LOG;
        }else{
           print "数据传送完!\n";
           $read_set->remove($rh);
           $rh->close;
        }
     }
  }

}

Client端:

#!/usr/bin/perl

use IO::Socket;

# 创建连接的Socket,连接到192.168.31.60 端口9981
my $sock=IO::Socket::INET->new(PeerAddr =>'192.168.31.60',
                                        PeerPort => 9981,
                                        Proto =>'tcp') or die $@;
# 发送数据,Hello就是要传送的数据.
while(<>){
 print $sock $_ . "\n";
}

# 发送完就关闭
$sock->close or die $!;

# 退出
exit 0;

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
perl读取文件发布时间:2022-07-22
下一篇:
windowcmd命令行下执行perl语句发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap