perl6 Socket: 发送HTTP请求

Posted 2020-10-04 FireC@t @ Perl6

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(1024)) {
    say $buff.print;
  }
  $c.close;
}