use PDL; use PDL::Matrix; use PDL::NiceSlice; use PDL::AutoLoader; use PDL::IO::Dumper; my $s = ones(10,10); # There are 10 columns and 10 rows my $k = 0; while (my $line = <$fileHandler>) { $s(0:9,0:$k) = $line; $k++; }
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)