使用PERL将数据从一台服务器发布到另一台服务器

Question

假设abc.pl是server1中的文件而xyz.pl是server2中存在的文件。

如何将数据（变量，数组，散列等）从abc.pl发布到xyz.pl？

另外，LWP :: UserAgent post（）方法考虑html表单。所以我想我不能用这个lib来解决我的问题。

先谢谢。

Answer 1

下面我将重点介绍关键表达式，以便您了解要查找的模块/功能。 我使用文本Data::Dumper作为传输数据的格式。

接收方的关键步骤xyz.pl：

• 打开TCP socket，bind到未使用的端口，listen用于传入连接
• accept新连接
• 从连接套接字中读取数据
• 当客户端关闭连接时，eval收到的字符串，但只有在您确认它只是一个变量赋值而不是某些恶意代码之后
• 收到的数据将以$ VAR1，[$ VAR2等]。
的形式提供

发送方的关键步骤，abc.pl

• 打开一个TCP套接字connect到另一台机器上的端口
• print Dumper(<data>);进入套接字
• 关闭套接字