Re^6: Writing an array inside an array

Yup, sorry I showed only a part of it
Here is the complete script


#!/usr/bin/perl

BEGIN {
     push @INC,"C:/strawberry/perl/site/lib";
     push @INC,"C:/strawberry/perl/vendor/lib";
     push @INC,"C:/strawberry/perl/lib";
}

use strict;
use Graph::Matching;

use Graph::Matching qw(max_weight_matching);

my @sub = [];
my @list = split(',', $ARGV[0]);

#print("@list");

my $n = 0;
my @graph = ();
my $i = 0;
my $j = 0;

for ($i=0; $n<my $graph; $i++)
{
 for ($j=0; $j<=2; $j++)
  {
   $sub[$j] = $list[$n];
   $n++;
  }
 $graph[$i] = \@sub;
@sub = ();
}


print "$graph";
[download]

Thank you very much again!

Comment on Re^6: Writing an array inside an array Download Code

Replies are listed 'Best First'.
Re^7: Writing an array inside an array by moritz (Cardinal) on Nov 18, 2010 at 13:48 UTC
`print "$graph";` There's no `$graph` variable in that scope. Did you mean `@graph` instead? You define a useless `my $graph` variable in the loop header, but that only exists until the end of the block. Perl 6 - second systems done right	[reply] [d/l] [select]
Re^8: Writing an array inside an array by talha099 (Initiate) on Nov 18, 2010 at 16:13 UTC
Thank you very much again for your help. Actually, I was trying to store the array in the form: my $graph = [ 1, 2, 14 , 2, 3, 18 ]; I wanted to pass $graph to another function which expects the input in that form. Would you recommend me using $graph or @graph? Thanks again.	[reply]
Re^9: Writing an array inside an array by moritz (Cardinal) on Nov 19, 2010 at 08:45 UTC
Would you recommend me using $graph or @graph? Use the @ sigil. It gives you several advantages: it behaves sensibly in scalar context, and the syntax for working with it less convoluted than reference syntax. Perl 6 - second systems done right	[reply]