Skeeve has asked for the wisdom of the Perl Monks concerning the following question:
Dear fellow monks,
I'm trying to learn how to understand EDIFACT messages and so installed http://search.cpan.org/~colinsc/Business-Edifact-Interchange/
But when I run it, I get warnings and error messages.
given is experimental at C:/strawberry/perl/site/lib/Business/Edifact/ +Interchange.pm line 114. when is experimental at C:/strawberry/perl/site/lib/Business/Edifact/I +nterchange.pm line 115. when is experimental at C:/strawberry/perl/site/lib/Business/Edifact/I +nterchange.pm line 119. when is experimental at C:/strawberry/perl/site/lib/Business/Edifact/I +nterchange.pm line 124. when is experimental at C:/strawberry/perl/site/lib/Business/Edifact/I +nterchange.pm line 128. when is experimental at C:/strawberry/perl/site/lib/Business/Edifact/I +nterchange.pm line 132. Modification of non-creatable array value attempted, subscript -1 at C +:/strawberry/perl/site/lib/Business/Edifact/Message.pm line 603, <DAT +A> line 1.
The warnings I t hink I can live with, but what about the error message?
Here my self contained program with data:
#!perl use strict; use warnings; use Business::Edifact::Interchange; use Data::Dumper; my $edifact_message = <DATA>; chomp($edifact_message); my $foo = Business::Edifact::Interchange->new(); my $x=$foo->parse($edifact_message); print Dumper $x->messages; __DATA__ UNA:+.? 'UNB+UNOC:3+1234567890123:14+3210987654321:14+131021:1523+391' +UNH+1+INVOIC:D:96A:UN:EAN008'BGM+380+1077642090+9'DTM+137:20111020:10 +2'DTM+35:20111020:102'FTX+AAK+1+ST2++DE'FTX+SUR+1++DAS LEISTUNGSDATUM + ENTSPRICHT DEM RECHNUNGSDATUM+DE'RFF+ON:2330-35573'RFF+DQ:283506034' +DTM+171:20111018:102'RFF+ABO:1087211625'DTM+171:20111020:102'NAD+BY+3 +210987654321::9'RFF+VA:230/5740/0622'RFF+API:3508566'NAD+DP+405096402 +3306::9'NAD+SU+1234567890123::9'RFF+VA:DE220564280'TAX+7+VAT+++:::7+S +'CUX+2:EUR:4'LIN+1++1234567654321:EN'PIA+1+03460262:SA::91'IMD+A++::: +NESLR Focaccia (24x400g) DE'IMD+C++IN'QTY+47:1:PCE'MOA+203:32.65'MOA+ +131:-12.95'PRI+AAB:45.6:::1:PCE'ALC+A+1++1+DI'MOA+8:12.95'RTE+1:12.95 +'LIN+2++1234567654321:EN+1:1'IMD+C++CU'QTY+59:1:PCE'UNS+S'MOA+77:34.9 +4'MOA+79:32.65'MOA+125:32.65'MOA+124:2.29'TAX+7+VAT+++:::7+S'MOA+79:3 +2.65'MOA+124:2.29'TAX+7+VAT+++:::7+S'MOA+125:32.65'UNT+44+1'UNH+2+INV +OIC:D:96A:UN:EAN008'BGM+393+1087211625+9'DTM+137:20111020:102'NAD+CPE ++3210987654321::9'RFF+FC:230/5740/0622'NAD+SU+1234567890123::9'RFF+VA +:DE220564280'NAD+PR+3210987654321::9'NAD+PE+1234567890123::9'TAX+7+VA +T+++:::7+S'CUX+2:EUR:4'PAT+3'DTM+13:20111025:102'UNS+S'MOA+86:34.94'M +OA+9:34.94'MOA+124:2.29'MOA+125:32.65'UNT+19+2'UNZ+2+391'
Update
The author fixed the warning messages and the bug in V0.06.
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Edifact anyone?
by kcott (Archbishop) on Dec 16, 2013 at 15:53 UTC | |
by Skeeve (Parson) on Dec 17, 2013 at 08:11 UTC | |
by Anonymous Monk on Dec 16, 2013 at 23:18 UTC | |
by kcott (Archbishop) on Dec 17, 2013 at 04:09 UTC | |
by Anonymous Monk on Dec 17, 2013 at 06:34 UTC | |
by Athanasius (Archbishop) on Dec 18, 2013 at 09:03 UTC | |
| |
Re: Edifact anyone?
by Anonymous Monk on Dec 16, 2013 at 11:31 UTC | |
by Skeeve (Parson) on Dec 16, 2013 at 12:02 UTC | |
Re: Edifact anyone?
by GotToBTru (Prior) on Dec 16, 2013 at 16:16 UTC | |
by Anonymous Monk on Dec 16, 2013 at 22:47 UTC | |
by Skeeve (Parson) on Dec 17, 2013 at 08:23 UTC | |
by VincentK (Beadle) on Dec 17, 2013 at 14:41 UTC | |
by GotToBTru (Prior) on Dec 17, 2013 at 15:15 UTC | |
Re: Edifact anyone?
by Anonymous Monk on Dec 16, 2013 at 23:15 UTC |
Back to
Seekers of Perl Wisdom