2d array in sub


I'm writing a sub that take as input, references to a 2d array and a hash-of-
arrays. The 2d array never changes but I operate on and return an updated
hash-of-arrays.

My issue is that I can get the sub working fine, iterating though the 2d array
correctly until I put a return statement in. Once I put the return statement
in, the sub only reads one slice of the 2d array, thus not returning a
correctly updated array... why??? am I missing something, surely it should
carry on operating on the whole array.

Simplified code example below. Works fine, printing results, unitl you
uncomment the "#return($pointer);" line:

#!/usr/bin/perl
@matrix=(["B1","1.00","0.80","0.33","0.34","0.03","0.05","0.01"],
["B2","0.80","1.00","0.29","0.31","0.01","0.03","0.01"],
["B3","0.33","0.29","1.00","0.73","0.41","0.28","0.31"],
["B4","0.34","0.31","0.73","1.00","0.33","0.22","0.24"],
["B5","0.03","0.01","0.41","0.33","1.00","0.43","0.46"],
["B6","0.05","0.03","0.28","0.22","0.43","1.00","0.47"],
["B7","0.01","0.30","0.24","0.46","0.47","0.47","1.00"],
);
%ctrs=( 2 => [],
4 => [],
);
$p2_header=\@header;
$p2_matrix=\@matrix;
$p2_ctrs=\%ctrs;

$duff=columns_to_clusters($p2_matrix,$p2_ctrs);
print "$duff\n";

sub columns_to_clusters
{
my $tmp_matrix=shift;
my $tmp_ctrs=shift;
my @tmp_matrix=@{$tmp_matrix};
my %tmp_ctrs=%{$tmp_ctrs};
# iterate through columns in matrix
for my $col (1 .. $#tmp_matrix) {
my $tmp_dist=999;
my $tmp_ctr='null';
# iterate through ctrs
foreach my $kno (keys %tmp_ctrs) {
print "col $col, ctr $kno => dist $tmp_matrix[$kno][$col]\n";
if ((defined $tmp_dist) && ($tmp_matrix[$kno][$col]
<$tmp_dist)) {
$tmp_dist=$tmp_matrix[$kno][$col];
$tmp_ctr=$kno;
} elsif (!defined $tmp_dist) {
$tmp_dist=$tmp_matrix[$kno][$col];
$tmp_ctr=$kno;
}
}
print "For col #$col => closest ctr is $tmp_ctr at dist $tmp_dist\n";
my @tmp=$tmp_ctrs{$tmp_ctr};
unshift(@tmp,"$col");
$tmp_ctrs{$tmp_ctr}=[@tmp];
$pointer=\%tmp_ctrs;
#return($pointer);
}
}

1;


.

Relevant Pages

  • Re: subroutines, prototyping, and pass by reference question
    ... > There are three main reasons to use references: ... > sub process_string { ... > #we have now copied our 8 million character string ... > There is no way to create, for example, a two-dimensional array without ...
    (comp.lang.perl.misc)
  • Re: Range Object Misunderstanding
    ... So you would need to qualify your references ... The listbox is loaded from that array. ... > End Sub ... > Private Sub CommandButton2_Click ...
    (microsoft.public.excel.programming)
  • Re: Updated datestamp doesnt work
    ... Public Sub StoreMyOldVals ... ' store values of current row in array ... Dim dbs As DAO.Database, rst As DAO.Recordset ... Dim var As Variant ...
    (microsoft.public.access.gettingstarted)
  • Re: Multiple OUs?
    ... something is up with adding multiple values to the array... ... ' If the AD enumeration runs into an OU object, call the Sub again to ... strLine = Trim ... strNewContents = strNewContents & strLine & vbCrLf ...
    (microsoft.public.scripting.vbscript)
  • Re: Packages and returning errors
    ... > array intact. ... sub is_a_instance_method { ... my $class = shift; ... You need to fix the scope of $error by moving its declaration outside ...
    (comp.lang.perl.misc)