#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

my $userinput = '"schöner" auf';
my $verknuepfung = 1;	# 1=OR  2=AND

my %dateien = (	# dieser Hash simuliert mehrere ASCII-Dateien die per Schleife eingelesen werden
	1 => 'Heute ist ein schöner Tag und die Sonne geht auf',
	2 => 'Gestern war ein "schöner" Tag und die Sonne ging unter',
	3 => 'foo',
	4 => 'bar',
	5 => 'Vorvorgestern war auch ein schöner Tag wo die Sonne auf ging',
);

my @rueck = stringsuche ('bedingung',$userinput,$verknuepfung);
my $code = shift @rueck;
my $meld = shift @rueck;
print "Rückmeldecode $code - $meld\n";

foreach my $text (values %dateien) {
	my $ergebnis = stringsuche ('suche',$text,@rueck);
	print "Untersuche '$text' => " . ($ergebnis ? "Treffer\n" : "\n");
}

sub stringsuche {
	my $action = shift;
	if ($action eq 'bedingung') {
		my $userinput = shift;
		my $verknuepfung = shift;
		my @return;
		if ($userinput ne '') {
			if ($verknuepfung =~ /^[1|2]$/) {
				@return = (1,'OK');
				$return[2] = $verknuepfung;
				push @return,split / /,$userinput;
			}
			else { @return = (0,'Verknüpfung falsch, 1=OR oder 2=AND'); }
		}
		else { @return = (0,'Kein Suchbegriff eingegeben'); }
		return @return;
	}
	elsif ($action eq 'suche') {
		my $text = shift;
		my @bedingung = @_;
		my $verknuepfung = shift @bedingung;
		my $return = 0;
		if ($verknuepfung eq '1') {
			foreach my $bed (@bedingung) {
				if ($text =~ /$bed/) {
					$return = 1;
					last;
				}
			}
		}
		elsif ($verknuepfung eq '2') {
			my $treffer = 0;
			foreach my $bed (@bedingung) {
				my $vergleich = quotemeta $bed;
				if ($text =~ /$vergleich/) {
					$treffer ++;
				}
			}
			$return = 1 if $treffer == scalar @bedingung;
		}
		return $return;
	}
}