Leser: 2
8 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use Text::CSV_XS;
use CGI;
my $cgi = CGI->new;
my $csv = Text::CSV_XS->new();
open my $fh, "<", "datei.csv" or die $!;
print $cgi->start_table;
while (my $line = <$fh>) {
my $status = $csv->parse($line);
my @columns = $csv->fields();
print $cgi->Tr( map {
$cgi->td($_)
} @columns;
}
print $cgi->end_table;
8 Einträge, 1 Seite |