Синтаксис регулярных выражений

В Perl'е регулярные выражения (образцы, шаблоны) помещаются в слэши, например, в виде /pattern/.   Следующий фрагмент программы иллюстрирует регулярные выражения языка Perl:

# эти регулярные выражения возвращают значение "истина", если:
/ig/                 # строка содержит 'ig'
/(b|d|f)ig/          # строка содержит 'big', 'dig' или 'fig'
/[0-9]+/             # строка содержит цифры
/[A-Za-a0-9]{6, 9}/  # строка содержит от 6 до 9 букв или цифр

Использование регулярных выражений для поиска по ключевым словам

        if ($str=~/pattern/)
          {  БЛОК
          }

        if ($str=~/Perl/)
          {  print "Строка содержит слово Perl.\n";
          }
        else
          {  print "Слово Perl в строке отсутствует.\n";
          }

Но решение такой проблемы не должно вызвать у Вас затруднений.   Достаточно взглянуть на приведенный ранее список специальных символов и сразу станет ясно, что нам необходим символ, обозначающий границу слова - т. е. '\b'.

Теперь проверка будет выглядеть так:

        if ($str=~/\bPerl\b/)

Использование регулярных выражений для анализа входных данных

Используя символы группировки () внутри регулярного выражения, скрипт может извлечь соответствующие образцу значения из строки и сформировать из них список.   Например, следующий фрагмент программы использует регулярные выражения для того, чтобы извлечь месяцы, дни и годы из строки:

        $str="Сентябрь 27, 2000";
        ($m, $d, $y) = $str=~/\s*(\S*)\s+(\d+)\D+(\d{4})/;

Теперь вернемся к самому выражению. В этом случае можно прочитать регулярные выражения следующим образом:

Perl поддерживает также другую форму сравнения с образцом, использующую оператор, который добавляет отрицание результата: !~.   Этот оператор эквивалентен выражению:

        !($str=~/pattern/).

Регулярные выражения для поиска и замены строк

        $str=~s/PATTERN/REPLACEMENT/;

        $str=~s/\bcolour\b/color/;

        $str=~s/\bcolour\b/color/g;

Оператор s/PATTERN/REPLACEMENT/egimosx производит поиск строки, соответствующей шаблону PATTERN и если строка найдена, то подставляет на ее место текст REPLACEMENT.   При этом возвращается количество произведенных подстановок.   Если перед этим оператором не использовался оператор =~ или !~ для определения переменной, которая будет обрабатываться, то будет модифицироваться переменная $_.

Этот оператор используется со следующими опциями:

Символ	Описание
e	интерпретирует правую часть как выражение;
g	производит подстановку на место каждой строки, соответствующей шаблону (глобальный поиск);
i	производит поиск, без различия регистра букв;
m	обрабатывает строку, как многострочную (содержащую символы перевода строки);
o	происходит подстановка только на место первой встреченной строки;
s	обрабатывает строку, как состоящую только из одной строки;
x	использует расширенные регулярные выражения.

Для замены множества символов в строке поиска используются следующие операторы:

Они заменяют все найденные символы из множества символов SEARCHLIST на соответствующие символы из множества символов REPLACEMENTLIST.   Возвращает число символов, которые были заменены или удалены.   Если посредством операторов =~ или !~ не была указана никакая строка, то обрабатывается переменная $_.   Оператор y является синонимом tr. Если SEARCHLIST заключен в скобки, то REPLACEMENTLIST тоже заключается в скобки, которые могут отличаться от тех, в которые заключается шаблон, например:

        tr[A-Z][a-z]
        tr(+-*/)/ABCD/

На сегодня все. Удачных Вам поисков и замен.

И здесь есть несколько путей. Первое, что приходит в голову - это сохранить информацию в файл, для последующего ее использования. Кроме этого можно на основе полученных данных создать новый HTML-документ и отправить его обратно клиенту, приславшему запрос. А можно сделать еще что-нибудь. Тут все зависит только от Вашей фантазии, ну и естественно от необходимости.

Сегодня мы рассмотрим несколько простых примеров того, что можно сделать с полученными данными. Обратите внимание, что мы не предпринимаем попыток проверить правильность содержимого полей. Хотя в реальных скриптах это является желательным, а иногда и необходимым действием.

Для начала напишем небольшую HTML-страничку, которая будет предлагать пользователю ввести свои фамилию, имя, отчество, возраст и телефон:

<html>

<head>
  <title>Ввод данных формы</title>
</head>

