[Perl] разбиение текста с длинными строками на фиксированные параграфы (perl text example script convert)
Ключевые слова: perl, text, example, script, convert, (найти похожие документы)
Date: Wed, 22 May 2002 00:25:01 +0400
From: Alan Long <Alan.Long@p72.f1082.n5030.z2.fidonet.org>
Newsgroups: fido7.ru.perl
Subject: [Perl] разбиение текста с длинными строками на фиксированные параграфы
AL> Я решал подобную проблему, только мне приходилось резать на куски по
AL> 250 символов ;-) Решил с помощью Text::Wrap.
RP> покажи плиз скpиптик
- 8<- -
use Text::Wrap qw(wrap $columns);
my $MaxLen = 251;
#....
$columns = $MaxLen - 7;
my @parts = wrap( '', '', $text );
$parts[0] .= '...';
$parts[$#parts] = '...' . $parts[$#parts];
if( $#parts > 2 ) {
for( my $i = 1; $i < $#parts; $i++ ) {
$parts[$i] = '...' . $parts[$i] . '...';
}
}
foreach ( @parts ) {
send_message( $_ );
}
- 8<- -
В твоем случае $MaxLen изменить на 160 или на 161...
From: OpenNet
Пример кода для резанья текста для почтовой рассылки:
$formated_text = mc_line_wrap("Большая большая строка", 80);
sub mc_line_wrap {
my ($raw_text, $max_lines)=@_;
my ($wrap_text, $line, $word, $tmp_line, $tmp_p_line);
my ($max_lines);
949 Прочтений • [[Perl] разбиение текста с длинными строками на фиксированные параграфы (perl text example script convert)] [08.05.2012] [Комментариев: 0]
Vova
