% (my @tab) = @{$_[0]->{'table'}}; % my $max_index = $#tab; % my @pool_names = ('id','isbn', 'tytul', 'autor', 'wlasciciel', 'jest?', 'mozna brac?'); id % for (my $i=0;$i<$max_index;$i++) % { % for (my $ii=0;$ii<7;$ii++) #Jest 7 pol w kazdym rekordzie % { %# = $pool_names[$ii].':'.$tab[$i][$ii] %# <%= $pool_names[$ii] %> % }

isbn	tytul	autor	wlasiciciel	jest?	mozna brac?
<%= $tab[$i][$ii] %>	<%= $tab[$i][$ii] %> % } %= "\n"