かけまわる子犬。

#!/usr/bin/perl

use strict;

my $fc_list_cmd = "/usr/local/bin/fc-list";
my $sort_cmd    = "/usr/bin/sort";
my $sh_cmd      = "/PATHTO/pango-view.sh";
my $fontsize = 120;

my $command = $fc_list_cmd . "|" . $sort_cmd;
open(CMD,"$command|");
while(<CMD>) {
    s/\\//g;
    my (@t1) = split(",",$_);
    my ($fontname,@t2) = split(":",$t1[0]);
    my $filename = $fontname;
    $filename =~ s/ /_/g;
#   print $fontname . "\n";

    my $outfile = "./Fonts/" . $filename . ".sh";
    open(OUT,">$outfile");
    print OUT "#!/bin/sh\n";
    print OUT "$sh_cmd \"$fontname\" $fontsize\n";
    close(OUT);
    chmod(0755,$outfile);
}
close(CMD);

exit 1;