#!/usr/bin/perl

use warnings;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my ($sp1, $sp2, $sp3); # geht in einer Zeile - my vor die Klammer...
my $cgi = new CGI;
my $search = $cgi->param();

# Lesematerial: http://reneeb-perlblog.blogspot.com/search/label/open
open(my $fhCSV, '<', './test.csv') or die $!;
my @csvInhalt = <$fhCSV>;
close($fhCSV) or die $!;
chomp(@csvInhalt);

print $cgi->header(),
      $cgi->start_html('CGI-Feedback'),
      $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('comments.pl'));
foreach my $d (@csvInhalt) {
   ($sp1, $sp2, $sp3) = split(/;/, $d); # besser wie ueber $_
   if($sp2 < $search != $search < $sp3) {
      print $cgi->strong('Datensatz:'), $sp1, $sp2,$sp3;
   } # if
} # foreach
print $cgi->end_html();