skript pre vypis z logu

#!/usr/bin/perl

$logdir         =       "/var/log/ipfm/";
$logfile        =       "ipfmlog.log";
$hostname       =       "/bin/hostname --fqdn";
$uptime         =       "/usr/bin/uptime | /usr/bin/cut -b 14-28";

@HOSTS=(
#  insert strings contained ip_number::name
        "192.168.0.1::hostname1",
        "192.168.0.2::hostname2",
);

open (LOG,"$logdir$logfile");
while () {
        chop;
        $line = $_;
        if ($line !~ /^#.*/) {
                foreach $ip_comment (@HOSTS) {
                        ($ip,$comment) = split("::",$ip_comment);
                        if ($comment eq $ARGV[0]) { $par=$comment; }
                        if ($line =~ /^$par\s*(\d*)\s*(\d*)\s*(\d*)/) {
                                $HOSTSIn{$comment}  += $1;
                                $HOSTSOut{$comment} += $2;
                                $HOSTSTot{$comment} += $3;
#### for debugging
#print "$HOSTSIn{$comment}  = $1;       $HOSTSOut{$comment} = $2;$HOSTSTot{$comment} = $3;";
                        }
                }
        }
}
close (LOG);


if ($par eq "") {
        foreach $com (keys(%HOSTSIn)) {
                $TotalIn  += $HOSTSIn{$com};
                $TotalOut += $HOSTSOut{$com};
        }
} else {
        $TotalIn = $HOSTSIn{$par};
        $TotalOut = $HOSTSOut{$par};
}

print "$TotalOut\n";
print "$TotalIn\n";
print `$uptime\n`;
print `$hostname\n`;