エラー チェック
スクリプトの作成中にすべてのエラーを正しくキャッチするには、出力を常に XML 形式で指定してください。すると、有効な XML を返さないすべての応答、およびエラー属性のあるすべての XML ドキュメントについてエラーが返されます。
次は、AVCLI コマンドを実行するシェルを提供する、PERL のサブルーチン _cli からの例です。エラーをチェックするコードが $stdout に対してシンプルなパターン マッチを実行します。
my $error = 0
$error = 1 unless ($stdout =~ /xml version/);
$error = 1 if ($stdout =~ /\/);
エラーが 1 つもない場合、$stdout が標準の PERL XML::Simple Library を使用して PERL ハッシュに挿入されます。そうでない場合はエラーが表示されます。
unless ($error) {
my $xs = XML::Simple->new();
$stdout_hash = $xs->XMLin($stdout,forceArray=>0);
return 0;
}
return 1;