VPF::Опять регулярки - Форум программистов

engao

Дата 2.9.2004, 12:25 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Мне нужно разбить текст по правилу:
есть текст, длиной, скажем 100 символов (включая пробелы). Нужно выделить куски, скажем не больше 30 сомволами, но текст резать нужно по последнему проблу, который встретится в этих 30 символах

ElectricalStorm

Дата 2.9.2004, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 547
Регистрация: 22.1.2004

Репутация: нет
Всего: 9

Код


#!/usr/bin/perl -w

use Text::Wrap qw($columns &wrap);

$text = "Folding and splicing is the work of an editor, not a mere collection of silicon, and mobile electrons!";
$columns = 30;

print wrap("    ", "  ", $text), "\n";

Это сообщение отредактировал(а) ElectricalStorm - 2.9.2004, 13:43

--------------------

Нужно знать инструмент, которым пользуешься

Chuck

Дата 2.9.2004, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Сушня

Профиль
Группа: Эксперт
Сообщений: 442
Регистрация: 12.12.2003
Где: Узбекистан, Ташке нт

Репутация: нет
Всего: 9

Цитата

Код


#!/usr/bin/perl -w


use Text::Wrap qw($columns &wrap);

$text = "Folding and splicing is the work of an editor, not a mere collection of silicon, and mobile electrons!";
$columns = 30;

print wrap("    ", "  ", $text), "\n";

хм, не проверял, но как можно передавать переменную, а потом заносить значение?? помоему не так, а вот так!

Код



$columns = 30;
use Text::Wrap qw($columns &wrap);

$text = "Folding and splicing is the work of an editor, not a mere collection of silicon, and mobile electrons!";


print wrap("    ", "  ", $text), "\n";

Это сообщение отредактировал(а) Chuck - 2.9.2004, 20:54

ElectricalStorm

Дата 3.9.2004, 10:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 547
Регистрация: 22.1.2004

Репутация: нет
Всего: 9

Chuck Вы что где передача ???

РТФМ срочно !!!

--------------------

Нужно знать инструмент, которым пользуешься

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »