#!/usr/bin/perl
use strict;
use warnings 'all';
use Data::Dumper;

# abfrage datei einlesen
my $data = &datei_lesen('abfrage.txt');

# schwellwerte datei einlesen
my $werte = &datei_lesen('schwellwerte.txt');

# daten vergleichen und anpassen
foreach my$key (keys %{$data})
{
    # roter bereich
    if ($data->{$key} > $werte->{$key}->[1])
    { $data->{$key} = 'rot' }

    # gelber bereich
    elsif ($data->{$key} > $werte->{$key}->[0])
    { $data->{$key} = 'gelb' }

    # gruener bereich
    else
    { $data->{$key} = 'gruen' }
}

# Ergebnisse Anzeigen
print Dumper($data);

# NAME:        datei_lesen()
# USE:        Datei anhand des musters in einen Hash einlesen.
# PARAMETERS:    Filename
# RETURNS:    Hash reference
sub datei_lesen($)
{
    # pick parameters
    my($file) = @_;

    # open file
    open(my$fhIN, '<', $file)
        or die "open failed: $!";

        # read data
        my %data;
        while (my$line=<$fhIN>)
        {
            chomp($line);

            # split line
            my @tracts = split(';', $line);

            # key results from product and status
            my $key = join(';', splice(@tracts, 0, 2));

            # maybe we have multiple values
            if ( @tracts > 1 )
            { $data{$key} = [@tracts]  }
            else
            { $data{$key} = $tracts[0] }
        }

    # close file
    close($fhIN);

    # return data reference
    return \%data;
} # datei_lesen

__END__

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %set;

my @limits = (
    "Schrauben;Error;200;500",
    "Schrauben;Process;25;50",
    "Schrauben;Waiting;100;150",
    "Muttern;Error;10;30",
    "Muffen;Waiting;400;800",
    "Muffen;Process;5;10",
);

while (my $row = pop @limits) {
   my @cols = split /;/, $row;
   $set{$cols[0]}->{$cols[1]}->{'min'} = $cols[2];
   $set{$cols[0]}->{$cols[1]}->{'max'} = $cols[3];
}

warn Dumper \%set;

while (<DATA>) {
    chomp;
    my @row = split;
    $row[3] = 'green'   if $row[2] < $set{$row[0]}->{$row[1]}->{'min'};
    $row[3] = 'yellow'  if $row[2] >= $set{$row[0]}->{$row[1]}->{'min'}
        and $row[2] < $set{$row[0]}->{$row[1]}->{'max'};
    $row[3] = 'red'     if $row[2] > $set{$row[0]}->{$row[1]}->{'max'};
    print join ' ', @row;
    print "\n";    
}

__DATA__
Schrauben Error 234
Schrauben Process 12
Schrauben Waiting 151
Muttern Error 45
Muffen Waiting 156
Muffen Process 23

while (my $row = pop @limits) {
   my ($type, $status, $min, $max) = split /;/, $row;
   @{$set{$type}{$status}}{qw/min max/} = ($min, $max);
}