Thread CSV Datei mit CGI öffnen (117 answers)
Opened by lolipop 999 at 2006-11-17 19:35

lolipop 999
 2006-12-13 19:35
#9077 #9077
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
meine antwort war falsch ich hatte gemeint

naicht als Pie sondern als Daten dargestellt werden.

Ich denke ich habe alles berücksichtigt was ihr mir geraten habt.

Hier mein aktueller Code:

Code: (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
#! f:/Perl/bin/perl

use strict;
use warnings;
use DBI;
use FindBin ();
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use HTML::Table;

my $dbh = DBI->connect('DBI:CSV:f_dir='.$FindBin::Bin.';csv_sep_char=\;'.";csv_eol=\n") or die $DBI::errstr;
my $stmt = "SELECT * FROM Kunde";

my $sth = $dbh->prepare($stmt) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

print header();
print start_html();
my $table2 = new HTML::Table;
$table2->addRow('DHL','K_N','Hellmann');
while(my @row = $sth->fetchrow_array()){
$table2->addRow(@row);
}
$dbh->disconnect;
$table2->print;

print qq~<a href='Pie.cgi'>Zum Tortendiagramm</a>~;


Ich danke für jede Hilfe


Vielen Dank

lolipop 999
Antworten mit Zitat

View full thread CSV Datei mit CGI öffnen