Perl获得推荐人网站

我需要一些帮助，以获得网站，我从中获得推荐人

my $refer = $ENV{HTTP_REFERER}; = google.com/sdaasd
my $website = dont know what how; = google.com 
if ($website eq google.com || $website eq yahoo.com) { do this } 
else 
{ do that }

（网站是www.google.com）

---

我想得到的只是www.google.com，而不是所有的google.com/sdadgasysd链接，所以你想提取URI的一部分

开始吧。这就导致了问题的解决

文档展示了如何用字符串（您已经拥有）中的URI实例化实例，并指出了将从URI中提取实例的

host

方法

#!/usr/bin/env perl

use v5.16;
use strict;
use warnings;
use URI;

my $uri = URI->new('http://google.com/sdaasd');
say $uri->host;

---

显然，当输入为

google.com

时，您不会得到

www.google.com

，因为它们是不同的主机名。

那么您想提取URI的一部分吗

开始吧。这就导致了问题的解决

文档展示了如何用字符串（您已经拥有）中的URI实例化实例，并指出了将从URI中提取实例的

host

方法

#!/usr/bin/env perl

use v5.16;
use strict;
use warnings;
use URI;

my $uri = URI->new('http://google.com/sdaasd');
say $uri->host;

显然，当输入为

google.com

时，您不会得到

www.google.com

，因为它们是不同的主机名。

试试这个

my $refer = $ENV{HTTP_REFERER};

if(index($refer, "google.com") || index($refer, "yahoo.com") {
  #do this
} else {
  #do that 
}

试试这个

my $refer = $ENV{HTTP_REFERER};

if(index($refer, "google.com") || index($refer, "yahoo.com") {
  #do this
} else {
  #do that 
}

---

my$refere=”http://example.com/mirror/google.com/“

hehe，我在发布答案后也意识到了：）

my$refere=”http://example.com/mirror/google.com/“

hehe，我在发布答案后也意识到了：）