diff options
Diffstat (limited to 'emojitrans2.pl')
-rwxr-xr-x | emojitrans2.pl | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/emojitrans2.pl b/emojitrans2.pl index 34c8204..4ec9337 100755 --- a/emojitrans2.pl +++ b/emojitrans2.pl @@ -15,6 +15,8 @@ BEGIN { binmode(STDOUT, ":utf8"); '/' => 'slash', '#' => 'numbersign', '@' => 'at', + '|' => 'bar', + '~' => 'asciitilde', ' ' => 'space', ); @@ -38,9 +40,9 @@ sub splitup { unless (/^#/) { my $hold=$_; s/<MM>/<Multi_key> <Multi_key>/; - s({([][[:alnum:] _+%@><,.^\$+#()!/-]+)})(splitup($1))e; - if (length($1) > 7) { - $_=$hold; - s/^<MM>/### <MM>/; - } + s({([][[:alnum:] _+%@><,.^\$+#()!/|~-]+)})(splitup($1))e; + if (length($1) > 7) { + $_=$hold; + s/^<MM>/### <MM>/; + } } |