Here's a test snippet for doing something like this without
the help of a module :
use strict;
use warnings;
my $file = 'training.txt';
my @matrix;
my @matrix2;
open OUT, ">$file" or die "create $file: $! ($^E)";
for (my $x = 0; $x < 26; ++$x) {
for (my $y = 0; $y < 26; ++$y) {
amit hetawal wrote:
>
> ?
> Hello all,
> I am writing a matrix to a file as :
>
> open(WRITE, ">training.txt");
> for ($x = 1; $x<27; ++$x)
> {
> for($y=1; $y<27;++$y)
> {
> print WRITE "$matrix[$x][$y] ";
> }
> print WRITE "\n";
>
> }
>
> this code is working fine and writing t
?
Hello all,
I am writing a matrix to a file as :
open(WRITE, ">training.txt");
for ($x = 1; $x<27; ++$x)
{
for($y=1; $y<27;++$y)
{
print WRITE "$matrix[$x][$y] ";
}
print WRITE "\n";
}
this code is working fine and writing the file in format as ;
0 0 0 0 0 0 0 1 1 1
2 3
