Thread Datensätze einer CSV-Datei mit CGI ausgeben
(11 answers)
Opened by leaves at 2009-12-17 11:51
Habe gelesen und umgesetzt.
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 28 29 30 #!/usr/bin/perl -w use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); my $sp1; my $sp2; my $sp3; my $cgi = new CGI; my $search = $cgi->param(); open(CSV, '<./test.csv') or die $!; my @csvInhalt = <CSV>; close(CSV); chomp(@csvInhalt); print $cgi->header(), $cgi->start_html('CGI-Feedback'), $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('comments.pl')); foreach (@csvInhalt) { (my $sp1,my $sp2,my $sp3) = (split(/;/, $_) ); if($sp2<$search != $search < $sp3 ){ print $cgi->strong('Datensatz:'), $sp1, $sp2, $sp3; } } print $cgi->end_html(); Dennoch kommt der Fehler: [Thu Dec 17 16:22:54 2009] ausgabe.pl: Use of uninitialized value $search in numeric lt (<) at d:\Dokumente und Einstellungen\t\Desktop\Perl-CSV\ausgabe.pl line 23. ´ Warum kann die Datei nicht eingelesen werden? Modedit GwenDragon: Code-Tag repariert Last edited: 2009-12-17 16:31:59 +0100 (CET) |