#!/usr/bin/perl

# Moduly mozna pobrac spod http://www.perl.com/CPAN/modules/by-module.
use Math::MatrixReal;

$macierz = Math::MatrixReal->new_from_string(<<'MATRIX');
[ 5  3 ]
[ 2  7 ]
[ 8 10 ]
MATRIX

print $macierz;

# Przypisujemy $elem element (2, 2) macierzy $macierz  
$elem = element $macierz (2, 2);
print "\nElement (2, 2) to ", $elem, "\n\n";

# Przypisujemy elementowi(2, 2) macierzy $macierz warto 1000
print "Przypisujemy elementowi (2, 2) wartosc 1000.\n\n";
assign $macierz (2, 2, 1000);

print $macierz;

($wiersze, $kolumny) = dim $macierz;
print "Wymiary macierzy to $wiersze x $kolumny.\n";
