У меня есть ситуация, когда мне нужно прочитать файл, полный цифр в Perl.Само по себе это прекрасно работает, но когда я пытаюсь сжать каждую строку, это превращает числа, которые раньше были 5 или 6 цифрами, в 1 или 0.
Идеи?
Мне нужно сжать числа, чтобы собрать с ними пути к файлам, поэтому возврат каретки является проблемой.