my $trefer = $ENV{HTTP_REFERER};
my $gk1 = substr($trefer, -4);
my $gk2 = ".swf";
my $antigk = $gk1;
if ($gk1 = $gk2) {
$antigk = $trefer;
}
else
{
$antigk = $link;
}
Run Code Online (Sandbox Code Playgroud)
所以这段代码有什么问题?如果不工作,例如referal
site.com/2nujroj49lni,它应该告诉我,$link但它显示我$refer
为什么?我不懂
只要它不是.swf我应该得到链接而不是我通过互联网搜索的referal,它看起来合法.就我所见,但没有错误,但仍然没有工作
perl ×1