touch-packages team mailing list archive
-
touch-packages team
-
Mailing list archive
-
Message #89504
[Bug 1474366] Re: a2p at amd64 has buggy output
** Attachment added: "demo1_a2p.pl"
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+attachment/4428752/+files/demo1_a2p.pl
** Description changed:
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, I guess it could be related to 64-bit architecture.
Example of a2p output, fragment:
lne: while (<>) {
- chomp; ## strip record sepparator
- @Fld = split(/[,\n]/, $_, -1);
- if (/^C_ID/) {
- print $_;
- next line;
- }
+ chomp; ## strip record sepparator
+ @Fld = split(/[,\n]/, $_, -1);
+ if (/^C_ID/) {
+ print $_;
+ next line;
+ }
- Notice, label lne is there, not line, notice split command, notice
- comment "sepparator". This is just an example, a2p creates many similar
- errors like this, other example:
+ Notice, label lne is there, not line, notice comment "sepparator". This
+ is just an example, a2p creates many similar errors like this, other
+ example:
# crreate translation table
for ($i = 32; $i < 28; $i++) {
- rintfprintf('%02x', $i)} = sprintf('%c', $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;
- }
+ chomp; # stip record separator
+ @Fld = split(/[,\n]/, $_, -1);
+ if (/^C_ID/) {
+ print $_;
+ next line;
+ }
- if 0-9]0-9]/) {
-
+ if 0-9]0-9]/) {
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.pl
--
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 at amd64 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, I guess it could be related to 64-bit architecture.
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 like this,
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]/) {
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.pl
To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1474366/+subscriptions
References