id, date, head

  
 
# Close if open handles from previous?  
 
close_handles(q/dumpfile/);  
 
# Go ahead and open/store the hash  
 
store ( \%hash, q/dumpfile/ );  
 
sub close_handles { 
   my $file = shift; 
   my $fh;  
 
   return unless defined $file;  
 
   return close($fh) if open $fh, '<', $file ||  
                        defined fileno($fh);  
 
}

  
 
##SNIPPET##  
 
use Data::Dumper; 
use Storable qw/ store_fd fd_retrieve /;  
 
     my $href = $dbh->selectall_hashref ( q/SELECT rec_id, rec_date,  
                                          rec_head FROM news/, q/rec_id/ ); 
   
     store_DATA($href);  
 
     undef $/; 
     my $ref = fd_retrieve \*DATA;  
 
     print Dumper $ref;  
 
 
     sub store_DATA { 
         my($data) = @_;  
 
         open my $fh, "+>", undef or die "$0: $!\n";  
 
         *DATA = $fh; 
         store_fd $data, \*DATA or die "$0: print: $!";  
 
         seek DATA, 0, 0 or die "$0: seek: $!"; 
     }

  
 
   my @items; 
   for my $k ( keys %$href ) 
   { 
     if (@items == 10) { 
       # how would i get every 10 records out of the hash? 
       # would i just use the c style (for my $i, $i < 10 $i++) ?  
 
       @items = ();  #clear the data 
     }  
     else { 
       push @items, $k; 
     }  
 
      # rest of data? 
    }

my @items;  
for my $k ( keys %$href )  
{ 
	push @items, $k;  
	if (@items == 10) {  
		# how would i get every 10 records out of the hash?  
		# would i just use the c style (for my $i, $i < 10 $i++) ?  
		 
		# print for 1 page of ten items 
		for my $id (@items) { 
			print $id, ' ', $href->{$id}{date}, ' ', $href->{$id}{head}, "\n";	 
		}  
	 
		@items = ();  # (clear the data) 
	} 
} 
 
# proces any leftover items after the loop above 
for my $id (@items) { 
	print $id, ' ', $href->{$id}{date}, ' ', $href->{$id}{head}, "\n";	 
}

for my $key ( keys %$href ) { 
    print "$key $href->{$key}{date} $href->{$key}{head}\n"; 
}

   
  
use strict;   
use warnings;      
  
use constant PER_PAGE => 10;      
  
use lib qw( /home/88/64/2016488/lib/perl5/lib/perl5 );    
use hwnd;    
  
use CGI;   
use Data::Page;    
  
  my $q = CGI->new;   
  my $h = hwnd->new;   
  
  my $page_id =    
     defined $q->param('page') ? $q->param('page') : 1;    
  
  my $dbh = $h->connect('DBI:mysql:*****:*****',   
                        '*****', '*****');    
  
  my $href = $dbh->selectall_hashref ( q/SELECT rec_id, rec_date,    
                                       rec_head FROM news/, q/rec_id/ );   
  
  my @keys = ( defined $href ? sort {$a <=> $b} keys %$href : () );    
  
  my $page = Data::Page->new(scalar @keys, PER_PAGE, $page_id);   
  my @items = $page->splice(\@keys);    
  
  print $q->header;    
  
  print $q->h1("Page $page_id (of ", $page->last_page, ')');    
  
  my $i = 0;    
  foreach (@items) {   
   print ++$i, ": $_, $href->{$_}->{rec_date}, $href->{$_}->{rec_head}\n";   
  }    
  
   print $q->a({-href => '?page=' . $page->previous_page}, 'Prev') if $page->previous_page;    
   print $q->a({-href => '?page=' . $page->next_page}, 'Next') if $page->next_page;