VPF::Блок - Форум программистов

tolkien

Дата 25.5.2008, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

Репутация: 4
Всего: 4

Неприятное для себя сделал открытие. Конструкция вида label:{} некорректно работает. Ниже примеры.

Листинг 1

Код


@a = (4,5,6,1,2,3,1);

OUTER:while (@a > 0)
{
  print "while\n";

  INNER:
  {
    my $n = shift @a;
          
    if ($n == 1)
    {
      next OUTER;
    }

    print "inner n =$n\n";
    next INNER;
  }
}

Вывод

while
inner n =4
while
inner n =5
while
inner n =6
while
while
inner n =2
while
inner n =3
while

Если к метке добавить while, то работает правильно

Листинг 2

Код


@a = (4,5,6,1,2,3,1);

OUTER:while (@a > 0)
{
  print "while\n";

  INNER:while(1)
  {
    my $n = shift @a;
          
    if ($n == 1)
    {
      next OUTER;
    }

    print "inner n =$n\n";
    next INNER;
  }
}

Вывод:
while
inner n =4
inner n =5
inner n =6
while
inner n =2
inner n =3

nitr

Дата 25.5.2008, 16:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

tolkien, или я вашей задумки не понял, но вообще это разные "скрипты" и оба отработали, как должны были отработать, некорректности НЕТ. Если можете, то попытайтесь блок-схемами эти программы отобразить, увидите разницу smile

--------------------

I love ArchLinux

ginnie

Дата 25.5.2008, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

tolkien, nitr прав, все работает корректно. Возможно, Вы забыли, что блок {} эквивалентен однократному циклу for, поэтому при next INNER тело цикла повторно не выполняется.

Это сообщение отредактировал(а) ginnie - 25.5.2008, 16:51

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

tolkien

Дата 25.5.2008, 18:01 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

Репутация: 4
Всего: 4

Да признаю свою ошибку. Вылетело из головы что это фор выполняемый один раз. Надо вместо next INNER заменить на redo INNER или на goto INNER.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »