#!/usr/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); print header; print start_html( -title => 'generate dynamic sortable tables', -style => 'js/sample.css', ## das Stylesheet wird verarbeitet! -script => { -language => 'javascript', -src => 'js/TSorter_1.js', ## das Skript zum sortieren der Spalten } ); ### init sortable tables $JSCRIPT=<) { @line = split(/\t/,$_); if ($i==0) { @headings=@line; @rows = th(\@headings);$i++; } else { push (@rows,td([@line])); $i++; } } ### ausgeben der Tabelle aus gelesenen Daten print table( {-border=>undef}, caption(b('your data!')), Tr(\@rows) ); ## hier noch die Tabelle aus meinem ersten Gehversuch mit sortierbaren Spalten, im original HTML-Dokument hat das funktioniert! print < ID NAME PRICE LATITUDE LONGITUDE ADDRESS 12941 375 43.446885 -80.476264 205 Weber St. East, Kitchener, ON 12946 400 43.424225 -80.539549 53 High Acres Cr., Kitchener, ON HTML exit;