的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？

從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 
}