<body>
<form action="http://www.domain.ru/cgi-bin/register.cgi" method=post>
  <div align="center">
    <h2>Регистрация</h2>
    Заполнить, пожалуйста, все расположенные ниже поля<br>
    <p>
    <table border=0 align="center">
      <tr>
        <td width=100>Фамилия</td>
        <td width=300>
          <input type="text" name="SecName" size=40 maxlength=40>
        </td>
      </tr>
      <tr>
        <td width=100>Имя</td>
        <td width=300>
          <input type="text" name="FirstName" size=40 maxlength=40>
        </td>
      </tr>
      <tr>
        <td width=100>Отчество</td>
        <td width=300>
          <input type="text" name="MiddName" size=40 maxlength=40>
        </td>
      </tr>
      <tr>
        <td width=100>Возраст</td>
        <td width=300>
          <input type="text" name="Age" size=40 maxlength=40>
        </td>
      </tr>
      <tr>
        <td width=100>Телефон</td>
        <td width=300>
          <input type="text" name="Phone" size=40 maxlength=40>
        </td>
      </tr>
    </table>
    <p>
    <input type="reset" value="Очистить">
    <input type="submit" value="Отправить">
  </div>
</form>
</body>

</html>

Запись в файлы

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

Обратите внимание: функция close должна располагаться как можно ближе к последней функции записи в файл. Это обусловлено тем, что web-сервер выполняется в многопользовательской среде, и скрипт может запускаться одновременно несколькими пользователями. При открытии файла на запись он (файл) блокируется и другие экземпляры скрипта не смогут его открыть, что вызовет задержку в выполнении запроса.

Запись в существующий файл проста, когда Вы хотите добавить новую информацию в конец файла. Например, для добавления данных о новом пользователе в файл Вам потребуется следующий фрагмент кода:

     # Определяем переменную, содержащую путь к лог-файлу
$LOG_DIR='/home/name/public_html/data/config/';

     # Определяем переменную, содержащую имя лог-файла
$LOG_FILE='register.log';

     # Создадим полный путь к лог-файлу
$FullPath=$LOG_DIR.$LOG_FILE;

     # Открываем файл, используя идентификатор LOGF
if (!open(LOGF, ">>$FullPath"))     # Открываем для добавления
  {  $mess="Невозможно открыть файл \"$LOG_FILE\" ($!).";
     &Error($mess);      # Вызов подпрограммы обработки ошибки
  }
else
  {  $newlines="Фамилия: ".$FORM{SecName}."\n";
     $newlines.="Имя: ".$FORM{FirstName}."\n";
     $newlines.="Отчество: ".$FORM{MiddName}."\n";
     $newlines.="Возраст: ".$FORM{Age}."\n";
     $newlines.="Телефон: ".$FORM{Phone}."\n";
     print LOGF "---------- New User ----------\n";
     print LOGF $newlines;
     close (LOGF);
  }

Создание web-страниц "на лету"

print <<END_HTML;
Content-type: text/html

<html>

<head>
  <title>CGI-генерированная форма</title>
</head>

<body>
<div align="center">
  <h2>Регистрация завершена</h2>
  <p>Поздравляем Вас, $FORM{FirstName} $FORM{MiddName}, с удачной регистрацией.
</div>
</body>

</html>
END_HTML

Обратите внимание на строку "Content-type: text/html". Эта строка содержит информацию о типе возвращаемых данных. Пустая строка после нее при этом обязательна. Она отделяет заголовок типа от самого HTML-документа. Эта страница будет возвращена пользователю почти сразу после нажатия им кнопки Submit.

Учтите, что это всего лишь один из многих примеров того, какой может быть страница "на лету". В принципе Вы можете формировать HTML документ любой формы и содержания.

Отправка данных по e-mail

$to="admin\@domain.ru";
open (MAIL, "|/usr/bin/sendmail -t");
print MAIL "From: Web-сервер\n";
print MAIL "To: $to\n";
print MAIL "Subject: Новый пользователь";
print MAIL "Content-Type: text/plain; charset=Windows-1251\n";
print MAIL "Кто-то воспользовался формой регистрации.";
print MAIL "Вот что он ввел:";
print MAIL "Фамилия: ",$FORM{'SecName'},"\n";
print MAIL "Имя: ",$FORM{'FirstName'},"\n";
print MAIL "Отчество: ",$FORM{'MiddName'},"\n";
print MAIL "Возраст: ",$FORM{'Age'},"\n";
print MAIL "Телефон: ",$FORM{'Phone'},"\n";
close (MAIL);

А теперь полный текст скрипта register.cgi

#!/usr/bin/perl

$LOG_DIR='#/home/name/public_html/data/config/';
$LOG_FILE='register.log';

%FORM=();
$mess='';

($result, $mess)=&GetFormInput;   # произвели разбор запроса
&Error($mess) if ($result==0);    # если неудачно - сообщение

     # Сохраним данные пользователя в лог-файле
$FullPath=$LOG_DIR.$LOG_FILE;
if (!open(LOGF, ">>$FullPath"))   # Открываем для добавления
  {  $mess="Невозможно открыть файл \"$LOG_FILE\" ($!).";
     &Error($mess);
  }
