/
Data.pm
492 lines (427 loc) · 40.1 KB
/
Data.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
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 = '20230426.001';
=encoding utf8
=head1 NAME
Business::ISBN::Data - data pack for Business::ISBN
=head1 SYNOPSIS
see L<Business::ISBN>
=head1 DESCRIPTION
You don't need to load this module yourself in most cases. L<Business::ISBN>
will load it when it loads. You must use L<Business::ISBN> 3.005 or later
because the data structure changed slightly to fix a bug with ISBN13
prefixes.
These data are generated from the F<RangeMessage.xml> 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<https://www.isbn-international.org/range_file_generation>.
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<RangeMessage.xml> file, you can set
the C<ISBN_RANGE_MESSAGE> environment variable to the alternate location
before you load C<Business::ISBN>. 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<RangeMessage.xml> or your alternate one is not available,
the module falls back to data included in F<Data.pm>. However, that data
are likely to be older. If it does not find that file, it looks
for F<RangeMessage.xml> 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<RangeMessage.xml> is in under F<lib/> at the same level
as F<Data.pm>. The same data exist as the default data in the code, so
you don't need to pass along the distributed F<RangeMessage.xml>.
However, you can include a newer F<RangeMessage.xml>.
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<ISBN_RANGE_MESSAGE>
to lead it there):
pp ... -a '..../RangeMessage.xml;RangeMessage.xml'
If you put the F<RangeMessage.xml> in the current working directory of
the application, the module should find it.
=head2 Updating the default data
In the repo, find the F<examples/make_default_data.pl> program. Run
that against the latest F<RangeMessage.xml>:
% 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<< <bdfoy@cpan.org> >>
Yakov Shafranovich updated the data in October 2008.
Daniel Jakubik updated the data in July 2012.
Markus Spann suggested looking for F<RangeMessage.xml> in the current
directory to make it work with Perl app bundlers.
Josef Moravec C<< <josef.moravec@gmail.com> >> 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-2023, brian d foy <bdfoy@cpan.org>. All rights reserved.
You may redistribute this under the terms of the Artistic License 2.0.
=cut
sub _default_data {
# BEGIN REPLACE
(
_data_date => 'Wed, 26 Apr 2023 21:27:21 BST',
_serial => '0fd89bf2-4e19-4303-b314-28fc66f8071b',
_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', '949999', '9500000', '9999999' ] ],
1 => [ 'English language' => [ '000', '009', '01', '02', '030', '034', '0350', '0399', '04', '06', '0700', '0999', '100', '397', '3980', '5499', '55000', '64999', '6500', '6799', '68000', '68599', '6860', '7139', '714', '716', '7170', '7319', '7320000', '7399999', '74000', '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', '489', '490000', '494999', '495', '495', '4960', '4966', '49670', '49699', '497', '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', '699', '7000', '8499', '85000', '89999', '900000', '949999', '9500000', '9539999', '95400', '96999', '9700000', '9849999', '98500', '99999' ] ],
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', '5129', '5350', '6149', '80000', '81824', '84500', '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', '499', '5000', '7999', '80000', '95999', '960000', '999999' ] ],
94 => [ 'Netherlands' => [ '000', '599', '6000', '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 => [ 'Turkey' => [ '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', '39', '400', '592', '59300', '59999', '600', '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', '5149' ] ],
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', '424', '5200', '8499', '90000', '99999' ] ],
623 => [ 'Indonesia' => [ '00', '09', '130', '499', '5250', '8799', '88000', '99999' ] ],
624 => [ 'Sri Lanka' => [ '00', '04', '200', '249', '5000', '6449', '94500', '99999' ] ],
625 => [ 'Turkey' => [ '00', '00', '365', '442', '44300', '44499', '445', '449', '6350', '7793', '77940', '77949', '7795', '8499', '99000', '99999' ] ],
626 => [ 'Taiwan' => [ '00', '04', '300', '499', '7000', '7999', '95000', '99999' ] ],
627 => [ 'Pakistan' => [ '30', '31', '500', '524', '7500', '7999' ] ],
628 => [ 'Colombia' => [ '00', '09', '500', '549', '7500', '8499', '95000', '99999' ] ],
629 => [ 'Malaysia' => [ '00', '02', '470', '499', '7500', '7999', '96500', '99999' ] ],
630 => [ 'Romania' => [ '300', '349', '6500', '6849' ] ],
631 => [ 'Argentina' => [ '00', '09', '300', '399', '6500', '7499', '90000', '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', '479', '48000', '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', '08', '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 => [ 'Turkey' => [ '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', '89299', '893', '894', '8950', '8999', '90', '98', '990', '999' ] ],
978 => [ 'Nigeria' => [ '000', '199', '2000', '2999', '30000', '77999', '780', '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', '9499', '99', '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', '39', '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' ] ],
9911 => [ 'Montenegro' => [ '20', '24', '550', '749' ] ],
9912 => [ 'Tanzania' => [ '40', '44', '750', '799', '9800', '9999' ] ],
9913 => [ 'Uganda' => [ '00', '07', '600', '699', '9550', '9999' ] ],
9914 => [ 'Kenya' => [ '40', '52', '700', '774', '9600', '9999' ] ],
9915 => [ 'Uruguay' => [ '40', '59', '650', '799', '9300', '9999' ] ],
9916 => [ 'Estonia' => [ '0', '0', '10', '39', '4', '5', '600', '799', '9500', '9999' ] ],
9917 => [ 'Bolivia' => [ '0', '0', '30', '34', '600', '699', '9800', '9999' ] ],
9918 => [ 'Malta' => [ '0', '0', '20', '29', '600', '799', '9500', '9999' ] ],
9919 => [ 'Mongolia' => [ '0', '0', '20', '29', '500', '599', '9000', '9999' ] ],
9920 => [ 'Morocco' => [ '30', '41', '500', '799', '8750', '9999' ] ],
9921 => [ 'Kuwait' => [ '0', '0', '30', '39', '700', '899', '9700', '9999' ] ],
9922 => [ 'Iraq' => [ '20', '29', '600', '799', '8500', '9999' ] ],
9923 => [ 'Jordan' => [ '0', '0', '10', '59', '700', '899', '9400', '9999' ] ],
9924 => [ 'Cambodia' => [ '30', '39', '500', '649', '9000', '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', '899', '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', '4', '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', '59', '600', '699', '7000', '7499', '750', '849', '8500', '8999', '900', '984', '9850', '9999' ] ],
9943 => [ 'Uzbekistan' => [ '00', '29', '300', '399', '4000', '9749', '975', '999' ] ],
9944 => [ 'Turkey' => [ '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', '1', '20', '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', '06', '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', '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', '999' ] ],
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' => [ '0', '0', '10', '15', '160', '199', '20', '59', '600', '799', '85', '89', '900', '999' ] ],
99977 => [ 'Rwanda' => [ '0', '1', '40', '69', '700', '799', '995', '999' ] ],
99978 => [ 'Mongolia' => [ '0', '4', '50', '69', '700', '999' ] ],
99979 => [ 'Honduras' => [ '0', '3', '40', '79', '800', '999' ] ],
99980 => [ 'Bhutan' => [ '0', '0', '30', '59', '750', '999' ] ],
99981 => [ 'Macau' => [ '0', '1', '27', '74', '750', '999' ] ],
99982 => [ 'Benin' => [ '0', '1', '50', '68', '900', '999' ] ],
99983 => [ 'El Salvador' => [ '0', '0', '50', '69', '950', '999' ] ],
99984 => [ 'Brunei Darussalam' => [ '0', '0', '50', '69', '950', '999' ] ],
99985 => [ 'Tajikistan' => [ '0', '1', '35', '79', '850', '999' ] ],
99986 => [ 'Myanmar' => [ '0', '0', '50', '69', '950', '999' ] ],
99987 => [ 'Luxembourg' => [ '700', '999' ] ],
99988 => [ 'Sudan' => [ '0', '0', '50', '54', '800', '824' ] ],
99989 => [ 'Paraguay' => [ '0', '0', '50', '64', '900', '999' ] ],
99990 => [ 'Ethiopia' => [ '0', '0', '50', '54', '975', '999' ] ],
99992 => [ 'Oman' => [ '0', '1', '50', '64', '950', '999' ] ],
},
979 => {
8 => [ 'United States' => [ '200', '229', '3500', '3999', '4000', '8499', '8500', '8849', '88500', '89999', '9850000', '9899999' ] ],
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' ] ],
},
);
# 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|<MessageSerialNumber>(.*?)</MessageSerialNumber>|;
my( $date ) = $data =~ m|<MessageDate>(.*?)</MessageDate>|;
$ds->{'_source'} = $file;
$ds->{'_serial'} = $serial_number;
$ds->{'_date'} = $date;
my( $registration_groups ) = $data =~ m|<RegistrationGroups>(.*?)</RegistrationGroups>|s;
my @groups = $registration_groups =~ m|<Group>(.*?)</Group>|sg;
foreach my $group ( @groups ) {
my( $isbn_prefix, $prefix ) = $group =~ m|<Prefix>(97[89]-)?([0-9]+?)</Prefix>|;
$isbn_prefix = $isbn_prefix eq '979-' ? "979" : "978";
my( $agency ) = $group =~ m|<Agency>(.*?)</Agency>|;
$agency =~ s/^\s+|\s+$//g; # 'Croatia ' ???
my @rules =
map {
my( $range ) = m|<Range>(.*?)</Range>|;
my( $length ) = m|<Length>(.*?)</Length>|;
my( $low, $high ) = split /-/, $range, 2;
( substr($low, 0, $length), substr($high, 0, $length) );
}
grep {
! m|<Length>0</Length>|
}
$group =~ m|<Rule>(.*?)</Rule>|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_group_code_string_from_number {
return if $_[0] =~ /\A_/;
return $Business::ISBN::country_data{ $_[0] }[0] || '';
}
sub isbn_publisher_ranges_from_group_number {
return if $_[0] =~ /\A_/;
return $Business::ISBN::country_data{ $_[0] }[1] || [];
}
sub isbn_data_source {
return $Business::ISBN::country_data{ '_source' } || __FILE__
}
1;