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？

从searching for that on CPAN开始。这会导致URI module and its documentation。

该文档显示了如何使用字符串（您拥有）中的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;

显然，当输入为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 
}

Perl获得推荐人网站

2 个答案: