Your IP : 216.73.216.74

Current Path : /usr/share/perl5/vendor_perl/Business/ISBN/
Upload File :
Current File : //usr/share/perl5/vendor_perl/Business/ISBN/make_data.pl

#!/usr/bin/perl
use 5.010;

use strict;
use warnings;

use lib qw(lib);

use Business::ISBN::Data;

my %data = Business::ISBN::Data->_get_data();

foreach my $isbn_prefix ("978", "979") {
	printf "\t%s => {\n", $isbn_prefix;
	foreach my $group ( sort { $a <=> $b } keys %{$data{$isbn_prefix}} ) {
		my $array = $data{$isbn_prefix}->{$group};
		my( $group_name, $ranges ) = @$array;
	
		$group_name =~ s/'/\\'/g;

		printf "\t\t%-5s => [ %s => [ ",
			$group,
			qq|'$group_name'|;
			;
	
		unless( @$ranges ) {
			print " ] ],\n";
			next;
		}

		@$ranges = map { qq('$_') } @$ranges;

		foreach my $i ( 0 .. $#$ranges - 1 ) {
			print $ranges->[$i], ( " => ", ", " )[$i % 2];
		}
		print $ranges->[-1], "] ],\n";
	}
	print "\t},\n";
}

#     0 => ['English',               ['00' => '19', '200' => '699', '7000' => '8499', '85000' => '89999', '900000' => '949999', '9500000' => '9999999' ] ],