Thread Datensätze einer CSV-Datei mit CGI ausgeben
(11 answers)
Opened by leaves at 2009-12-17 11:51 2009-12-17T15:27:20 leaves 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) |