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

lolipop 999
 2006-12-12 21:53
#9072 #9072
User since
2006-04-07
150 Artikel
BenutzerIn
[default_avatar]
Habs jetzt so gemacht

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>~;


So zeigt er mir die Überschrift und den Link

Muss ich sonst noch irgendwas machen damit die Daten als Pie dargestellt werden.

Danke

lolipop 999
Antworten mit Zitat

View full thread CSV Datei mit CGI öffnen