Terminal control/Unicode output: Difference between revisions
Added Perl example
SqrtNegInf (talk | contribs) (Added Perl example) |
|||
Line 356:
echo "Unicode is not supported on this terminal."</lang>
=={{header|Perl}}==
Much like Perl 6...
<lang perl>die "Terminal can't handle UTF-8"
unless $ENV{LC_ALL} =~ /utf-8/i or $ENV{LC_CTYPE} =~ /utf-8/i or $ENV{LANG} =~ /utf-8/i;
print "△ \n";</lang>
=={{header|Perl 6}}==
<lang perl6>die "Terminal can't handle UTF-8"
| |||