Business-ISBN-Data-20250418.001/0000755000076500000240000000000015000404423014421 5ustar brianstaffBusiness-ISBN-Data-20250418.001/LICENSE0000644000076500000240000002174315000404421015433 0ustar brianstaffThe Business::ISBN::Data module is licensed under the same terms as perl itself, under the Artistic License 2.0. Artistic License 2.0 Copyright (c) 2000-2006, The Perl Foundation. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble ******** This license establishes the terms under which a given free software Package may be copied, modified, distributed, and/or redistributed. The intent is that the Copyright Holder maintains some artistic control over the development of that Package while still keeping the Package available as open source and free software. You are always permitted to make arrangements wholly outside of this license directly with the Copyright Holder of a given Package. If the terms of this license do not permit the full use that you propose to make of the Package, you should contact the Copyright Holder and seek a different licensing arrangement. Definitions *********** "Copyright Holder" means the individual(s) or organization(s) named in the copyright notice for the entire Package. "Contributor" means any party that has contributed code or other material to the Package, in accordance with the Copyright Holder's procedures. "You" and "your" means any person who would like to copy, distribute, or modify the Package. "Package" means the collection of files distributed by the Copyright Holder, and derivatives of that collection and/or of those files. A given Package may consist of either the Standard Version, or a Modified Version. "Distribute" means providing a copy of the Package or making it accessible to anyone else, or in the case of a company or organization, to others outside of your company or organization. "Distributor Fee" means any fee that you charge for Distributing this Package or providing support for this Package to another party. It does not mean licensing fees. "Standard Version" refers to the Package if it has not been modified, or has been modified only in ways explicitly requested by the Copyright Holder. "Modified Version" means the Package, if it has been changed, and such changes were not explicitly requested by the Copyright Holder. "Original License" means this Artistic License as Distributed with the Standard Version of the Package, in its current version or as it may be modified by The Perl Foundation in the future. "Source" form means the source code, documentation source, and configuration files for the Package. "Compiled" form means the compiled bytecode, object code, binary, or any other form resulting from mechanical transformation or translation of the Source form. Permission for Use and Modification Without Distribution ******************************************************** (1) You are permitted to use the Standard Version and create and use Modified Versions for any purpose without restriction, provided that you do not Distribute the Modified Version. Permissions for Redistribution of the Standard Version ****************************************************** (2) You may Distribute verbatim copies of the Source form of the Standard Version of this Package in any medium without restriction, either gratis or for a Distributor Fee, provided that you duplicate all of the original copyright notices and associated disclaimers. At your discretion, such verbatim copies may or may not include a Compiled form of the Package. (3) You may apply any bug fixes, portability changes, and other modifications made available from the Copyright Holder. The resulting Package will still be considered the Standard Version, and as such will be subject to the Original License. Distribution of Modified Versions of the Package as Source ********************************************************** (4) You may Distribute your Modified Version as Source (either gratis or for a Distributor Fee, and with or without a Compiled form of the Modified Version) provided that you clearly document how it differs from the Standard Version, including, but not limited to, documenting any non-standard features, executables, or modules, and provided that you do at least ONE of the following: (a) make the Modified Version available to the Copyright Holder of the Standard Version, under the Original License, so that the Copyright Holder may include your modifications in the Standard Version. (b) ensure that installation of your Modified Version does not prevent the user installing or running the Standard Version. In addition, the Modified Version must bear a name that is different from the name of the Standard Version. (c) allow anyone who receives a copy of the Modified Version to make the Source form of the Modified Version available to others under (i) the Original License or (ii) a license that permits the licensee to freely copy, modify and redistribute the Modified Version using the same licensing terms that apply to the copy that the licensee received, and requires that the Source form of the Modified Version, and of any works derived from it, be made freely available in that license fees are prohibited but Distributor Fees are allowed. Distribution of Compiled Forms of the Standard Version or Modified ****************************************************************** Versions without the Source *************************** (5) You may Distribute Compiled forms of the Standard Version without the Source, provided that you include complete instructions on how to get the Source of the Standard Version. Such instructions must be valid at the time of your distribution. If these instructions, at any time while you are carrying out such distribution, become invalid, you must provide new instructions on demand or cease further distribution. If you provide valid instructions or cease distribution within thirty days after you become aware that the instructions are invalid, then you do not forfeit any of your rights under this license. (6) You may Distribute a Modified Version in Compiled form without the Source, provided that you comply with Section 4 with respect to the Source of the Modified Version. Aggregating or Linking the Package ********************************** (7) You may aggregate the Package (either the Standard Version or Modified Version) with other packages and Distribute the resulting aggregation provided that you do not charge a licensing fee for the Package. Distributor Fees are permitted, and licensing fees for other components in the aggregation are permitted. The terms of this license apply to the use and Distribution of the Standard or Modified Versions as included in the aggregation. (8) You are permitted to link Modified and Standard Versions with other works, to embed the Package in a larger work of your own, or to build stand-alone binary or bytecode versions of applications that include the Package, and Distribute the result without restriction, provided the result does not expose a direct interface to the Package. Items That are Not Considered Part of a Modified Version ******************************************************** (9) Works (including, but not limited to, modules and scripts) that merely extend or make use of the Package, do not, by themselves, cause the Package to be a Modified Version. In addition, such works are not considered parts of the Package itself, and are not subject to the terms of this license. General Provisions ****************** (10) Any use, modification, and distribution of the Standard or Modified Versions is governed by this Artistic License. By using, modifying or distributing the Package, you accept this license. Do not use, modify, or distribute the Package, if you do not accept this license. (11) If your Modified Version has been derived from a Modified Version made by someone other than you, you are nevertheless required to ensure that your Modified Version complies with the requirements of this license. (12) This license does not grant you the right to use any trademark, service mark, tradename, or logo of the Copyright Holder. (13) This license includes the non-exclusive, worldwide, free-of-charge patent license to make, have made, use, offer to sell, sell, import and otherwise transfer the Package with respect to any patent claims licensable by the Copyright Holder that are necessarily infringed by the Package. If you institute patent litigation (including a cross-claim or counterclaim) against any party alleging that the Package constitutes direct or contributory patent infringement, then this Artistic License to you shall terminate on the date that such litigation is filed. (14) Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT ARE DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Business-ISBN-Data-20250418.001/Changes0000644000076500000240000002413115000404421015713 0ustar brianstaffRevision history for Perl module Business::ISBN::Data 20250418.001 2025-04-18T08:10:56Z * data update for 2025-04-18 20250416.001 2025-04-16T05:46:53Z * data update 2025-04-16 20250411.001 2025-04-11T17:39:39Z * Data update for 205-04-11 20250322.001 2025-03-22T05:59:36Z * data update for 2025-03-21 20250315.001 2025-03-15T04:51:26Z * data update for 2025-03-14 20250309.001 2025-03-10T02:14:14Z * data update for 2025-03-09 20250226.001 2025-02-26T13:54:49Z * data update for 2025-02-26 20250220.001 2025-02-20T09:13:32Z * data update for 2025-02-19 20250205.001 2025-02-05T16:56:48Z * data update for 2025-02-05 20250118.001 2025-01-18T08:16:08Z * data update for 2025-01-18 20250116.001 2025-01-16T03:44:41Z * data update for 2025-01-16 20250115.001 2025-01-15T07:28:33Z * data update for 2025-01-15 20250109.001 2025-01-09T07:47:59Z * data update for 2025-01-09 20241224.001 2024-12-24T04:16:05Z * data update for 2024-12-24 20241220.001 2024-12-20T12:09:49Z * data update for 2024-12-20 20241206.001 2024-12-07T16:13:59Z * Data update for 2024-12-06 20241205.001 2024-12-05T04:10:05Z * 2024-12-04 data update 20241130.001 2024-11-30T11:38:06Z * data update for 2024-11-30 20241123.001 2024-11-23T04:35:44Z * data update for 2024-11-22 20241112.001 2024-11-12T14:28:30Z * data update for 2024-11-12 20241107.001 2024-11-07T04:42:32Z * data update for 2024-11-06 20241105.001 2024-11-06T01:48:47Z * data update for 2024-11-05 20241025.001 2024-10-25T13:29:03Z * data update for 2024-10-25 20241019.001 2024-10-19T15:49:53Z * data update for 2024-10-19 20241017.001 2024-10-17T17:17:24Z * data update for 2024-10-17 20241014.001 2024-10-14T20:18:10Z * data update for 2024-10-14 20240930.001 2024-09-30T06:16:15Z * data update for 2024-09-30 20240918.001 2024-09-18T16:07:47Z * data update for 2024-09-18 20240914.001 2024-09-14T21:30:59Z * data update for 2024-09-14 20240906.001 2024-09-06T13:48:17Z * data update for 2024-09-06 20240821.001 2024-08-21T04:02:47Z * data update for 2024-08-21 20240820.001 2024-08-20T06:42:42Z * data update for 2024-08-20 20240817.001 2024-08-17T05:05:37Z * data update for 2024-08-17 20240815.001 2024-08-15T14:49:49Z * data update for 2024-08-15 20240807.001 2024-08-07T11:20:33Z * data update for 2024-08-07 20240803.001 2024-08-03T04:03:06Z * data update for 2024-08-03 20240725.001 2024-07-25T06:11:46Z * data update for 2024-07-25 20240718.001 2024-07-18T17:14:53Z * data update for 2024-07-18 20240716.001 2024-07-16T15:45:27Z * Data update for 2024-07-16 * this distribution now uses GitHub Attestions. See README.pod. 20240710.001 2024-07-10T10:46:31Z * data update for 2024-07-10 20240709.001 2024-07-09T13:20:22Z * data update for 2024-07-09 20240614.001 2024-06-14T20:50:14Z * Data update for 2024-06-14 20240601.001 2024-06-01T13:28:51Z * data update for 2024-06-01 20240523.001 2024-05-23T14:35:01Z * data update for 2024-05-23 20240509.001 2024-05-09T18:55:16Z * data update for 2024-05-09 20240427.001 2024-04-27T10:36:58Z * data update for 2024-04-27 20240426.001 2024-04-26T11:41:31Z * data update for 2024-04-26 20240420.001 2024-04-20T11:39:16Z * data update for 2024-04-20 20240413.001 2024-04-13T19:53:52Z * data update for 2024-04-13 20240323.001 2024-03-23T08:30:28Z * Data update for 2023-03-23 20240321.001 2024-03-21T07:16:25Z * Data update for 2024-03-21 20240313.001 2024-03-13T08:28:48Z * Data update for 2024-03-13 20240308.001 2024-03-08T08:32:18Z * Data update for 2024-03-08 20240302.001 2024-03-02T23:33:19Z * Data update for 2024-03-02 20240229.001 2024-02-29T21:17:00Z * Data update for 2024-02-29 (Leap day!) 20240209.001 2024-02-09T21:13:28Z * data update for 2024-02-09 20240206.001 2024-02-06T04:11:18Z * data update for 2024-02-06 20240126.001 2024-01-26T04:20:55Z * Data update for 2024-01-25 20240123.001 2024-01-23T14:52:26Z * Data update for 2024-01-23 20240116.001 2024-01-16T14:01:15Z * Data upate for 2024-01-16 20240111.001 2024-01-11T19:06:03Z * Data update for 2014-01-11 20231220.001 2023-12-21T08:59:21Z * data update for 2023-12-20 20231215.001 2023-12-15T05:56:18Z * data update for 2023-12-15 20231130.001 2023-11-30T15:44:22Z * data update for 2023-11-30 20231125.001 2023-11-25T07:20:29Z * Data update for 2023-11-25 20231118.001 2023-11-18T09:36:00Z * data update for 2023-11-18 20231114.001 2023-11-14T07:06:33Z * data update for 2023-11-14 20231110.001 2023-11-10T07:58:12Z * data update for 2023-11-10 20231102.001 2023-11-02T05:03:05Z * Data update for 2023-11-02 20231031.001 2023-10-31T14:31:39Z * Data update for 2023-10-31 20231020.001 2023-10-20T08:12:42Z * Data update for 2023-10-20 20231013.001 2023-10-13T12:09:42Z * data update for 2023-10-13 20231010.001 2023-10-10T13:02:37Z * data update for 2023-10-10 20231006.001 2023-10-08T02:04:15Z * data update for 2023-10-06 20230926.001 2023-09-26T09:01:09Z * Data update for 2023-09-26 20230923.001 2023-09-23T19:43:19Z * Data update for 20230923 20230922.001 2023-09-23T00:18:18Z * Data update for 20230922 20230907.001 2023-09-07T09:34:02Z * data update for 2023-09-07 20230904.001 2023-09-05T01:54:08Z * Data update for 2023-09-04 20230830.001 2023-08-30T11:43:37Z Data update for 2023-08-30 20230822.001 2023-08-22T05:23:14Z * Data update for 2023-08-22 20230811.001 2023-08-11T09:23:24Z * Data update for 2023-08-11 20230729.001 2023-07-29T20:53:52Z * Data update for 2023-07-29 20230719.001 2023-07-19T19:30:03Z * Data update for 2023-07-19 20230718.001 2023-07-18T19:22:42Z * Data update for 20230718.001 20230714.001 2023-07-14T07:35:39Z * Data update for 20230707 20230707.001 2023-07-07T03:52:07Z * Data update for 20230707 20230626.001 2023-06-26T15:49:00Z * Data update for 20230626 20230528.001 2023-05-28T21:01:11Z * Update for 2023-05-28 20230516.001 2023-05-16T15:09:45Z * Data update for May 16, 2023 20230426.002 2023-05-04T04:20:45Z * fix a problem with the MANIFEST (#30). No data updates. 20230426.001 2023-04-26T20:39:21Z Data update for 20230426 20230410.001 2023-04-10T06:25:50Z * Data update for 2023-04-10 20230331.001 2023-04-03T05:04:52Z * Data update for 2023-03-30 20230322.001 2023-03-22T18:22:12Z * ISBN data for 2023-03-22 20230316.001 2023-03-16T14:14:06Z * Update data to March 2023 20210112.006 2021-02-16T04:08:08Z * Fix testing bug. This module needs Business::ISBN 3.005 to match the data structures. Prior to that, Business::ISBN had a bug with ISBN13. 20210112.005_03 2021-02-15T17:43:08Z * I think the CPAN Tester failures are using older versions of Business::ISBN (older than 3.005 all seem to fail). I assumed they started fresh, but I guess not. Require a recent version in the default_data test. 20210112.005_02 2021-02-14T05:07:05Z * Try harder to see what's going on in CPAN Testers 20210112.005_01 2021-02-13T12:40:28Z * Try harder to figure out these test failures 20210112.005 2021-02-13T05:23:58Z * Fix the default data test. It should only run when you have Business::ISBN already, and it shouldn't do stupid things like using an array that I didn't put anything in. 20210112.004 2021-02-10T04:29:32Z * Test the default data. * Add a note about packaging RangeMessage.xml (adapted from gwyn17) 20210112.003 2021-02-09T22:42:53Z * The default data had a problem because I used the same hash key twice in the default data (Github #7). Found by gwyn17. 20210112.002 2021-02-07T05:46:20Z * Don't try to load a data file if there are no data files (Github #6) 20210112.001 2021-01-19T14:48:12Z * freshen distro, dump Travis CI, add Github Actions * Update to latest Business::ISBN::Data 20191107 2019-12-11T20:04:42Z * Peter Williams fixed the 978/979 distinction (GitHub #5) 20140910.003 2015-12-15T12:25:58Z * Hide the Business::ISBN namespace 20140910.02 - 2014-09-22 * Look in the current directory for RangeMessage.xml if it's not in other locations. This can help with various Perl app packagers. (But, also try ISBN_RANGE_MESSAGE env var) 20140910.001 - 2014-09-18 * Update to the latest data (2014-09-10) 20120719.01 - 2012-07-26 Specify the Test::More version so I can use subtest. No code or feature changes 20120719 - 2012-07-23 * Support data from RangeMessage.xml. You can use the latest data from ISBN without updating this module. 20120718 - 2012-07-23 * Daniel Jakubik updated the data for July 18, 2012 20081208 - 2008-12-05 * Latest data update. 20081020 - 2008-10-20 * Updated publisher codes thanks to Yakov Shafranovich * Version number is now the update date of the module, in YYYYMMDD. This not the date of the ISBN Agency updates though. 1.17 - 2007-10-27 * Update to docs to point to latest URL for ISBN International 1.16 - 2007-10-25 * distro cleanups. No need to upgrade.:wq 1.15 - 2007-08-31 [BUGFIX] RT #29078: Fix publihser ranges for Greece 1.14 - 2007-05-18 * *Added 7000-8499 range from Greece (960) to fix RT #27107 1.13 - 2007-01-09 * updated copyright and license info * no code changes, so no need to upgrade 1.12 - 2007-01-09 * updated copyright and license info * no code changes, so no need to upgrade 1.11 - 2006-05-18 * Updated distro and kwalitee. No need to upgrade. 1.10 - 2005-03-08 * Doc fixup, no big whoop: no need to upgrade 1.09 - 2005-03-08 * added POD coverage test and fixed up the problems it found 1.09 - 2004-12-14 * updated the publisher ranges and the country prefixes for the latest data as of November 2004. See http://www.isbn-international.or * Added the script I used to take the raw data and turn it into the module * I recommend this update for everyone. Lots of publisher ranges have changed 1.08 - 2004-10-08 * no change in functionality or data: no need to upgrade * added strictures to the package 1.07 - 2004-09-14 * distro cleanup: no need to upgrade 1.06 - 2004-09-14 * small clean-ups for distribution bits---no need to upgrade 1.05 - 2003-11-27 * updated publisher codes 1.05 - 2003-11-27 * update publisher ranges 1.05 - 2003-11-27 * Updated publisher ranges 1.03 - 2002-11-25 * fixed Makefile to install in right place 1.02 - 2002-11-25 * this is the first release as a separate module * added additional publishers (4xxx) for english countries Business-ISBN-Data-20250418.001/MANIFEST0000644000076500000240000000106415000404423015553 0ustar brianstaffChanges examples/make_default_data.pl examples/README INSTALL.SKIP lib/Business/ISBN/Data.pm lib/Business/ISBN/RangeMessage.url lib/Business/ISBN/RangeMessage.xml LICENSE Makefile.PL MANIFEST This list of files MANIFEST.SKIP README.pod SECURITY.md t/business-isbn.t t/check_data_structure.t t/default_data.t t/get_data.t t/load.t t/parse.t t/pod.t t/pod_coverage.t t/test_manifest xt/changes.t META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) Business-ISBN-Data-20250418.001/t/0000755000076500000240000000000015000404422014663 5ustar brianstaffBusiness-ISBN-Data-20250418.001/t/pod.t0000644000076500000240000000020115000404421015622 0ustar brianstaffuse Test::More; eval "use Test::Pod 1.00"; plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; all_pod_files_ok(); Business-ISBN-Data-20250418.001/t/business-isbn.t0000644000076500000240000000135315000404421017635 0ustar brianstaffuse Test::More; use File::Basename; my $class = 'Business::ISBN::Data'; use_ok $class; my @subs = qw( isbn_data_source ); can_ok 'Business::ISBN', @subs; subtest 'source' => sub { ok exists $Business::ISBN::country_data{'_source'}, 'country_data has _source'; like $Business::ISBN::country_data{'_source'}, qr/RangeMessage\.xml/, 'source is RangeMessage'; is Business::ISBN::isbn_data_source(), $Business::ISBN::country_data{'_source'}, 'isbn_data_source returns _source'; delete local $Business::ISBN::country_data{'_source'}; unlike $Business::ISBN::country_data{'_source'}, qr/RangeMessage\.xml/, 'source is not RangeMessage'; is basename( Business::ISBN::isbn_data_source() ), 'Data.pm', 'source is module'; }; done_testing(); Business-ISBN-Data-20250418.001/t/get_data.t0000644000076500000240000000166315000404421016625 0ustar brianstaffuse Test::More; use File::Basename; my $class = 'Business::ISBN::Data'; use_ok $class; my @subs = qw( _get_data ); can_ok $class, @subs; subtest 'ISBN_RANGE_MESSAGE exists' => sub { my $file = 'lib/Business/ISBN/RangeMessage.xml'; ok -e $file, "$file exists"; local $ENV{ISBN_RANGE_MESSAGE} = $file; my %data = Business::ISBN::Data->_get_data(); ok exists $data{'_source'}, '_source exists in hash'; is $data{'_source'}, $file, '_source is the file'; }; subtest 'ISBN_RANGE_MESSAGE does not exist' => sub { my $file = 'lib/Business/ISBN/RangeMessage.yaml'; ok ! -e $file, "$file does not exist"; local $ENV{ISBN_RANGE_MESSAGE} = $file; diag( "This will be a warning here" ); my %data = Business::ISBN::Data->_get_data(); diag( "There should be no more warnings" ); ok exists $data{'_source'}, '_source exists in hash'; is basename($data{'_source'}), 'RangeMessage.xml', '_source is distributed file'; }; done_testing(); Business-ISBN-Data-20250418.001/t/load.t0000644000076500000240000000044515000404421015771 0ustar brianstaff#!/usr/bin/perl my @modules = qw(Business::ISBN::Data); use Test::More; subtest 'compile' => sub { foreach my $module ( @modules ) { BAIL_OUT( "Could not load $module" ) unless use_ok( $module ); } diag( "Business::ISBN::Data " . Business::ISBN::Data->VERSION ); }; done_testing(); Business-ISBN-Data-20250418.001/t/parse.t0000644000076500000240000000104015000404421016154 0ustar brianstaffuse Test::More; use File::Basename; my $class = 'Business::ISBN::Data'; use_ok $class; my @subs = qw( _parse_range_message ); can_ok $class, @subs; subtest 'file does not exist' => sub { my $file = 'lib/Business/ISBN/RangeMessage.yamml'; ok ! -e $file, "$file does not exist"; diag( "This will be a warning here" ); my $result = Business::ISBN::Data::_parse_range_message( $file ); diag( "There should be no more warnings" ); ok ! defined $result, "_parse_range_message returns undef if file does not exist"; }; done_testing(); Business-ISBN-Data-20250418.001/t/default_data.t0000755000076500000240000000263415000404421017474 0ustar brianstaff#!/usr/bin/perl # If you run into an ISBN that you think is valid but this module # says is invalid, put it here. # # Grab the latest RangeMessage.xml file and see if the distributed # data is just out of date. my @isbns_from_issues = qw( 9782021183061 ); use Test::More; use Data::Dumper; use File::Spec::Functions qw(catfile); SKIP: { my $tests = @isbns_from_issues + 3; skip "Need Business::ISBN 3.006 to run this test", $tests unless eval { require Business::ISBN; # 3.005 fixed a major problem with 979 numbers and the data # structure changed. Business::ISBN->VERSION('3.006'); }; diag( "Business::ISBN is " . Business::ISBN->VERSION ); my $file = catfile( qw(blib lib Business ISBN RangeMessage.xml) ); my $out_of_the_way = $file . '.hidden'; ok( rename($file => $out_of_the_way), 'Renamed file' ); subtest 'compile' => sub { my @modules = qw( Business::ISBN::Data ); foreach my $module ( @modules ) { BAIL_OUT( "Could not load $module" ) unless eval{ use_ok( $module ) }; } }; local %Business::ISBN::country_data = Business::ISBN::Data::_get_data(); like( $Business::ISBN::country_data{_source}, qr/\bData\.pm/, 'Data source is the default data structure' ); subtest 'check_isbns' => sub { foreach my $isbn ( @isbns_from_issues ) { my $i = Business::ISBN->new( $isbn ); ok( $i->is_valid, "<$isbn> is valid" ); } }; rename $out_of_the_way => $file; } done_testing(); Business-ISBN-Data-20250418.001/t/check_data_structure.t0000644000076500000240000000564315000404421021245 0ustar brianstaff#!/usr/bin/perl use Test::More; use File::Spec::Functions qw(catfile); subtest 'setup' => sub { use_ok( 'Business::ISBN::Data' ); ok( %Business::ISBN::country_data ); }; subtest 'included_range_message' => sub { # Test with included RangeMessage.xml in the same spot as the module like( $Business::ISBN::country_data{_source}, qr/RangeMessage\.xml/ ); like( $Business::ISBN::country_data{_source}, qr/blib/ ); foreach my $isbn_prefix ("978", "979") { foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } keys %{ $Business::ISBN::country_data{$isbn_prefix} } ) { my $value = $Business::ISBN::country_data{$isbn_prefix}->{$key}; isa_ok( $value, ref [], "Value is array ref for country $key" ); my( $country, $ranges ) = @$value; my $count = @$ranges; ok( ($count % 2) == 0, "Even number of elements ($count) for country $key" ); } } }; subtest 'env_range_message' => sub { # Test with RangeMessage.xml set in ISBN_RANGE_MESSAGE local $ENV{ISBN_RANGE_MESSAGE} = catfile( qw(lib Business ISBN RangeMessage.xml) ); local %Business::ISBN::country_data = Business::ISBN::Data::_get_data(); ok( -e $ENV{ISBN_RANGE_MESSAGE}, 'Alternate RangeMessage.xml exists' ); unlike( $Business::ISBN::country_data{_source}, qr/blib/ ); like( $Business::ISBN::country_data{_source}, qr/RangeMessage\.xml/ ); foreach my $isbn_prefix ("978", "979") { foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } keys %{ $Business::ISBN::country_data{$isbn_prefix} } ) { my $value = $Business::ISBN::country_data{$isbn_prefix}->{$key}; isa_ok( $value, ref [], "Value is array ref for country $key" ); my( $country, $ranges ) = @$value; my $count = @$ranges; ok( ($count % 2) == 0, "Even number of elements ($count) for country $key" ); } } }; subtest 'missing_range_message' => sub { # Test with RangeMessage.xml set in ISBN_RANGE_MESSAGE my $file = catfile( qw(blib lib Business ISBN RangeMessage.xml) ); my $out_of_the_way = $file . '.hidden'; rename $file => $out_of_the_way; ok( ! -e $file, 'RangeMessage.xml is out of the way' ); local %Business::ISBN::country_data = Business::ISBN::Data::_get_data(); like( $Business::ISBN::country_data{_source}, qr/\bData\.pm/, 'Data source is the default data structure' ); rename $out_of_the_way => $file; }; subtest 'default_data' => sub { # Test with default data local %Business::ISBN::country_data = Business::ISBN::Data::_default_data(); like( $Business::ISBN::country_data{_source}, qr/Data\.pm/ ); foreach my $isbn_prefix ("978", "979") { foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } keys %{ $Business::ISBN::country_data{$isbn_prefix} } ) { my $value = $Business::ISBN::country_data{$isbn_prefix}->{$key}; isa_ok( $value, ref [], "Value is array ref for country $key" ); my( $country, $ranges ) = @$value; my $count = @$ranges; ok( ($count % 2) == 0, "Even number of elements ($count) for country $key" ); } } }; done_testing(); Business-ISBN-Data-20250418.001/t/test_manifest0000644000076500000240000000010215000404421017443 0ustar brianstaffload.t pod.t pod_coverage.t check_data_structure.t default_data.t Business-ISBN-Data-20250418.001/t/pod_coverage.t0000644000076500000240000000031115000404421017477 0ustar brianstaffuse Test::More; eval "use Test::Pod::Coverage"; if( $@ ) { plan skip_all => "Test::Pod::Coverage required for testing POD"; } else { plan tests => 1; pod_coverage_ok( "Business::ISBN::Data" ); } Business-ISBN-Data-20250418.001/xt/0000755000076500000240000000000015000404422015053 5ustar brianstaffBusiness-ISBN-Data-20250418.001/xt/changes.t0000644000076500000240000000020315000404421016642 0ustar brianstaffuse Test::More; eval 'use Test::CPAN::Changes'; plan skip_all => 'Test::CPAN::Changes required for this test' if $@; changes_ok(); Business-ISBN-Data-20250418.001/README.pod0000644000076500000240000001262715000404421016070 0ustar brianstaff=pod =encoding utf8 =for HTML =for HTML =for HTML =for HTML =for HTML Coverage Status =for HTML =for HTML =head1 The Business::ISBN::Data module B. This is the I for the L Perl module. You're probably looking at this because you don't know where else to find what you're looking for. Read this once and you might never have to read one again for any Perl module. =head2 Documentation To read about L, look at the embedded documentation in the module itself. Inside the distribution, you can format it with L: % perldoc lib/Business/ISBN/Data.pm If you have already installed the module, you can specify the module name instead of the file location: % perldoc Business::ISBN::Data You can read the documentation and inspect the meta data on L. The standard module documentation has example uses in the SYNOPSIS section, but you can also look in the I directory (if it's there), or look at the test files in I. =head2 Installation Usually you don't need to install this module on its own because L will do it for you. You should always try this first: % cpan Business::ISBN However, this module might update with the latest data even though L did not change. In that case, you can install this directly: % cpan Business::ISBN::Data % cpanm Business::ISBN::Data You can also install directly from the distribution directory, which will also install the dependencies: % cpan . % cpanm . You could install just this module manually: % perl Makefile.PL % make % make test % make install You probably don't want to do that unless you're fiddling with the module and only want to run the tests without installing anything. =head2 Source location The meta data, such as the source repository and bug tracker, is in I or the I files it creates. You can find that on those CPAN web interfaces, but you can also look at files directly in the source repository: L If you find a problem, file a ticket in the L. There are also backup repositories hosted on other services. These reflect the state of the main repo and exist only for redundancy: =over 4 =item * L =item * L =item * L =back =head2 GitHub Attestation Starting with v20240716.001, Business::ISBN::Data now uses L, which allow you to verify that the archive file you have was made from the official repo. You need a GitHub account and the L. # download the distro file from GitHub, MetaCPAN, or a CPAN mirror $ gh auth login ...follow instructions... $ gh attestation verify Business-ISBN-Data-20240716.001.tar.gz --owner briandfoy =head2 Getting help Although I'm happy to hear from module users in private email, that's the best way for me to forget to do something. Besides the issue trackers, you can find help at L or L, both of which have many competent Perlers who can answer your question, almost in real time. They might not know the particulars of this module, but they can help you diagnose your problem. You might like to read L. =head2 Copyright and License You should have received a I file, but the license is also noted in the module files. About the only thing you can't do is pretend that you wrote code that you didn't. =head2 Good luck! Enjoy, brian d foy, briandfoy@pobox.com =cut Business-ISBN-Data-20250418.001/MANIFEST.SKIP0000644000076500000240000000227715000404421016325 0ustar brianstaff #!start included /usr/local/perls/perl-5.18.1/lib/5.18.1/ExtUtils/MANIFEST.SKIP # Avoid version control files. \bRCS\b \bCVS\b \bSCCS\b ,v$ \B\.svn\b \B\.git\b \B\.gitignore\b \b_darcs\b \B\.cvsignore$ # Avoid VMS specific MakeMaker generated files \bDescrip.MMS$ \bDESCRIP.MMS$ \bdescrip.mms$ # Avoid Makemaker generated and utility files. \bMANIFEST\.bak \bMakefile$ \bblib/ \bMakeMaker-\d \bpm_to_blib\.ts$ \bpm_to_blib$ \bblibdirs\.ts$ # 6.18 through 6.25 generated this # Avoid Module::Build generated and utility files. \bBuild$ \b_build/ \bBuild.bat$ \bBuild.COM$ \bBUILD.COM$ \bbuild.com$ # Avoid temp and backup files. ~$ \.old$ \#$ \b\.# \.bak$ \.tmp$ \.# \.rej$ # Avoid OS-specific files/dirs # Mac OSX metadata \B\.DS_Store # Mac OSX SMB mount metadata files \B\._ # Avoid Devel::Cover and Devel::CoverX::Covered files. \bcover_db\b \bcovered\b # Avoid MYMETA files ^MYMETA\. #!end included /usr/local/perls/perl-5.18.1/lib/5.18.1/ExtUtils/MANIFEST.SKIP \.appveyor\.yml \.releaserc \.lwpcookies Business-.* hacks/ (?:MANIFEST|Changes)\s\d+ # Stupid iCloud artifacts \bMANIFEST\s\d \bChanges\s\d \.icloud$ \A\.github\b \.gitattributes\b lib/Business/ISBN/RangeMessage.xml.new util/ Business-ISBN-Data-20250418.001/examples/0000755000076500000240000000000015000404422016236 5ustar brianstaffBusiness-ISBN-Data-20250418.001/examples/make_default_data.pl0000755000076500000240000001155115000404421022212 0ustar brianstaff#!/usr/bin/perl use v5.10; use open qw(:std :utf8); use lib qw(lib); use Business::ISBN::Data; my $file = $ARGV[0] // 'lib/Business/ISBN/RangeMessage.xml'; =encoding utf8 =head1 NAME make_default_data.pl - digest the latest RangeMessage.xml into default data in the module =head1 SYNOPSIS % curl https://www.isbn-international.org/export_rangemessage.xml > RangeMessage.xml % perl examples/make_default_data.pl RangeMessage.xml Without an argument, it assumes the file is lib/Business/ISBN/RangeMessage.xml % curl https://www.isbn-international.org/export_rangemessage.xml > lib/Business/ISBN/RangeMessage.xml % perl examples/make_default_data.pl =head1 DESCRIPTION This program takes the F and makes the data structure to hard-code into L. The module ships with the F that was current as of the release of the module, but it also hard-codes the same data. That way, the module has the data even if the XML file disappears. The module can also use any F you specify, which allows you to use updated (or even past) data. The hard-coded data always gets you back to that for the release. =head1 SOURCE AVAILABILITY This module lives in a Github repository: https://github.com/briandfoy/business-isbn-data You are probably also interested in the module that uses it: https://github.com/briandfoy/business-isbn If you have something to add, create a fork on Github and send a pull request. =head1 AUTHOR brian d foy, C<< >> Yakov Shafranovich updated the data in October 2008. Daniel Jakubik updated the data in July 2012. Markus Spann suggested looking for F in the current directory to make it work with Perl app bundlers. Josef Moravec C<< >> updated the data in January 2019. Peter Williams fixed a serious issue with ISBN-13 (GitHub #5) =head1 COPYRIGHT AND LICENSE Copyright © 2002-2023, brian d foy . All rights reserved. You may redistribute this under the terms of the Artistic License 2.0. =cut do { warn "Usage: $0 RangeMessage.xml\n"; exit(2) } unless defined $file; do { warn "File <$file> does not exist\n"; exit(2) } unless -e $file; my $data = Business::ISBN::Data::_parse_range_message( $file ); # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # Thu, 16 Mar 2023 20:59:31 GMT say "DATE: $data->{_date}"; my( $day, $mon, $year ) = $data->{_date} =~ m/ # Thu, 16 Mar 2023 20:59:31 GMT \A \S+? , \s+ (? \d+ ) \s (? [a-z]+ ) \s (? \d+ ) /ix; my %months = map { state $n = 1; $_ => $n++ } qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); my( $year, $day ) = @+{qw(year day)}; my( $month ) = $months{ $+{mon} }; my $new_version_date = sprintf '%4d%02d%02d', $year, $month, $day; my $current_date = Business::ISBN::Data->VERSION; my( $major, $minor ) = split /\./, $current_date; my $new_minor = do { if( $new_version_date > $major ) { 1 } elsif( $new_version_date == $major ) { $minor + 1 } else { die "New date ($new_version_date) is older than current version ($current_date)\n"; } }; my $new_version = sprintf '%s.%03d', $new_version_date, $new_minor; say "CURRENT VERSION: $current_date NEW VERSION: $new_version"; # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # my $string = "\t(\n"; foreach my $key ( sort grep /^_/, keys %$data ) { my $value = "'$data->{$key}'"; $value = '__FILE__' if $key eq '_source'; $key = '_data_date' if $key eq '_date'; $string .= sprintf "\t%-10s => %s,\n", $key, $value; } $string .= "\t978 => \{\n%%978%%\n\t\},\n\t979 => \{\n%%979%%\n\t\},\n\t);"; foreach my $k ( qw(978 979) ) { my $s = "\t\t" . join "\n\t\t", map { my $group = $data->{$k}{$_}[0]; $group =~ s/'/\\'/g; my $numbers = join ", ", map { qq('$_') } $data->{$k}{$_}[1]->@*; my $s = sprintf q(%-5s => [ %-30s => [ %s ] ],), $_, qq('$group'), $numbers; $s; } sort { $a <=> $b } keys $data->{$k}->%*; $string =~ s/%%$k%%/$s/; } # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # my $PM_FILE = 'lib/Business/ISBN/Data.pm'; my $TEMP_FILE = 'lib/Business/ISBN/Data.pm.tmp'; open my $in_fh, '<:encoding(UTF-8)', $PM_FILE or die "Could not open $PM_FILE: $!\n"; open my $out_fh, '>:encoding(UTF-8)', $TEMP_FILE or die "Could not open $TEMP_FILE: $!\n"; while(<$in_fh>) { state $in_replace = 0; if( s/\$VERSION = \K'\d+\.\d+'/'$new_version'/ ) { print {$out_fh} $_; next; } elsif( /\A# BEGIN REPLACE/ ) { $in_replace = 1; print {$out_fh} $_; next; } elsif( /\A# END REPLACE/ ) { $in_replace = 0; $string =~ s/\s*\z/\n/; print {$out_fh} $string; print {$out_fh} $_; next; } elsif( $in_replace ) { next; } elsif( ! $in_replace ) { print {$out_fh} $_; next; } } close($in_fh); close($out_fh); rename $TEMP_FILE => $PM_FILE or die "Could not replace $PM_FILE: $!\n"; Business-ISBN-Data-20250418.001/examples/README0000644000076500000240000000010515000404421017111 0ustar brianstaffSee the tests in the t/ directory for examples until I add some more.Business-ISBN-Data-20250418.001/META.yml0000664000076500000240000000156115000404422015676 0ustar brianstaff--- abstract: 'data pack for Business::ISBN' author: - 'brian d foy ' build_requires: Test::More: '1' version: '0.86' configure_requires: ExtUtils::MakeMaker: '6.64' File::Spec::Functions: '0' dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 7.70, CPAN::Meta::Converter version 2.150010' license: artistic_2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: '1.4' name: Business-ISBN-Data no_index: directory: - t - inc requires: Carp: '0' File::Basename: '0' File::Spec::Functions: '0' perl: '5.008' resources: bugtracker: https://github.com/briandfoy/business-isbn-data/issues homepage: https://github.com/briandfoy/business-isbn-data repository: https://github.com/briandfoy/business-isbn-data version: '20250418.001' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' Business-ISBN-Data-20250418.001/lib/0000755000076500000240000000000015000404422015166 5ustar brianstaffBusiness-ISBN-Data-20250418.001/lib/Business/0000755000076500000240000000000015000404422016761 5ustar brianstaffBusiness-ISBN-Data-20250418.001/lib/Business/ISBN/0000755000076500000240000000000015000404422017514 5ustar brianstaffBusiness-ISBN-Data-20250418.001/lib/Business/ISBN/RangeMessage.xml0000644000076500000240000064363515000404421022617 0ustar brianstaff ]> International ISBN Agency ecf41e38-17a5-4a00-8e08-a3b47a56d80f Fri, 18 Apr 2025 04:46:12 BST 978 International ISBN Agency 0000000-5999999 1 6000000-6499999 3 6500000-6599999 2 6600000-6999999 0 7000000-7999999 1 8000000-9499999 2 9500000-9899999 3 9900000-9989999 4 9990000-9999999 5 979 International ISBN Agency 0000000-0999999 0 1000000-1599999 2 1600000-7999999 0 8000000-8999999 1 9000000-9999999 0 978-0 English language 0000000-1999999 2 2000000-2279999 3 2280000-2289999 4 2290000-3689999 3 3690000-3699999 4 3700000-6389999 3 6390000-6397999 4 6398000-6399999 7 6400000-6449999 3 6450000-6459999 7 6460000-6479999 3 6480000-6489999 7 6490000-6549999 3 6550000-6559999 4 6560000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9003709 6 9003710-9003719 7 9003720-9499999 6 9500000-9999999 7 978-1 English language 0000000-0099999 3 0100000-0299999 2 0300000-0349999 3 0350000-0399999 4 0400000-0489999 3 0490000-0499999 4 0500000-0599999 2 0600000-0669999 0 0670000-0699999 7 0700000-0999999 4 1000000-3979999 3 3980000-5499999 4 5500000-6499999 5 6500000-6799999 4 6800000-6859999 5 6860000-7139999 4 7140000-7169999 3 7170000-7319999 4 7320000-7399999 7 7400000-7619999 5 7620000-7634999 4 7635000-7649999 7 7650000-7749999 5 7750000-7753999 7 7754000-7763999 5 7764000-7764999 7 7765000-7769999 5 7770000-7782999 7 7783000-7899999 5 7900000-7999999 4 8000000-8004999 5 8005000-8049999 5 8050000-8379999 5 8380000-8384999 7 8385000-8671999 5 8672000-8675999 4 8676000-8697999 5 8698000-9159999 6 9160000-9165059 7 9165060-9168699 6 9168700-9169079 7 9169080-9195999 6 9196000-9196549 7 9196550-9729999 6 9730000-9877999 4 9878000-9911499 6 9911500-9911999 7 9912000-9989899 6 9989900-9999999 7 978-2 French language 0000000-1999999 2 2000000-3499999 3 3500000-3999999 5 4000000-4869999 3 4870000-4949999 6 4950000-4959999 3 4960000-4966999 4 4967000-4969999 5 4970000-5279999 3 5280000-5299999 4 5300000-6999999 3 7000000-8399999 4 8400000-8999999 5 9000000-9197999 6 9198000-9198099 5 9198100-9199429 6 9199430-9199689 7 9199690-9499999 6 9500000-9999999 7 978-3 German language 0000000-0299999 2 0300000-0339999 3 0340000-0369999 4 0370000-0399999 5 0400000-1999999 2 2000000-3899999 3 3900000-3999999 2 4000000-6889999 3 6890000-6949999 5 6950000-8499999 4 8500000-8999999 5 9000000-9499999 6 9500000-9539999 7 9540000-9699999 5 9700000-9849999 7 9850000-9995999 5 9996000-9999999 4 978-4 Japan 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9499999 6 9500000-9999999 7 978-5 former U.S.S.R 0000000-0049999 5 0050000-0099999 4 0100000-1999999 2 2000000-3619999 3 3620000-3623999 4 3624000-3629999 5 3630000-4209999 3 4210000-4299999 4 4300000-4309999 3 4310000-4399999 4 4400000-4409999 3 4410000-4499999 4 4500000-6039999 3 6040000-6049999 7 6050000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9099999 6 9100000-9199999 5 9200000-9299999 4 9300000-9499999 5 9500000-9500999 7 9501000-9799999 4 9800000-9899999 5 9900000-9909999 7 9910000-9999999 4 978-600 Iran 0000000-0999999 2 1000000-4999999 3 5000000-8999999 4 9000000-9867999 5 9868000-9929999 4 9930000-9959999 3 9960000-9999999 5 978-601 Kazakhstan 0000000-1999999 2 2000000-6999999 3 7000000-7999999 4 8000000-8499999 5 8500000-9999999 2 978-602 Indonesia 0000000-0699999 2 0700000-1399999 4 1400000-1499999 5 1500000-1699999 4 1700000-1999999 5 2000000-4999999 3 5000000-5399999 5 5400000-5999999 4 6000000-6199999 5 6200000-6999999 4 7000000-7499999 5 7500000-9499999 4 9500000-9999999 5 978-603 Saudi Arabia 0000000-0499999 2 0500000-4999999 2 5000000-7999999 3 8000000-8999999 4 9000000-9999999 5 978-604 Vietnam 0000000-2999999 1 3000000-3999999 3 4000000-4699999 2 4700000-4979999 3 4980000-4999999 4 5000000-8999999 2 9000000-9799999 3 9800000-9999999 4 978-605 Türkiye 0000000-0299999 2 0300000-0399999 3 0400000-0599999 2 0600000-0699999 5 0700000-0999999 2 1000000-1999999 3 2000000-2399999 4 2400000-3999999 3 4000000-5999999 4 6000000-7499999 5 7500000-7999999 4 8000000-8999999 5 9000000-9999999 4 978-606 Romania 0000000-0999999 3 1000000-4999999 2 5000000-7999999 3 8000000-9099999 4 9100000-9199999 3 9200000-9599999 5 9600000-9749999 4 9750000-9999999 3 978-607 Mexico 0000000-2599999 2 2600000-2649999 4 2650000-2699999 5 2700000-3999999 2 4000000-5889999 3 5890000-5929999 4 5930000-5999999 5 6000000-6949999 3 6950000-6999999 5 7000000-7499999 3 7500000-9499999 4 9500000-9999999 5 978-608 North Macedonia 0000000-0999999 1 1000000-1999999 2 2000000-4499999 3 4500000-6499999 4 6500000-6999999 5 7000000-9999999 1 978-609 Lithuania 0000000-3999999 2 4000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-611 Thailand 0000000-9999999 0 978-612 Peru 0000000-2999999 2 3000000-3999999 3 4000000-4499999 4 4500000-4999999 5 5000000-5224999 4 5225000-9999999 0 978-613 Mauritius 0000000-9999999 1 978-614 Lebanon 0000000-3999999 2 4000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-615 Hungary 0000000-0999999 2 1000000-4999999 3 5000000-7999999 4 8000000-8999999 5 9000000-9999999 0 978-616 Thailand 0000000-1999999 2 2000000-6999999 3 7000000-8999999 4 9000000-9999999 5 978-617 Ukraine 0000000-4999999 2 5000000-6999999 3 7000000-8999999 4 9000000-9999999 5 978-618 Greece 0000000-1999999 2 2000000-4999999 3 5000000-7999999 4 8000000-9999999 5 978-619 Bulgaria 0000000-1499999 2 1500000-6999999 3 7000000-8999999 4 9000000-9999999 5 978-620 Mauritius 0000000-9999999 1 978-621 Philippines 0000000-2999999 2 3000000-3999999 0 4000000-5999999 3 6000000-7999999 0 8000000-8999999 4 9000000-9499999 0 9500000-9999999 5 978-622 Iran 0000000-1099999 2 1100000-1999999 0 2000000-4599999 3 4600000-8749999 4 8750000-9999999 5 978-623 Indonesia 0000000-1099999 2 1100000-5249999 3 5250000-8799999 4 8800000-9999999 5 978-624 Sri Lanka 0000000-0499999 2 0500000-1999999 0 2000000-2499999 3 2500000-4999999 0 5000000-6899999 4 6900000-9199999 0 9200000-9999999 5 978-625 Türkiye 0000000-0199999 2 0200000-3199999 0 3200000-4429999 3 4430000-4449999 5 4450000-4499999 3 4500000-5499999 0 5500000-7793999 4 7794000-7794999 5 7795000-8499999 4 8500000-9399999 0 9400000-9999999 5 978-626 Taiwan 0000000-0499999 2 0500000-2999999 0 3000000-4999999 3 5000000-6999999 0 7000000-7999999 4 8000000-9499999 0 9500000-9999999 5 978-627 Pakistan 0000000-2999999 0 3000000-3199999 2 3200000-4999999 0 5000000-5299999 3 5300000-7399999 0 7400000-7999999 4 8000000-9449999 0 9450000-9514999 5 9515000-9999999 0 978-628 Colombia 0000000-0999999 2 1000000-4999999 0 5000000-5499999 3 5500000-7499999 0 7500000-8499999 4 8500000-9499999 0 9500000-9999999 5 978-629 Malaysia 0000000-0299999 2 0300000-4599999 0 4600000-4999999 3 5000000-7499999 0 7500000-7999999 4 8000000-9499999 0 9500000-9999999 5 978-630 Romania 0000000-2999999 0 3000000-3999999 3 4000000-6499999 0 6500000-6849999 4 6850000-9499999 0 9500000-9999999 5 978-631 Argentina 0000000-0999999 2 1000000-2999999 0 3000000-3999999 3 4000000-6499999 0 6500000-7499999 4 7500000-8999999 0 9000000-9999999 5 978-632 Vietnam 0000000-1199999 2 1200000-5999999 0 6000000-6799999 3 6800000-9999999 0 978-633 Egypt 0000000-0199999 2 0200000-2999999 0 3000000-3499999 3 3500000-8249999 0 8250000-8999999 4 9000000-9949999 0 9950000-9999999 5 978-634 Indonesia 0000000-0499999 2 0500000-1999999 0 2000000-3499999 3 3500000-6999999 0 7000000-7999999 4 8000000-9599999 0 9600000-9999999 5 978-65 Brazil 0000000-0199999 2 0200000-2499999 0 2500000-2999999 3 3000000-3029999 3 3030000-4999999 0 5000000-6149999 4 6150000-7999999 0 8000000-8182499 5 8182500-8299999 0 8300000-8999999 5 9000000-9024499 6 9024500-9799999 0 9800000-9999999 6 978-7 China, People's Republic 0000000-0999999 2 1000000-4999999 3 5000000-7999999 4 8000000-8999999 5 9000000-9999999 6 978-80 former Czechoslovakia 0000000-1999999 2 2000000-5299999 3 5300000-5499999 5 5500000-6899999 3 6900000-6999999 5 7000000-8499999 4 8500000-8999999 5 9000000-9989999 6 9990000-9999999 5 978-81 India 0000000-1899999 2 1900000-1999999 5 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9999999 6 978-82 Norway 0000000-1999999 2 2000000-6899999 3 6900000-6999999 6 7000000-8999999 4 9000000-9899999 5 9900000-9999999 6 978-83 Poland 0000000-1999999 2 2000000-5999999 3 6000000-6999999 5 7000000-8499999 4 8500000-8999999 5 9000000-9999999 6 978-84 Spain 0000000-0999999 2 1000000-1049999 5 1050000-1199999 4 1200000-1299999 6 1300000-1399999 4 1400000-1499999 3 1500000-1999999 5 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9199999 4 9200000-9239999 6 9240000-9299999 5 9300000-9499999 6 9500000-9699999 5 9700000-9999999 4 978-85 Brazil 0000000-1999999 2 2000000-4549999 3 4550000-4552999 6 4553000-4559999 5 4560000-5289999 3 5290000-5319999 5 5320000-5339999 4 5340000-5399999 3 5400000-5402999 5 5403000-5403999 5 5404000-5404999 6 5405000-5408999 5 5409000-5409999 6 5410000-5439999 5 5440000-5479999 4 5480000-5499999 5 5500000-5999999 4 6000000-6999999 5 7000000-8499999 4 8500000-8999999 5 9000000-9249999 6 9250000-9449999 5 9450000-9599999 4 9600000-9799999 2 9800000-9999999 5 978-86 former Yugoslavia 0000000-2999999 2 3000000-5999999 3 6000000-7999999 4 8000000-8999999 5 9000000-9999999 6 978-87 Denmark 0000000-2999999 2 3000000-3999999 0 4000000-6499999 3 6500000-6999999 0 7000000-7999999 4 8000000-8499999 0 8500000-9499999 5 9500000-9699999 0 9700000-9999999 6 978-88 Italy 0000000-1999999 2 2000000-3119999 3 3120000-3149999 5 3150000-3189999 3 3190000-3229999 5 3230000-3269999 3 3270000-3389999 4 3390000-3609999 3 3610000-3629999 4 3630000-5489999 3 5490000-5549999 4 5550000-5999999 3 6000000-8499999 4 8500000-8999999 5 9000000-9099999 6 9100000-9269999 3 9270000-9399999 4 9400000-9479999 6 9480000-9999999 5 978-89 Korea, Republic 0000000-2499999 2 2500000-5499999 3 5500000-8499999 4 8500000-9499999 5 9500000-9699999 6 9700000-9899999 5 9900000-9999999 3 978-90 Netherlands 0000000-1999999 2 2000000-4999999 3 5000000-6999999 4 7000000-7999999 5 8000000-8499999 6 8500000-8999999 4 9000000-9099999 2 9100000-9399999 0 9400000-9499999 2 9500000-9999999 0 978-91 Sweden 0000000-1999999 1 2000000-4999999 2 5000000-6499999 3 6500000-6999999 0 7000000-8199999 4 8200000-8499999 0 8500000-9499999 5 9500000-9699999 0 9700000-9999999 6 978-92 International NGO Publishers and EU Organizations 0000000-5999999 1 6000000-7999999 2 8000000-8999999 3 9000000-9499999 4 9500000-9899999 5 9900000-9999999 6 978-93 India 0000000-0999999 2 1000000-4799999 3 4800000-4999999 5 5000000-7999999 4 8000000-9599999 5 9600000-9999999 6 978-94 Netherlands 0000000-5999999 3 6000000-6387999 4 6388000-6388099 6 6388100-6388199 5 6388200-6388399 6 6388400-6388599 5 6388600-6388699 6 6388700-6388999 5 6389000-6395999 4 6396000-6396099 6 6396100-6396299 5 6396300-6396399 6 6396400-6396499 5 6396500-6396599 6 6396600-6396999 5 6397000-6399999 4 6400000-6400099 6 6400100-6400499 5 6400500-6400599 6 6400600-6400699 5 6400700-6400899 6 6400900-6400999 5 6401000-6406999 4 6407000-6407399 6 6407400-6407499 5 6407500-6407599 6 6407600-6407799 5 6407800-6407999 6 6408000-6419999 4 6420000-6420199 5 6420200-6420299 6 6420300-6420399 5 6420400-6420499 6 6420500-6420699 5 6420700-6420799 6 6420800-6420899 5 6420900-6420999 6 6421000-6432999 4 6433000-6433199 5 6433200-6433299 6 6433300-6433399 5 6433400-6433599 6 6433600-6433699 5 6433700-6433799 6 6433800-6433999 5 6434000-6435999 4 6436000-6436099 6 6436100-6436399 5 6436400-6436599 6 6436600-6436699 5 6436700-6436799 6 6436800-6436999 5 6437000-6443999 4 6444000-6444099 6 6444100-6444199 5 6444200-6444299 6 6444300-6444399 5 6444400-6444499 6 6444500-6444699 5 6444700-6444899 6 6444900-6444999 5 6445000-6450999 4 6451000-6451299 5 6451300-6451399 6 6451400-6451599 5 6451600-6451999 6 6452000-6458999 4 6459000-6459099 6 6459100-6459299 5 6459300-6459499 6 6459500-6459699 5 6459700-6459899 6 6459900-6459999 5 6460000-6465999 4 6466000-6466099 6 6466100-6466299 5 6466300-6466599 6 6466600-6466699 5 6466700-6466899 6 6466900-6466999 5 6467000-6474999 4 6475000-6475199 5 6475200-6475399 6 6475400-6475499 5 6475500-6475599 6 6475600-6475799 5 6475800-6475899 6 6475900-6475999 5 6476000-6476999 4 6477000-6477089 6 6477090-6477099 0 6477100-6477199 5 6477200-6477229 0 6477230-6477299 6 6477300-6477399 5 6477400-6477699 6 6477700-6477999 5 6478000-6478099 6 6478100-6478199 5 6478200-6478299 6 6478300-6478699 5 6478700-6478799 6 6478800-6478999 5 6479000-6493999 4 6494000-6494099 6 6494100-6494299 5 6494300-6494499 6 6494500-6494699 5 6494700-6494799 6 6494800-6494899 5 6494900-6494999 6 6495000-6497999 4 6498000-6498099 5 6498100-6498299 6 6498300-6498499 5 6498500-6498699 6 6498700-6498799 5 6498800-6498999 6 6499000-8999999 4 9000000-9999999 5 978-950 Argentina 0000000-4999999 2 5000000-8999999 3 9000000-9899999 4 9900000-9999999 5 978-951 Finland 0000000-1999999 1 2000000-5499999 2 5500000-8899999 3 8900000-9499999 4 9500000-9999999 5 978-952 Finland 0000000-1999999 2 2000000-4999999 3 5000000-5999999 4 6000000-6499999 2 6500000-6599999 5 6600000-6699999 4 6700000-6999999 5 7000000-7999999 4 8000000-9499999 2 9500000-9899999 4 9900000-9999999 5 978-953 Croatia 0000000-0999999 1 1000000-1499999 2 1500000-4599999 3 4600000-4999999 5 5000000-5009999 3 5010000-5099999 5 5100000-5499999 2 5500000-5999999 5 6000000-9499999 4 9500000-9999999 5 978-954 Bulgaria 0000000-2899999 2 2900000-2999999 4 3000000-7999999 3 8000000-8999999 4 9000000-9299999 5 9300000-9999999 4 978-955 Sri Lanka 0000000-1999999 4 2000000-3399999 2 3400000-3549999 4 3550000-3599999 5 3600000-3799999 4 3800000-3899999 5 3900000-4099999 4 4100000-4499999 5 4500000-4999999 4 5000000-5499999 5 5500000-7109999 3 7110000-7149999 5 7150000-9499999 4 9500000-9999999 5 978-956 Chile 0000000-0799999 2 0800000-0849999 5 0850000-0899999 0 0900000-0999999 5 1000000-1999999 2 2000000-5999999 3 6000000-6999999 4 7000000-9999999 4 978-957 Taiwan 0000000-0299999 2 0300000-0499999 4 0500000-1999999 2 2000000-2099999 4 2100000-2799999 2 2800000-3099999 5 3100000-4399999 2 4400000-8199999 3 8200000-9699999 4 9700000-9999999 5 978-958 Colombia 0000000-4999999 2 5000000-5099999 3 5100000-5199999 4 5200000-5399999 5 5400000-5599999 4 5600000-5999999 5 6000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-959 Cuba 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-9999999 5 978-960 Greece 0000000-1999999 2 2000000-6599999 3 6600000-6899999 4 6900000-6999999 3 7000000-8499999 4 8500000-9299999 5 9300000-9399999 2 9400000-9799999 4 9800000-9999999 5 978-961 Slovenia 0000000-1999999 2 2000000-5999999 3 6000000-8999999 4 9000000-9799999 5 9800000-9999999 0 978-962 Hong Kong, China 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8699999 5 8700000-8999999 4 9000000-9999999 3 978-963 Hungary 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9999999 4 978-964 Iran 0000000-1499999 2 1500000-2499999 3 2500000-2999999 4 3000000-5499999 3 5500000-8999999 4 9000000-9699999 5 9700000-9899999 3 9900000-9999999 4 978-965 Israel 0000000-1999999 2 2000000-5999999 3 6000000-6999999 0 7000000-7999999 4 8000000-8999999 0 9000000-9999999 5 978-966 Ukraine 0000000-1299999 2 1300000-1399999 3 1400000-1499999 2 1500000-1699999 4 1700000-1999999 3 2000000-2789999 4 2790000-2899999 3 2900000-2999999 4 3000000-6999999 3 7000000-8999999 4 9000000-9099999 5 9100000-9499999 3 9500000-9799999 5 9800000-9999999 3 978-967 Malaysia 0000000-0999999 4 1000000-1999999 5 2000000-2499999 4 2500000-2549999 3 2550000-2699999 5 2700000-2799999 4 2800000-2999999 4 3000000-4999999 3 5000000-5999999 4 6000000-8999999 2 9000000-9899999 3 9900000-9989999 4 9990000-9999999 5 978-968 Mexico 0100000-3999999 2 4000000-4999999 3 5000000-7999999 4 8000000-8999999 3 9000000-9999999 4 978-969 Pakistan 0000000-1999999 1 2000000-2099999 2 2100000-2199999 3 2200000-2299999 4 2300000-2399999 5 2400000-3999999 2 4000000-7499999 3 7500000-9999999 4 978-970 Mexico 0100000-5999999 2 6000000-8999999 3 9000000-9099999 4 9100000-9699999 5 9700000-9999999 4 978-971 Philippines 0000000-0159999 3 0160000-0199999 4 0200000-0299999 2 0300000-0599999 4 0600000-4999999 2 5000000-8499999 3 8500000-9099999 4 9100000-9599999 5 9600000-9699999 4 9700000-9899999 2 9900000-9999999 4 978-972 Portugal 0000000-1999999 1 2000000-5499999 2 5500000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-973 Romania 0000000-0999999 1 1000000-1699999 3 1700000-1999999 4 2000000-5499999 2 5500000-7599999 3 7600000-8499999 4 8500000-8899999 5 8900000-9499999 4 9500000-9999999 5 978-974 Thailand 0000000-1999999 2 2000000-6999999 3 7000000-8499999 4 8500000-8999999 5 9000000-9499999 5 9500000-9999999 4 978-975 Türkiye 0000000-0199999 5 0200000-2399999 2 2400000-2499999 4 2500000-5999999 3 6000000-9199999 4 9200000-9899999 5 9900000-9999999 3 978-976 Caribbean Community 0000000-3999999 1 4000000-5999999 2 6000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-977 Egypt 0000000-1999999 2 2000000-4999999 3 5000000-6999999 4 7000000-8499999 3 8500000-8739999 5 8740000-8899999 4 8900000-8949999 3 8950000-8999999 4 9000000-9599999 2 9600000-9699999 4 9700000-9999999 3 978-978 Nigeria 0000000-1999999 3 2000000-2999999 4 3000000-6949999 5 6950000-6999999 3 7000000-7649999 0 7650000-7999999 3 8000000-8999999 4 9000000-9999999 3 978-979 Indonesia 0000000-0999999 3 1000000-1499999 4 1500000-1999999 5 2000000-2999999 2 3000000-3999999 4 4000000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-980 Venezuela 0000000-1999999 2 2000000-5999999 3 6000000-9999999 4 978-981 Singapore 0000000-1699999 2 1700000-1799999 5 1800000-1999999 2 2000000-2999999 3 3000000-3099999 4 3100000-3999999 3 4000000-5999999 4 6000000-9399999 0 9400000-9999999 2 978-982 South Pacific 0000000-0999999 2 1000000-6999999 3 7000000-8999999 2 9000000-9799999 4 9800000-9999999 5 978-983 Malaysia 0000000-0199999 2 0200000-1999999 3 2000000-3999999 4 4000000-4499999 5 4500000-4999999 2 5000000-7999999 2 8000000-8999999 3 9000000-9899999 4 9900000-9999999 5 978-984 Bangladesh 0000000-2199999 2 2200000-2249999 3 2250000-2599999 4 2600000-2899999 2 2900000-2999999 5 3000000-3899999 2 3900000-3999999 4 4000000-7999999 3 8000000-8999999 4 9000000-9999999 5 978-985 Belarus 0000000-3999999 2 4000000-5999999 3 6000000-8799999 4 8800000-8999999 3 9000000-9999999 5 978-986 Taiwan 0000000-0599999 2 0600000-0699999 5 0700000-0799999 4 0800000-1199999 2 1200000-5399999 3 5400000-7999999 4 8000000-9999999 5 978-987 Argentina 0000000-0999999 2 1000000-1999999 4 2000000-2999999 5 3000000-3599999 2 3600000-4199999 4 4200000-4399999 2 4400000-4499999 4 4500000-4899999 5 4900000-4999999 4 5000000-8249999 3 8250000-8279999 4 8280000-8299999 5 8300000-8499999 4 8500000-8899999 2 8900000-9499999 4 9500000-9999999 5 978-988 Hong Kong, China 0000000-1199999 2 1200000-1999999 5 2000000-6999999 3 7000000-7999999 5 8000000-9699999 4 9700000-9999999 5 978-989 Portugal 0000000-1999999 1 2000000-3499999 2 3500000-3699999 5 3700000-5299999 2 5300000-5499999 5 5500000-7999999 3 8000000-9499999 4 9500000-9999999 5 978-9907 Ecuador 0000000-0999999 1 1000000-4999999 0 5000000-6499999 2 6500000-7999999 0 8000000-8749999 3 8750000-9999999 0 978-9908 Estonia 0000000-1999999 1 2000000-4999999 0 5000000-6999999 2 7000000-8249999 0 8250000-8999999 3 9000000-9699999 0 9700000-9999999 4 978-9909 Tunisia 0000000-1999999 2 2000000-7499999 0 7500000-8499999 3 8500000-9799999 0 9800000-9999999 4 978-9910 Uzbekistan 0000000-0099999 0 0100000-1299999 2 1300000-5499999 0 5500000-7999999 3 8000000-9999999 4 978-9911 Montenegro 0000000-1999999 0 2000000-2499999 2 2500000-5499999 0 5500000-7499999 3 7500000-9499999 0 9500000-9999999 4 978-9912 Tanzania 0000000-3999999 0 4000000-4499999 2 4500000-7499999 0 7500000-7999999 3 8000000-9799999 0 9800000-9999999 4 978-9913 Uganda 0000000-0799999 2 0800000-5999999 0 6000000-6999999 3 7000000-9549999 0 9550000-9999999 4 978-9914 Kenya 0000000-3499999 0 3500000-5599999 2 5600000-6999999 0 7000000-7749999 3 7750000-9449999 0 9450000-9999999 4 978-9915 Uruguay 0000000-3999999 0 4000000-5999999 2 6000000-6499999 0 6500000-7999999 3 8000000-9299999 0 9300000-9999999 4 978-9916 Estonia 0000000-0999999 1 1000000-3999999 2 4000000-5999999 1 6000000-7899999 3 7900000-9199999 2 9200000-9399999 4 9400000-9499999 2 9500000-9999999 4 978-9917 Bolivia 0000000-0999999 1 1000000-2999999 0 3000000-3499999 2 3500000-5999999 0 6000000-6999999 3 7000000-9624999 0 9625000-9999999 4 978-9918 Malta 0000000-0999999 1 1000000-1999999 0 2000000-2999999 2 3000000-5999999 0 6000000-7999999 3 8000000-9499999 0 9500000-9999999 4 978-9919 Mongolia 0000000-0999999 1 1000000-1999999 0 2000000-2999999 2 3000000-4999999 0 5000000-5999999 3 6000000-8999999 0 9000000-9999999 4 978-9920 Morocco 0000000-2299999 0 2300000-4299999 2 4300000-7999999 3 8000000-8549999 0 8550000-9999999 4 978-9921 Kuwait 0000000-0999999 1 1000000-2999999 0 3000000-3999999 2 4000000-6999999 0 7000000-8999999 3 9000000-9699999 0 9700000-9999999 4 978-9922 Iraq 0000000-1999999 0 2000000-2999999 2 3000000-5999999 0 6000000-7999999 3 8000000-8249999 0 8250000-9999999 4 978-9923 Jordan 0000000-0999999 1 1000000-6999999 2 7000000-8999999 3 9000000-9399999 0 9400000-9999999 4 978-9924 Cambodia 0000000-2799999 0 2800000-3999999 2 4000000-4999999 0 5000000-6599999 3 6600000-8949999 0 8950000-9999999 4 978-9925 Cyprus 0000000-2999999 1 3000000-5499999 2 5500000-7349999 3 7350000-9999999 4 978-9926 Bosnia and Herzegovina 0000000-1999999 1 2000000-3999999 2 4000000-7999999 3 8000000-9999999 4 978-9927 Qatar 0000000-0999999 2 1000000-3999999 3 4000000-4999999 4 5000000-9999999 0 978-9928 Albania 0000000-0999999 2 1000000-3999999 3 4000000-4999999 4 5000000-7999999 0 8000000-8999999 3 9000000-9999999 2 978-9929 Guatemala 0000000-3999999 1 4000000-5499999 2 5500000-7999999 3 8000000-9999999 4 978-9930 Costa Rica 0000000-4999999 2 5000000-9399999 3 9400000-9999999 4 978-9931 Algeria 0000000-2399999 2 2400000-8999999 3 9000000-9999999 4 978-9932 Lao People's Democratic Republic 0000000-3999999 2 4000000-8499999 3 8500000-9999999 4 978-9933 Syria 0000000-0999999 1 1000000-3999999 2 4000000-8699999 3 8700000-8999999 2 9000000-9999999 4 978-9934 Latvia 0000000-0999999 1 1000000-4999999 2 5000000-7999999 3 8000000-9999999 4 978-9935 Iceland 0000000-0999999 1 1000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9936 Afghanistan 0000000-1999999 1 2000000-3999999 2 4000000-7999999 3 8000000-9999999 4 978-9937 Nepal 0000000-2999999 1 3000000-4999999 2 5000000-7999999 3 8000000-9999999 4 978-9938 Tunisia 0000000-7999999 2 8000000-9499999 3 9500000-9749999 4 9750000-9909999 3 9910000-9999999 4 978-9939 Armenia 0000000-3999999 1 4000000-4799999 2 4800000-4999999 3 5000000-7999999 2 8000000-8999999 3 9000000-9599999 4 9600000-9799999 3 9800000-9999999 2 978-9940 Montenegro 0000000-1999999 1 2000000-4999999 2 5000000-8399999 3 8400000-8699999 2 8700000-9999999 4 978-9941 Georgia 0000000-0999999 1 1000000-3999999 2 4000000-7999999 3 8000000-8999999 1 9000000-9999999 4 978-9942 Ecuador 0000000-5599999 2 5600000-6999999 3 7000000-7499999 4 7500000-8499999 3 8500000-8999999 4 9000000-9849999 3 9850000-9999999 4 978-9943 Uzbekistan 0000000-2999999 2 3000000-3999999 3 4000000-9749999 4 9750000-9999999 3 978-9944 Türkiye 0000000-0999999 4 1000000-4999999 3 5000000-5999999 4 6000000-6999999 2 7000000-7999999 3 8000000-8999999 2 9000000-9999999 3 978-9945 Dominican Republic 0000000-0099999 2 0100000-0799999 3 0800000-3999999 2 4000000-5699999 3 5700000-5799999 2 5800000-7999999 3 8000000-8099999 2 8100000-8499999 3 8500000-9999999 4 978-9946 Korea, P.D.R. 0000000-1999999 1 2000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9947 Algeria 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-9948 United Arab Emirates 0000000-3999999 2 4000000-8499999 3 8500000-9999999 4 978-9949 Estonia 0000000-0899999 2 0900000-0999999 3 1000000-3999999 2 4000000-6999999 3 7000000-7199999 2 7200000-7499999 4 7500000-8999999 2 9000000-9999999 4 978-9950 Palestine 0000000-2999999 2 3000000-8499999 3 8500000-9999999 4 978-9951 Kosova 0000000-3899999 2 3900000-8499999 3 8500000-9799999 4 9800000-9999999 3 978-9952 Azerbaijan 0000000-0999999 1 1000000-1499999 0 1500000-3999999 2 4000000-7999999 3 8000000-9999999 4 978-9953 Lebanon 0000000-0999999 1 1000000-3999999 2 4000000-5999999 3 6000000-8999999 2 9000000-9299999 4 9300000-9699999 2 9700000-9999999 3 978-9954 Morocco 0000000-1999999 1 2000000-3999999 2 4000000-7999999 3 8000000-9899999 4 9900000-9999999 2 978-9955 Lithuania 0000000-3999999 2 4000000-9299999 3 9300000-9999999 4 978-9956 Cameroon 0000000-0999999 1 1000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9957 Jordan 0000000-3999999 2 4000000-6499999 3 6500000-6799999 2 6800000-6999999 3 7000000-8499999 2 8500000-8799999 4 8800000-9999999 2 978-9958 Bosnia and Herzegovina 0000000-0199999 2 0200000-0299999 3 0300000-0399999 4 0400000-0899999 3 0900000-0999999 4 1000000-1899999 2 1900000-1999999 4 2000000-4999999 2 5000000-8999999 3 9000000-9999999 4 978-9959 Libya 0000000-1999999 1 2000000-7999999 2 8000000-9499999 3 9500000-9699999 4 9700000-9799999 3 9800000-9999999 2 978-9960 Saudi Arabia 0000000-5999999 2 6000000-8999999 3 9000000-9999999 4 978-9961 Algeria 0000000-2999999 1 3000000-6999999 2 7000000-9499999 3 9500000-9999999 4 978-9962 Panama 0000000-5499999 2 5500000-5599999 4 5600000-5999999 2 6000000-8499999 3 8500000-9999999 4 978-9963 Cyprus 0000000-1999999 1 2000000-2499999 4 2500000-2799999 3 2800000-2999999 4 3000000-5499999 2 5500000-7349999 3 7350000-7499999 4 7500000-9999999 4 978-9964 Ghana 0000000-6999999 1 7000000-9499999 2 9500000-9999999 3 978-9965 Kazakhstan 0000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9966 Kenya 0000000-1399999 3 1400000-1499999 2 1500000-1999999 4 2000000-6999999 2 7000000-7499999 4 7500000-8209999 3 8210000-8249999 4 8250000-8259999 3 8260000-8289999 4 8290000-9599999 3 9600000-9999999 4 978-9967 Kyrgyz Republic 0000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9968 Costa Rica 0000000-4999999 2 5000000-9399999 3 9400000-9999999 4 978-9969 Algeria 0000000-1299999 2 1300000-4999999 0 5000000-6499999 3 6500000-9699999 0 9700000-9999999 4 978-9970 Uganda 0000000-3999999 2 4000000-8999999 3 9000000-9999999 4 978-9971 Singapore 0000000-5999999 1 6000000-8999999 2 9000000-9899999 3 9900000-9999999 4 978-9972 Peru 0000000-0999999 2 1000000-1999999 1 2000000-2499999 3 2500000-2999999 4 3000000-5999999 2 6000000-8999999 3 9000000-9999999 4 978-9973 Tunisia 0000000-0599999 2 0600000-0899999 3 0900000-0999999 4 1000000-6999999 2 7000000-9699999 3 9700000-9999999 4 978-9974 Uruguay 0000000-2999999 1 3000000-5499999 2 5500000-7499999 3 7500000-8799999 4 8800000-9099999 3 9100000-9499999 2 9500000-9999999 2 978-9975 Moldova 0000000-0999999 1 1000000-2999999 3 3000000-3999999 4 4000000-4499999 4 4500000-8999999 2 9000000-9499999 3 9500000-9999999 4 978-9976 Tanzania 0000000-4999999 1 5000000-5799999 4 5800000-5899999 3 5900000-8999999 2 9000000-9899999 3 9900000-9999999 4 978-9977 Costa Rica 0000000-8999999 2 9000000-9899999 3 9900000-9999999 4 978-9978 Ecuador 0000000-2999999 2 3000000-3999999 3 4000000-9499999 2 9500000-9899999 3 9900000-9999999 4 978-9979 Iceland 0000000-4999999 1 5000000-6499999 2 6500000-6599999 3 6600000-7599999 2 7600000-8999999 3 9000000-9999999 4 978-9980 Papua New Guinea 0000000-3999999 1 4000000-8999999 2 9000000-9899999 3 9900000-9999999 4 978-9981 Morocco 0000000-0999999 2 1000000-1599999 3 1600000-1999999 4 2000000-7999999 2 8000000-9499999 3 9500000-9999999 4 978-9982 Zambia 0000000-7999999 2 8000000-9899999 3 9900000-9999999 4 978-9983 Gambia 0000000-7999999 0 8000000-9499999 2 9500000-9899999 3 9900000-9999999 4 978-9984 Latvia 0000000-4999999 2 5000000-8999999 3 9000000-9999999 4 978-9985 Estonia 0000000-4999999 1 5000000-7999999 2 8000000-8999999 3 9000000-9999999 4 978-9986 Lithuania 0000000-3999999 2 4000000-8999999 3 9000000-9399999 4 9400000-9699999 3 9700000-9999999 2 978-9987 Tanzania 0000000-3999999 2 4000000-8799999 3 8800000-9999999 4 978-9988 Ghana 0000000-3999999 1 4000000-5499999 2 5500000-7499999 3 7500000-9999999 4 978-9989 North Macedonia 0000000-0999999 1 1000000-1999999 3 2000000-2999999 4 3000000-5999999 2 6000000-9499999 3 9500000-9999999 4 978-99901 Bahrain 0000000-4999999 2 5000000-7999999 3 8000000-9999999 2 978-99902 Reserved Agency 0000000-9999999 0 978-99903 Mauritius 0000000-1999999 1 2000000-8999999 2 9000000-9999999 3 978-99904 Curaçao 0000000-5999999 1 6000000-8999999 2 9000000-9999999 3 978-99905 Bolivia 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99906 Kuwait 0000000-2999999 1 3000000-5999999 2 6000000-6999999 3 7000000-8999999 2 9000000-9499999 2 9500000-9999999 3 978-99908 Malawi 0000000-0999999 1 1000000-8999999 2 9000000-9999999 3 978-99909 Malta 0000000-3999999 1 4000000-9499999 2 9500000-9999999 3 978-99910 Sierra Leone 0000000-2999999 1 3000000-8999999 2 9000000-9999999 3 978-99911 Lesotho 0000000-5999999 2 6000000-9999999 3 978-99912 Botswana 0000000-3999999 1 4000000-5999999 3 6000000-8999999 2 9000000-9999999 3 978-99913 Andorra 0000000-2999999 1 3000000-3599999 2 3600000-5999999 0 6000000-6049999 3 6050000-9999999 0 978-99914 International NGO Publishers 0000000-4999999 1 5000000-6999999 2 7000000-7999999 1 8000000-8699999 2 8700000-8799999 3 8800000-8999999 2 9000000-9999999 3 978-99915 Maldives 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99916 Namibia 0000000-2999999 1 3000000-6999999 2 7000000-9999999 3 978-99917 Brunei Darussalam 0000000-2999999 1 3000000-8899999 2 8900000-9999999 3 978-99918 Faroe Islands 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99919 Benin 0000000-2999999 1 3000000-3999999 3 4000000-7999999 2 8000000-9999999 3 978-99920 Andorra 0000000-4999999 1 5000000-8999999 2 9000000-9999999 3 978-99921 Qatar 0000000-1999999 1 2000000-6999999 2 7000000-7999999 3 8000000-8999999 1 9000000-9999999 2 978-99922 Guatemala 0000000-3999999 1 4000000-6999999 2 7000000-9999999 3 978-99923 El Salvador 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99924 Nicaragua 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99925 Paraguay 0000000-0999999 1 1000000-1999999 2 2000000-2999999 3 3000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99926 Honduras 0000000-0999999 1 1000000-5999999 2 6000000-8699999 3 8700000-8999999 2 9000000-9999999 2 978-99927 Albania 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99928 Georgia 0000000-0999999 1 1000000-7999999 2 8000000-9999999 3 978-99929 Mongolia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99930 Armenia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99931 Seychelles 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99932 Malta 0000000-0999999 1 1000000-5999999 2 6000000-6999999 3 7000000-7999999 1 8000000-9999999 2 978-99933 Nepal 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99934 Dominican Republic 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99935 Haiti 0000000-2999999 1 3000000-5999999 2 6000000-6999999 3 7000000-8999999 1 9000000-9999999 2 978-99936 Bhutan 0000000-0999999 1 1000000-5999999 2 6000000-9999999 3 978-99937 Macau 0000000-1999999 1 2000000-5999999 2 6000000-9999999 3 978-99938 Srpska, Republic of 0000000-1999999 1 2000000-5999999 2 6000000-8999999 3 9000000-9999999 2 978-99939 Guatemala 0000000-2999999 1 3000000-5999999 2 6000000-8999999 2 9000000-9999999 3 978-99940 Georgia 0000000-0999999 1 1000000-6999999 2 7000000-9999999 3 978-99941 Armenia 0000000-2999999 1 3000000-7999999 2 8000000-9999999 3 978-99942 Sudan 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99943 Albania 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99944 Ethiopia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99945 Namibia 0000000-4999999 1 5000000-8999999 2 9000000-9799999 3 9800000-9999999 2 978-99946 Nepal 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99947 Tajikistan 0000000-2999999 1 3000000-6999999 2 7000000-9999999 3 978-99948 Eritrea 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99949 Mauritius 0000000-1999999 1 2000000-7999999 2 8000000-8999999 1 9000000-9899999 3 9900000-9999999 2 978-99950 Cambodia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99951 Reserved Agency 0000000-9999999 0 978-99952 Mali 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99953 Paraguay 0000000-2999999 1 3000000-7999999 2 8000000-9399999 3 9400000-9999999 2 978-99954 Bolivia 0000000-2999999 1 3000000-6999999 2 7000000-8799999 3 8800000-9999999 2 978-99955 Srpska, Republic of 0000000-1999999 1 2000000-5999999 2 6000000-7999999 3 8000000-9999999 2 978-99956 Albania 0000000-5999999 2 6000000-8599999 3 8600000-9999999 2 978-99957 Malta 0000000-1999999 1 2000000-7999999 2 8000000-9499999 3 9500000-9999999 2 978-99958 Bahrain 0000000-4999999 1 5000000-9399999 2 9400000-9499999 3 9500000-9999999 3 978-99959 Luxembourg 0000000-2999999 1 3000000-5999999 2 6000000-9999999 3 978-99960 Malawi 0000000-0699999 0 0700000-0999999 3 1000000-9499999 2 9500000-9999999 3 978-99961 El Salvador 0000000-2999999 1 3000000-3699999 3 3700000-8999999 2 9000000-9999999 3 978-99962 Mongolia 0000000-4999999 1 5000000-7999999 2 8000000-9999999 3 978-99963 Cambodia 0000000-4999999 2 5000000-9199999 3 9200000-9999999 2 978-99964 Nicaragua 0000000-1999999 1 2000000-7999999 2 8000000-9999999 3 978-99965 Macau 0000000-2999999 1 3000000-3599999 3 3600000-6299999 2 6300000-9999999 3 978-99966 Kuwait 0000000-2999999 1 3000000-6999999 2 7000000-7999999 3 8000000-9699999 2 9700000-9999999 3 978-99967 Paraguay 0000000-0999999 1 1000000-5999999 2 6000000-9999999 3 978-99968 Botswana 0000000-3999999 1 4000000-5999999 3 6000000-8999999 2 9000000-9999999 3 978-99969 Oman 0000000-4999999 1 5000000-7999999 2 8000000-9499999 3 9500000-9999999 2 978-99970 Haiti 0000000-4999999 1 5000000-8999999 2 9000000-9999999 3 978-99971 Myanmar 0000000-3999999 1 4000000-8499999 2 8500000-9999999 3 978-99972 Faroe Islands 0000000-4999999 1 5000000-8999999 2 9000000-9999999 3 978-99973 Mongolia 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99974 Bolivia 0000000-0999999 1 1000000-2599999 2 2600000-3999999 3 4000000-6399999 2 6400000-6499999 3 6500000-7999999 2 8000000-9999999 3 978-99975 Tajikistan 0000000-2999999 1 3000000-3999999 3 4000000-7999999 2 8000000-9999999 3 978-99976 Srpska, Republic of 0000000-0399999 2 0400000-0999999 3 1000000-1599999 2 1600000-1999999 3 2000000-5999999 2 6000000-8199999 3 8200000-8999999 2 9000000-9999999 3 978-99977 Rwanda 0000000-1999999 1 2000000-3999999 0 4000000-6999999 2 7000000-7999999 3 8000000-9749999 0 9750000-9999999 3 978-99978 Mongolia 0000000-4999999 1 5000000-6999999 2 7000000-9999999 3 978-99979 Honduras 0000000-3999999 1 4000000-7999999 2 8000000-9999999 3 978-99980 Bhutan 0000000-0999999 1 1000000-2999999 0 3000000-6499999 2 6500000-6999999 0 7000000-9999999 3 978-99981 Macau 0000000-0999999 1 1000000-1099999 2 1100000-1499999 3 1500000-1999999 2 2000000-2199999 3 2200000-7499999 2 7500000-9999999 3 978-99982 Benin 0000000-2999999 1 3000000-4999999 0 5000000-7199999 2 7200000-8849999 0 8850000-9999999 3 978-99983 El Salvador 0000000-0999999 1 1000000-3499999 0 3500000-6999999 2 7000000-8999999 0 9000000-9999999 3 978-99984 Brunei Darussalam 0000000-0999999 1 1000000-4999999 0 5000000-6999999 2 7000000-9499999 0 9500000-9999999 3 978-99985 Tajikistan 0000000-1999999 1 2000000-2199999 3 2200000-2299999 0 2300000-7999999 2 8000000-9999999 3 978-99986 Myanmar 0000000-0999999 1 1000000-4999999 0 5000000-6999999 2 7000000-9499999 0 9500000-9999999 3 978-99987 Luxembourg 0000000-6999999 0 7000000-9999999 3 978-99988 Sudan 0000000-0999999 1 1000000-4999999 0 5000000-5499999 2 5500000-7999999 0 8000000-8249999 3 8250000-9999999 0 978-99989 Paraguay 0000000-1999999 1 2000000-4999999 0 5000000-7999999 2 8000000-8999999 0 9000000-9999999 3 978-99990 Ethiopia 0000000-0999999 1 1000000-4999999 0 5000000-5799999 2 5800000-9599999 0 9600000-9999999 3 978-99992 Oman 0000000-1999999 1 2000000-4999999 0 5000000-6499999 2 6500000-9499999 0 9500000-9999999 3 978-99993 Mauritius 0000000-2999999 1 3000000-4999999 0 5000000-5499999 2 5500000-9799999 0 9800000-9999999 3 978-99994 Haiti 0000000-0999999 1 1000000-4999999 0 5000000-5299999 2 5300000-9849999 0 9850000-9999999 3 978-99995 Seychelles 0000000-4999999 0 5000000-5599999 2 5600000-9749999 0 9750000-9999999 3 978-99996 Macau 0000000-1999999 1 2000000-3999999 0 4000000-5999999 2 6000000-8999999 0 9000000-9999999 3 978-99997 Srpska, Republic of 0000000-0999999 1 1000000-3999999 0 4000000-5499999 2 5500000-9499999 0 9500000-9999999 3 979-10 France 0000000-1999999 2 2000000-6999999 3 7000000-8999999 4 9000000-9759999 5 9760000-9999999 6 979-11 Korea, Republic 0000000-2499999 2 2500000-5499999 3 5500000-8499999 4 8500000-9499999 5 9500000-9999999 6 979-12 Italy 0000000-1999999 0 2000000-2999999 3 3000000-5449999 0 5450000-5999999 4 6000000-7999999 0 8000000-8499999 5 8500000-9849999 0 9850000-9999999 6 979-13 Spain 0000000-0099999 2 0100000-5999999 0 6000000-6049999 3 6050000-6999999 0 7000000-7349999 4 7350000-8749999 0 8750000-8999999 5 9000000-9899999 0 9900000-9999999 6 979-8 United States 0000000-1999999 0 2000000-2299999 3 2300000-2399999 3 2400000-2799999 0 2800000-2999999 4 3000000-3199999 4 3200000-3499999 4 3500000-8849999 4 8850000-8999999 5 9000000-9099999 5 9100000-9849999 0 9850000-9899999 7 9900000-9929999 7 9930000-9984999 0 9985000-9999999 7 Business-ISBN-Data-20250418.001/lib/Business/ISBN/RangeMessage.url0000644000076500000240000000007315000404421022600 0ustar brianstaffhttps://www.isbn-international.org/export_rangemessage.xml Business-ISBN-Data-20250418.001/lib/Business/ISBN/Data.pm0000644000076500000240000012774215000404421020737 0ustar brianstaffuse utf8; use 5.008; package Business::ISBN::Data; use strict; use Carp qw(carp); use File::Basename qw(dirname); use File::Spec::Functions qw(catfile); our $VERSION = '20250418.001'; =encoding utf8 =head1 NAME Business::ISBN::Data - data pack for Business::ISBN =head1 SYNOPSIS see L =head1 DESCRIPTION You don't need to load this module yourself in most cases. L will load it when it loads. You must use L 3.005 or later because the data structure changed slightly to fix a bug with ISBN13 prefixes. These data are generated from the F file provided by the ISBN Agency. The distributed version matches the date in the version for this module. You can retrieve this yourself at L. This file is included as part of the distribution and should be installed at F<~lib/Business/ISBN/Data/RangeMessage.xml>. If you want to use a different F file, you can set the C environment variable to the alternate location before you load C. This way, you can use the latest (or even earlier) data without having to install something new or wait for an update to this module. If the default F or your alternate one is not available, the module falls back to data included in F. However, that data are likely to be older. If it does not find that file, it looks for F in the current directory. The data are in C<%Business::ISBN::country_data> (although the "country" part is historical). If you want to see where the data are from, check C<$Business::ISBN::country_data{_source}>. =head2 Packaging this module The included F is in under F at the same level as F. The same data exist as the default data in the code, so you don't need to pass along the distributed F. However, you can include a newer F. With PAR, you can add extra files to the archive with C<-a>. Put the new file somewhere the module will find it (or use C to lead it there): pp ... -a '..../RangeMessage.xml;RangeMessage.xml' If you put the F in the current working directory of the application, the module should find it. =head2 Updating the default data In the repo, find the F program. Run that against the latest F: % perl -Ilib examples/make_default_data.pl RangeMessage.xml That produces the code you need to replace in the module. Check that that data aren't weird: sometimes the group names have errors or oddities. The program handles escaping single quotes and trimming white space. =head1 SOURCE AVAILABILITY This module lives in a Github repository: https://github.com/briandfoy/business-isbn-data You are probably also interested in the module that uses it: https://github.com/briandfoy/business-isbn If you have something to add, create a fork on Github and send a pull request. =head1 AUTHOR brian d foy, C<< >> Yakov Shafranovich updated the data in October 2008. Daniel Jakubik updated the data in July 2012. Markus Spann suggested looking for F in the current directory to make it work with Perl app bundlers. Josef Moravec C<< >> updated the data in January 2019. Peter Williams fixed a serious issue with ISBN-13 (GitHub #5). You must use Business::ISBN 3.005 or later because the data structure changed. =head1 COPYRIGHT AND LICENSE Copyright © 2002-2025, brian d foy . All rights reserved. You may redistribute this under the terms of the Artistic License 2.0. =cut sub _default_data { # BEGIN REPLACE ( _data_date => 'Fri, 18 Apr 2025 04:46:12 BST', _serial => 'ecf41e38-17a5-4a00-8e08-a3b47a56d80f', _source => __FILE__, 978 => { 0 => [ 'English language' => [ '00', '19', '200', '227', '2280', '2289', '229', '368', '3690', '3699', '370', '638', '6390', '6397', '6398000', '6399999', '640', '644', '6450000', '6459999', '646', '647', '6480000', '6489999', '649', '654', '6550', '6559', '656', '699', '7000', '8499', '85000', '89999', '900000', '900370', '9003710', '9003719', '900372', '949999', '9500000', '9999999' ] ], 1 => [ 'English language' => [ '000', '009', '01', '02', '030', '034', '0350', '0399', '040', '048', '0490', '0499', '05', '05', '0670000', '0699999', '0700', '0999', '100', '397', '3980', '5499', '55000', '64999', '6500', '6799', '68000', '68599', '6860', '7139', '714', '716', '7170', '7319', '7320000', '7399999', '74000', '76199', '7620', '7634', '7635000', '7649999', '76500', '77499', '7750000', '7753999', '77540', '77639', '7764000', '7764999', '77650', '77699', '7770000', '7782999', '77830', '78999', '7900', '7999', '80000', '80049', '80050', '80499', '80500', '83799', '8380000', '8384999', '83850', '86719', '8672', '8675', '86760', '86979', '869800', '915999', '9160000', '9165059', '916506', '916869', '9168700', '9169079', '916908', '919599', '9196000', '9196549', '919655', '972999', '9730', '9877', '987800', '991149', '9911500', '9911999', '991200', '998989', '9989900', '9999999' ] ], 2 => [ 'French language' => [ '00', '19', '200', '349', '35000', '39999', '400', '486', '487000', '494999', '495', '495', '4960', '4966', '49670', '49699', '497', '527', '5280', '5299', '530', '699', '7000', '8399', '84000', '89999', '900000', '919799', '91980', '91980', '919810', '919942', '9199430', '9199689', '919969', '949999', '9500000', '9999999' ] ], 3 => [ 'German language' => [ '00', '02', '030', '033', '0340', '0369', '03700', '03999', '04', '19', '200', '389', '39', '39', '400', '688', '68900', '69499', '6950', '8499', '85000', '89999', '900000', '949999', '9500000', '9539999', '95400', '96999', '9700000', '9849999', '98500', '99959', '9996', '9999' ] ], 4 => [ 'Japan' => [ '00', '19', '200', '699', '7000', '8499', '85000', '89999', '900000', '949999', '9500000', '9999999' ] ], 5 => [ 'former U.S.S.R' => [ '00000', '00499', '0050', '0099', '01', '19', '200', '361', '3620', '3623', '36240', '36299', '363', '420', '4210', '4299', '430', '430', '4310', '4399', '440', '440', '4410', '4499', '450', '603', '6040000', '6049999', '605', '699', '7000', '8499', '85000', '89999', '900000', '909999', '91000', '91999', '9200', '9299', '93000', '94999', '9500000', '9500999', '9501', '9799', '98000', '98999', '9900000', '9909999', '9910', '9999' ] ], 7 => [ 'China, People\'s Republic' => [ '00', '09', '100', '499', '5000', '7999', '80000', '89999', '900000', '999999' ] ], 65 => [ 'Brazil' => [ '00', '01', '250', '299', '300', '302', '5000', '6149', '80000', '81824', '83000', '89999', '900000', '902449', '980000', '999999' ] ], 80 => [ 'former Czechoslovakia' => [ '00', '19', '200', '529', '53000', '54999', '550', '689', '69000', '69999', '7000', '8499', '85000', '89999', '900000', '998999', '99900', '99999' ] ], 81 => [ 'India' => [ '00', '18', '19000', '19999', '200', '699', '7000', '8499', '85000', '89999', '900000', '999999' ] ], 82 => [ 'Norway' => [ '00', '19', '200', '689', '690000', '699999', '7000', '8999', '90000', '98999', '990000', '999999' ] ], 83 => [ 'Poland' => [ '00', '19', '200', '599', '60000', '69999', '7000', '8499', '85000', '89999', '900000', '999999' ] ], 84 => [ 'Spain' => [ '00', '09', '10000', '10499', '1050', '1199', '120000', '129999', '1300', '1399', '140', '149', '15000', '19999', '200', '699', '7000', '8499', '85000', '89999', '9000', '9199', '920000', '923999', '92400', '92999', '930000', '949999', '95000', '96999', '9700', '9999' ] ], 85 => [ 'Brazil' => [ '00', '19', '200', '454', '455000', '455299', '45530', '45599', '456', '528', '52900', '53199', '5320', '5339', '534', '539', '54000', '54029', '54030', '54039', '540400', '540499', '54050', '54089', '540900', '540999', '54100', '54399', '5440', '5479', '54800', '54999', '5500', '5999', '60000', '69999', '7000', '8499', '85000', '89999', '900000', '924999', '92500', '94499', '9450', '9599', '96', '97', '98000', '99999' ] ], 86 => [ 'former Yugoslavia' => [ '00', '29', '300', '599', '6000', '7999', '80000', '89999', '900000', '999999' ] ], 87 => [ 'Denmark' => [ '00', '29', '400', '649', '7000', '7999', '85000', '94999', '970000', '999999' ] ], 88 => [ 'Italy' => [ '00', '19', '200', '311', '31200', '31499', '315', '318', '31900', '32299', '323', '326', '3270', '3389', '339', '360', '3610', '3629', '363', '548', '5490', '5549', '555', '599', '6000', '8499', '85000', '89999', '900000', '909999', '910', '926', '9270', '9399', '940000', '947999', '94800', '99999' ] ], 89 => [ 'Korea, Republic' => [ '00', '24', '250', '549', '5500', '8499', '85000', '94999', '950000', '969999', '97000', '98999', '990', '999' ] ], 90 => [ 'Netherlands' => [ '00', '19', '200', '499', '5000', '6999', '70000', '79999', '800000', '849999', '8500', '8999', '90', '90', '94', '94' ] ], 91 => [ 'Sweden' => [ '0', '1', '20', '49', '500', '649', '7000', '8199', '85000', '94999', '970000', '999999' ] ], 92 => [ 'International NGO Publishers and EU Organizations' => [ '0', '5', '60', '79', '800', '899', '9000', '9499', '95000', '98999', '990000', '999999' ] ], 93 => [ 'India' => [ '00', '09', '100', '479', '48000', '49999', '5000', '7999', '80000', '95999', '960000', '999999' ] ], 94 => [ 'Netherlands' => [ '000', '599', '6000', '6387', '638800', '638809', '63881', '63881', '638820', '638839', '63884', '63885', '638860', '638869', '63887', '63889', '6389', '6395', '639600', '639609', '63961', '63962', '639630', '639639', '63964', '63964', '639650', '639659', '63966', '63969', '6397', '6399', '640000', '640009', '64001', '64004', '640050', '640059', '64006', '64006', '640070', '640089', '64009', '64009', '6401', '6406', '640700', '640739', '64074', '64074', '640750', '640759', '64076', '64077', '640780', '640799', '6408', '6419', '64200', '64201', '642020', '642029', '64203', '64203', '642040', '642049', '64205', '64206', '642070', '642079', '64208', '64208', '642090', '642099', '6421', '6432', '64330', '64331', '643320', '643329', '64333', '64333', '643340', '643359', '64336', '64336', '643370', '643379', '64338', '64339', '6434', '6435', '643600', '643609', '64361', '64363', '643640', '643659', '64366', '64366', '643670', '643679', '64368', '64369', '6437', '6443', '644400', '644409', '64441', '64441', '644420', '644429', '64443', '64443', '644440', '644449', '64445', '64446', '644470', '644489', '64449', '64449', '6445', '6450', '64510', '64512', '645130', '645139', '64514', '64515', '645160', '645199', '6452', '6458', '645900', '645909', '64591', '64592', '645930', '645949', '64595', '64596', '645970', '645989', '64599', '64599', '6460', '6465', '646600', '646609', '64661', '64662', '646630', '646659', '64666', '64666', '646670', '646689', '64669', '64669', '6467', '6474', '64750', '64751', '647520', '647539', '64754', '64754', '647550', '647559', '64756', '64757', '647580', '647589', '64759', '64759', '6476', '6476', '647700', '647708', '64771', '64771', '647723', '647729', '64773', '64773', '647740', '647769', '64777', '64779', '647800', '647809', '64781', '64781', '647820', '647829', '64783', '64786', '647870', '647879', '64788', '64789', '6479', '6493', '649400', '649409', '64941', '64942', '649430', '649449', '64945', '64946', '649470', '649479', '64948', '64948', '649490', '649499', '6495', '6497', '64980', '64980', '649810', '649829', '64983', '64984', '649850', '649869', '64987', '64987', '649880', '649899', '6499', '8999', '90000', '99999' ] ], 600 => [ 'Iran' => [ '00', '09', '100', '499', '5000', '8999', '90000', '98679', '9868', '9929', '993', '995', '99600', '99999' ] ], 601 => [ 'Kazakhstan' => [ '00', '19', '200', '699', '7000', '7999', '80000', '84999', '85', '99' ] ], 602 => [ 'Indonesia' => [ '00', '06', '0700', '1399', '14000', '14999', '1500', '1699', '17000', '19999', '200', '499', '50000', '53999', '5400', '5999', '60000', '61999', '6200', '6999', '70000', '74999', '7500', '9499', '95000', '99999' ] ], 603 => [ 'Saudi Arabia' => [ '00', '04', '05', '49', '500', '799', '8000', '8999', '90000', '99999' ] ], 604 => [ 'Vietnam' => [ '0', '2', '300', '399', '40', '46', '470', '497', '4980', '4999', '50', '89', '900', '979', '9800', '9999' ] ], 605 => [ 'Türkiye' => [ '00', '02', '030', '039', '04', '05', '06000', '06999', '07', '09', '100', '199', '2000', '2399', '240', '399', '4000', '5999', '60000', '74999', '7500', '7999', '80000', '89999', '9000', '9999' ] ], 606 => [ 'Romania' => [ '000', '099', '10', '49', '500', '799', '8000', '9099', '910', '919', '92000', '95999', '9600', '9749', '975', '999' ] ], 607 => [ 'Mexico' => [ '00', '25', '2600', '2649', '26500', '26999', '27', '39', '400', '588', '5890', '5929', '59300', '59999', '600', '694', '69500', '69999', '700', '749', '7500', '9499', '95000', '99999' ] ], 608 => [ 'North Macedonia' => [ '0', '0', '10', '19', '200', '449', '4500', '6499', '65000', '69999', '7', '9' ] ], 609 => [ 'Lithuania' => [ '00', '39', '400', '799', '8000', '9499', '95000', '99999' ] ], 611 => [ 'Thailand' => [ ] ], 612 => [ 'Peru' => [ '00', '29', '300', '399', '4000', '4499', '45000', '49999', '5000', '5224' ] ], 613 => [ 'Mauritius' => [ '0', '9' ] ], 614 => [ 'Lebanon' => [ '00', '39', '400', '799', '8000', '9499', '95000', '99999' ] ], 615 => [ 'Hungary' => [ '00', '09', '100', '499', '5000', '7999', '80000', '89999' ] ], 616 => [ 'Thailand' => [ '00', '19', '200', '699', '7000', '8999', '90000', '99999' ] ], 617 => [ 'Ukraine' => [ '00', '49', '500', '699', '7000', '8999', '90000', '99999' ] ], 618 => [ 'Greece' => [ '00', '19', '200', '499', '5000', '7999', '80000', '99999' ] ], 619 => [ 'Bulgaria' => [ '00', '14', '150', '699', '7000', '8999', '90000', '99999' ] ], 620 => [ 'Mauritius' => [ '0', '9' ] ], 621 => [ 'Philippines' => [ '00', '29', '400', '599', '8000', '8999', '95000', '99999' ] ], 622 => [ 'Iran' => [ '00', '10', '200', '459', '4600', '8749', '87500', '99999' ] ], 623 => [ 'Indonesia' => [ '00', '10', '110', '524', '5250', '8799', '88000', '99999' ] ], 624 => [ 'Sri Lanka' => [ '00', '04', '200', '249', '5000', '6899', '92000', '99999' ] ], 625 => [ 'Türkiye' => [ '00', '01', '320', '442', '44300', '44499', '445', '449', '5500', '7793', '77940', '77949', '7795', '8499', '94000', '99999' ] ], 626 => [ 'Taiwan' => [ '00', '04', '300', '499', '7000', '7999', '95000', '99999' ] ], 627 => [ 'Pakistan' => [ '30', '31', '500', '529', '7400', '7999', '94500', '95149' ] ], 628 => [ 'Colombia' => [ '00', '09', '500', '549', '7500', '8499', '95000', '99999' ] ], 629 => [ 'Malaysia' => [ '00', '02', '460', '499', '7500', '7999', '95000', '99999' ] ], 630 => [ 'Romania' => [ '300', '399', '6500', '6849', '95000', '99999' ] ], 631 => [ 'Argentina' => [ '00', '09', '300', '399', '6500', '7499', '90000', '99999' ] ], 632 => [ 'Vietnam' => [ '00', '11', '600', '679' ] ], 633 => [ 'Egypt' => [ '00', '01', '300', '349', '8250', '8999', '99500', '99999' ] ], 634 => [ 'Indonesia' => [ '00', '04', '200', '349', '7000', '7999', '96000', '99999' ] ], 950 => [ 'Argentina' => [ '00', '49', '500', '899', '9000', '9899', '99000', '99999' ] ], 951 => [ 'Finland' => [ '0', '1', '20', '54', '550', '889', '8900', '9499', '95000', '99999' ] ], 952 => [ 'Finland' => [ '00', '19', '200', '499', '5000', '5999', '60', '64', '65000', '65999', '6600', '6699', '67000', '69999', '7000', '7999', '80', '94', '9500', '9899', '99000', '99999' ] ], 953 => [ 'Croatia' => [ '0', '0', '10', '14', '150', '459', '46000', '49999', '500', '500', '50100', '50999', '51', '54', '55000', '59999', '6000', '9499', '95000', '99999' ] ], 954 => [ 'Bulgaria' => [ '00', '28', '2900', '2999', '300', '799', '8000', '8999', '90000', '92999', '9300', '9999' ] ], 955 => [ 'Sri Lanka' => [ '0000', '1999', '20', '33', '3400', '3549', '35500', '35999', '3600', '3799', '38000', '38999', '3900', '4099', '41000', '44999', '4500', '4999', '50000', '54999', '550', '710', '71100', '71499', '7150', '9499', '95000', '99999' ] ], 956 => [ 'Chile' => [ '00', '07', '08000', '08499', '09000', '09999', '10', '19', '200', '599', '6000', '6999', '7000', '9999' ] ], 957 => [ 'Taiwan' => [ '00', '02', '0300', '0499', '05', '19', '2000', '2099', '21', '27', '28000', '30999', '31', '43', '440', '819', '8200', '9699', '97000', '99999' ] ], 958 => [ 'Colombia' => [ '00', '49', '500', '509', '5100', '5199', '52000', '53999', '5400', '5599', '56000', '59999', '600', '799', '8000', '9499', '95000', '99999' ] ], 959 => [ 'Cuba' => [ '00', '19', '200', '699', '7000', '8499', '85000', '99999' ] ], 960 => [ 'Greece' => [ '00', '19', '200', '659', '6600', '6899', '690', '699', '7000', '8499', '85000', '92999', '93', '93', '9400', '9799', '98000', '99999' ] ], 961 => [ 'Slovenia' => [ '00', '19', '200', '599', '6000', '8999', '90000', '97999' ] ], 962 => [ 'Hong Kong, China' => [ '00', '19', '200', '699', '7000', '8499', '85000', '86999', '8700', '8999', '900', '999' ] ], 963 => [ 'Hungary' => [ '00', '19', '200', '699', '7000', '8499', '85000', '89999', '9000', '9999' ] ], 964 => [ 'Iran' => [ '00', '14', '150', '249', '2500', '2999', '300', '549', '5500', '8999', '90000', '96999', '970', '989', '9900', '9999' ] ], 965 => [ 'Israel' => [ '00', '19', '200', '599', '7000', '7999', '90000', '99999' ] ], 966 => [ 'Ukraine' => [ '00', '12', '130', '139', '14', '14', '1500', '1699', '170', '199', '2000', '2789', '279', '289', '2900', '2999', '300', '699', '7000', '8999', '90000', '90999', '910', '949', '95000', '97999', '980', '999' ] ], 967 => [ 'Malaysia' => [ '0000', '0999', '10000', '19999', '2000', '2499', '250', '254', '25500', '26999', '2700', '2799', '2800', '2999', '300', '499', '5000', '5999', '60', '89', '900', '989', '9900', '9989', '99900', '99999' ] ], 968 => [ 'Mexico' => [ '01', '39', '400', '499', '5000', '7999', '800', '899', '9000', '9999' ] ], 969 => [ 'Pakistan' => [ '0', '1', '20', '20', '210', '219', '2200', '2299', '23000', '23999', '24', '39', '400', '749', '7500', '9999' ] ], 970 => [ 'Mexico' => [ '01', '59', '600', '899', '9000', '9099', '91000', '96999', '9700', '9999' ] ], 971 => [ 'Philippines' => [ '000', '015', '0160', '0199', '02', '02', '0300', '0599', '06', '49', '500', '849', '8500', '9099', '91000', '95999', '9600', '9699', '97', '98', '9900', '9999' ] ], 972 => [ 'Portugal' => [ '0', '1', '20', '54', '550', '799', '8000', '9499', '95000', '99999' ] ], 973 => [ 'Romania' => [ '0', '0', '100', '169', '1700', '1999', '20', '54', '550', '759', '7600', '8499', '85000', '88999', '8900', '9499', '95000', '99999' ] ], 974 => [ 'Thailand' => [ '00', '19', '200', '699', '7000', '8499', '85000', '89999', '90000', '94999', '9500', '9999' ] ], 975 => [ 'Türkiye' => [ '00000', '01999', '02', '23', '2400', '2499', '250', '599', '6000', '9199', '92000', '98999', '990', '999' ] ], 976 => [ 'Caribbean Community' => [ '0', '3', '40', '59', '600', '799', '8000', '9499', '95000', '99999' ] ], 977 => [ 'Egypt' => [ '00', '19', '200', '499', '5000', '6999', '700', '849', '85000', '87399', '8740', '8899', '890', '894', '8950', '8999', '90', '95', '9600', '9699', '970', '999' ] ], 978 => [ 'Nigeria' => [ '000', '199', '2000', '2999', '30000', '69499', '695', '699', '765', '799', '8000', '8999', '900', '999' ] ], 979 => [ 'Indonesia' => [ '000', '099', '1000', '1499', '15000', '19999', '20', '29', '3000', '3999', '400', '799', '8000', '9499', '95000', '99999' ] ], 980 => [ 'Venezuela' => [ '00', '19', '200', '599', '6000', '9999' ] ], 981 => [ 'Singapore' => [ '00', '16', '17000', '17999', '18', '19', '200', '299', '3000', '3099', '310', '399', '4000', '5999', '94', '99' ] ], 982 => [ 'South Pacific' => [ '00', '09', '100', '699', '70', '89', '9000', '9799', '98000', '99999' ] ], 983 => [ 'Malaysia' => [ '00', '01', '020', '199', '2000', '3999', '40000', '44999', '45', '49', '50', '79', '800', '899', '9000', '9899', '99000', '99999' ] ], 984 => [ 'Bangladesh' => [ '00', '21', '220', '224', '2250', '2599', '26', '28', '29000', '29999', '30', '38', '3900', '3999', '400', '799', '8000', '8999', '90000', '99999' ] ], 985 => [ 'Belarus' => [ '00', '39', '400', '599', '6000', '8799', '880', '899', '90000', '99999' ] ], 986 => [ 'Taiwan' => [ '00', '05', '06000', '06999', '0700', '0799', '08', '11', '120', '539', '5400', '7999', '80000', '99999' ] ], 987 => [ 'Argentina' => [ '00', '09', '1000', '1999', '20000', '29999', '30', '35', '3600', '4199', '42', '43', '4400', '4499', '45000', '48999', '4900', '4999', '500', '824', '8250', '8279', '82800', '82999', '8300', '8499', '85', '88', '8900', '9499', '95000', '99999' ] ], 988 => [ 'Hong Kong, China' => [ '00', '11', '12000', '19999', '200', '699', '70000', '79999', '8000', '9699', '97000', '99999' ] ], 989 => [ 'Portugal' => [ '0', '1', '20', '34', '35000', '36999', '37', '52', '53000', '54999', '550', '799', '8000', '9499', '95000', '99999' ] ], 9907 => [ 'Ecuador' => [ '0', '0', '50', '64', '800', '874' ] ], 9908 => [ 'Estonia' => [ '0', '1', '50', '69', '825', '899', '9700', '9999' ] ], 9909 => [ 'Tunisia' => [ '00', '19', '750', '849', '9800', '9999' ] ], 9910 => [ 'Uzbekistan' => [ '01', '12', '550', '799', '8000', '9999' ] ], 9911 => [ 'Montenegro' => [ '20', '24', '550', '749', '9500', '9999' ] ], 9912 => [ 'Tanzania' => [ '40', '44', '750', '799', '9800', '9999' ] ], 9913 => [ 'Uganda' => [ '00', '07', '600', '699', '9550', '9999' ] ], 9914 => [ 'Kenya' => [ '35', '55', '700', '774', '9450', '9999' ] ], 9915 => [ 'Uruguay' => [ '40', '59', '650', '799', '9300', '9999' ] ], 9916 => [ 'Estonia' => [ '0', '0', '10', '39', '4', '5', '600', '789', '79', '91', '9200', '9399', '94', '94', '9500', '9999' ] ], 9917 => [ 'Bolivia' => [ '0', '0', '30', '34', '600', '699', '9625', '9999' ] ], 9918 => [ 'Malta' => [ '0', '0', '20', '29', '600', '799', '9500', '9999' ] ], 9919 => [ 'Mongolia' => [ '0', '0', '20', '29', '500', '599', '9000', '9999' ] ], 9920 => [ 'Morocco' => [ '23', '42', '430', '799', '8550', '9999' ] ], 9921 => [ 'Kuwait' => [ '0', '0', '30', '39', '700', '899', '9700', '9999' ] ], 9922 => [ 'Iraq' => [ '20', '29', '600', '799', '8250', '9999' ] ], 9923 => [ 'Jordan' => [ '0', '0', '10', '69', '700', '899', '9400', '9999' ] ], 9924 => [ 'Cambodia' => [ '28', '39', '500', '659', '8950', '9999' ] ], 9925 => [ 'Cyprus' => [ '0', '2', '30', '54', '550', '734', '7350', '9999' ] ], 9926 => [ 'Bosnia and Herzegovina' => [ '0', '1', '20', '39', '400', '799', '8000', '9999' ] ], 9927 => [ 'Qatar' => [ '00', '09', '100', '399', '4000', '4999' ] ], 9928 => [ 'Albania' => [ '00', '09', '100', '399', '4000', '4999', '800', '899', '90', '99' ] ], 9929 => [ 'Guatemala' => [ '0', '3', '40', '54', '550', '799', '8000', '9999' ] ], 9930 => [ 'Costa Rica' => [ '00', '49', '500', '939', '9400', '9999' ] ], 9931 => [ 'Algeria' => [ '00', '23', '240', '899', '9000', '9999' ] ], 9932 => [ 'Lao People\'s Democratic Republic' => [ '00', '39', '400', '849', '8500', '9999' ] ], 9933 => [ 'Syria' => [ '0', '0', '10', '39', '400', '869', '87', '89', '9000', '9999' ] ], 9934 => [ 'Latvia' => [ '0', '0', '10', '49', '500', '799', '8000', '9999' ] ], 9935 => [ 'Iceland' => [ '0', '0', '10', '39', '400', '899', '9000', '9999' ] ], 9936 => [ 'Afghanistan' => [ '0', '1', '20', '39', '400', '799', '8000', '9999' ] ], 9937 => [ 'Nepal' => [ '0', '2', '30', '49', '500', '799', '8000', '9999' ] ], 9938 => [ 'Tunisia' => [ '00', '79', '800', '949', '9500', '9749', '975', '990', '9910', '9999' ] ], 9939 => [ 'Armenia' => [ '0', '3', '40', '47', '480', '499', '50', '79', '800', '899', '9000', '9599', '960', '979', '98', '99' ] ], 9940 => [ 'Montenegro' => [ '0', '1', '20', '49', '500', '839', '84', '86', '8700', '9999' ] ], 9941 => [ 'Georgia' => [ '0', '0', '10', '39', '400', '799', '8', '8', '9000', '9999' ] ], 9942 => [ 'Ecuador' => [ '00', '55', '560', '699', '7000', '7499', '750', '849', '8500', '8999', '900', '984', '9850', '9999' ] ], 9943 => [ 'Uzbekistan' => [ '00', '29', '300', '399', '4000', '9749', '975', '999' ] ], 9944 => [ 'Türkiye' => [ '0000', '0999', '100', '499', '5000', '5999', '60', '69', '700', '799', '80', '89', '900', '999' ] ], 9945 => [ 'Dominican Republic' => [ '00', '00', '010', '079', '08', '39', '400', '569', '57', '57', '580', '799', '80', '80', '810', '849', '8500', '9999' ] ], 9946 => [ 'Korea, P.D.R.' => [ '0', '1', '20', '39', '400', '899', '9000', '9999' ] ], 9947 => [ 'Algeria' => [ '0', '1', '20', '79', '800', '999' ] ], 9948 => [ 'United Arab Emirates' => [ '00', '39', '400', '849', '8500', '9999' ] ], 9949 => [ 'Estonia' => [ '00', '08', '090', '099', '10', '39', '400', '699', '70', '71', '7200', '7499', '75', '89', '9000', '9999' ] ], 9950 => [ 'Palestine' => [ '00', '29', '300', '849', '8500', '9999' ] ], 9951 => [ 'Kosova' => [ '00', '38', '390', '849', '8500', '9799', '980', '999' ] ], 9952 => [ 'Azerbaijan' => [ '0', '0', '15', '39', '400', '799', '8000', '9999' ] ], 9953 => [ 'Lebanon' => [ '0', '0', '10', '39', '400', '599', '60', '89', '9000', '9299', '93', '96', '970', '999' ] ], 9954 => [ 'Morocco' => [ '0', '1', '20', '39', '400', '799', '8000', '9899', '99', '99' ] ], 9955 => [ 'Lithuania' => [ '00', '39', '400', '929', '9300', '9999' ] ], 9956 => [ 'Cameroon' => [ '0', '0', '10', '39', '400', '899', '9000', '9999' ] ], 9957 => [ 'Jordan' => [ '00', '39', '400', '649', '65', '67', '680', '699', '70', '84', '8500', '8799', '88', '99' ] ], 9958 => [ 'Bosnia and Herzegovina' => [ '00', '01', '020', '029', '0300', '0399', '040', '089', '0900', '0999', '10', '18', '1900', '1999', '20', '49', '500', '899', '9000', '9999' ] ], 9959 => [ 'Libya' => [ '0', '1', '20', '79', '800', '949', '9500', '9699', '970', '979', '98', '99' ] ], 9960 => [ 'Saudi Arabia' => [ '00', '59', '600', '899', '9000', '9999' ] ], 9961 => [ 'Algeria' => [ '0', '2', '30', '69', '700', '949', '9500', '9999' ] ], 9962 => [ 'Panama' => [ '00', '54', '5500', '5599', '56', '59', '600', '849', '8500', '9999' ] ], 9963 => [ 'Cyprus' => [ '0', '1', '2000', '2499', '250', '279', '2800', '2999', '30', '54', '550', '734', '7350', '7499', '7500', '9999' ] ], 9964 => [ 'Ghana' => [ '0', '6', '70', '94', '950', '999' ] ], 9965 => [ 'Kazakhstan' => [ '00', '39', '400', '899', '9000', '9999' ] ], 9966 => [ 'Kenya' => [ '000', '139', '14', '14', '1500', '1999', '20', '69', '7000', '7499', '750', '820', '8210', '8249', '825', '825', '8260', '8289', '829', '959', '9600', '9999' ] ], 9967 => [ 'Kyrgyz Republic' => [ '00', '39', '400', '899', '9000', '9999' ] ], 9968 => [ 'Costa Rica' => [ '00', '49', '500', '939', '9400', '9999' ] ], 9969 => [ 'Algeria' => [ '00', '12', '500', '649', '9700', '9999' ] ], 9970 => [ 'Uganda' => [ '00', '39', '400', '899', '9000', '9999' ] ], 9971 => [ 'Singapore' => [ '0', '5', '60', '89', '900', '989', '9900', '9999' ] ], 9972 => [ 'Peru' => [ '00', '09', '1', '1', '200', '249', '2500', '2999', '30', '59', '600', '899', '9000', '9999' ] ], 9973 => [ 'Tunisia' => [ '00', '05', '060', '089', '0900', '0999', '10', '69', '700', '969', '9700', '9999' ] ], 9974 => [ 'Uruguay' => [ '0', '2', '30', '54', '550', '749', '7500', '8799', '880', '909', '91', '94', '95', '99' ] ], 9975 => [ 'Moldova' => [ '0', '0', '100', '299', '3000', '3999', '4000', '4499', '45', '89', '900', '949', '9500', '9999' ] ], 9976 => [ 'Tanzania' => [ '0', '4', '5000', '5799', '580', '589', '59', '89', '900', '989', '9900', '9999' ] ], 9977 => [ 'Costa Rica' => [ '00', '89', '900', '989', '9900', '9999' ] ], 9978 => [ 'Ecuador' => [ '00', '29', '300', '399', '40', '94', '950', '989', '9900', '9999' ] ], 9979 => [ 'Iceland' => [ '0', '4', '50', '64', '650', '659', '66', '75', '760', '899', '9000', '9999' ] ], 9980 => [ 'Papua New Guinea' => [ '0', '3', '40', '89', '900', '989', '9900', '9999' ] ], 9981 => [ 'Morocco' => [ '00', '09', '100', '159', '1600', '1999', '20', '79', '800', '949', '9500', '9999' ] ], 9982 => [ 'Zambia' => [ '00', '79', '800', '989', '9900', '9999' ] ], 9983 => [ 'Gambia' => [ '80', '94', '950', '989', '9900', '9999' ] ], 9984 => [ 'Latvia' => [ '00', '49', '500', '899', '9000', '9999' ] ], 9985 => [ 'Estonia' => [ '0', '4', '50', '79', '800', '899', '9000', '9999' ] ], 9986 => [ 'Lithuania' => [ '00', '39', '400', '899', '9000', '9399', '940', '969', '97', '99' ] ], 9987 => [ 'Tanzania' => [ '00', '39', '400', '879', '8800', '9999' ] ], 9988 => [ 'Ghana' => [ '0', '3', '40', '54', '550', '749', '7500', '9999' ] ], 9989 => [ 'North Macedonia' => [ '0', '0', '100', '199', '2000', '2999', '30', '59', '600', '949', '9500', '9999' ] ], 99901 => [ 'Bahrain' => [ '00', '49', '500', '799', '80', '99' ] ], 99902 => [ 'Reserved Agency' => [ ] ], 99903 => [ 'Mauritius' => [ '0', '1', '20', '89', '900', '999' ] ], 99904 => [ 'Curaçao' => [ '0', '5', '60', '89', '900', '999' ] ], 99905 => [ 'Bolivia' => [ '0', '3', '40', '79', '800', '999' ] ], 99906 => [ 'Kuwait' => [ '0', '2', '30', '59', '600', '699', '70', '89', '90', '94', '950', '999' ] ], 99908 => [ 'Malawi' => [ '0', '0', '10', '89', '900', '999' ] ], 99909 => [ 'Malta' => [ '0', '3', '40', '94', '950', '999' ] ], 99910 => [ 'Sierra Leone' => [ '0', '2', '30', '89', '900', '999' ] ], 99911 => [ 'Lesotho' => [ '00', '59', '600', '999' ] ], 99912 => [ 'Botswana' => [ '0', '3', '400', '599', '60', '89', '900', '999' ] ], 99913 => [ 'Andorra' => [ '0', '2', '30', '35', '600', '604' ] ], 99914 => [ 'International NGO Publishers' => [ '0', '4', '50', '69', '7', '7', '80', '86', '870', '879', '88', '89', '900', '999' ] ], 99915 => [ 'Maldives' => [ '0', '4', '50', '79', '800', '999' ] ], 99916 => [ 'Namibia' => [ '0', '2', '30', '69', '700', '999' ] ], 99917 => [ 'Brunei Darussalam' => [ '0', '2', '30', '88', '890', '999' ] ], 99918 => [ 'Faroe Islands' => [ '0', '3', '40', '79', '800', '999' ] ], 99919 => [ 'Benin' => [ '0', '2', '300', '399', '40', '79', '800', '999' ] ], 99920 => [ 'Andorra' => [ '0', '4', '50', '89', '900', '999' ] ], 99921 => [ 'Qatar' => [ '0', '1', '20', '69', '700', '799', '8', '8', '90', '99' ] ], 99922 => [ 'Guatemala' => [ '0', '3', '40', '69', '700', '999' ] ], 99923 => [ 'El Salvador' => [ '0', '1', '20', '79', '800', '999' ] ], 99924 => [ 'Nicaragua' => [ '0', '1', '20', '79', '800', '999' ] ], 99925 => [ 'Paraguay' => [ '0', '0', '10', '19', '200', '299', '3', '3', '40', '79', '800', '999' ] ], 99926 => [ 'Honduras' => [ '0', '0', '10', '59', '600', '869', '87', '89', '90', '99' ] ], 99927 => [ 'Albania' => [ '0', '2', '30', '59', '600', '999' ] ], 99928 => [ 'Georgia' => [ '0', '0', '10', '79', '800', '999' ] ], 99929 => [ 'Mongolia' => [ '0', '4', '50', '79', '800', '999' ] ], 99930 => [ 'Armenia' => [ '0', '4', '50', '79', '800', '999' ] ], 99931 => [ 'Seychelles' => [ '0', '4', '50', '79', '800', '999' ] ], 99932 => [ 'Malta' => [ '0', '0', '10', '59', '600', '699', '7', '7', '80', '99' ] ], 99933 => [ 'Nepal' => [ '0', '2', '30', '59', '600', '999' ] ], 99934 => [ 'Dominican Republic' => [ '0', '1', '20', '79', '800', '999' ] ], 99935 => [ 'Haiti' => [ '0', '2', '30', '59', '600', '699', '7', '8', '90', '99' ] ], 99936 => [ 'Bhutan' => [ '0', '0', '10', '59', '600', '999' ] ], 99937 => [ 'Macau' => [ '0', '1', '20', '59', '600', '999' ] ], 99938 => [ 'Srpska, Republic of' => [ '0', '1', '20', '59', '600', '899', '90', '99' ] ], 99939 => [ 'Guatemala' => [ '0', '2', '30', '59', '60', '89', '900', '999' ] ], 99940 => [ 'Georgia' => [ '0', '0', '10', '69', '700', '999' ] ], 99941 => [ 'Armenia' => [ '0', '2', '30', '79', '800', '999' ] ], 99942 => [ 'Sudan' => [ '0', '4', '50', '79', '800', '999' ] ], 99943 => [ 'Albania' => [ '0', '2', '30', '59', '600', '999' ] ], 99944 => [ 'Ethiopia' => [ '0', '4', '50', '79', '800', '999' ] ], 99945 => [ 'Namibia' => [ '0', '4', '50', '89', '900', '979', '98', '99' ] ], 99946 => [ 'Nepal' => [ '0', '2', '30', '59', '600', '999' ] ], 99947 => [ 'Tajikistan' => [ '0', '2', '30', '69', '700', '999' ] ], 99948 => [ 'Eritrea' => [ '0', '4', '50', '79', '800', '999' ] ], 99949 => [ 'Mauritius' => [ '0', '1', '20', '79', '8', '8', '900', '989', '99', '99' ] ], 99950 => [ 'Cambodia' => [ '0', '4', '50', '79', '800', '999' ] ], 99951 => [ 'Reserved Agency' => [ ] ], 99952 => [ 'Mali' => [ '0', '4', '50', '79', '800', '999' ] ], 99953 => [ 'Paraguay' => [ '0', '2', '30', '79', '800', '939', '94', '99' ] ], 99954 => [ 'Bolivia' => [ '0', '2', '30', '69', '700', '879', '88', '99' ] ], 99955 => [ 'Srpska, Republic of' => [ '0', '1', '20', '59', '600', '799', '80', '99' ] ], 99956 => [ 'Albania' => [ '00', '59', '600', '859', '86', '99' ] ], 99957 => [ 'Malta' => [ '0', '1', '20', '79', '800', '949', '95', '99' ] ], 99958 => [ 'Bahrain' => [ '0', '4', '50', '93', '940', '949', '950', '999' ] ], 99959 => [ 'Luxembourg' => [ '0', '2', '30', '59', '600', '999' ] ], 99960 => [ 'Malawi' => [ '070', '099', '10', '94', '950', '999' ] ], 99961 => [ 'El Salvador' => [ '0', '2', '300', '369', '37', '89', '900', '999' ] ], 99962 => [ 'Mongolia' => [ '0', '4', '50', '79', '800', '999' ] ], 99963 => [ 'Cambodia' => [ '00', '49', '500', '919', '92', '99' ] ], 99964 => [ 'Nicaragua' => [ '0', '1', '20', '79', '800', '999' ] ], 99965 => [ 'Macau' => [ '0', '2', '300', '359', '36', '62', '630', '999' ] ], 99966 => [ 'Kuwait' => [ '0', '2', '30', '69', '700', '799', '80', '96', '970', '999' ] ], 99967 => [ 'Paraguay' => [ '0', '0', '10', '59', '600', '999' ] ], 99968 => [ 'Botswana' => [ '0', '3', '400', '599', '60', '89', '900', '999' ] ], 99969 => [ 'Oman' => [ '0', '4', '50', '79', '800', '949', '95', '99' ] ], 99970 => [ 'Haiti' => [ '0', '4', '50', '89', '900', '999' ] ], 99971 => [ 'Myanmar' => [ '0', '3', '40', '84', '850', '999' ] ], 99972 => [ 'Faroe Islands' => [ '0', '4', '50', '89', '900', '999' ] ], 99973 => [ 'Mongolia' => [ '0', '3', '40', '79', '800', '999' ] ], 99974 => [ 'Bolivia' => [ '0', '0', '10', '25', '260', '399', '40', '63', '640', '649', '65', '79', '800', '999' ] ], 99975 => [ 'Tajikistan' => [ '0', '2', '300', '399', '40', '79', '800', '999' ] ], 99976 => [ 'Srpska, Republic of' => [ '00', '03', '040', '099', '10', '15', '160', '199', '20', '59', '600', '819', '82', '89', '900', '999' ] ], 99977 => [ 'Rwanda' => [ '0', '1', '40', '69', '700', '799', '975', '999' ] ], 99978 => [ 'Mongolia' => [ '0', '4', '50', '69', '700', '999' ] ], 99979 => [ 'Honduras' => [ '0', '3', '40', '79', '800', '999' ] ], 99980 => [ 'Bhutan' => [ '0', '0', '30', '64', '700', '999' ] ], 99981 => [ 'Macau' => [ '0', '0', '10', '10', '110', '149', '15', '19', '200', '219', '22', '74', '750', '999' ] ], 99982 => [ 'Benin' => [ '0', '2', '50', '71', '885', '999' ] ], 99983 => [ 'El Salvador' => [ '0', '0', '35', '69', '900', '999' ] ], 99984 => [ 'Brunei Darussalam' => [ '0', '0', '50', '69', '950', '999' ] ], 99985 => [ 'Tajikistan' => [ '0', '1', '200', '219', '23', '79', '800', '999' ] ], 99986 => [ 'Myanmar' => [ '0', '0', '50', '69', '950', '999' ] ], 99987 => [ 'Luxembourg' => [ '700', '999' ] ], 99988 => [ 'Sudan' => [ '0', '0', '50', '54', '800', '824' ] ], 99989 => [ 'Paraguay' => [ '0', '1', '50', '79', '900', '999' ] ], 99990 => [ 'Ethiopia' => [ '0', '0', '50', '57', '960', '999' ] ], 99992 => [ 'Oman' => [ '0', '1', '50', '64', '950', '999' ] ], 99993 => [ 'Mauritius' => [ '0', '2', '50', '54', '980', '999' ] ], 99994 => [ 'Haiti' => [ '0', '0', '50', '52', '985', '999' ] ], 99995 => [ 'Seychelles' => [ '50', '55', '975', '999' ] ], 99996 => [ 'Macau' => [ '0', '1', '40', '59', '900', '999' ] ], 99997 => [ 'Srpska, Republic of' => [ '0', '0', '40', '54', '950', '999' ] ], }, 979 => { 8 => [ 'United States' => [ '200', '229', '230', '239', '2800', '2999', '3000', '3199', '3200', '3499', '3500', '8849', '88500', '89999', '90000', '90999', '9850000', '9899999', '9900000', '9929999', '9985000', '9999999' ] ], 10 => [ 'France' => [ '00', '19', '200', '699', '7000', '8999', '90000', '97599', '976000', '999999' ] ], 11 => [ 'Korea, Republic' => [ '00', '24', '250', '549', '5500', '8499', '85000', '94999', '950000', '999999' ] ], 12 => [ 'Italy' => [ '200', '299', '5450', '5999', '80000', '84999', '985000', '999999' ] ], 13 => [ 'Spain' => [ '00', '00', '600', '604', '7000', '7349', '87500', '89999', '990000', '999999' ] ], }, ); # END REPLACE } sub _get_data { # eventually fetch this from the internet # http://www.isbn-international.org/agency?rmxml=1 if( defined $ENV{ISBN_RANGE_MESSAGE} and ! -e $ENV{ISBN_RANGE_MESSAGE} ) { carp "ISBN_RANGE_MESSAGE is set to [$ENV{ISBN_RANGE_MESSAGE}] but that file does not exist!\nTrying to use the default locations\n"; } my $file = 'RangeMessage.xml'; no warnings 'uninitialized'; my @candidates = grep { -e } ( $ENV{ISBN_RANGE_MESSAGE}, # env catfile( dirname( __FILE__ ), $file ), # next to the module $file, # current directory ); my $hash; $hash = _parse_range_message( $candidates[0] ) if @candidates; if( defined $hash ) { return %$hash } else { _default_data() } } sub _parse_range_message { my( $file ) = @_; open my $fh, '<:utf8', $file or do { carp "Could not open $file to get ISBN range data [$!]\n"; return }; my $data = do { local $/; <$fh> }; my $ds; my( $serial_number ) = $data =~ m|(.*?)|; my( $date ) = $data =~ m|(.*?)|; $ds->{'_source'} = $file; $ds->{'_serial'} = $serial_number; $ds->{'_date'} = $date; my( $registration_groups ) = $data =~ m|(.*?)|s; my @groups = $registration_groups =~ m|(.*?)|sg; foreach my $group ( @groups ) { my( $isbn_prefix, $prefix ) = $group =~ m|(97[89]-)?([0-9]+?)|; $isbn_prefix = $isbn_prefix eq '979-' ? "979" : "978"; my( $agency ) = $group =~ m|(.*?)|; $agency =~ s/^\s+|\s+$//g; # 'Croatia ' ??? my @rules = map { my( $range ) = m|(.*?)|; my( $length ) = m|(.*?)|; my( $low, $high ) = split /-/, $range, 2; ( substr($low, 0, $length), substr($high, 0, $length) ); } grep { ! m|0| } $group =~ m|(.*?)|sg; $ds->{$isbn_prefix}->{$prefix} = [ $agency => \@rules ]; } $ds; } %Business::ISBN::country_data = _get_data(); # I cheat a little bit here. I know that that the max length is # 5, and that I know that those will start with 999xx. :) # however, if the data changes I should think about this again. $Business::ISBN::MAX_COUNTRY_CODE_LENGTH = length( ( sort { $a <=> $b } grep { ! /\A_/ } map { keys %$_ } @Business::ISBN::country_data{qw(978 979)} )[-1] ); package # Hide from PAUSE Business::ISBN; sub isbn_data_source { return $Business::ISBN::country_data{ '_source' } || __FILE__ } 1; Business-ISBN-Data-20250418.001/Makefile.PL0000644000076500000240000000533615000404421016400 0ustar brianstaffpackage Business::ISBN::Data; use strict; use warnings; =encoding utf8 =head1 The build file for Business::ISBN::Data This build file is a modulino; it works as both a build script and a module. To build the distribution, run this file normally: % perl Makefile.PL But, it's more interesting than that. You can load it with C and call C to get the data structure it passes to C: my $package = require '/path/to/Makefile.PL'; my $arguments = $package->arguments; Note that C-ing a file makes an entry in C<%INC> for exactly that name. If you try to C another file with the same name, even from a different path, C thinks it has already loaded the file. As such, I recommend you always require the full path to the file. The return value of the C is a package name (in this case, the name of the main module. Use that to call the C method. Even if this distribution needs a higher version of Perl, this bit only needs v5.8. You can play with the data structure with a primitive Perl. =cut use File::Spec::Functions qw(catfile); my $module = __PACKAGE__; ( my $dist = $module ) =~ s/::/-/g; my $github = 'https://github.com/briandfoy/business-isbn-data'; my $main_file = catfile( 'lib', split /::/, "$module.pm" ); my %WriteMakefile = ( 'MIN_PERL_VERSION' => '5.008', 'NAME' => $module, 'ABSTRACT_FROM' => $main_file, 'VERSION_FROM' => $main_file, 'LICENSE' => 'artistic_2', 'AUTHOR' => 'brian d foy ', 'CONFIGURE_REQUIRES' => { 'ExtUtils::MakeMaker' => '6.64', 'File::Spec::Functions' => '0', }, 'TEST_REQUIRES' => { 'Test::More' => '1', 'version' => '0.86', }, 'BUILD_REQUIRES' => { }, 'PREREQ_PM' => { 'Carp' => '0', 'File::Basename' => '0', 'File::Spec::Functions' => '0', }, 'META_MERGE' => { 'meta-spec' => { version => 2 }, resources => { repository => { type => 'git', url => $github, web => $github, }, bugtracker => { web => "$github/issues", }, homepage => $github, }, }, clean => { FILES => "$dist-*" }, ); sub arguments { \%WriteMakefile } do_it() unless caller; sub do_it { require File::Spec; my $MM ='ExtUtils::MakeMaker'; my $MM_version = eval{ "$MM " . $WriteMakefile{'CONFIGURE_REQUIRES'}{'ExtUtils::MakeMaker'} } || "$MM 6.64"; eval "use $MM_version; 1" or die "Could not load $MM_version: $@"; eval "use Test::Manifest 1.21" if -e File::Spec->catfile( qw(t test_manifest) ); my $arguments = arguments(); my $minimum_perl = $arguments->{MIN_PERL_VERSION} || '5.008'; eval "require $minimum_perl;" or die $@; WriteMakefile( %$arguments ); } no warnings; __PACKAGE__; Business-ISBN-Data-20250418.001/INSTALL.SKIP0000644000076500000240000000015615000404421016217 0ustar brianstaffREADME\.pod README.* # things that might be in local directories after fooling # around with them \.DS_Store Business-ISBN-Data-20250418.001/SECURITY.md0000644000076500000240000000231515000404421016211 0ustar brianstaff# Security Policy for Business::ISBN::Data ## Reporting security issues **Do not report security problems on public forums or in repository issues.** Privately report vulnerabilities to the maintainers listed at the end of this document. Include as many details as possible to reproduce the issue, including code samples or test cases. Check that your report does not expose any of your sensitive data, such as passwords, tokens, or other secrets. You do not need to have a solution or fix. Depending on the issue, CPANSec may be notified. Depending on the issue, CPANSec may be notified. You can also privately report issues to the CPAN Security Group (CPANSec) . This is especially important if you think a vulnerability is being actively exploited. CPANSec may report the issue to the relevant authorities. See [Report a Security Issue](https://security.metacpan.org/docs/report.html). ## Response to reports The maintainers aim to respond to all reports within one day, but this may be affected by life and other things that happen to people who maintain open source code. A new release will be provided as soon as possible. ## Maintainers * brian d foy, Business-ISBN-Data-20250418.001/META.json0000664000076500000240000000303415000404423016044 0ustar brianstaff{ "abstract" : "data pack for Business::ISBN", "author" : [ "brian d foy " ], "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 7.70, CPAN::Meta::Converter version 2.150010", "license" : [ "artistic_2" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : 2 }, "name" : "Business-ISBN-Data", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : {} }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "6.64", "File::Spec::Functions" : "0" } }, "runtime" : { "requires" : { "Carp" : "0", "File::Basename" : "0", "File::Spec::Functions" : "0", "perl" : "5.008" } }, "test" : { "requires" : { "Test::More" : "1", "version" : "0.86" } } }, "release_status" : "stable", "resources" : { "bugtracker" : { "web" : "https://github.com/briandfoy/business-isbn-data/issues" }, "homepage" : "https://github.com/briandfoy/business-isbn-data", "repository" : { "type" : "git", "url" : "https://github.com/briandfoy/business-isbn-data", "web" : "https://github.com/briandfoy/business-isbn-data" } }, "version" : "20250418.001", "x_serialization_backend" : "JSON::PP version 4.16" }