#! /usr/bin/perl
use warnings;
use strict;
use Getopt::Long;

my ($filterPassword, $filterIp, $file);
my $help = 0;

# z.B. program.pl -p password -i 127.0.0.1 -file datei.txt
# oder: program.pl -h
GetOptions(
  "password=s" => \$filterPassword,
  "ip=s"           => \$filterIp,
  "file=s"         => \$file,
  "help"          => \$help,
);

if ($help) {
  # &PrintHelp....
  exit 1;
} # if

# vielleicht hier noch ueberpruefen, ob $filterPassword und $filterIp gesetzt sind.... 

unless (open (LOG, "<", $file)) {
  die "Error: couldn't open '$file': $!\n";
} # unless

my @filteredLines = ();
while (<LOG>) {
  chomp($_);
  my (undef, $pass, $ip) = split(/ /, $_);
  if ($pass eq $filterPassword and $ip eq $filterIp) {
    print "gefiltert: $_\n";
    push (@filteredLines, $_);
  } # if
} # while
close (LOG);

foreach (@filteredLines) {
  print "$_\n";
} # foreach