СОДЕРЖАНИЕ

Как создать свой сайт Создать сайт
Основы Интернет : FTP HTTP хостинг Вводный курс
Создание сайтов : создать сайт Создание сайтов
Статьи о хостинге : платный бесплатный выделенный сервер Unix Все о хостинге
Учебник HTML Учебник HTML
Учебник CSS Учебник CSS
Учебник CGI : cgi-программирование : методы GET и POST Учебник CGI
Учебник php Учебник PHP
Учебник perl Учебник Perl
Раскрутка сайта : оптимизация кода ключевые слова индекс цитирования регистрация в поисковиках Раскрутка сайта
Заработок на сайте Заработок на сайте
Платёжные системы : rupay webmoney Платежи в сети
книги литература по html css xml flash java Dreamweaver Нужные книги

 

заработок для вебмастера
Заработок для начинающего вебмастера!

 


создать сайт // учебник perl // метки в perl

Метки в Perl

Perl позволяет помечать блоки и некоторые операторы циклов (for или while). Для этого перед блоком или оператором помещают специальный идентификатор, который называется меткой, например:

MYBLOCK: {
}

Предыдущий блок помечен как MYBLOCK. Имена меток следуют тем же правлилам, что и имена переменных, за небольшим исключением: в отличии от имён переменных, метки не должны иметь символов наподобии %, $, @. Важно также, чтобі имена меток не совпадали с зарезервированніми словами Perl. Хорошим стилем является использование в именах меток только больших букв. Это позволит избежать конфликтов имен с настоящими и будущими слежебными словами Perl. Операторы for и while также могут быть помечены, например:

OUTER: while ($expr) {
        INNER: while ($expr) {
            операторы;
    }}

Метку можно указать в качестве аргумента в таких операторах, как last и next. Это позволяет досрочно завершить выполнение любого блока операторов.

Например нам надо найти все пары чисел меньше 100, произведение которых равно 140, например 2 и 70, 4 и 35 и т.д.

for ($i=0; $i<100; $i++) {
    for ($j=0; $j<100; $j++) {
        if ($i*$j == 140) {
        print "Произведение $i и $j равно 140\n";
        last;
}}}

Как только очередная пара найдена и выведена на экран, программа выходит из внутреннего цикла с итерацией по $j. При этом внешний цикл (с инкрементом $i) продолжает выполняться и снова запускает внутренний цикл. Конечно нахождение пар множителей делается крайне неэффективно, на нас интересует в основном использование оператора last.

А теперь представте, что нужно найти только первую пару множителей. Данную задачу можно решить так:

OUTER: for ($i=0; $i<100; $i++) {
        for ($j=0; $j<100; $j++) {
            if ($i*$j == 140) {
            print "Произведение $i и $j равно 140\n";
            last OUTER;
}}}

Теперь оператору last явно указан цикл, из которого нужно выйти, - это цикл, помеченный как OUTER. В результате данная программа напечатает только первую пару найденных ею множителей, произведение которых равно 140.

 



 

 

 

 

как создать свой сайт