sub MAIN(Str $host,Str $path, Int $port) {
my $send = "GET $path HTTP/1.1\r\nHost: $host\r\n\r\n";
my $c = IO::Socket::INET.new(:host($host), :port($port));
$c.print: $send;
while (my $buff = $c.recv()) {
say $buff.print;
}
$c.close;
}
相关文章
- 10-28记录使用jodd.http发送请求
- 10-28springboot整合http发送get、post、put、deltet请求
- 10-28Net::HTTP 一次添加 cookie, body 发送post请求
- 10-28Arduino ESP8266 发送HTTP请求 获取苏宁服务器时间
- 10-28MFC中发送HTTP或HTTPS请求
- 10-28纯JS脚本发送HTTP请求
- 10-28Socket请求和Http请求的各自特点、区别及适用场景
- 10-28使用Angular reactive form发送HTTP请求的一个简单例子
- 10-28HTTP Options 跨域时发送两个请求是怎么回事?
- 10-28使用requests模块发送http请求时,报错:[WinError 10061] 由于目标计算机积极拒绝,无法连接