求助!perl的读取xml信息问题!
各位高手, 我是perl新手, 问题请教。
我用perl读取非中文的 xml 格式的配置文件。 操作系统是solaris 2.6 在读出的某个信息后和另外一个中文字符连接,打印后发现是乱码。
代码如下:
#!/usr/local/bin/perl
use Getopt::Long;
use Data::Dumper;
use XML::Simple;
use Date::Manip;
my $hashxml= XMLin("../config/tablename.xml");
my $a = '测试';
foreach $key (keys %$hashxml) {
$table = $hashxml->{$key}{table};
my $statement = $table.$a;
print " $statement \n";
}
输出的中文全是乱码。
$table 不是中文! $a 是中文!
我把$table 单独输出到文件。 然后又手工写了个相同的内容到另一个文件中。 发现两个文件是不同的。 我匹配掉$table 的最后一个字符, 问题依旧。
是不是perl 在解析xml的时候有问题?