diff options
Diffstat (limited to 'emojitrans2.pl')
| -rwxr-xr-x | emojitrans2.pl | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl index 3b98ad2..27ee545 100755 --- a/emojitrans2.pl +++ b/emojitrans2.pl @@ -1,9 +1,12 @@ #!/usr/bin/perl -p +use feature 'unicode_strings'; +use utf8; BEGIN { binmode(STDOUT, ":utf8"); binmode(STDIN, ":utf8"); %specials = ('%' => 'percent', '-' => 'minus', + '_' => 'underscore', '>' => 'greater', '<' => 'less', ',' => 'comma', @@ -16,17 +19,24 @@ BEGIN { binmode(STDOUT, ":utf8"); '#' => 'numbersign', '@' => 'at', '|' => 'bar', + '`' => 'grave', '~' => 'asciitilde', '^' => 'asciicircum', '(' => 'parenleft', ')' => 'parenright', '[' => 'bracketleft', ']' => 'bracketright', + '{' => 'braceleft', + '}' => 'braceright', "'" => 'apostrophe', + '"' => 'quotedbl', '\\' => 'backslash', ':' => 'colon', ';' => 'semicolon', + '=' => 'equal', ' ' => 'space', + '*' => 'asterisk', + '♫' => 'Multi_key', ); sub splitup { @@ -48,10 +58,11 @@ sub splitup { unless (/^#/) { my $hold=$_; + s/<M_>/<Multi_key>/; s/<MM>/<Multi_key> <Multi_key>/; - s({([][[:alnum:] _+:;%@><,.^\$+#()?!/|'\\~-]+)})(splitup($1))e; + s({([][[:alnum:] _+:;%@>=`<,.^\$+#()?!/|'"\\~*{}♫-]+)})(splitup($1))e; if (length($1) > 7) { $_=$hold; - s/^<MM>/### <MM>/; + s/^<M([M_])>/### <M$1>/; } } |