Help for this page

Select Code to Download


  1. or download this
    if ( $incomplete_isbn =~ m/^\d{5}$/ ) {
    my $re_key = qr/.+$incomplete_isbn.+/;
...

    ...
}
  2. or download this
    my %titles = (
   partial_isbn => [ full_isbn, title ],
...
   partial_isbn => [ full_isbn, title ],
   partial_isbn => [ full_isbn, title ],
);