加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 大数据 > 正文

Perl实现的C/S模式的本地端口发送与监听

发布时间：2020-12-16 00:18:29 所属栏目：大数据 来源：网络整理
导读：用Perl写的一个C/S模式的: client端向本机端口消息发送消息， server端监听本机端口，接收并响应client发送的消息。 也可以说是两进程间的socket通信。 实现很简单，但能稳定而良好地工作， 稍作改造，加些功能后，能用在很多类似需要C/S工作模式的场合。 se
用Perl写的一个C/S模式的:
client端向本机端口消息发送消息，
server端监听本机端口，接收并响应client发送的消息。
也可以说是两进程间的socket通信。

实现很简单，但能稳定而良好地工作，
稍作改造，加些功能后，能用在很多类似需要C/S工作模式的场合。
server端代码:
  1. #!?/usr/bin/perl

  3. ###############################################################################
  4. # File?
  5. # tcp_server.pl
  6. # Descript
  7. # listen to local port
  8. ###############################################################################
  9. use IO::Socket:INET;

  11. # 5277为监听端口
  12. my $sock_listen?=?IO->new(
  13. ??????LocalHost?=>?'127.0.0.1',
  14. ??????LocalPort?>?5277??????Proto?'tcp'??????Listen?>?3??????Reuse?>?1)
  15. or die?"no socket: $!";
?while(1)
?{
  1. ? my $sock_recv?=?$sock_listen>accept();
  1. ? while?$data?=?<$sock_recv>)
  2. ? {
  3. ? ? print $data"n";
  4. ? }

  6. ? close $sock_listen;
  7. }
client端代码:

  1. #File
  2. # tcp_client.pl
  3. # Descript
  4. # send message to?server
  5. ###############################################################################

  7. use IO;

  9. my $sock_connect?('127.0.0.1:5277';
  10. die?"Socket could not be created. Because$!n"?unless $sock_connect;

  12. my $msg?=?"Hello,server.";
  13. $sock_connect>print$msg;
  14. close $sock_connect;
测试通过;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
        站长推荐
        热点阅读

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同