Re: ISBN-Umwandlung

[Markus Hennies <hennies _at__ uni-freiburg.de>]

At 11:51 05.03.01 +0200, you wrote:
>Liebe Kollegin, lieber Kollege,
>kennt jemand ein Programm, das ISBN ohne Leerstellen bzw. 
>Bindestriche in solche mit Leerstellen bzw. Bindestriche, die 
>bekanntlich Ländercode, Verlag etc. kennzeichnen, umwandelt?
>Mit besten Grüßen
>Karl Trautmann


Wie wäre es mit einem kleinen Perl-Modul?

siehe http://www.cpan.org/


MfG, Markus Hennies



NAME 

    Business::ISBN - work with International Standard Book Numbers 

SYNOPSIS 

        use Business::ISBN;

        $isbn_object = new Business::ISBN('1565922573');
        $isbn_object = new Business::ISBN('1-56592-257-3');

        #print the ISBN with hyphens at positions specified
        #by constructor
        print $isbn_object->as_string;

        #print the ISBN with hyphens at specified positions.
        #this not does affect the default positions
        print $isbn_object->as_string([]);

        #print the country code or publisher code
        print $isbn->country_code;
        print $isbn->publisher_code;

        #check to see if the ISBN is valid
        $isbn_object->is_valid;

        #fix the ISBN checksum.  BEWARE:  the error might not be
        #in the checksum!
        $isbn_object->fix_checksum;