Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Хранение данных из регекспа  (Прочитано 10526 раз)
0 Пользователей и 1 Гость смотрят эту тему.
webserfer
Интересующийся

ru
Offline Offline

« : 30-08-2010 11:52 » 

В коде
Код:
#!/usr/bin/perl -w

my $test = <<EOF;# тут храниться фрагмент всяких данных
bla bla bla
EOF

$test =; # вытаскиваю первым регекспом кусок кода

$test =; # вытаскивая второй кусок кода

$rez = $1.$1; # соединяю два фрагмента в один

print $rez;

Помогите, почему не работает код?
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 30-08-2010 12:07 » 

у меня работает.
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 30-08-2010 14:05 » 

webserfer, если бы не комментарии, то это был бы крайне загадочный код. Что ты пытаешься сказать выражением "$1.$1"?
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
webserfer
Интересующийся

ru
Offline Offline

« Ответ #3 : 30-08-2010 16:43 » 

Ну, вообще - то смысл такой, первый регексп вытаскивает определенный кусок из текста, второй регексп также вытаскивает отпределенную часть из ЭТОГО же текста, а в результате должно произойти сложение частей, т.е.
Код:
#!/usr/bin/perl -w

my $test = <<EOF;# тут храниться фрагмент всяких данных
http://google.ru/
search
EOF

$test =; # вытаскиваю http://google.ru
$test =; # вытаскиваю search

$rez = $1.$1; # соединяю два фрагмента в один и получаю http://google.ru/search

print $rez;
Выражением $1.$1 я пытаюсь сказать перлу, чтобы фрагмент кода, выделенный первым регекспом присоединился ко второму фрагменту, выделенному регекспом номер два.
« Последнее редактирование: 30-08-2010 20:07 от webserfer » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #4 : 31-08-2010 12:36 » 

Скажи, чем отличается первый "$1" от второго "$1"?
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
webserfer
Интересующийся

ru
Offline Offline

« Ответ #5 : 31-08-2010 16:47 » 

Тем, что в первом храняться данные первого рег. выражения, а второй - второго... Разве нет? Это в теории, а как показать в коде, я что то не могу додуматься Улыбаюсь
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #6 : 31-08-2010 17:27 » 

Не хочу тебя расстраивать, но твоя теория взята с потолка и притянута за уши. Иными словами, ты не только Перл не знаешь, но и программирование вообще. Рекомендую начать изучение с самых азов.
А чтобы закрыть тему и не травмировать наши мозги, привожу код:

Код:
#!/usr/bin/perl -W

use strict; # Рекомендую всегда включать.

my ($test, $result1, $result2); # Хорошим тоном будет объявлять переменные в начале блока.

$test = << EOF;
http://google.ru/
search
EOF

$test =~ m%^(http://(?:[-0-9a-z]+)(?:\.[-0-9a-z]+)+/)$%im;
$result1 = $1;

$test =~ m%^(.......)$%im; # Понятия не имею, каким выражением ты будешь вытаскивать строку search.
$result2 = $1;

print $result1, $result2, "\n";

А вообще, подход к обработки такого текста не верный.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
webserfer
Интересующийся

ru
Offline Offline

« Ответ #7 : 31-08-2010 17:53 » 

Спасибо, можете закрывать тему.
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #8 : 31-08-2010 19:08 » new

RXL, сдался.... Улыбаюсь Я бы все же выдержал клиента Улыбаюсь Жаль
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines