file lesen und als html ausgeben - #2121 (Perl/CGI)

2004-04-17 02:59

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

Vielleicht ist es einfacher die Kategorien zu erkennen:

Code (perl): (dl )

use strict;

open (DATEI,'test.txt');
  chomp (my @zeilen = <DATEI>);
close (DATEI);

my %eintr;
my $kategorie;
foreach my $zeile (@zeilen) {
  next unless $zeile;
  if ( $zeile eq uc($zeile) ) { $kategorie = $zeile; next }
  push @{$eintr{$kategorie}}, $zeile;
}

my @egal = map {'<b>'.$_.'</b><ul>'.join('',map { "<li>$_</li>" } @{$eintr{$_}}).'</ul>'} keys %eintr;
my $html = '<html><head></head><body>'.join('',@egal).'</body></html>';
print $html;

Hier würden z.B. alle großgeschriebenen Zeilen als neue Kategorien gewertet werden.

@x-man: Du übertreibst es a bisserl mit den prints, ha? ;)

Edit: Der zeigt die Tab's hier eh ned an, dann lass ma des mit da Formatierung gleich bleiben...\n\n