AW: csv nach HTML konvertieren

[Tepperis von der Ohe, Michael (LOGICA)]

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,
> 
> 


--
Zum AUSTRAGEN schicken Sie eine Mail an [EMAIL PROTECTED]
mit dem Subject "unsubscribe". Probleme? Mail an [EMAIL PROTECTED] (engl)