现在,我正在学习Perl 6;我的第一个项目是建立一个HTTP客户端..我收到一个错误,我不明白为什么
Malformed UTF-8 at line 1 col 45
in method new at main.p6 line 13
in block <unit> at main.p6 line 43
我认为它来自端口变量,但我不确定 这是我的所有perl6代码:
class Request
{
has $!method;
has $!path;
has $!version;
has @!headers;
has $!socket;
has $.response is rw;
method new(:$method, :$path, :$host, :$port, :$version = "HTTP/1.1")
{
my $socket = IO::Socket::INET.new(:$host, :$port);
return self.bless(:$method, :$path, :$version, :$socket);
}
submethod BUILD(:$!method, :$!path, :$!version, :$!socket){}
method setHeader($name, $value)
{
my %header = name => $name, value => $value;
@!headers.push({%header});
}
method toString
{
my $request = "$!method $!path $!version\r\n";
for @!headers -> %_ {
$request ~= %_{'name'} ~ ": " ~ %_{'value'} ~ "\r\n";
}
$request ~ "\r\n";
}
method send($i = 1)
{
say "Request send!";
$!socket.print($.toString());
say $!socket.recv for 0..$i;
}
}
my $host = "127.0.0.1";
my Int $port = 58002;
my $request = Request.new(:method("GET"), :path("/"), :$host, :$port);
$request.setHeader("host", $host);
$request.setHeader("Accept-Language", "fr");
$request.send(2);
答案 0 :(得分:5)
这个答案可能没什么帮助,可能很烦人,但我今天晚些时候可以将其删除,如果是的话,我已经得到了所有这些并且我必须运行。
我不知道您是否理解了错误消息,但请先介绍一下。
Malformed UTF-8 at line 1 col 45
in method new at main.p6 line 13
in block <unit> at main.p6 line 43
这意味着在执行消息的最后一行(代码的第43行)时出现问题:
my $request = Request.new(:method("GET"), :path("/"), :$host, :$port);
编译器发现最后一行的执行涉及到代码中另一行的路径,第13行:
return self.bless(:$method, :$path, :$version, :$socket);
这样有助于在执行错误的过程中更好地确定线条。
.bless
是方法调用。它被调用self
,它引用传递给方法的调用者,你可以假设它是方法调用所在的类的一个对象,即你定义的类{{1} }}
您的代码没有指定Request
继承的类(使用Request
),因此它继承自is
。 Any
的{{1}}继承自Mu
's。
在Rakudo编译器中是this code:
bless
因此,在执行该代码期间,Perl 6尝试读取某些UTF8,并在其尝试读取的某些数据的第一行的第45行遇到无效字符。
在没有看到您的数据的情况下,我能说出最好的原因。