LINUX.ORG.RU
Форум — Development  

побить массив ассивов на perl на n частей


0

0 

допустим в хеш массивов массивов, или просто имеется массив 
массивов и записать его в n файлов-табличек, но как???

упарился уже:

  foreach $i(0 .. $w){ my $kk;
    foreach $k(0 .. $h){
    }
    print $c++," ","\n" if $i%20==0;
    open Fi, ">$c++" or die "cant open: $!";
    print Fi $m[i$][$k] if $n*10+10;
    close F;
  }

близко, но не то :((

Спасибо!!
anonymous
← вывод звука под Linux
реализация часов под консольное приложение → 

нашлось решение, через хеш хешей массивов, но так и не смог 
придумать одну единственную формулу :(( пришлось через 
структуры данных :((

  foreach $i(0 .. $w){
    print $c++," ","\n" if $i%$ex==0;
    my $kk;
    foreach $k(0 .. $h){
      push @{$h{$c}{$kk}} => "\n" and $kk++ if $k%$ey==0;
      push @{$h{$c}{$kk}} => $rr[$k][$i]
    }
  }

Короче, вопрос отпал вроде как...

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← вывод звука под Linux
Development
реализация часов под консольное приложение →