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

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

ru
Offline Offline

« : 20-12-2013 05:48 » 

Доброго времени суток.

Помогите, пожалуйста, с регулярными выражениями.
С ними я сталкивался только для проверки является ли введеная строка в поле на форме почтовым ящиком, теперь нужно решить такую проблему.
имеется строка из тегов хед

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

Нужно значения Content-Type, text/html, windows-1251 сохранить в переменные для дальнейшего использования с помощью регулярных выражений на Перле.
Т.е., чтобы, например, переменная $x была равна ''Content-Type", $y была равна 'text/html', f $z - 'windows-1251'


Буду очень признателен ответившим.
Заранее спасибо!

Добавлено через 2 минуты и 23 секунды:
Вот что я сделал сам.
почему-то не работает(((
Значит, имеется htmlka. Вот такая 1.html:
Код: (HTML)
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
  <meta http-equiv="expires" content="Wed, 25 Feb 2014 08:21:57 GMT">
</head>
<body>
  <p>vacuum</p>
</body>
</html>
Вот перл код, который не работает(
Код: (Perl 6)
open FILE, '1.html';
while (defined (my $file_line = <FILE>))
{
  print $file_line;
  # значением $ct должна быть строка, например, Content-Type
  $ct = $file_line =~ m{<meta http-equiv="(.*?)"content}sx;
  # значением $th должна быть строка, например, text/html
  $th = $file_line =~ m{content=""(.*?)";charset=}sx;
  # значением $chst должна быть строка, например, windows-1251
  $chst = $file_line =~ m{charset=(.*?)"
;">}sx;
  # значением $expr должна быть строка, например, Wed, 25 Feb 2014 08:21:57 GMT
  $expr = $file_line =~ m{<meta http-equiv="
expires" content="(.*?)";">}sx;
}
print $ct;
close FILE;

Код выводит только исходный код странички((
А нужно выдрать значения из метатегов в переменные.
Помогите, пожалуйста!

Добавлено через 1 час, 34 минуты и 57 секунд:
Вот, вроде бы регулярка, ищущая то, что мне нужно, кроме Wed, 25 Feb 2014 08:21:57 GMT в
Код: (HTML)
<meta http-equiv="expires" content="Wed, 25 Feb 2014 08:21:57 GMT">

Регулярка:
/equiv=.*?(Content-Type).*content=.*?([a-zA-Z\/]+).*charset.*?([a-zA-Z\-\d]+).*?>/

Но как сделать так, чтобы то, что она ищет записывалось в переменные я не знаю
« Последнее редактирование: 20-12-2013 07:25 от denchabaev » Записан
Dimka
Деятель
Команда клуба

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

« Ответ #1 : 20-12-2013 10:12 » 

denchabaev, найденные группы сохраняются в специальных переменных. Если я правильно помню, это $1, $2, ...
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
RXL
Технический
Администратор

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

WWW
« Ответ #2 : 20-12-2013 14:20 » new

denchabaev, зачем тебе модификатор "x"?

Цитата
Код: (Perl)
  $ct = $file_line =~ m{<meta http-equiv="(.*?)"content}sx;
  # значением $th должна быть строка, например, text/html
  $th = $file_line =~ m{content=""(.*?)";charset=}sx;

Читаем man perlop, ищем там "Regexp Quote-Like Operators". Подсказка (но ман прочитать все равно рекомендую): оператор m// в скалярном контексте возвращает логическое значение, для захвата подобным способом нужно использовать списковый контекст.

И смотри свои PCRE на предмет ошибок.
« Последнее редактирование: 20-12-2013 21:54 от RXL » Записан

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

Хз, я не очень просто не очень во всё это верю, во всякие там сатурны и прочую поебень.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines