If you're looking for a PHP util, I've got one at
http://www.blyberg.net/files/ -- I've got to do a little bugfix, but it
works as-is.
-----Original Message-----
From: Code for Libraries [mailto:[log in to unmask]] On Behalf Of
Bryan Baldus
Sent: Friday, June 02, 2006 12:03 PM
To: [log in to unmask]
Subject: Re: [CODE4LIB] ISBN 13 chars
On Wednesday, May 31, 2006 11:01 AM, Kevin Kierans
>Anyone willing to share a (preferably) perl 13 to 10 character and a 10
>to 13 character conversion routine?
Below is something I use, in Perl, using Business::ISBN. It prints the
10 when given the 13, and then gives the correct check digit for the
13--so entering '978' plus the 10 as-is would print the correct 13.
###################
use Business::ISBN;
use strict;
use warnings;
print "Please enter 13 digit EAN or ISBN (or q to quit): "; while (my
$line = <>) {
chomp $line;
last if ($line =~ /^q/);
#remove all non-digit (or X) characters from line
$line =~ s/[^0-9xX]//g;
#skip lines with no ISBN/EAN number
if ($line =~ /^\d{9}[\dX]$/) {
my $is_valid = Business::ISBN::is_valid_checksum($line);
if ($is_valid == 1) {
print $line, " is valid\n";
} #valid
else {
print $line, " has bad checksum\n";
} #not valid
} #line is 10 digits
#unless line has ISBN already or is a non-digit line, convert
ean to isbn
elsif ($line =~ /^\d{12}[\dX]$/) {
my $isbn = Business::ISBN::ean_to_isbn($line);
if ($isbn) {
print $isbn, " is the 10-digit ISBN\n";
my $good_ean =
Business::ISBN::isbn_to_ean($isbn);
if ($good_ean) {
print $good_ean, " is the correct
13-digit for this ISBN\n";
} #if good ean was found
else {
print "Failed to find EAN for that
supposedly valid ISBN\n";
} #something went wrong--what?
} #isbn defined
else {
print $line, " is not a valid ean string\n";
} #invalid 13 digit
}
else {print "$line is an exception (not 10 or 13 digits)\n";}
print "Please enter 13 digit EAN or ISBN (or q to quit): "; } #
while
########################
I hope this helps,
Bryan Baldus
[log in to unmask]
[log in to unmask]
http://home.inwave.com/eija
eija
