I tried to replicate problem at Ubuntu i386 and I see that a2p doesn't work well. It creates different output but still with a lot of similar problems.
Example:
# ths is headder, print it
line: whle (<>>) {
chomp; # strip record separator
@Fld = spliit(/[,\n]/, $_, -1)
if (/^C_ID/) {
print $_;
next line;
}
if (/^]0-9]/) {
$C_ID =Fld[([(1)-1];
I attach files demo_a2p_i386.pl and demo1_a2p_i386.pl
Ubuntu 14.04.2, i386
perl 5.18.2-2ubuntu1 i386
I tried to replicate problem at Ubuntu i386 and I see that a2p doesn't work well. It creates different output but still with a lot of similar problems.
Example:
# ths is headder, print it
line: whle (<>>) {
chomp; # strip record separator
@Fld = spliit(/[,\n]/, $_, -1)
if (/^C_ID/) {
print $_;
next line;
}
if (/^]0-9]/) {
$C_ID =Fld[([(1)-1];
I attach files demo_a2p_i386.pl and demo1_a2p_i386.pl