PERL的数组操作问题

逝去的华丽

我想把一个数组里面的元素一个一个读出来。这些元素分别是14位2进制数构成。原始数组 @src_matrix 内容如下：
10101010000011
10010000101110
01010101010000
11110000001110
    ....
但数组的元素个数不固定。我将每一个元素读出来以后，需要分别将这一个元素中的每一个2进制数与一个对应的变量相乘并相加。比如，变量为b0,b1,..b13。那么第一行结果应该为 b0+b2+b4+b6+b12+b13. 这就需要将元素中的每一个2进制数据独立出来。
针对这样的应用，我现在的办法是 将每一个元素分割出来，构成一个新的数组，这个新的数组包含14个元素，每一个元素就是上面原始数组中的一个元素的其中一位2进制数据。比如，原始数组第一行（第一个元素）构成新的数组为：{1，0，1，0，1，0，1，0，0，0，0，0，1，1}
但是由于原始数组中，元素个数不固定，用一个变量$src_idx表示。 我要将原始数组中的每一个元素按照上面的处理构成一个新的数组，即有$src_idx个新的数组。 我想到了用2维数组。。但是写法不成功。

foreach(0..$src_idx)
{
  my @{$new[$_]} = $src_matrix[$_] =~ /(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)/;
}

这样写，PERL报错。。。寒

但是，单独写 my @test_array = $src_matrix[0] =~ /(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)(\d)/;
这样是没问题的。。。由于原始数组中元素个数不定。。所以想用上面的2维数组来实现。。不过不成功啊。。

大家帮我看看吧。。该怎么写。。


问题2， 将每个元素中的1个2进制数据独立出来，除了我上面那样写以外，有没有更好一些的方法？？

[ 本帖最后由 逝去的华丽 于 2009-3-23 16:38 编辑 ]

MMMIX

原帖由 逝去的华丽 于 2009-3-23 16:36 发表
将每个元素中的1个2进制数据独立出来，除了我上面那样写以外，有没有更好一些的方法？？

split //, ... 就可以

lytton32

foreach my $element (@src_matrix )
{
     my @sub_array = split '', $element;
}

逝去的华丽

原帖由 MMMIX 于 2009-3-23 16:59 发表

split //, ... 就可以

恩，我也看到SPLIT了，呵呵，那 上面的问题，关于2维数组的错误，怎么解决呢？？

逝去的华丽

原帖由 lytton32 于 2009-3-23 17:06 发表
foreach my $element (@src_matrix )
{
     my @sub_array = split '', $element;
}

如果这样的话，@sub_array会被一直覆盖掉啊，只能得到最后一个元素构成的数组。。我想要所有元素构成的数组

MMMIX

原帖由 逝去的华丽 于 2009-3-23 19:47 发表


恩，我也看到SPLIT了，呵呵，那 上面的问题，关于2维数组的错误，怎么解决呢？？

先把  perldsc, perllol 看完了再说。