note
aitap
Isn't [doc://URI] better in this case? Bigger, but simpler code:
<c>use URI;
for (URI::->new($conf[1],"http")) {
my @domain = split /\./, $_->host;
my $tld = pop @domain;
my $sld = join ".",@domain;
my $www = @domain > 2 && $domain[0] eq "www" ? shift @domain : "";
my $host = join ".",(@domain,$tld);
print ($_->scheme,$www,$host,$sld,$tld,$_->port);
}
</c>
(this code will work even in weird cases like perfectly valid [http://www.ru])
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-980564">
Sorry if my advice was wrong.
</div></div>
1001877
1001877