php/perl(CGI)问题。

hhyttppd 2005-03-15 09:24:24
为何在如下文件中加入一空行都不能运行?十分郁闷ING。。。。。。。。。。。。
////////////////////////////////////////////////////////////////////////////////////////
$data_dir = 'data';
$accounts_dir = 'accounts';
$adminkey = $ENV{'SCRIPT_FILENAME'};


sub detectbadcountry
{
my ($checkip) = @_;
if($ENV{HTTP_X_FORWARDED_FOR} ne '') { $checkip = $ENV{HTTP_X_FORWARDED_FOR}; $checkip =~ s/[\n\r]//eg; }

$badcountry = 0;

use LWP::Simple;

if (! -e "ip2country/$checkip")
{
$gcountry = get "http://$settings{ss_pro_login}:$settings{ss_pro_password}\@www.bestonsearch.com/country/?ip=$checkip";

if($gcountry ne '')
{
open(DATA,">ip2country/$checkip");
print DATA "$gcountry";
close(DATA);
chmod 0777, "ip2country/$checkip";
}
}else{
open(DATA, "ip2country/$checkip");
$gcountry = <DATA>;
close(DATA);
}

($geoip{code}, $geoip{full}) = split(/\t/,$gcountry);

foreach (split(/\|/, $settings{'country_filter_codes'}))
{
if($geoip{code} eq $_)
{ $badcountry = 1; last; }
}
return $badcountry;
}

sub savelink
{
my ($u, $k, $url, $b, $a, $t, $ext) = @_;

undef %linkdata;

$linkdata{u} = $u;
$linkdata{k} = $k;
$linkdata{url} = $url;
$linkdata{b} = $b;
$linkdata{a} = $a;
$linkdata{t} = $t;
$linkdata{ext} = $ext;

@filea = ('1'..'10'); $fa = @filea; $ffa = (int rand($fa));
@fileb = ('a'..'zz','A'..'ZZ'); $fb = @fileb; $ffb = (int rand($fb));
@filec = ('1'..'10'); $fc = @filec; $ffc = (int rand($fc));
@filed = ('a'..'zz','A'..'ZZ'); $fd = @filed; $ffd = (int rand($fd));

$filerand = $filea[$ffa] . $fileb[$ffb] . $filec[$ffc] . $filed[$ffd] . '.' . $time;

local (*DATA);

$time = time;

open(DATA, "> temp/$filerand");
flock(DATA, $LOCK_EX);

foreach(keys %linkdata)
{
print DATA "$_\|$linkdata{$_}\n";
}

flock(DATA, $LOCK_UN);
close(DATA);

return $filerand;
}


1;
////////////////////////////////////////////////////////////////////////////
...全文
224 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
fibbery 2005-03-16
  • 打赏
  • 举报
回复
在什么地方加?
hhyttppd 2005-03-16
  • 打赏
  • 举报
回复
晕,问题解决,密元在文件由WINDOWS的notepad打开时变为不可识别字符,当然当机。
解贴。
hhyttppd 2005-03-15
  • 打赏
  • 举报
回复
由于文件太长,略去了一些不相关的行。

37,743

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • WuKongSecurity@BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