我正在尝试将一个文件读入字符串,然后检查unicode范围2816-2943的每个字符。所有其他字符都需要跳过,除了那些落在范围和\n,我有以下代码从网络,但不是为我工作。如果我犯了一些愚蠢的错误,我很抱歉,我是perl新手。请帮助我今天就能完成这个任务。
use utf8;
use encoding 'utf8';
use open qw/:std :utf8/;
binmode(STDOUT, ":utf8"); #makes STDOUT output in UTF-8 instead of ordinary ASCII.
$file="co