Projekt: Hesla Jednoty bratrské/ISBN/perl

Perlovský skript na generování ISBN a EAN pro Projekt: Hesla Jednoty bratrské

Existuje několik knihoven Perlu pro operace s w: ISBN.

• Business::ISBN – nepodařilo se nainstalovat
• SeeAlso::Identifier::ISBN
• Algorithm::CheckDigits::M10_004

#! /usr/bin/perl -w
# sudo cpan Algorithm::CheckDigits
use strict;
use Algorithm::CheckDigits;

sub icompl {
    my ($year, $isbnstr, $comment) = @_;
    my $isbn13 = CheckDigits('isbn13');
    my $icn = $isbn13->complete($isbnstr);
    my $eanstr = $isbnstr;
    $eanstr =~ s/-//g;
    my $ean = CheckDigits('ean');
    my $ecn = $ean->complete($eanstr);
    print "*Hesla JB na rok $year: ISBN $icn  EAN $ecn ($comment)\n";
}

icompl (2008, '978-80-902899-8-', 'brož. V2 – ještě bez kontroly – uvedeno chybné ISBN 80-902899-8-3');
icompl (2009, '978-80-902899-9-', 'brož. V2');

print "\nPřidělena další serie deseti ISBN:\n";

icompl (2010, '978-80-904123-0-', 'brož. V2');
icompl (2011, '978-80-904123-1-', 'brož. V2');
icompl (2012, '978-80-904123-2-', 'brož. V2');
icompl (2013, '978-80-904123-3-', 'brož. V2');

icompl (2014, '978-80-904123-4-', 'brož. V2');
icompl (2014, '978-80-904123-5-', 'váz. V8');

icompl (2015, '978-80-904123-6-', 'brož. V2');
icompl (2015, '978-80-904123-7-', 'váz. V8');

icompl (2016, '978-80-904123-8-', 'brož. V2');
icompl (2016, '978-80-904123-9-', 'váz. V8');

print "\nPřidělena serie sta ISBN:\n";

icompl (2017, '978-80-88199-00-', 'brož. V2');
icompl (2017, '978-80-88199-01-', 'váz. V8');

icompl (2018, '978-80-88199-02-', 'brož. V2');
icompl (2018, '978-80-88199-03-', 'váz. V8');

icompl (2019, '978-80-88199-04-', 'brož. V2');
icompl (2019, '978-80-88199-05-', 'váz. V8');

print <<'THE_END';

<small>
*XLII. DNY LÉKAŘSKÉ BIOFYZIKY Sborník abstrakt; Kolín 25. – 31. května 2019: ISBN 978-80-88199-06-9  EAN 9788088199069 (brož. V2)
*XLII. DNY LÉKAŘSKÉ BIOFYZIKY Sborník abstrakt; Kolín 25. – 31. května 2019: ISBN 978-80-88199-07-6  EAN 9788088199076 (PDF online)
</small>

THE_END

icompl (2020, '978-80-88199-08-', 'brož. V2');
icompl (2020, '978-80-88199-09-', 'váz. V8');
icompl (2020, '978-80-88199-10-', 'ebook PDF');

icompl (2021, '978-80-88199-11-', 'brož. V2');
icompl (2021, '978-80-88199-12-', 'váz. V8');
icompl (2021, '978-80-88199-13-', 'ebook PDF');

icompl (2022, '978-80-88199-14-', 'brož. V2');
icompl (2022, '978-80-88199-15-', 'váz. V8');
icompl (2022, '978-80-88199-16-', 'ebook PDF');

icompl (2023, '978-80-88199-17-', 'brož. V2');
icompl (2023, '978-80-88199-18-', 'váz. V8');
icompl (2023, '978-80-88199-19-', 'ebook PDF');

icompl (2024, '978-80-88199-20-', 'brož. V2');
icompl (2024, '978-80-88199-21-', 'váz. V8');
icompl (2024, '978-80-88199-22-', 'ebook PDF');

icompl (2025, '978-80-88199-23-', 'brož. V2');
icompl (2025, '978-80-88199-24-', 'váz. V8');
icompl (2025, '978-80-88199-25-', 'ebook PDF');

icompl (2026, '978-80-88199-26-', 'brož. V2');
icompl (2026, '978-80-88199-27-', 'váz. V8');
icompl (2026, '978-80-88199-28-', 'ebook PDF');

icompl (0, '978-80-88199-29-', '');
icompl (0, '978-80-88199-30-', '');
icompl (0, '978-80-88199-31-', '');

icompl (0, '978-80-88199-32-', '');
icompl (0, '978-80-88199-33-', '');
icompl (0, '978-80-88199-34-', '');

icompl (0, '978-80-88199-35-', '');
icompl (0, '978-80-88199-36-', '');
icompl (0, '978-80-88199-37-', '');

icompl (0, '978-80-88199-38-', '');
icompl (0, '978-80-88199-39-', '');
icompl (0, '978-80-88199-40-', '');