note
sapnac
This will create the matrix that you want. This is tested.
Hope this helps;
<code>
#!/usr/bin/perl -w
open(MATRIX, "matrixfile.dat") || die "Error: Can't open matrixfile file for reading: $!\n";
$i=0;
while ($spool = <MATRIX>) {
chomp($spool);
@arr = split(/ /,$spool);
for ($x=0;$x<= $#arr;$x++) { $matrix[$i][$x] = $arr[$x];}
$i++;
} # end while
$x=$x-1;
for ($j=0;$j<$i;$j++) {
for ($r=0;$r<4;$r++)
{
print "[ ";
$cntr=0;$c=$j;
for($cntr=0;$cntr<4;$cntr++)
{
if($c gt $x) {
$c=0;
}
print " $matrix[$r][$c] " ;
$c++;
}
print " ] \n";
}
print "\n";
}
</code>
471677
471692