Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> многомерный массив на лету 
:(
    Опции темы
Cayz
Дата 11.8.2008, 09:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Требуется создать двухмерный массив на лету, делаю так:
Код

#!/usr/bin/perl
@array1;
@array2;
#формирую массив на лету
    $k=0;
    for ($i=0;$i<3;$i++){
        for ($j=0;$j<3;$j++){
            $array2[$j]=$k+$j;
        }
        $k=$k+3;
        $array1[$i]=\@array2;
    print "debug1 ".$array1[$i]->[0]."\n";
    }

foreach $t(@array1){  # а теперь пытаюсь обратиться к этому массиву по разному, а там глухо :(
    print "\tdebug2 ".$t->[0]."\n";
};
for ($i=0;$i<@array1;$i++){
    print "\t\tdebug3 ".$array1[$i]->[0]."\n";
}


Ожидаемый результат такой: двухмерный массив содержащий такие значения: ([1,2,3],[4,5,6],[7,8,9]); 
А в итоге получаю(вывод программы):
Код

debug1 0
debug1 3
debug1 6
        debug2 6
        debug2 6
        debug2 6
                debug3 6
                debug3 6
                debug3 6

т.е. на этапе формирования массива, всё в норме, но при выходе из цикла мой двухмерный массив содержит билеберду;
наблы читал, но видимо, то-ли лыжи на асфальте, то-ли не едут.

Спасибо за помощь)

Добавлено через 10 минут и 27 секунд
Кстати я только что вкурил, в чем проблема: я в качестве промежуточного массива использую @array2, точнее ссылку на него, а @array1 состоит из одинаковых элементов являющимися ссылками на @array2. Но вопрос остается открытым, нужна конструкция, таки позволяющая создать двухмерный массив. 
PM MAIL   Вверх
arto
Дата 11.8.2008, 09:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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



my @a = map { [ map { ++$a } 0..2 ] } 0..2;
PM MAIL ICQ   Вверх
IceSunrise
Дата 11.8.2008, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Cayz, проблема вашего скрипта в том, что вы заполняете один и тот же массив
Код

#!/usr/local/bin/perl

use strict;
use Data::Dumper;

my @array1;
my $k = 0;

for (my $i=0; $i<3; $i++)
{
  my @array2;
  for (my $j=0; $j<3; $j++)
  {
    $array2[$j] = $k + $j;
  }
  $k = $k + 3;
  $array1[$i] = \@array2;
  print "debug1 ".$array1[$i]->[0]."\n";
}

foreach my $t (@array1)
{
  print "\tdebug2 ".$t->[1]."\n";
};

for (my $i=0; $i<@array1; $i++)
{
    print "\t\tdebug3 ".$array1[$i]->[2]."\n";
}

print Dumper(\@array1);


PM MAIL   Вверх
sir_nuf_nuf
Дата 11.8.2008, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



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

$arr_ref->[$index1][$index2] = $value;



--------------------
user posted image
user posted image
PM MAIL Jabber   Вверх
Cayz
Дата 11.8.2008, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Спасибо, помогло. Но сразу возник следующий вопрос(use threads; use threads::shared;).
Допустим у меня есть глобально объявленный (shared) массив, и мне нужно заполнить его таким же самым образом (имеет значение многомерность), но из отдельной нити(thread); При заполнении массива скалярами проблем никаких. Но если я пытаюсь присвоить ссылку на массив сформированный в этой нити, то перл сразу ругается, что он ее не увидит.  Как один из выходов видиться мне передача массивов в виде строковых скаляров, с последующим split-ом, но это криво и затраты вычислительные.

спасибо.

PM MAIL   Вверх
shamber
Дата 11.8.2008, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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



Cayz, следующий вопрос -> следующая тема
PM MAIL Jabber   Вверх
IceSunrise
Дата 11.8.2008, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Cayz,  читайте внимательно документацию
Цитата

Shared variables can only store scalars, refs of shared variables, or refs of shared data.


Я не использую перловые треды, но из доки следует, что нужно либо расшаривать все массивы, либо использовать процедуру shared_clone.
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0589 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.