perl unicode正则表达式的正确语法

Question

我完全混淆为什么这个perl one-liner：

echo à | perl -CSD -Mutf8 -pe 'if ($_ =~ /\x{1234}/g){print "it matches";};'

不打印＆＃34;它匹配＆＃34;！ 我使用的是perl版本v5.18.1

Answer 1

对于启蒙，试试

echo à | perl -CSD -ne 'printf "%x",ord'