Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Не получили
письмо с кодом активации
?
1 час
1 день
1 неделя
1 месяц
Навсегда
Новости:
Начало
Помощь
Поиск
Календарь
Вход
Регистрация
Forum Webscript.Ru
»
Программирование
»
Perl
»
как после 80 символов вставить перевод каретки?
« предыдущая тема
следующая тема »
Печать
Страницы: [
1
]
Вниз
Автор
Тема: как после 80 символов вставить перевод каретки? (Прочитано 3280 раз)
0 Пользователей и 1 Гость просматривают эту тему.
Yuraz
Фанат форума
Постоялец
Сообщений: 111
+0/-0
0
как после 80 символов вставить перевод каретки?
«
:
09 Декабря 2002, 18:33:21 »
Знатоки, помогите советом, есть переменная, необходимо её "порезать" на 80 символов в строке, или, если можно, усложню задачу, по границе слова, не вмещающего за 80-ти символьный рубеж.
Записан
YA
Модератор
Глобальный модератор
Ветеран
Сообщений: 597
+0/-0
0
как после 80 символов вставить перевод каретки?
«
Ответ #1 :
09 Декабря 2002, 23:18:22 »
push @str,$1 while $text=~s/\\s+(.{1,80})\\s+//;
Записан
Литературный перевод с русского и английского на Perl. Дорого!
Yuraz
Фанат форума
Постоялец
Сообщений: 111
+0/-0
0
как после 80 символов вставить перевод каретки?
«
Ответ #2 :
10 Декабря 2002, 02:19:24 »
ух, ты, спасибо
YA
, сейчас испытаю.
Записан
Ardzhan
Фанат форума
Постоялец
Сообщений: 205
+0/-0
0
как после 80 символов вставить перевод каретки?
«
Ответ #3 :
10 Декабря 2002, 13:54:57 »
$text=~s/(\\S{80})/$1 /g; - вставит пробел. Я так понимаю, что тебе надо избежать горизонтальной прокрутки в гостевой(форуме итд), а браузер переносит по пробелам.
«
Последнее редактирование: 10 Декабря 2002, 15:05:28 от Ardzhan
»
Записан
YA
Модератор
Глобальный модератор
Ветеран
Сообщений: 597
+0/-0
0
как после 80 символов вставить перевод каретки?
«
Ответ #4 :
10 Декабря 2002, 15:27:06 »
[OFF]
Ardzhan
, вопрос предполагал более корректное решение задачи (см. выше).[/OFF]
Записан
Литературный перевод с русского и английского на Perl. Дорого!
YA
Модератор
Глобальный модератор
Ветеран
Сообщений: 597
+0/-0
0
как после 80 символов вставить перевод каретки?
«
Ответ #5 :
10 Декабря 2002, 17:15:11 »
Поправлю сам себя. Во-первых, немного перемудрил: естественно, никой push здесь не нужен. А во-вторых стоит добавить "\\S" чтобы исключить возможный захват пробелов в конце - немного корректнее будет.
@str=$text=~/\\s+(.{1,79}\\S)\\s+/g;
Кстати, "слова" длиннее 80 символов просто будут выкидываться. Если это плохо, скажи - поправим
Записан
Литературный перевод с русского и английского на Perl. Дорого!
Печать
Страницы: [
1
]
Вверх
« предыдущая тема
следующая тема »
Forum Webscript.Ru
»
Программирование
»
Perl
»
как после 80 символов вставить перевод каретки?
Sitemap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28