Solution From Another Node


No such thing as a small change
	PerlMonks

Solution From Another Node

by vbrtrmn (Pilgrim)

on Jan 08, 2003 at 14:31 UTC ( [id://225264]=note: print w/replies, xml )

Need Help??

in reply to Font::TTF Give Me the Font Name

Simplified from the TrueType font gallery node.

#!perl.exe -w

use strict;
use Font::TTF::Font;
use CGI qw(:all);

print header();
    my $f = 'arial.ttf';
    my $fontname = Font::TTF::Font->open($f) || $f;
        $fontname = $fontname->{name} || $f if ref $fontname;
        $fontname = $fontname->read->find_name(4) || $f if ref $fontna
+me;
    print $fontname;
exit;
[download]

--
paul