П О Р Т А Л                            
С Е Т Е В Ы Х                          
П Р О Е К Т О В                        
  
Поиск по сайту:
                                                 
Главная

О проекте

Web-мастеру
     HTML & JavaScript
     SSI
     Perl
     PHP
     XML & XSLT
     Unix Shell

MySQL

Безопасность

Хостинг

Другое








Самое читаемое:

Учебник PHP - "Для Чайника".
Просмотров 176945 раз(а).

Иллюстрированный самоучитель по созданию сайтов.
Просмотров 74099 раз(а).

Учебник HTML.
Просмотров 73299 раз(а).

Руководство по PHP5.
Просмотров 44175 раз(а).

Хостинг через призму DNS.
Просмотров 50847 раз(а).

Подборка текстов стандартных документов.
Просмотров 44347 раз(а).

Учебник PHP - Самоучитель
Просмотров 50601 раз(а).

Документация на MySQL (учебник & справочное руководство)
Просмотров 51013 раз(а).

Внешние атаки...
Просмотров 41321 раз(а).

Учебник PHP.
Просмотров 36555 раз(а).

SSI в примерах.
Просмотров 27434 раз(а).



 
 
| Добавить в избранное | Сделать стартовой | Помощь




Глава 1: Введение.
1.5. Прогулка по стране Perl
1.5.7. Справедливость для всех

Итак, теперь я могу ввести Randal, randal или Randal L. Schwartz, но как быть с остальными? Барни должен вводить в точности barney (ему нельзя ввести даже пробел после barney).

Чтобы быть справедливыми по отношению к Барни, мы должны перед поиском имени в таблице взять первое слово из того, что введено, а затем заменить все его символы символами нижнего регистра. Это делается с помощью двух операций — операции подстановки, которая находит регулярное выражение и заменяет его строкой, и операции перевода, которая переводит символы этой строки в нижний регистр.

Сначала — операция подстановки: мы хотим взять содержимое переменной $name, найти первый специальный (не использующийся в словах) символ и убрать все символы, начиная с того места, где он стоит, и до конца строки. Искомое регулярное выражение имеет вид /\w.*/. Здесь \w обозначает специальный символ (т.е. все кроме буквы, цифры и знака подчеркивания), а .* обозначают любые символы с этого места до конца строки. Чтобы убрать эти символы, нужно взять ту часть строки, которая совпадает с рассматриваемым регулярным выражением, и заменить ее пустой строкой:

$name =~ s/\W.*//;

Однако GNU-версия утилиты egrep выполняет эту операцию гораздо быстрее, чем Perl.

Мы используем ту же операцию =~, что и раньше, но справа у нас теперь стоит операция подстановки — буква s, за которой следуют заключенные между двумя косыми регулярное выражение и строка. (Строка в данном примере — это пустая строка между второй и третьей косыми.) Эта операция выглядит и выполняется во многом так же, как операции подстановки в программах-редакторах.

Теперь для того, чтобы перевести все оставшиеся символы в нижний регистр, мы преобразуем эту строку с помощью операции tr*. Она очень похожа на UNIX-команду tr, т.е. получает список искомых символов и список символов, которыми искомые символы заменяются. В нашем примере мы, чтобы перевести содержимое переменной $name в нижний регистр, используем такую запись:

$name =~ tr/A-Z/a-z/;

Между косыми заключены списки искомых и заменяющих их символов. Дефис между буквами а и z обозначает все символы, находящиеся между ними, т.е. у нас есть два списка, в каждый из которых включено по 26 символов. Когда tr находит символ из какой-либо строки первого списка, он заменяется соответствующим символом из второго списка. В результате все прописные буквы А, В, С и т.д. становятся строчными**. Объединяя эти строки с остальной частью программы, получаем:'

* Символы с диакритическими знаками такому переводу не поддаются. Подробности см. на man-странице реrllосаlе(\) в версии языка Perl-5.004.

** Специалисты заметят ,что мы также могли написать нечто вроде /(\3*) .*/\L$1/, чтобы сделать все это за один присест, но специалисты, вероятно, не будут читать данный раздел.

#!/usr/bin/perl

%words = qw ( fred camel bamey llama betty alpaca wilma alpaca );

print "What is your name? ";
$name = <STDIN>;
chomp ($name);
$original_name = $name; # сохранить для приветствия 
$name =~ s/\W.*//; # избавиться от всех символов, следующих после первого слова
$name =~ tr/A-Z/a-z/; # перевести все в нижний регистр 

if ($name eq "randal") { # теперь можно так сравнить
  print "Hello, Randal! How good of you to be here!\n";

} else {
  print "Hello, $original_name! \n"; # обычное приветствие
  $secretword = $words($namel; # получить секретное слово 

  if ($secretword eq "") { # не найдено
    $secretword == "groucho"; # конечно, можно использовать
  }

  print "What is the secret word? ";
  $guess = <STDIN>;
  chomp ($guess);

  while ($guess ne $secretword) {
    print "Wrong, try again. What is the secret word? ";
    $guess = <STDIN>; 
    chomp ($guess);

Обратите внимание на то, что сопоставление с регулярным выражением для слова Randal вновь выполняется с помощью обычной операции сравнения. Дело втом, что и RandaL L. Schwartz, и Randal после подстановки и перевода превращаются в randal. Для всех остальных пользователей справедливо то же самое, потому что Fred и Fred Flinstone превращаются во fred; Barney Rubbie И Barney, the little guy — В barney И Т.Д.

Итак, благодаря всего нескольким операторам наша программа стала гораздо более дружелюбной. Вы увидите, что проведение сложных манипуляций со строками посредством всего лишь нескольких нажатий клавиш — одна из многих сильных сторон языка Perl.

Отметим, однако, что в процессе обработки имени (т.е. при его модификации, необходимой для проведения операции сравнения и поиска соответствия в таблице) первоначально введенное имя уничтожается. Поэтому перед обработкой имени программа сохраняет его в переменной $original_name. (Как и имена в С, имена переменных в Perl состоят из букв, цифр и знаков подчеркивания, причем длина их практически не ограничена.) Благодаря этому мы впоследствии сможет ссылаться на $original_name.

В Perl имеется много способов, позволяющих проводить анализ и изменение символов в строках. С большинством из них вы познакомитесь в главах 7 и 15.

Назад | Вперед
Содержание (общее) | Содержание раздела | Содержание подраздела



Если Вы не нашли что искали, то рекомендую воспользоваться поиском по сайту:
 





Copyright © 2005-2016 Project.Net.Ru