を使用してスクリプトを作成する途中ですXML::Simple。私はそれがそれほど「単純」ではないことを読みました。独自のドキュメントでさえ、新しいコードでの使用を思いとどまらせていますが、このスクリプトは既存のコードの拡張になるため、他に選択肢はありません。
私がしているのはこれです
- URL から読み取って XML を取得する
- を使用して解析します
XML::Simple - データから必要な要素を読み取る
- これらの必須要素に対してさまざまなチェックを実行します
いくつかの要素を解析していくつかのチェックを行うことができましたが、配列内の要素を読み取っているときにundef.
これは私のコードです:
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use LWP::Simple;
use XML::Simple;
use DBI;
use Data::Dumper;
my $str = "<Actual_URL>";
my $ua = LWP::UserAgent->new;
$ua->timeout( 180 );
$ua->agent( "$0/0.1 " . $ua->agent );
my $req = HTTP::Request->new( GET => $str );
my $buffer;
$req->content_type( 'text/xml' );
$req->content( $buffer );
my $response = $ua->request( $req );
my $xml = $response->content();
print "Value of \$xml is:\n";
print $xml;
my $filename = 'record.txt';
open( my $fh, '>', $filename ) or die "Could not open file '$filename' $!";
print $fh $xml;
close $fh;
my $number_of_lines = `wc -l record.txt | cut -d' ' -f1`;
print "Number of lines in $filename are: $number_of_lines\n";
if ( $number_of_lines >= 50 ) {
print "TEST_1 SUCCESS\n";
}
my $mysql_dbh;
my $test_id;
my $xst;
my %cmts_Pre_EQ_tags;
if ( ( not defined $xml ) or ( $xml =~ m/read\stimeout/i ) ) {
&printXMLErr( 'DRUM request timed out' );
}
else {
my $xs = XML::Simple->new();
$xst = eval { $xs->XMLin( $xml, KeyAttr => 1 ) };
&printXMLErr( $@ ) if ( $@ );
print "Value of \$xst inside is:\n";
print Dumper( $xst );
}
$cmts_Pre_EQ_tags{'$cmts_Pre_EQ_groupDelayMag'} =
$xst->{cmts}->{Pre_EQ}->{groupDelayMag}->{content};
#More elements like this are checked here
$cmts_Pre_EQ_tags{'$cmts_Pre_EQ_ICFR'} =
$xst->{cmts}->{Pre_EQ}->{ICFR}->{content};
my $decision1 = 1;
print "\%cmts_Pre_EQ_tags:\n";
foreach ( sort keys %cmts_Pre_EQ_tags ) {
print "$_ : $cmts_Pre_EQ_tags{$_}\n";
if ( $cmts_Pre_EQ_tags{$_} eq '' ) {
print "$_ is empty!\n";
$decision1 = 0;
}
}
print "\n";
if ( $decision1 == 0 ) {
print "TEST_2_1 FAIL\n";
}
else {
print "TEST_2_1 SUCCESS\n";
}
my $cpeIP4 = $xst->{cmts}->{cpeIP4}->{content};
print "The cpe IP is: $cpeIP4\n";
if ( $cpeIP4 ne '' ) {
print "TEST_2_2 SUCCESS\n";
}
else {
print "TEST_2_2 FAIL\n";
}
# Working fine until here, but following 2 print are showing undef
print Dumper ( $xst->{cmts}{STBDSG}{dsg}[0]{dsgIfStdTunnelFilterTunnelId} );
print Dumper ( $xst->{cmts}{STBDSG}{dsg}[0]{dsgIfStdTunnelFilterClientIdType} );
print "After\n";
最後の 3 つの print ステートメントの出力は次のとおりです。
$VAR1 = undef;
$VAR1 = undef;
After
print Dumper($xst)XML は大きすぎて動的に生成されるため、XML 全体または出力を提供することはできませんが、サンプルを提供します。
問題を引き起こしている XML の部分は
<cmts>
<STBDSG>
<dsg>
<dsgIfStdTunnelFilterTunnelId>1</dsgIfStdTunnelFilterTunnelId>
<dsgIfStdTunnelFilterClientIdType>caSystemId</dsgIfStdTunnelFilterClientIdType>
</dsg>
<dsg>
<dsgIfStdTunnelFilterTunnelId>2</dsgIfStdTunnelFilterTunnelId>
<dsgIfStdTunnelFilterClientIdType>gaSystemId</dsgIfStdTunnelFilterClientIdType>
</dsg>
</STBDSG>
</cmts>
この部分が解析されると、対応する出力は次のようになり$xstます。
$VAR1 = {
'cmts' => {
'STBDSG' => {
'dsg' => [
{
'dsgIfStdTunnelFilterTunnelId' => '1',
'dsgIfStdTunnelFilterClientIdType' => 'caSystemId',
},
{
'dsgIfStdTunnelFilterTunnelId' => '2',
'dsgIfStdTunnelFilterClientIdType' => 'gaSystemId',
}
]
},
},
};
値を解析した後に正常に取得される XML 部分は次のようになります。
<cmts>
<name field_name="Name">cts01nsocmo</name>
<object field_name="Nemos Object">888</object>
<vendor field_name="Vendor">xyz</vendor>
</cmts>
これは次のように変換されました：
$VAR1 = {
'cmts' => {
'name' => {
'content' => 'cts01nsocmo',
'field_name' => 'Name'
},
'object' => {
'content' => '888',
'field_name' => 'Nemos Object'
},
'vendor' => {
'content' => 'xyz',
'field_name' => 'Vendor'
}
},
};
基本的に、解析されたコンテンツに配列がない場合、値は変数に正しくフェッチされています。
どうやらこの理由は
print Dumper ( $xst->{cmts}{STBDSG}{dsg}[0]{dsgIfStdTunnelFilterTunnelId} );
print Dumper ( $xst->{cmts}{STBDSG}{dsg}[0]{dsgIfStdTunnelFilterClientIdType} );
は、またはundefに正しい値を設定することに関連しています。を読んで見つけようとしていますが、ここに欠けている明確なものがあるかどうかを確認したかったのです。KeyAttrForceArrayXML::Simple