#!/usr/bin/perl

# [c]piotao, 20061213
# przyklad zastosowania modulu Storable do wczytania danych z plikow

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

$Data::Dumper::Indent = 1;   # mala konfiguracja modulu Dumper

# wczytanie danych wprost do tablicy:
my $tablica_ref = retrieve 'tablica.dat' or die "Nie ma pliku tablica.dat!\n";

# wczytanie danych wprost do hasza:
my $hash_ref    = retrieve 'hash.dat'    or die "Nie ma pliku hash.dat!\n";

# wczytanie skomplikowanych danych:
my $masakra     = retrieve 'masakra.dat' or die "Nie ma pliku masakra.dat!\n";


# teraz pisanie wszystkich wczytanych zmiennych:

print Data::Dumper->Dump(                  # uzycie Dumper'a obiektowe
	[$tablica_ref, $hash_ref, $masakra],     # najpierw tablica z danymi do pisania
	['tablica',    'hasz',    'masakra']     # potem ladne nazwy danych
);