cuốn sách gpt4 ai đã làm

Perl HTTP sau xác thực

In lại Tác giả: Taklimakan Thời gian cập nhật: 2023-11-01 19:09:51 27 4
mua khóa gpt4 Nike

Chỉ tự hỏi liệu có ai có thể hiểu tại sao điều này không chuyển tên người dùng và mật khẩu đến máy chủ web không?

$ua = LWP::UserAgent->new() của tôi;
$ua->thông tin xác thực("10.64.1.1:80", "tên vương quốc", 'alexis','alexispass');
$resp = $ua->post("http://10.64.1.1:80/CGI/Execute" của tôi
{ "Khóa" => "XML",
"value" => "http://10.64.2.2/7945-65 NFullSize.pnghttp://10.64.2.2/7945-65/NThumSize. png"});
in $resp->nội dung;

Cảm ơn Alexis

câu trả lời hay nhất

Có lẽ điều này có thể giúp bạn:

#!/usr/bin/Perl -w
use strict;
sử dụng HTTP::Request::Common;
yêu cầu LWP::UserAgent;
$usr = 'alexis' của tôi;
$pass = 'alexispass' của tôi;
$URL = 'http://10.64.1.1:80/CGI/Execute' của tôi;
$ua của tôi = LWP mới::UserAgent;
$ua->thời gian chờ(20);
$request của tôi = POST $URL,
Content_Type => [ 'Content_Type ở đây' ],
Nội dung => [ 'Nội dung ở đây'];

$request->authorization_basic($usr, $pass);
$response của tôi = $ua->request($request);
in $response->nội dung;

Tập lệnh này sử dụng hàm POST() từ HTTP::Request::Common. Nếu tôi hiểu chính xác thì phần yêu cầu POST của bạn sẽ giống như thế này:

$request của tôi = POST $URL,
[ XML => 'http://10.64.2.2/7945-65 NFullSize.pnghttp://10.64.2.2/7945-65/NThumSize.png '
];

Yêu cầu tạo đối tượng trông như thế này:

ĐĂNG http://10.64.1.1:80/CGI/Execute
Độ dài nội dung: 66
Loại nội dung: application/x-www-form-urlencoded
XML=http://10.64.2.2/7945-65 NFullSize.pnghttp://10.64.2.2/7945-65/NThumSize.png

Về xác thực sau Perl HTTP, chúng tôi đã tìm thấy một câu hỏi tương tự trên Stack Overflow: https://stackoverflow.com/questions/19842400/

27 4 0
Chứng chỉ ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com
Xem sitemap của VNExpress