VPF::Нужно найти дубликаты в двумерном массиве

burakov

Дата 14.8.2009, 13:13 (ссылка)

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

Загрузка ...

Опытный

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

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

огромное спасибо за ответы
буду разбираться...
последний вопрос про массивы второго уровня...

разобрал текстовый файл в двухуровневый массив

Код


open (FILE2, $workdir.'/'.$file) or die; 

my @array1 = (); my $array2 = ();
while (my $str = <FILE2>) {
    if ($str !~ /^\*/) {
        push (@$array2, $str); 
    } else {
        push (    @array1, $array2); 
        $array2 = ();
    }
}
close (FILE2);

и вот так вот проход по массиву работает

Код


foreach my $e1 (@array1) {
    foreach my $e2 (@$e1) {
        print $e2;
    }
}

а вот так вот нет (выводит первые строки файла < 20 и прекращает работу)

Код


my $a = 0;
foreach my $e1 (@array1) {
    while (my $e2 = @$e1[$a]) {
            print $e2;
        $a++;
    }
}

массив без дырок (в текстовом файле даже пустых строк нет, хотя "\n" - это же тоже нормально?)
однако во втором варианте не работает .... почему?

Спасибо.

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

Нотный архив http://libnote.ru скачать ноты бесплатно

ginnie

Дата 14.8.2009, 13:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

burakov, а если так

Код


foreach my $e1 (@array1) {
    my $a = 0;
    while (my $e2 = $e1->[$a]) {
        print $e2;
        $a++;
    }
}

Это сообщение отредактировал(а) ginnie - 14.8.2009, 13:48

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

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

burakov

Дата 14.8.2009, 14:17 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


open (FILE2, $workdir.'/'.$file) or die; 

my @array1 = (); my $array2 = ();
while (my $str = <FILE2>) {
    if ($str !~ /^\*/) {
        push (@$array2, $str); 
    } else {
        push (    @array1, $array2); 
        $array2 = ();
    }
}
close (FILE2);

и вот так вот проход по массиву работает

Код


foreach my $e1 (@array1) {
    foreach my $e2 (@$e1) {
        print $e2;
    }
}

а вот так вот нет (выводит первые строки файла < 20 и прекращает работу)

Код


my $a = 0;
foreach my $e1 (@array1) {
    while (my $e2 = @$e1[$a]) {
            print $e2;
        $a++;
    }
}

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

Нотный архив http://libnote.ru скачать ноты бесплатно

ginnie

Дата 14.8.2009, 14:36 (ссылка)

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

Загрузка ...

Эксперт

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

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

Повторение - мать учения? smile

Это сообщение отредактировал(а) ginnie - 14.8.2009, 14:37

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

burakov

Дата 14.8.2009, 14:55 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо,
удовлетворен полностью, smile

тему закрываю

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

Нотный архив http://libnote.ru скачать ноты бесплатно

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