VPF::Как выйти из вложенных foreach - Форум программистов

Suppir

Дата 11.3.2012, 08:22 (ссылка)

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

Загрузка ...

Опытный

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

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

Как из вложенного foreach сделать "next" для внешнего?

Код


foreach $x(keys %a){
        
    foreach $i (keys %iskl){
        if ($x=~ /$i/){
            #как сделать next для внешнего foreach?
        }
    }
    
    if (! exists $b{$x}){
        print OU "$a{$x}\n"
    }
}

Добавлено через 2 минуты и 7 секунд
В некоторых языках программирования можно написать "next 2" - тогда осуществляется next для внешнего цикла.

vadiml

Дата 11.3.2012, 09:36 (ссылка)

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

Загрузка ...

Опытный

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

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

Вы документацию недочитали, раздел меток:

Код


EXT: foreach $x(keys %a){
        
    INT: foreach $i (keys %iskl){
        if ($x=~ /$i/){
            next EXT;
        }
    }
    
    if (! exists $b{$x}){
        print OU "$a{$x}\n"
    }
}

alezzz

Дата 11.3.2012, 09:58 (ссылка)

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

Загрузка ...

сплю...

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

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

а чем плох вариант без меток:

Код


foreach $x(keys %a){      
    foreach $i (keys %iskl){
        last if $x=~ /$i/;
    }    
    if (! exists $b{$x}){
        print OU "$a{$x}\n"
    }
}

vadiml

Дата 11.3.2012, 10:12 (ссылка)

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

Загрузка ...

Опытный

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

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

alezzz

В Вашем варианте выполнится 2й if,
для last надо код переписать

Suppir

Дата 11.3.2012, 10:16 (ссылка)

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

Загрузка ...

Опытный

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

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

vadiml
Метки - это ж вроде GOTO, считается плохим стилем smile

А без меток как-то можно реализовать?

alezzz
в этом случае last сработает для внутреннего блока. А мне нужно, чтобы дальнейшая обработка этого $x не проводилась, т.е. сделать next для внешнего блока.

Это сообщение отредактировал(а) Suppir - 11.3.2012, 10:17

vadiml

Дата 11.3.2012, 11:34 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Suppir

Плохой стиль -- это нерациональное использование goto, когда это ухудшает читаемость кода.

Если хотите описание что стоит делать, а что нет, найдите книгу Алена Голуба "Правила программирования" (есть скан в инете). Хоть там примеры на С, но всё описанное относится к большиству языков программирования.

> А без меток как-то можно реализовать?

Без изменения логики кода -- нет.
Посмотрите на блок continue.

Suppir

Дата 11.3.2012, 12:43 (ссылка)

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

Загрузка ...

Опытный

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

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

ok, спасибо.

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