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因为它们是不同的主机名时你不会得到.