#!/usr/bin/perl

# Wymaga umieszczenia w biezacym katalogu pliku "mozg", zawierajcego dane mego mozgu.
# PDL wymaga rowniez danych naglowka z pliku "mozg-hdr".

# Wymaga modulu PDL.  
# Moduly mozna znalezc pod http://www.perl.com/CPAN/modules/by-module.
# Uzyjcie modulu PDL::IO::FastRaw, wariantu PDL, ktory potrafi
# odczytywac i zapisywac surowe dane do plikow.
use PDL::IO::FastRaw;

# Wczytaj dane z pliku "mozg" i zapisz je w pdl $a.
$pdl = readfraw("mozg", { Dims => [351,412], ReadOnly => 1 });

# Dodaj 60 do kazdego elementu.
$pdl += 60;

# Zwroc macierz pdl do pliku "mozg-jasny".
writefraw($pdl, "mozg-jasny");
