[ProGaMen]

Вопрос такой!

Из внешнего файла берятся инфа, пример

10.09.2003::Можем ли мы все заказать и купить, но без Вашей доставки?
11.09.2003::Здравствуйте. Хотим заказать ковровое покрытие (приблизительно 12 м2) для детского

:: - разделитель

и генериться страничка, необходимо, чтобы от строчки (которая после даты) выводилось только первые 50 (считая пробелы) символов. Примерно так это должно выглядеть:

10.09.2003
Можем ли мы все заказать и купить, но без Вашей до...

11.09.2003
Здравствуйте. Хотим заказать ковровое покрытие (п...

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

[KaDS]

На перле это есть так

$file="text.txt";
open(InFile, $file);
while ($line = <InFile>)
{ $text = split "::",$line;
if ((length @_[1])>50) {$res=substr @_[1],0,50 ;
$res.="...\n";}
else {$res=@_[1];}
print @_[0]."\n".$res;
}
close(InFile);


Вот, блин, и в перле начал разбираться...

[ProGaMen]

KaDS, Спасибо огромное за ответ!

Благодоря тебе модорнезировыал свой код.

Принцип тот же, но в свой обычный код добавил одну строчку

print substr($text,$_,200),"...\n" foreach ($text);

[kost]

Идея плохая - обрезать слова.

[ProGaMen]

А что ты предлагаешь? Мне необходимо всего лишь вывести на страничку анонс новостей. А сам текст новости может быть весьма большим.

Конечно можно не обрезать слова, а найти пробел после 200 символов и потом обрезать. Но честно говоря я не столь искушен в Perl, и наврятли смогу такое реализовать. Хотя ежели Вы поможете!

[KaDS]

Нет, ну почему. Можно бы и обрезать слова. Только оформить их как ссылку на текст новостей print "".$text."
". Кого заинтересует - откроет ссылку и прочитает полностью.

[ProGaMen]

Так у меня есть кнопка подробнее!

[KaDS]

Ну тем лутше. Будут вопросы - обращайся.

[ProGaMen]

O'K