Help for this page

Select Code to Download


  1. or download this
    my %booklist_l;
@booklist_l{ @book_id_list }
    = ( { title => 'empty', update_id => 'missing' } )
      x scalar @book_id_list;
  2. or download this
    $booklist_l{ $book_id } = $sth->fetchrow_hashref;
  3. or download this
    $booklist_l{ $book_id } = { %{$sth->fetchrow_hashref} };
  4. or download this
    foreach $book_id (keys %booklist_1) {
    my $r = $booklist_l{$book_id};
    print "XXX $book_id > $r->{'update_id'} -- from $r\n";
}