Re^2: Passing a reference from a subroutine.

[Anonymous Monk]

Sorry, that was a typo, and even with "return \@AoA;" it still doesn’t work.

[roboticus]

The syntax is clearly correct (as shown in the example below). So if you're getting the proper data with Dumper in your for loop, then you're likely damaging the data between the Dumper call and your return statement.

$ cat t.pl
#!/usr/bin/perl
use strict;
use warnings;

sub get_data {
    my $data = shift;
    my @AoA = (1 .. $data);
    return \@AoA;
}

my $aref = get_data(5);
print join(", ", @$aref), "\n";

marco@Boink:/Work/Perl/Sudoku
$ perl t.pl
1, 2, 3, 4, 5

...roboticus

When your only tool is a hammer, all problems look like your thumb.

[Anonymous Monk]

Maybe how I am formatting the data is not conventional right?


 push @{ $AoA[$c] },$$one_num, $$account_num, $name, $new_name, $plano
+, $passdate, $todays_date, $descont, $firm, $value, $thetotal, $commi
+ted;