#!/usr/bin/perl -w

# [c]piotao, 20061213
# przyklad wykorzystania modulu Storable

use warnings;          # wlaczamy tryb ostrzezen (tak samo jak po -w)
use strict;            # wymagamy scislych definicji
use Storable;          # ladujemy modul Storable do wczytywania zmiennych

# robimy tablice z jakimis danymi
my @TABLICA = ( 1 .. 10 );   # tablica, czyli ciag elementow, 1,2,3...

# definiujemy hasza z danymi (akurat podobne co w tablicy)
my %HASH    = ( 1 .. 10 );   # hasz czyli zbior par: 3=>4, 1=>2, 7=>8, ...

# definiujemy skomplikowana zmienna
my $masakra = {
	tablica => \@TABLICA, 
	konopie => \%HASH,
	mixedof => [1,2,3,[3,2,1]],
};

# zapisujemy tablice na dysk do pliku
store \@TABLICA, 'tablica.dat';

# zapisujemy hasza
store \%HASH, 'hash.dat';

# zapisujemy straszliwa zmienna $masakra
store $masakra, 'masakra.dat';

# i tyle.