急求解决二维数组赋值问题

arev326

我想在一个循环中对一个二维数组的两列分别赋值，但是 写成 @mark = [,$i]; （该二维数组是一个两列多行的数组，$i是要放置于数组第二列中的数据）不对，该怎么写？

Kitaisky

1. You can't put an array into another array, it gets flattened
2. Use array_ref

$AoA = [ [a 1], [b 2], [c 3], [d 4]..........]

$AoA[0][1]=1
$AoA[1][1]=2
$AoA[2][1]=3

arev326

已经发现了，谢谢啦~~
现在又要解决另一个问题，
怎么给一个大小未知的二维数组赋空值，也就是说把整个二维数组的值赋为数值0。

2gua

来瞅一眼哦。

arev326

高手们给点解决方法吧~~

zzx4441

怎么给一个大小未知的二维数组赋空值，也就是说把整个二维数组的值赋为数值0

为什么要未知？
为什么要赋空值？
为什么要置0？

或许把你的前提说出来，也许别人有更高的方法！

Kitaisky

## W/O doing the 1st one, the ref-count might still
## exist somewhere in ur program, I'm afraid...

@$_ =() for @$AoA;

undef @$AoA

arev326

为什么要未知？
为什么要赋空值？
为什么要置0？

或许把你的前提说出来，也许别人有更高的方法！
zzx4441 发表于 2011-07-26 23:37

    其实要做的就是这样一个事：有两个文件，文件A是一个392行列数不定的数据文件（可看成一个网络的点集），文件B是一个两列99167行的数据文件（可以看成一个网络的边集）。将文件A中的每一行看成一个子集，根据B中数据提供的边信息，查找出A中每个子集之间有多少条边相连。A中每个子集之间可能有相同的点，B中也有重复的边。

总的来说就是要将一个大网络中的点分成多个子网，再根据原网络的边的关系形成另外一个新的网络。