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

leaves
 2009-12-17 16:27
#129521 #129521
User since
2009-12-17
4 articles
BenutzerIn
[default_avatar]
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)

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