suese的专栏

use strict; use Cwd; sub get_dir_file { my $path = shift @_; # print $path; opendir(TEMP, $path) || die "open $path fail...$!"; my @FILES = readdir TEMP; for my $filename (@FILES)

大家经常使用正则表达式的字符集从字符串中抽取或排除中文字符，但是这样做 很费事，效果也并不是很理想。实际上Perl从5.6开始已经开始在内部使用utf8编码 来表示字符，也就是说对中文以及其他语言字符的处理应该是完全没有问题的。关键 在于目前使用的编辑器以及文件格式并不都能很好地支持utf8，委屈了Perl的强大能力。 实际上我们只需要利用好Encode这个模块便能充分发挥Perl的utf