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)