/
usr
/
share
/
perl5
/
vendor_perl
/
Business
/
ISBN
/
/usr/share/perl5/vendor_perl/Business/ISBN
mkdir
upload
Name
Size
Mode
Actions
Data.pm
33480
0644
edit
dl
rm
make_data.pl
893
0755
edit
dl
rm
RangeMessage.url
59
0644
edit
dl
rm
RangeMessage.xml
165766
0644
edit
dl
rm
Edit:
/usr/share/perl5/vendor_perl/Business/ISBN/make_data.pl
(893B)
#!/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' ] ],
Save
cmd:
run