#!/usr/bin/perl

# Moduly mozna sciagnac spod http://www.perl.com/CPAN/modules/by-module.
use PDL;

$macierz = pdl [[5, 3], [2, 7], [8, 10]];

print $macierz, "\n";

$wiersz = $kolumna = 1;

$elem = at($macierz, $kolumna, $wiersz);         # sieganie

print "Element $wiersz, $kolumna to $elem.\n";

print "Przypisujemy temu elementowi 4.\n";
set($macierz, $kolumna, $wiersz, 4);        # modyfikowanie

print $macierz, "\n";

($kolumny, $wiersze) = dims $macierz;

print "Rozmiar macierzy to $wiersze x $kolumny.\n";