Perl, считать символы и разбивать в конце слова

Question

Я пытаюсь разбить на 300 символов, что вполне нормально, но я не хочу, чтобы оно разрывалось в середине слова. Я хотел бы найти конец слова или следующий доступный пробел. Буду признателен за любую помощь.

foreach (@$comp) {
    my $c = $_;
    $c->{reviews} = ($c->{reviews} - 1);
    my $stars;
    if($c->{reviews} == 0) {
        $stars = 0;
    } else {
        $stars = int($c->{reviews_total} / $c->{reviews});
    } 
    $c->{stars} = $stars; 

    if($c->{title}) { 
        $c->{name} = $c->{title}; 
        $c->{event} = "FOO"; 
    }
    $c->{description} =~ s/BREAK//g; 

    my (@desc) = split(//, $c->{description});   

    my $adesc;
    my $rowc = 0;
    my $count = 0;

    while($count < 300 ) {
         $adesc .= @desc[$count];
         $rowc++;
         $count++;
    }

    $c->{description} = $adesc;= '...';
}

Answer 1

Посмотрим, что скажет perldoc perlfaq4:

Как переформатировать абзац?

Используйте Text::Wrap (часть стандартного дистрибутива Perl):

use Text::Wrap;
print wrap("\t", '  ', @paragraphs);

абзацы, которые вы передаете Text::Wrap, не должны содержать вложенных переводы строк. Text::Wrap не выравнивает строки (справа налево).

---

Но что, если вам это не нравится?

Визит CPAN

• Text::Wrap::Smart

  use Text::Wrap::Smart 'wrap_smart';
  use feature 'say';
  
  my $text = 'lorem ipsum dolor sit amet' x 500;
  
  my $options = { 
                  no_split     => 1,   # Activates 'fuzzy matching'
                  max_msg_size => 300,
                };
  
  say for wrap_smart( $text, $options );
  

• Text::Flow::Wrap

• Text::Reform

• Unicode::LineBreak

Answer 2

Как насчет:

my $str = q!A very long string to be wrapped on whitespace!;
my $len = 15; #for test. In your case, let $len=300
my @l = grep{s/^\s+//;$_ ne ''}split(/(.{1,$len})(?=\s)/, $str);
dump@l;

Вывод:

("A very long", "string to be", "wrapped on", "whitespace")

Answer 3

perl -nwE 'say for m/(.{0,75} )/g' textsample2.txt
HAMLET: To be, or not to be--that is the question: Whether 'tis nobler in
the mind to suffer The slings and arrows of outrageous fortune Or to take
...

Работает как шарм. Если в вашем тексте нет очень длинных слов, просто подправьте цифры.

Конечно, сначала вам придется удалить все старые разрывы строк. Итак, что-то вроде:

sub wrap_text {
    my ($text, $len) = @_;
    $text =~ s/[\r\n]+//g;  # yeah, removing \r while at it
    return ( $text =~ m/(.{0,$len} )/g );
}

А потом:

say for wrap_text($text, 300);

Answer 4

Вы можете использовать:

$str = "my big string blah blah...";
for ( $i = 300; substr( $x, $i, 1 ) =~ /\w/; $i++ ) { };
$str = substr( $str, 0, $i );