proftpd log 文件实时分析，动态封禁/解封

Jinmg

请问下面这段程序怎实现？能告诉我实现的步骤吗？谢谢。
# proftpd log 文件实时分析，动态封禁/解封
# 用法：
#       tail -f /var/log/proftpd | /usr/bin/proftpdeny.pl
#
#
use Time::HiRes qw(gettimeofday);

# 封禁时间，以秒为单位
$DENY_PERIOD=600;            
# 对最近多久的日志进行统计
$EVAL_PERIOD=60;

# 在 EVAL_PERIOD 中的最多连接次数
$DENY_TIMES=5;

# 数组，记录 IP/最后登陆时间/重试次数
%BADLIST = ();
%DENIED_IP = ();

init_iptables();

while (<STDIN>){
        chomp $_;
        $line = $_;

        $badip = get_bad_ip($line) ;

        if (! $badip ) {              
         next;
        }

#print STDERR "badip: $badip\n";

        # 删除 BADLIST 中的过期 IP
        refresh_bad_ip();

        # 添加multi login的ip到BADLIST
        add_bad_ip( $badip );

        # 把平均每秒连接次数 > $DENY_RETRY_TIMES_PER_SEC 的 IP 封掉
        check_bad_ip();

        # 将封禁时间 > $DENY_PERIOD 的ip解封
        undeny_bad_ip();
}

exit(0);

##############################
sub get_bad_ip                        
{
        local( $line );
        $line = $_[0];
        return undef if ( ! $line );

        if ( $line =~ /ftp\.zixia\.net \((\d+\.\d+\.\d+\.\d+)\[[^\]]+\]\) -
Connection refused \(max clients per host \d+\)\./ ) {
                return $1;
        } else {
                return undef;
        }
}

sub add_bad_ip
{
        local ( $badip );
        $badip = $_[0];
        die "add_bad_ip() take no param err" unless $badip;

        ($seconds, $microseconds) = gettimeofday;

        $BADLIST{$badip}{$seconds . '.' . $microseconds} = 1;  
#print STDERR "add_bad_ip: $badip, $seconds\n";
}

sub refresh_bad_ip
{
        foreach $ip ( keys %BADLIST ){
                foreach $secmic ( keys %{$BADLIST{$ip}} ){
                        if ( $secmic =~ /^(\d+)\.(\d+)$/ ){
                                $seconds = $1;

                                if ( time - $seconds > $EVAL_PERIOD ){
                                        delete $BADLIST{$ip}{$secmic} ;
#print STDERR "refresh_bad_ip: delete badlist $ip $secmic\n";
                                }
                        }
                }
                $num = keys %{$BADLIST{$ip}};
                if ( 0==$num ) {
                        delete $BADLIST{$ip};
                }
        }                                          
}

sub check_bad_ip
{
        foreach $ip ( keys %BADLIST ){
                $login_num = keys ( %{$BADLIST{$ip}} );

#print STDERR "check_bad_ip: ip $ip has $login_num times login attampts..\n";


                if ( $login_num > $DENY_TIMES ) {
                        deny_bad_ip ( $ip ) ;
                        delete $BADLIST{$ip};
                }
        }
}

sub deny_bad_ip
{
        local $ip;
        $ip = $_[0];
                        
    die "deny_bad_ip no ip err" unless $ip;

        foreach ( keys %DENIED_IP ){
                return if ( /^$ip$/ )
        }

        $cmd = "iptables -A ftpDeny -p tcp -s $ip -j REJECT --reject-with
tcp-reset";
#print STDERR "sys cmd: $cmd\n";
        system ( $cmd );
        $DENIED_IP{$ip} = time;

        $date = `date`;#把当前日期赋值给$date
        chomp $date;#截去\n,这里也可以这样，chomp($date);
        system ( "printf \"%s %-16s denied.\n\" \"$date\" $ip >>/var/log/proft
pd.deny" )
}

sub undeny_bad_ip
{
        foreach $ip ( keys %DENIED_IP ){
                if ( time - $DENIED_IP{$ip} > $DENY_PERIOD ) {  
$line_number = `iptables -nL ftpDeny --line-number |
grep $ip | awk {'print \$1'}`;
                        chomp $line_number;
                        $cmd = "iptables -D ftpDeny $line_number";

                        system ( $cmd );
                        delete $DENIED_IP{$ip};

                        $date = `date`; #把当前日期赋值给$date
                        chomp $date; #截去\n
                        system ( "printf \"%s %-16s undenied.\n\" \"$date\"
$ip >>/var/log/proftpd.deny" )

                }
        }
}

sub init_iptables
{
        $cmd1 = "iptables -F ftpDeny > /dev/null 2>&1";
        $cmd2 = "iptables -X ftpDeny > /dev/null 2>&1";
        $cmd3 = "iptables -N ftpDeny > /dev/null 2>&1";     
        $cmd4 = "iptables -I INPUT -p tcp --dport 59000:60000 -j ftpDeny";
        $cmd5 = "iptables -I INPUT -p tcp --dport 20:21 -j ftpDeny";

        $exist = `iptables -nL INPUT | grep ftpDeny | wc -l | awk {'print \$1'}`;


        system( $cmd1 );
        system( $cmd2 );
        system( $cmd3 );

        if ( 0==$exist ) {
                system( $cmd4 ) ;
                system( $cmd5 ) ;
        }
}