else
  {  $newlines="Фамилия: ".$FORM{SecName}."\n";
     $newlines.="Имя: ".$FORM{FirstName}."\n";
     $newlines.="Отчество: ".$FORM{MiddName}."\n";
     $newlines.="Возраст: ".$FORM{Age}."\n";
     $newlines.="Телефон: ".$FORM{Phone}."\n";
     print LOGF "---------- New User ----------\n";
     print LOGF $newlines;
     close (LOGF);
  }

     # Сгенерируем ответ
print <<END_HTML;
Content-type: text/html

<html>

<head>
  <title>CGI-генерированная форма</title>
</head>

<body>
<div align="center">
  <h2>Регистрация завершена</h2>
  <p>Поздравляем Вас, $FORM{FirstName} $FORM{MiddName}, с удачной регистрацией.
</div>
</body>

</html>
END_HTML

     # Отправим письмо администратору
$to="admin\@domain.ru";
open (MAIL, "|/usr/bin/sendmail -t");
print MAIL "From: Web-сервер\n";
print MAIL "To: $to\n";
print MAIL "Subject: Новый пользователь";
print MAIL "Content-Type: text/plain; charset=Windows-1251\n";
print MAIL "Кто-то воспользовался формой регистрации.";
print MAIL "Вот что он ввел:";
print MAIL "Фамилия: ",$FORM{'SecName'},"\n";
print MAIL "Имя: ",$FORM{'FirstName'},"\n";
print MAIL "Отчество: ",$FORM{'MiddName'},"\n";
print MAIL "Возраст: ",$FORM{'Age'},"\n";
print MAIL "Телефон: ",$FORM{'Phone'},"\n";
close (MAIL);

          # Подпрограммы

     # Подпрограмма вывода сообщения об ошибке
sub Error
{  local($message)=$_[0];

   print "Content-type: text/html\n\n";
   print "<HTML>\n";
   print "<HEAD><TITLE>Error Page</TITLE></HEAD>\n";
   print "<BODY>\n";
   print "<B>$message</B>\n";
   print "</BODY>\n";
   print "</HTML>\n";
   exit 0;
}

     # Подпрограмма разбора входного запроса
sub GetFormInput
{  local($name, $value, $buffer, $err, $pair, @pairs);

   $err="Разбор запроса завершен.";
   if ($ENV{'REQUEST_METHOD'} eq 'GET')
     {  @pairs=split(/&/, $ENV{'QUERY_STRING'});
     }
   elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
     {  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
        @pairs=split(/&/, $buffer);
     }
   else
     {  $err="Метод запроса не опознан.  Используйте GET или POST.";
        return(0, $err);
     }
   foreach $pair (@pairs)
     {  ($name, $value)=split(/=/, $pair);
        $value=~tr/+/ /;
        $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/ge;
        $FORM{$name}=$value;
     }
   return(1, $err);
}

Дорогие подписчики! Если Вы еще не заглядывали на сайт наших друзей "InfoCity - виртуальный город компьютерной документации" (http://www.infocity.kiev.ua), то Вам обязательно стоит там побывать.

Очень грамотно организованный сервер компьютерной документации.   Не пугайтесь титульного листа и ныряйте внутрь.   Количество книжек в электронном виде потрясает и радует.

Здесь Вы можете сразу и подписаться на регулярные новости библиотеки.   Для этого просто вставьте Ваш e-mail в соответствующее поле, ну и конечно же не забудьте нажать на кнопочку "OK", и все. :-))

Адрес рассылки "Новости компьютерной библиотеки InfoCity" в Каталоге subscribe.ru: http://subscribe.ru/catalog/comp.paper.infocity/

Архив рассылки "Новости компьютерной библиотеки InfoCity" находится на subscribe.ru по адресу: http://subscribe.ru/archive/comp.paper.infocity/

Домашняя страница этой рассылки в Каталоге subscribe.ru: http://subscribe.ru/catalog/comp.soft.prog.perlprog/, здесь же Вы можете и подписаться на данную рассылку.

Архив этой рассылки находится на subscribe.ru по адресу: http://subscribe.ru/archive/comp.soft.prog.perlprog/

Данная рассылка распространяется только через subscribe.ru.

Если Вам понравилась эта рассылка, и Вы считаете, что она может быть полезна и другим, то отправьте ее своим друзьям.

Ну, на этом позвольте на сегодня закончить.   До новых встреч.

При подготовке данной рассылки были использованы следующие материалы:

1. "Спецификация языка Perl"     Алена Федосеева
2. "Введение в Perl" Андрей Новиков


P. S.   Кстати буквально несколько дней назад, а именно 27.09.2000 исполнился ровно один месяц с момента открытия рассылки, с чем я Вас всех, ну и себя заодно поздравляю.