perl script prints parts of strings in the wrong order
M. Fioretti
mfioretti at nexaima.net
Tue Aug 7 05:28:48 UTC 2018
hello,
I am trying to reuse an old perl script I wrote years ago, on an Ubuntu
16.-04LTS x86_64 box.
It behaves in a very odd way now, and I cannot figure out if it is the
code that is not
compatible with current versions of Perl, or if there is something VERY
strange happening
between the script, and the terminal it runs in.
The part of the script that works badly is this:
while (<INPUTFILE>) {
chomp;
my $LINE = $_;
many lines that "clean up" $LINE, removing certain substrings etc...
@F = split /:/, $LINE;
print "CURL:==> $F[0] ++ $CURLRES{$F[0]} ;;\n";
}
when I run it, SOME of the printed lines (say 1 every 30) have the
expected format:
CURL:==> string_a ++ string_b ;;
but all the others are like this:
;;L:==> string_c ++ string_d ;;
that is, the three initial "CUR" characters are replaced by " ;;"
It's as if something had pasted the last three characters over the first
three ones.
I have no idea what is going wrong, and why. Any help is appreciated,
TIA,
Marco
--
http://mfioretti.com
More information about the ubuntu-users
mailing list