4 title => 'emoji cheat sheet',
10 sheet cheat emoticon smiley emoji msn
12 stylesheet => [qw'light dark red'],
16 <h1>MSN emoticons</h1>
19 my @info = do 'emoji.inc.pl' or die $@;
20 my $MSNURL = '<img src="http://messenger.msn.com/Resource/emoticons/%s.gif">';
22 print '<table class="glyphs"><tbody>'."\n";
23 for (my $i = 0; $i <= $#info; $i++) {
24 my $name = $info[$i++];
25 my ($input, $char, $desc) = @{ $info[$i] };
30 printf "<tr><th>%s<td><kbd>%s</kbd><td>$MSNURL<td>%s\n",
31 $name, EscapeHTML($input), $desc, chr($char);