펄 점점 참조 자 웹 사이트

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 } 

을 가지고있는 웹 사이트를 얻을 도움이 필요

모든 I get 및 단지 www.google이다 싶어 (웹 사이트는 www.google.com입니다) .com all link google.com/sdadgasyd

Answer 1

그래서 URI의 일부를 추출 하시겠습니까?

시작은 searching for that on CPAN입니다. 이로 인해 URI module and its documentation이됩니다.

설명서에는 URI가있는 인스턴스 (인스턴스가있는 인스턴스)를 인스턴스화하는 방법과 URI에서 URI를 추출하는 방법이 나와 있습니다 (host). 서로 다른 호스트 이름이기 때문에 입력이 google.com을 때

#!/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을받지 않습니다.

Answer 2

보십시오이

my $refer = $ENV{HTTP_REFERER}; 

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