0

リファラーを取得した Web サイトを取得するための助けが必要です

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 にリンクしているわけではありません

4

2 に答える 2

5

では、URI の一部を抽出しますか?

CPAN でそれを検索することから始めます。これにより、URIモジュールとそのドキュメントが表示されます。

hostドキュメントは、文字列内の URI を使用してインスタンスをインスタンス化する方法を示し (これはあなたが持っています)、 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

于 2013-10-03T09:00:00.800 に答える
0

これを試して

my $refer = $ENV{HTTP_REFERER};

if(index($refer, "google.com") || index($refer, "yahoo.com") {
  #do this
} else {
  #do that 
}
于 2013-10-03T09:06:11.773 に答える