perl - Perl 获取引用网站

Question

我需要一些帮助来获取我从中获得推荐人的网站

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/sdadgasyd

Answer 1

所以你想提取URI的一部分？

首先在 CPAN 上搜索。这导致URI模块及其文档。

该文档显示了如何使用字符串中的 URI 实例化一个实例（您拥有），并指出了host从 URI 中提取它的方法。

#!/usr/bin/env perl

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

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

www.google.com显然，当输入是google.com因为它们是不同的主机名时，您不会得到。

Answer 2

尝试这个

my $refer = $ENV{HTTP_REFERER};

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