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

当前位置：首页 > 脚本编程 > Perl > 正文

本文介绍下，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);

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