#!/usr/local/bin/perl -w
use CGI;
my $cgi = new CGI();
my $fonts = [
"LTSyntax Regular",
"LTSyntax Black",
"LTSyntax SC Medium",
"LTSyntax SC Regular",
];
my $string= ' [ ] { } # ~ * + ! $ % & / \ ? _ - ';
my $text = qq(The international standard ISO 10646 defines the Universal Character Set
(UCS). lore\@ipsum.com $string
_Das__Büro___am_Draht_____Software_Entwicklung___GmbH_ ä ö ü Ä Ö Ü ß é ó ú í è ò ù ì ç
);
my $sizes = [
"8pt",
"9pt",
"10pt",
"11pt",
"12pt",
"14pt",
"18pt",
"24pt",
"8px",
"9px",
"10px",
"11px",
"12px",
"14px",
"18px",
"24px",
];
my $table = "";
my $classes = "";
my $n = 0;
foreach $size (@$sizes){
foreach $font (@$fonts){
$table .= "\n";
$classes .= ".c$n { font-size:$size; font-family: $font; }\n";
$table .= "\t$font $size
$text | \n";
$n++;
$table .= "
\n";
}
}
print <
fonts
fonts
EOF