Thread Datensätze einer CSV-Datei mit CGI ausgeben (11 answers)
Opened by leaves at 2009-12-17 11:51

havi
 2009-12-19 11:44
#129547 #129547
User since
2003-08-04
2036 articles
BenutzerIn
[Homepage]
user image
2009-12-17T15:27:20 leaves
Habe gelesen und umgesetzt.


Du ladest das Modul warnings - somit brauchst kein -w in der ersten Zeile
Ansonsten kann man manchen anders (besser) schreiben, ich pass es dir mal an...

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#!/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();

Last edited: 2009-12-19 11:49:10 +0100 (CET)

View full thread Datensätze einer CSV-Datei mit CGI ausgeben