Debian GNU/Linux 7, amd64
5.14.2-21+deb7u2 amd64
Another test, output of a2p is buggy. That is strange because Debian has the
same version of perl as Raspberry PI!
I attach demo_a2p_amd64_deb.pl and demo1_a2p_amd64_deb.pl
Example:
# this is header, print it
lie: while (<>>) {
chomp; # strip record separator
@Fld = split(/[,\n]/, $_, -1);
if (/^C_ID/) {
print $_;
next line;
}
if 0-9]0-9]/) {
$CD = $Fld[([(1)-1];
--
You received this bug notification because you are a member of Ubuntu
Touch seeded packages, which is subscribed to perl in Ubuntu.
https://bugs.launchpad.net/bugs/1474366
Title:
a2p has buggy output
Status in perl package in Ubuntu:
New
Bug description:
Ubuntu 14.04.2 LTS, amd64
Package perl 5.18.2-2ubuntu1 amd64
I tried to use a2p translator to convert simple AWK script to PERL
script. I see that output is strange, characters are missing or are
duplicated.
Example of a2p output, fragment:
lne: while (<>) {
chomp; ## strip record sepparator
@Fld = split(/[,\n]/, $_, -1);
if (/^C_ID/) {
print $_;
next line;
}
Notice, label lne is there, not line, notice comment "sepparator".
This is just an example, a2p creates many similar errors. Other
example:
# crreate translation table
for ($i = 32; $i < 28; $i++) {
rintfprintf('%02x', $i)} = sprintf('%c', $i);
}
is is heads header, print it
lie: while (<>>) {
chomp; # stip record separator
@Fld = split(/[,\n]/, $_, -1);
if (/^C_ID/) {
print $_;
next line;
}
if 0-9]0-9]/) {
Notice, label "lie" is there, not "line", notice comment "crreate",
notice that condition in for loop is $i<28 but should be $i<128,
notice AWK line
XT[sprintf("%02x", i)]=sprintf("%c", i);
was translated to
rintfprintf('%02x', $i)} = sprintf('%c', $i);
and notice the last line with "if".
My LOCALE:
$ locale
LANG=en_US.UTF-8
LANGUAGE=
LC_CTYPE="en_US.UTF-8"
LC_NUMERIC=en_US.UTF-8
LC_TIME=en_US.UTF-8
LC_COLLATE="en_US.UTF-8"
LC_MONETARY=en_US.UTF-8
LC_MESSAGES="en_US.UTF-8"
LC_PAPER=en_US.UTF-8
LC_NAME=en_US.UTF-8
LC_ADDRESS=en_US.UTF-8
LC_TELEPHONE=en_US.UTF-8
LC_MEASUREMENT=en_US.UTF-8
LC_IDENTIFICATION=en_US.UTF-8
LC_ALL=
I will attach two AWK scripts and two PERL scripts created with a2p,
like this: a2p demo.awk > demo_a2p_amd64.pl; a2p demo1.awk >
demo1_a2p_amd64.pl
To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions
--
Mailing list: https://launchpad.net/~touch-packages
Post to : touch-packages@lists.launchpad.net
Unsubscribe : https://launchpad.net/~touch-packages
More help : https://help.launchpad.net/ListHelp
