💾 Archived View for tozip.chickenkiller.com › fig captured on 2023-04-26 at 13:20:38.

View Raw

More Information

⬅️ Previous capture (2023-03-20)

-=-=-=-=-=-=-

#!/usr/bin/env perl

my $hdr = <<'EOM';
# figlet test
Created 2022-07-24

To generate file:

./fig > figlet.gmi

=> fig fig: perl script that generates this page

NB flc files require the -C comman option, whereas the others require -f.
EOM

print $hdr;


my $dir = "/usr/share/figlet/*.";
chdir "/usr/share/figlet";
my @files = glob( '*.*' );
print "```\n";
foreach $f (@files) {
	print "\n---\n$f\n"; 
	my ($ext) = $f =~ /(\.[^.]+)$/;
	#print "ext<$ext>";
	my $arg = $ext eq ".flc" ? "C" : "f";
	my $cmd = "figlet -${arg} $f Hello25";
	print "$cmd\n";
	system $cmd;
}
print "```\n";