22069332 877465535 86719273704 8671881760 8671969876

Müller heiner Entenhausenerweg 15 660666 Entenhausen D

2006-01-31 2006-01-30 highspender limit exceeded 2006-01-30 0 0.00 EUR 2006-01-30 215.84 EUR ##

##

$VAR1 = {
          'BL_DPLI_RECORD' => {
                                'REASON' => {
                                              'DATE_OCCURRED' => '2006-01-30',
                                              'ENTRY' => 'highspender limit exceeded'
                                            },
                                'BL_LI_RECORD' => {
                                                    'MONETARYVALUE' => {
                                                                         'C' => 'EUR',
                                                                         'V' => '215.84'
                                                                       },
                                                    'DATE_LAST_UPDATE' => '2006-01-30'
                                                  },
                                'BL_DP_TOTAL' => {
                                                   'DATE_OLDEST_INVOICE' => {},
                                                   'MONETARYVALUE' => {
                                                                        'C' => 'EUR',
                                                                        'V' => '0.00'
                                                                      },
                                                   'NUMBER_DENIED_PAYMENTS_TOTAL' => '0'
                                                 },
                                'DATE_LAST_UPDATE' => '2006-01-30',
                                'DATE_CREATED' => '2006-01-31'
                              },
          'BL_USER' => {
                         'USERID' => '22069332',
                         'ADDRESS' => {
                                        'COUNTRY' => 'D',
                                        'MAIDENNAME' => {},
                                        'CITY' => 'Entenhausen',
                                        'ZIP' => '660666',
                                        'LASTNAME' => 'M�ller',
                                        'FIRSTNAME' => 'heiner',
                                        'STREET' => 'Entenhausenerweg',
                                        'STREET_NO' => '15'
                                      },
                         'PHONENO' => [
                                        {
                                          'ENTRY' => '877465535'
                                        },
                                        {
                                          'ENTRY' => '86719273704'
                                        },
                                        {
                                          'ENTRY' => '8671881760'
                                        },
                                        {
                                          'ENTRY' => '8671969876'
                                        }
                                      ]
                       }
        };


##

##

__OUT__
877465535;highspender limit exceeded
86719273704;highspender limit exceeded
8671881760;highspender limit exceeded
8671969876;highspender limit exceeded


##

##

#!"C:\perl\bin\perl.exe"

use warnings;
use strict;
use XML::Simple;
use Data::Dumper;


my $config = XMLin('test.xml');

open(OUT,'>','out.txt') or die;

print OUT Dumper($config);