perl使用socket 发送二进制数据

最新推荐文章于 2023-08-15 09:00:52 发布
最新推荐文章于 2023-08-15 09:00:52 发布
阅读量741 收藏 1
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/u010312614/article/details/18800273
版权
这篇博客介绍了如何使用Perl通过socket连接发送包含自定义协议的XML数据。首先发送XML文件的长度，然后发送XML文件内容。文章中展示了创建TCP连接，使用pack函数处理整数并以小端字节序发送数据的步骤。
摘要由CSDN通过智能技术生成
最近使用xml进行通讯，使用自定义的协议，最先发送xml文件的长度，然后是xml文件。
使用perl发送一个整数还是比较麻烦的，这和python一样，所以python 3才有了bytes 字节类型。

use IO::Socket::INET;

# auto-flush on socket
$| = 1;

# create a connecting socket
my $socket = new IO::Socket::INET (
    PeerHost => '127.0.0.1',
    PeerPort => '3565',
    Proto => 'tcp',
);
die "cannot connect to the server $!\n" unless $socket;
print "connected to the server\n";

my $xml = <<"END_XML";
<?xml version="1.0"?>
           <ip operation="show">
    
最低0.47元/天 解锁文章
王靳
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
perl socket编程笔记
08-20
本文档收集了perl中socket编程的使用方法和示例程序，适合初学者
centos7环境下二进制安装包安装 mysql5.6的方法详解
09-08
本文将详细介绍如何使用二进制安装包在CentOS7上安装MySQL 5.6。 首先，你需要从官方镜像站点或其他可信源下载MySQL 5.6的二进制安装包，例如`mysql-5.6.34-linux-glibc2.5-x86_64.tar.gz`。下载完成后，进行以下...
用SOCKET来传输文件的PERL脚本
Bo Yang's Blog
07-12 1244
<br />From: http://www.cnitblog.com/gyn/archive/2006/04/06/8824.html<br /> <br />Client:<br />#!/usr/bin/perl #=============================================================================== # # FILE: file_trans_clt.pl # # USAGE: ./f
用Perl语言进行Socket编程
红杉树(ecitnet)的博客
02-25 4522
网络编程是一门神秘且复杂的艺术，当然也十分有趣。Perl语言提供了丰富的TCP/IP网络函数，所有这些函数都 直接来源于C语言的socket库函数.  由于Perl语言和C语言的socket库函数在型式和使用方法上都是一样的，因此会使用Perl语言进行Socket编程, 当 然也就会使用C语言进行Socket编程.  下面是Perl语言中有关的socket库函数列表：  函数原型 使用说明 
perl socket编程 [perl]
Clan
06-18 494
<br /><br />使用PERL SOCKET API首先需要载入SOCKET模块。<br />use Socket;<br />===================================<br />socket(文件句柄,AF_INET,数据类型,协议类型);<br />#建立套接字<br />文件句柄随便找个词就可以了。<br />AF_INET为域类型，也可以写为PF_INET。<br />数据类型，通常用有两种：SOCK_STREAM、SOCK_DGRAM。<br />协议类型，可以
Perl编写的socket客户端
呱唧的收集器
04-21 428
use IO::Handle; #挂起IO::Handle use Socket; #调用SOCKET $port=9000; #连接远程主机的80端口 $host=localhost; #使用环回地址 $packhost=inet_aton($host); #压缩IP地址 $address=sockaddr_in($port,$packhost); #压成sockad
[UNIX系统管理高手].Perl.Socket.API
02-24
- 发送数据到远程服务器。 示例代码： ```perl #!/usr/bin/perl-w use strict; use Socket; use constant SIMPLE_UDP_PORT => 4001; use constant REMOTE_HOST => 'localhost'; my $trans_serv = getprotobyname...
perl扩展包（适合64位 linux机器）
07-17
Perl扩展包内有（适合64位 linux机器）： Perl-libwww Perl-MailTools Perl-MIME-Lite Perl-DBI Perl-XML-Simple Perl-Config-General Perl-HTTP-Server-Simple perl-IO-Socket-SSL RRDtool
mod_fcgid-2.3.10-win32-VS16_javascript_socket_MOD_
10-03
标题中的"mod_fcgid-2.3.10-win32-VS16_javascript_...而JavaScript Socket编程则涉及创建WebSocket对象、监听连接状态、发送和接收数据等操作。理解这两个技术的交互，对于构建高效、实时的Web应用程序具有重要意义。
perl进行socket编程
sx1989827的专栏
10-07 2934
      好久没更新博客了，也好久没写关于perl的文章了，blog的更新对我来说要看心情的，心血来潮我会 写很多的，呵呵，不说废话了。       socket编程，我想学过网络编程基本上都会，所以，虚的东西我也就不说了，直接看代码：   客户端：#!/usr/bin/perl -wuse Socket;use IO::Handle;socket(SOCK,AF_INET,SOCK
无涯教程-Perl - send函数
最新发布
无涯教程
08-15 228
仅在AF_INET地址系列中创建的SOCK_STREAMSocket支持带外数据。此函数在SOCKET上发送消息(与recv相反)。如果Socket未连接,则必须提供一个目标以与TO参数进行通信。FLAGS参数由按位或0以及MSG_OOB和MSG_DONTROUTEoptions中的一个或多个形成。MSG_OOB允许您在支持此概念的Socket上发送带外数据。无涯教程网提供描述此函数在SOCKET上发送消息(与recv相反)。如果失败,此函数返回undef,否则返回Integer,发送的字节数。
perl socket编程
zhuzhiqi11的专栏
08-27 774
soket是网络套接字，它是ip地址和端口号的组合。在perl中使用套接字需要SOCKET模块；以经过测试可以使用：下面使用如下的例子进行说明： 服务器端： #!/usr/bin/perl -w use Socket; use IO::Handle; socket(SOCK,AF_INET,SOCK_STREAM,getprotobyname("tcp"));#初始化socket se
Perl Socket传输（带注释）
weixin_30892987的博客
08-02 113
研究结果出来了，看了下仙子的案例，这个是最稳定最靠谱的了。 Server端： #!/usr/bin/perl use IO::Socket; use IO::Select; # 如果需要打印到目前终端，需要加上 $|++; # 创建一个监听 my $socket=IO::Socket::INET->new(LocalAddr =>'192.168.31....
Perl Socket 通信recv超时退出子进程
boyishachang的专栏
02-25 864
#!/usr/bin/perl #server use strict; use Socket; use IO::Handle; use POSIX ":sys_wait_h"; my($this, $now); my $port = shift || 29688; my $address=inet_aton("0.0.0.0"); $this =sockaddr_in($po
Perl Socket Server using upack
尝尽世间绚烂
11-30 103
#!usr/bin/perl #服务端 use IO::Handle; use Socket; use checkfax; use sendFax; $port=6010; $host='28.17.250.11'; $packhost=inet_aton($host); $address=sockaddr_in($port,$packhost); socke...
perl中recv介绍
Mac Track
11-16 2055
今天才发现perl中的recv函数竟然不会因为没有满足指定长度而阻塞！这要是在C中，必须将socket设置成了non-block以后，才会在没有满足指定数据长度也会返回，通过fcntl可以判断在recv前后，socket描述符前后都是block状态的， 所以应该是perl在封装recv的时候，将socket先设置成non-block， 返回数据之前又将socket设置成block，而且socket
perl中调用recv函数阻塞，设置超时
boyishachang的专栏
02-27 577
1 2 3 4 5 6 7 eval {     local $SIG{ALRM} = sub { die "alarm time out" };     alarm $TIMEOUT;     $sock->recv($msg, $MAXLEN)      or die "recv: $!";     alarm 0;
用Perl写的socket脚本
老尹的笔记
09-10 866
用Perl写的socket脚本，服务端和客户端。
Perl Socket API：UNIX系统网络通信指南
在UNIX环境中，Perl Socket API是进行网络编程的重要工具，它允许开发者创建网络连接，发送和接收数据。以下是一些关键知识点： 1. **inet_aton() 和 inet_ntoa()**： - `inet_aton()` 函数将点分十进制的IP地址...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值