Thanks Rob,
I'm glad you validated the solution I found. I figured out that if the
empty tag was suppressed, I could test for the tag being present or not.
Bruce
On 01/30/2010 04:16 AM, Rob Dixon wrote:
> Hello Bruce
>
> Take a closer look at the docs, and try
>
> my $xml = XMLin($data, SuppressEmpty => undef);
>
> HTH,
>
> Rob
>
>
> Bruce Ferrell wrote:
>>
>> I have a wee problem I can seem to solve. I don't want to get into
>> should XML::Simple be used, it's not relevant to my question... I don't
>> think. Below is some very simple XML and below that the output after
>> passing it through Dumper.
>>
>> As you can see phone2 is a blank tag (no contents) and it has the oddest
>> representation in the Dumper output. How do I detect that?
>>
>> my $xml = XMLin ($data, ForceArray => 0)
>>
>> For non-blank tags <phone1></phone1> / $xml->{message}->{phone1} works
>> fine. for a blank tag, I get other less interesting data.
>>
>> Suggestions?
>>
>>
>>
>> <event>
>> <type>ADD</type>
>> <message>
>> <msgtype>PHONE</msgtype>
>> <phone1>15105551212</phone1>
>> <phone2></phone2>
>> <wav>YES</wav>
>> <custID>digits</custID>
>> <status>ALERT</status>
>> </message>
>> </event>
>>
>>
>> $VAR1 = {
>> 'type' => 'ADD',
>> 'message' => {
>> 'status' => 'ALERT',
>> 'phone1' => '15105551212',
>> 'custID' => 'digits',
>> 'phone2' => {},
>> 'wav' => 'YES',
>> 'msgtype' => 'PHONE'
>> }
>> };
>
>
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
