#!/usr/bin/perl
# Spalten der Tabelle:
$numcol = 4;
# Breite des Einzelbilds
$imgwidth = 120;
# Liste der .jpg-Dateien erstellen
@Files = <[A-Z]*.jpg>;
# Zaehlen beginnt bei -1
$col = -1;
# Iteration ueber alle .jpg-Files
for (@Files) {
$col ++;
# Zeile voll? -> Umbruch
if ( $col >= $numcol ) {
$col = 0;
# HTML-Code zur Tabellenerzeugung einfuegen
map { s#^#| #; s#$# | #} @Row;
# komplette Zeile in den Zeilenakku uebernehmen
push(@Rows, join(" ", @Row));
@Row = ();
}
# Bestimmung der Bildgroesse durch
# Parsen der Ausgabe von rdjpgcom
##($x,$y) =
## qx/rdjpgcom -verbose $_/ =~ m/JPEG image is ([0-9]+)w \* ([0-9]+)h,/;
# Berechnung der Bildhoehe bei gegebener Bildbreite
##$hy = int ( $y * $imgwidth / $x) ;
# Erzeugen des Vornamens aus dem Dateinemen
$name = (split(/\./,$_,2))[0];
# HTML-Code zur Darstellung des IMG in den Spaltenakku uebernehmen
##push(@Row,"
$name
");
push(@Row,"
$name
");
}
# HTML-Code zur Tabellenerzeugung einfuegen
map { s#^##; s#$# | #} @Row;
# komplette Zeile in den Zeilenakku uebernehmen
push(@Rows, join(" ", @Row));
# HTML-Code zur Tabellenerzeugung einfuegen
map { s#^##; s#$#
#} @Rows;
# HTML-Rahmen mit den Tabellenzeilen ausgeben
print<
LUGS Mitglieder
LUGS Mitglieder
EOF
print "\n";
print join("\n",@Rows),"\n";
print "
\n";
print "
Wie geht das?
\n";
print "Stand: ",scalar localtime(time),"