Perl post到php

我是Perl新手，我有一个脚本，可以获取linux服务器中的所有数据，处理数据并将其形成json字符串

问题是: 如何在另一个域中的php代码中获取这些数据。我的导师在将数据从perl发布到php时说，我不知道如何使用这种方法

---

请告知：D

要将数据发送到服务器，您可以使用模块库通过web进行通信。最好的出发点可能是餐厅，那里有一些常用的食谱。将json数据发布到php脚本的场景可以通过以下方式处理：使用创建请求并使用发送请求：

---

这应该给您一个开始，我提到的模块的文档有更多的细节。

Perl的许多部分都介绍了这一点：您能概述一下它是如何工作的吗？只要回答下面的问题，我就可以随时投票。谢谢，我不知道这种方法的概念。顺便说一下，这种方法的结果来自php？在设计和其他方面，您需要设置PHP脚本来处理perl脚本发送的请求。服务器将处理一些请求（例如，如果您在请求中输入了错误的URL，服务器将发回404“未找到”响应），但是您可以设置PHP脚本以发回对请求中数据的适当响应。据我所知，用户使用我的perl脚本的URL。然后使用post方法向php发出脚本请求，将视图返回给用户，对吗？您也要编写php脚本吗？perl脚本应该向用户返回某种结果——这取决于您使用该脚本的目的。如果它是从命令行运行的，您可能只想告诉用户它是否成功。如果它是一个web界面，您可能希望根据脚本是否执行其任务向用户显示不同的页面。您好，如果我向其发送数据的服务器需要身份验证/授权，那么如何修改此代码？我正在使用服务器的API密钥（rest格式）将内容发布到服务器。我有一个密钥用作用户名，而密码字段留空。请提供意见。谢谢

use strict;
use warnings;
use feature ':5.10';
use LWP::UserAgent;
use JSON;

# gather your data
my $data = prepare_data();

# Create a POST request with the URL you want your data going to
my $req = HTTP::Request->new(POST => "http://api.example.com/");
# set the content type as JSON
$req->content_type('application/json');
# encode the json, add it to the request
$req->content( encode_json $data );

# print out the request object as text
say $req->as_string;

# Create a user agent object
my $ua = LWP::UserAgent->new;
# send the request using LWP::UserAgent's request method
my $response = $ua->request($req);
# see what the response was
# LWP::UA has a handy is_success method for checking this
if (! $response->is_success) {
    die "LWP request failed! " . $response->status_line;
}

# print the whole response
say $response->as_string;

# get the contents of the response
my $content = $response->decoded_content;