AW: csv nach HTML konvertieren
hi,
hier ein programm-rahmen. allerdings gibt es ein
gutes, hilfreiches html-modul fuer perl.
$_ ist die aktuelle zeile.
gruss
michael
#!/usr/bin/perl
use strict;
use Getopt::Std;
my %opt;
my $htmlheader = "";
my $htmlfooter = "";
getopts( 'f:h', \%opt) || usage( "Argument-Fehler" );
usage( "Hilfe" ) if $opt{h};
usage( "keine Datei angegeben" ) unless $opt{f};
usage( "Datei existiert nicht: $opt{f}" ) unless -e $opt{f};
my $file = $opt{ f }; # zu lesende datei
open( FILE, "<$file" ) || die "Datei $file kann nicht gelesen werden";
open( FILE2, ">$file.out" ) || die "Datei $file kann nicht geschrieben
werden";
print FILE2 $htmlheader;
print "<table>\n"
while( <FILE> ) # datei einlesen
{
s/,/<td>/g;
print FILE2 " <tr><td>$_</tr>\n";
}
print "</table>\n"
print FILE2 $htmlfooter;
print "Ende \n";
close( FILE );
close( FILE2 );
exit;
# - - - - - - - - - - - - - - - - - - - - - - - -
# Fehler-/Hilfemeldung ausgeben
#
sub usage
{
print "\n$0: @_.\n\n";
die <<__ENDOFUSAGE;
$0 tut dies und das
Aufruf: $0 -f filename
__ENDOFUSAGE
}
>
> > Generell ist es für solche Sachen sicherlich sinnvoll, sich mit Perl,
> > Mit Perl sähe das Skript so aus:
> > #!/usr/bin/perl -n
> >
> > BEGIN{print "<table>\n"}
> > s/,/<td>/g;
> > print " <tr><td>$_</tr>\n";
> > END{print "</table>\n"}
>
> Ich muß sagen, die Shell-Variante war mir schneller zugänglich (was
> macht diese `$_'? Steht das für die jeweilige Zeile?). Sieht so aus,
>
>
Reply to: