1 1ddd2d4e 2023-09-10 jrmu #!/usr/bin/perl
 2 1ddd2d4e 2023-09-10 jrmu 
 3 1ddd2d4e 2023-09-10 jrmu # Parse the International Standard Book Number from the back of this book
 4 1ddd2d4e 2023-09-10 jrmu # (9781449393090). Install the Business::ISBN module from CPAN and use it
 5 1ddd2d4e 2023-09-10 jrmu # to extract the group code and the publisher code from the number.
 6 1ddd2d4e 2023-09-10 jrmu 
 7 1ddd2d4e 2023-09-10 jrmu use v5.24;
 8 1ddd2d4e 2023-09-10 jrmu use warnings;
 9 1ddd2d4e 2023-09-10 jrmu use strict;
10 1ddd2d4e 2023-09-10 jrmu use utf8;
11 1ddd2d4e 2023-09-10 jrmu use local::lib;
12 1ddd2d4e 2023-09-10 jrmu use Business::ISBN;
13 1ddd2d4e 2023-09-10 jrmu 
14 1ddd2d4e 2023-09-10 jrmu my $isbn = Business::ISBN->new(shift @ARGV);
15 1ddd2d4e 2023-09-10 jrmu #print the group code or publisher code
16 1ddd2d4e 2023-09-10 jrmu printf("ISBN: %s, Group Code: %s, Publisher Code: %s\n", $isbn->as_string, $isbn->group_code, $isbn->publisher_code);