Вопрос по PERL

Andreika

21 августа 2007, 18:32

447

Программисты помогите!!!

Есть переменная в PERL, неопределенной длинны.(текст)

Как ее обрезать например до 50 символов?

Если совсем делать нечего, то обрезать не портя слова, и добавить " ..."

Заранее спасибо.

153

Dinozavr

21 августа 2007, 18:53


my $new_string = substr($old_string, 0, 50)."...";

а по теме: неужели нельзя было гуглом воспользоваться?

Andreika

21 августа 2007, 19:06

Вот спасибо.

Alexei42

21 августа 2007, 19:22

Вариант: $string =~s/^(.{50}).*/$1.../;

Настройка nginx и сопутствующего софта на freebsd/debian. Контакт через PM.