blob: 0df2e3b9d7b423ca1ab4f99e49583a42f486669e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
#!/usr/bin/perl
use warnings;
use strict;
use Getopt::Long;
use Pod::Usage;
my $alphabet_filename = 'undef';
my $help = 0;
GetOptions('alphabet=s' => \$alphabet_filename,
'help|?' => \$help) or pod2usage(2);
pod2usage(1) if $help;
=pod
=head1 NAME
generate_tileset.pl - Print out HTML tileset
=head1 SYNOPSIS
--alphabet=<file>
output of generate_alphabet.pl
=cut
binmode STDOUT, ':utf8';
# tiles{count}{letter} = score
my %tiles;
sub read_alphabet {
if ($alphabet_filename eq 'undef') {
return;
}
open (my $input, "<:encoding(utf8)", $alphabet_filename);
my $i = 0;
while (<$input>) {
chomp;
next if (/^\#/);
my ($letter, $blank_text, $score, $count) = split /\s/, $_;
if ($letter eq 'blank') {
$tiles{$score}{"　"} = 0;
next;
}
next if (! defined $count);
$letter =~ s/\|//g;
$tiles{$count}{$letter} = $score;
}
}
sub spit_characters {
my $fontsize = "1.2cm";
my $score_fontsize = "18pt";
#my $color="#458B74";
#my $color="black";
#my $color="#EAC117";
my $color="darkblue";
my $width = "5in";
my $height = "0";
print "<html>\n<head>\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\n</head>\n<body bgcolor=white>\n";
print "<table cellspacing=2 cellpadding=0>\n";
print "<tr>";
my $already_in_row = 0;
for my $count (sort keys %tiles) {
for my $letter (sort keys %{$tiles{$count}}) {
for my $i (1 .. $count) {
if ($already_in_row >= 10) {
print "</tr><tr>\n";
$already_in_row = 0;
}
my $score = $tiles{$count}{$letter};
my $align = 'center';
print "<td width=$width height=$height align=$align><nobr>\n";
print "<span style=\"font-size: $fontsize; color: $color\">$letter</span>";
print "<span style=\"font-size: $score_fontsize; color: $color\"><sub>$score</sub></span>";
print "</nobr></td>\n";
++$already_in_row;
}
}
}
print "</tr>\n";
print "</table>\n";
print "</body>\n</html>\n";
}
read_alphabet();
spit_characters();
|
