История изменений
Исправление
berrywizard,
(текущая версия)
:
perl -n -e 'my ($hi, $lo) = (/(\d+)\.(\d+)/); $lo = substr($lo . "0000000", 0, 6); print "$hi$lo\n";' < dataПодразумевается, что data состоит только из строчек с числами, обязательно с точкой.
Исходная версия
berrywizard,
:
perl -e 'my ($hi, $lo) = (/(\d+)\.(\d+)/); $lo = substr($lo . "0000000", 0, 6); print "$hi$lo\n";' < dataПодразумевается, что data состоит только из строчек с числами, обязательно с точкой.