Centos系统下载大全 | Redhat系统下载大全 | Windows2012系统下载大全 | Windows2008系统下载大全| CMS教程 | 网站地图 51运维网-专注Linux/Unix系统安全运维!
当前位置:51运维网 > 编程 > Perl > 正文

perl实例之从客户端到服务器发送数据

时间:2014-03-12 09:39 来源:网络整理 作者:51ou.com 阅读:

#!/bin/perl
use Socket;

socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

$addr = sockaddr_in(2336, inet_aton('server.com'));

connect(SERVER, $addr) or die "Could not connect.\n";

print SERVER "Hello from the client!\n";

close(SERVER);

感谢您对【51运维网 http://www.51ou.com/】的支持,我们为您免费提供《perl实例之从客户端到服务器发送数据》技术文章,《perl实例之从客户端到服务器发送数据》详细使用和说明,有时《perl实例之从客户端到服务器发送数据》可能不完善、敬请谅解!如果《perl实例之从客户端到服务器发送数据》有错误请给我们留言,我们将尽快修复文章错误,如果您觉得本站不错,请分享给周围的朋友!谢谢!

顶一下
(0)
0%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
验证码:点击我更换图片