-3 
my $trefer = $ENV{HTTP_REFERER}; 
my $gk1 = substr($trefer, -4);
my $gk2 = ".swf";
my $antigk = $gk1;

if ($gk1 = $gk2) { 
  $antigk = $trefer; 
} 
else 
{  
  $antigk = $link; 
}

では、このコードの何が問題なのですか? たとえば、参照が機能していない場合は 、がsite.com/2nujroj49lni表示されるはずですが$link、代わりにが表示されます$refer

なぜ ？理解できません

.swf でない限り、インターネットで検索した参照ではなくリンクを取得する必要があり、合法に見えます。私が見る限りエラーはありませんが、まだ機能していません

4

1 に答える 1

9 
if ($gk1 = $gk2)

常に真になります。比較ではなく、課題です。それらが数値である場合、次のことが必要になります。

if ($gk1 == $gk2)

しかし、それらは文字列なので、Perl では以下が必要になります:

if ($gk1 eq $gk2)
于 2013-10-01T21:42:17.137 に答える