Урезание названия продукта по целым словам, не по кол-ву символов

[Прохожий_]

Приветствую.
Я сделал tab delimited feed (тестовой файл, где вся инфа разделена табуляцией, предназначена для сабмита списка товара)

Так вот, в фиде название должно быть 55 символов.
Вот часть кода:

$this->data[$data['products_id']] = array ( 
'name' => substr($this->strip($data['products_name']), 0, 55),

Да, имя обрезается на 55 символов, но в основном обрезается по середине какого либо слова.

Хочу спросить спецов, каким образом обрезать на 55 символов или меньше, что бы слово, если оно попадает под урезание, обрезалось полностью?

Спасибо заранее.

[SergoZD]

Прохожий_
Делай проверку, если длина больше 55, то ищи последний пробел, лежащий в пределах от первого символа до 55-ого и выкидывай всё что после него (включая его), если там пробелов не существует, то обрезай по 55 символу.

PHP код:

if (strrpos(substr($this->strip($data['products_name']), 0, 55)), " ")
{
$this->data[$data['products_id']] = array ( 
'name' => substr($this->strip($data['products_name']), 0, strrpos(substr($this->strip($data['products_name']), 0, 55))), .......
}else{
$this->data[$data['products_id']] = array ( 
'name' => substr($this->strip($data['products_name']), 0, 55), .......
} 


Что-то типа того. Правда слишком громоздко как-то, но суть где-то такая.

[Прохожий_]

Sergo, спасибо.

Я сделал так:

PHP код:

'name' => preg_replace("~^(.{1,55})\b.*~", "\\1", $data['products_name']), 


[Goryn]

Вариант для Perl

my $lenm=55; # Максимальная длина текста
my $namefirst="Это первоначальное название продукта, которое нужно урезать";
my $nameshort=""; # Здесь будет урезанное имя
if (length($namefirst)<=$lenm ) {
 $nameshort=$namefirst;
}
else {
 $ml=substr($namefirst,0,$lenm);
 $ml=~ s/^(.+)(\s)(\S*)$/$1$2$3/;
 $nameshort=$1;
}

Код взят из древнего скрипта. Ща смотрю и мне кажется, что должно сработать и

$nameshort=substr($namefirst,0,$lenm);
$nameshort=~ s/^(.+)(\s)(\S*)$/$1/;