Verificação de erros

Para detectar com clareza todos os erros enquanto cria as sequências de comandos, especifique sempre a saída no formato XML. Isso retornará erro em qualquer resposta que não retornar XML válido ou qualquer documento XML com um atributo de erro.

O exemplo a seguir foi extraído de uma sub-rotina PERL _cli, que proporciona uma estrutura para executar comandos do AVCLI. O código que verifica os erros executa uma simples conferência de padrões em $stdout.

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

Caso não ocorram erros, $stdout receberá um hash de PERL, usando a XML::Biblioteca simples padrão de PERL. Caso contrário, será exibido o seguinte erro:

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