разбивка длинной строки
От Nil A (2:5015/46) к Ruslan Suleimanov
В ответ на Заголовок предыдущего сообщения в треде (Имя Автора)
Hello, Ruslan!
Sunday August 28 2022 19:01, from Ruslan Suleimanov -> All:
RS> Тут задачка появилась, и никак не могу понять как..
Гугл же есть.
RS> Задача: есть длинная строка неизвестной длинны, необходимо ее разбить
RS> по 75 символов в строки, сколько строк может в итоге выйти из одной
RS> длинной строки неизвестно, также неизвестно сколько символов в длинной
RS> строке может быть, но должна быть разбивка на много строк не больше 75
RS> в каждой строке.
https://perlmaven.com/break-lines-with-max-width
=== BEGIN ===
use strict;
use warnings;
use 5.010;
my $text = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.";
my $max = 40;
while ($text) {
if (length $text <= $max) {
say $text;
last;
}
my $prefix = substr $text, 0, $max;
my $loc = rindex $prefix, ' ';
if ($loc == -1) {
die "We found a word which is longer than $max\n";
}
my $str = substr $text, 0, $loc, '';
say $str;
substr $text, 0, 1, '';
}
=== END ===
Но, говорят можно заюзать готовый Text::Wrap
=== BEGIN ===
use strict;
use warnings;
use 5.010;
my $text = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.";
use Text::Wrap qw(wrap);
local $Text::Wrap::columns = $max;
say wrap('', '', $text);
=== END ===
Best Regards, Nil
--- GoldED+/LNX 1.1.5
* Origin: Linux 2.6.32-042stab145.3 (2:5015/46)
Ответы на это письмо:
From: Username
Заголовок следующего сообщения в треде может быть длинным и его придется перенести на новую строку
From: Username
Или коротким