Text::FIGletを使ってI love Perlと叫んでみるテスト

デフォルトのフォントディレクトリが/usr/games/lib/figletになってるので
new()時に-dのオプションで変えてあげる必要があります。

figlet.pl

#!/usr/bin/perl 
use strict;
use warnings;
use Text::FIGlet;
my $font = Text::FIGlet->new( 
    -d => "./fonts",
    -f => "standard");
print $font->figify( -A =>"I love Perl");

実行結果

 ___  _                      ____               _ 
|_ _|| |  ___  __   __  ___ |  _ \   ___  _ __ | |
 | | | | / _ \ \ \ / / / _ \| |_) | / _ \| '__|| |
 | | | || (_) | \ V / |  __/|  __/ |  __/| |   | |
|___||_| \___/   \_/   \___||_|     \___||_|   |_|
                                                  

Press ENTER or type command to continue

正直に/usr/games/とか作って実行権限変えても動かなかったのでモヤモヤしてた＞＜

なんでも相談してみるものですね。ゆーすけべーさんありがとうございます。

yusukebe++