Перенос слов и горизонтальная прокрутка!

[Ardzhan]

Возник такой вопрос! Браузер переносит слова по пробелам. А если написать "одно длинное слово", то дизайн в гостевой книге будет испоганен, появится горизонтальная прокрутка! Как с этим можно бороться?

[Chs]

Как с этим можно бороться?

Делить длинные слова.
Либо просто ограничивая длину строки, либо учитывая переносы и т.д.

[Ardzhan]

А как их делить? Я на PHP где-то видел такую функцию. У перла есть аналоги?

[Ardzhan]

$text=wordwrap($text, 20, "\\n", 1); - это на пхп

[NeoNox]

use Text::Wrap

  $Text::Wrap::columns = 12;  
  $text1="eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee";
  print wrap(\'\', \'\', $text1);

выдает:
eeeeeeeeeee
eeeeeeeeeee
eeeeeeeeeee
eeeeeeeeeee
eeeeeeee

[Chs]

use Text::Wrap

Или по простому - регулярным выражением пройтись.

[NeoNox]

Или по простому

Ага! И главное никакой разницы - что в Perl что в PHP ...
Читайте доки по регэкспам бо они рулез!

[Ardzhan]

Спасибо.  А без подключения модуля? Извиняюсь за назойливость... может кто делал?

[Green Kakadu]

$text=~s/(\\S{30})/$1 /g;
все что длинее 30 символов порубит
другое дело, что могут быть проблемы со ссылками..

[ESE]

Альтернатива

#!/usr/bin/perl
print "Content-type: text/html\\n\\n";
$preform=10;#допустимое кол-во символов в строке
$text="http://my_domen.com/my_domen.com/my_domen.com/my_dome";
if (length($text)>$preform){&format_text}
print $text;

sub format_text {
@text=split(//,$text);$n=1;
foreach $text (@text){
$format_text="$format_text$text";
if ($n==$preform){$format_text="$format_text
";$n=0;}$n++}
$text=$format_text   }

[Green Kakadu]

$text="http://my_domen.com/my_domen.com/my_domen.com/my_dome";
if (length($text)>$preform){&format_text}

не подойдет, т.к. текст, по идее, будет содержать не одну лишь строку длиной в полкилометра, а много разных слов, и там символов может быть и более 10, например:
$text="domen.com вася убежал за угол, козел он!";

[Chs]

$text=~s/(\\S{30})/$1 /g;
все что длинее 30 символов порубит
другое дело, что могут быть проблемы со ссылками..

Убираем проблемы со ссылками:
s|([^ \\/\\\\]{30})|$1 |g;

[Боря Елкин]

Убираем проблемы со ссылками:
s|([^ \\/\\\\]{30})|$1 |g;

В принципе тоже не решение, можно и длинной ссылкой растянуть дизайн. Нужно делать как в этом форуме - ссылку укорачивать и вставлять в href.

Но это одним regexpом не сделать.

[Chs]

Но это одним regexpом не сделать.

Можно сделать, но сразу говорю, что писать его не буду.

[Green Kakadu]

Но это одним regexpом не сделать.

Можно сделать, но сразу говорю, что писать его не буду.

наверное лучше/проще двумя, например чуть лучший вариант:

1. режем все что вне тегов:
$text~=s/>([^><]{30})$1

2. уже это:
$text~=s|([^ \\/\\\\]{30})|$1 |g;

конечно возможен такой вариант баловства: