错误检查

要在开发脚本时干净地捕获所有错误，始终指定 XML 格式的输出。这会返回具有任何回复的错误，并且此错误没有返回有效的 XML 或者具有错误属性的任何 XML 文档。

以下示例来自 PERL 子例程 _cli，其提供用于执行 AVCLI 命令的 shell。检查错误的代码在 $stdout 上进行简单的模式匹配。

my $error = 0
$error = 1 unless ($stdout =~ /xml version/);
$error = 1 if ($stdout =~ /\/);

如果没有出现错误，$stdout 会被利用标准 PERL XML::Simple Library 转换成 PERL hash。否则，会出现以下错误：

unless ($error) {
my $xs = XML::Simple->new();
$stdout_hash = $xs->XMLin($stdout,forceArray=>0);
return 0;
}
return 1;