作者willie0220 (鸭子)
看板perl
标题[请益] 我写了一个阻挡暴力攻击法的小程式出现的错误讯息
时间Wed Nov 17 02:58:36 2004
错误讯息如下：
----------------------------------------------------------
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LANG = "zh-TW"
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
----------------------------------------------------------
原始码如下：
----------------------------------------------------------
#!/usr/bin/perl
$ENV{'LANG'}="C";
open OUTFILE, "> iptables.deny";
#my @iplist;
chomp(my @iplist=`/bin/grep 'illegal user' /var/log/secure | /bin/cut -d' ' -f13
| /usr/bin/uniq`);
#chomp(@iplist);
foreach(@iplist){
print OUTFILE "/sbin/iptables -A INPUT -i \$EXTIF -s $_ -j DROP\n";
}
close OUTFILE;
system("/usr/local/iptables/iptables.rule");
----------------------------------------------------------
这个script主要是搭配鸟哥的iptables script下去跑的
虽然有出现上面的错误讯息，但还是可以正常执行。
小弟想请问的是，不知道有没有什麽方法可以解决错误讯息所指出的错误呢？
主机灌的是Fedora Core 1，小弟也尝试将/etc/sysconfig/i18n改成：
LC_ALL=C
LANG=C
然後重新启动系统，可是错误讯息一样会出现。
请各位大大指教。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.74.65.87