#!/usr/bin/perl -w
use strict;
use diagnostics;
use warnings;
use CGI;
my $cgi = CGI -> new;

my %data = (
    'New York'      => 10,
    'Madrid'        => 25,
    'Venezuela'     => 35,
    'Berlin'        => 5,
);

my ($kopf,$zeile) = ('') x 2;
foreach my $string (keys %data) {
    my $ret = hochkantschrift ($string,'dejavusans.ttf');
    $kopf .= "<td>$ret</td>";
    $zeile .= "<td>$data{$string}</td>";
}

print $cgi -> header;
print $cgi -> start_html ('Test Hochkantschrift');
print <<HTML_TEIL;
<table>
    <tr><td>&nbsp;</td>$kopf</tr>
    <tr><td>Temperatur</td>$zeile</tr>
</table>
HTML_TEIL
print $cgi -> end_html;

sub hochkantschrift {
    my $return = join ('<br>',split (//,$_[0]));    # Default, falls bei der andere Variante etwas schief geht
    do {{
        my $modul = 1;
        eval "use GD; 1;" or $modul = 0;
        last if !$modul || !-f $_[1];
#       my $font = GD::Font->Small;
        my $font;
        my $error = 0;
        eval {  # eval da das Modul sonst eine Fehlermeldung wirft falls etwas mit der Datei nicht stimmt
            $font = GD::Font -> load ($_[1]) or $error = 1;
        };
        last if $error || !defined $font;
        my $height = $font->height;     
        my $width = $font->width;     
        my $im = GD::Image->new($height,5 + $width * length $_[0]);
        my $white = $im->colorAllocate(255,255,255);
        my $color = $im->colorAllocate(0,0,0);  # ist Schwarz
        $im->transparent($white);
        $im->stringUp($font,0,$width * length $_[0],$_[0],$color);
        open my $file,'>','hochkantschrift.png';
        binmode ($file);
        print $file $im -> png;
        $return = 1;
        last;
    }} while (0);
    return $return;
}