<(common.inc.plp)><: Html({ title => 'emoji cheat sheet', version => 'v1.0', description => [ "MSN emoticons", ], keywords => [qw' sheet cheat emoticon smiley emoji msn '], stylesheet => [qw'light dark red'], }); :>

MSN emoticons

<: my @info = do 'emoji.inc.pl' or die $@; my $MSNURL = '

'; print ''."\n"; for (my $i = 0; $i <= $#info; $i++) { my $name = $info[$i++]; my ($input, $char, $desc) = @{ $info[$i] }; if ($char < 0) { # inexact $char = -$char; } printf "

%s	`%s`	$MSNURL	%s\n", $name, EscapeHTML($input), $desc, chr($char); } print "

\n";