Доброго времени суток.
Помогите, пожалуйста, с регулярными выражениями.
С ними я сталкивался только для проверки является ли введеная строка в поле на форме почтовым ящиком, теперь нужно решить такую проблему.
имеется строка из тегов хед
<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>
<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>
Вот перл код, который не работает(
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 в
<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]+).*?>/Но как сделать так, чтобы то, что она ищет записывалось в переменные я не знаю
