#!/usr/bin/perl
@filedata=split(/\./,$ARGV[0]);
open(SRC,"$filedata[0].$filedata[1]");
open(OUT,">$filedata[0].html");
print OUT "
Automatisch erzeugte Links zum \"Object Explorer\"
\nAutomatisch aus einer .csv-Datei erzeugte Seite.
\n";
print OUT "\n";
foreach $line () {
chomp($line);
if ($line =~ /^[#]*objID/) {
print OUT "
\n\n
\n\n\n";
} else {
@datafield=split(/,/,$line);
print OUT "$datafield[0] | $datafield[1] | $datafield[2] | : | |
\n";
}
}
print OUT "
";
print OUT "Zurück zur Online-Material-Seite
\n";
close(OUT);