Re^2: In search of a better way to trim string length

[Vennis]

in reply to Re: In search of a better way to trim string length
in thread In search of a better way to trim string

sub trimTo {
    my ($line, $length) = @_;
    $line=~s/([^ \s]{$length})([^ \s])/$1...\n$2/g;
    return $line;
}

Though only the first line is 30, and the rest is 31 chars, i think it's more or less doing what you search for ?
It also makes sure strings that are exact 30 length dont have dots added.

I just saw Jaspers solution, it's a bit different, i thought i post it anyway.

Addition:
Code isn't doing what was expected. Sorry Kiat :-)

[kiat]

Hm...yours doesn't produce the desired outputs.

Given the following inputs:

1) "thisisthelongesttopicthatwilleverbepostedinperlmonks"

2) "this is the longest topic that will ever be posted in perlmonks"

Desired outputs:

1a) thisisthelongesttopicthatwille ...

2a) this is the longest topic ...

Yours gave the following outputs:

1a) thisisthelongesttopicthatwille...
verbepostedinperlmonks

2a) this is the longest topic that will ever be posted in perlmonks

Did I miss something?

[Vennis]

Nope, you missed nothing, i missed something :-) Never mind that code then, i'll leave it in case somebody finds it either useful or inspiring.