perl实例之从服务器端读取数据

发布时间:2020-01-07编辑:脚本学堂
本文介绍下,perl从服务器端读取数据的例子,学习下socket编程的简单用法,有需要的朋友不妨参考下。

perl实例代码,从服务器上读取数据,学习简单的socket编程。
代码:
 

复制代码 代码示例:

#!/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 "连接服务器失败.n";

$line = <SERVER>;

print $line;

close(SERVER);