11/01/23 23:06:16 発信元:219.117.239.35 0
肝心なところ。
# 各proxyファイルからホストを拾い出して・・・
foreach my $filename (@files) {
next if $filename =~ /proxy7[07]/; # 2007/09/08 by mishowdaq-ad(Temporary steps)
next if (-s $filename) + 8 < 16;
open my $proxy_file, '<', $filename or next;
# 何でforで回していたのだろうか。。。for → whileに書き換え 2010/07/05 by mishowdaq-ad
while (my $one_line = <$proxy_file>) {
# XXX ここのchomp; がコメントになっていたのを戻しました
# -- 2010/7/5 by mumumu
chomp $one_line;
my ($hosts, $expire) = split /<>/, $one_line;
# next if $expire and $Now_time - $expire > 86400 * 90; # Disarmed past 90days.
next if $hosts =~ /^#/;
next if $hosts =~ m|[^0-9A-Za-z.:/-]|;
$hosts =~ s/:.*//g; # 余計なポート番号を排除
next if $Allow_HASH{$hosts}; # 2006/05/06 by mishowdaq-ad
# 2007/02/19 by mishowdaq-ad メモリーを使い切っちゃうようなのでやめ（哀）
next if $dup_host{$hosts}++; # 2009/10/08 by mishowdaq-ad ちょと復活＠台風18号接近記念（←？）
# 再度disable 2010/07/05 by mishowdaq-ad
# 試験的にenable 2010/07/07 by mishowdaq-ad
if ($hosts =~ m|¥d$|) {
print $IP_file_FH "$hosts¥n";
}
else {
# 利用していないのでコメントに。 2010/07/05 by mishowdaq-ad
# print $Host_file_FH "+$hosts$host_str¥n";
# print $Host_file_FH "+*.$hosts$host_str¥n";
}
}
close $proxy_file;
}
♯そもそも書き換えられた痕跡はないけれども。。。