| Server IP : 103.119.228.120 / Your IP : 3.12.154.133 Web Server : Apache System : Linux v8.techscape8.com 3.10.0-1160.119.1.el7.tuxcare.els2.x86_64 #1 SMP Mon Jul 15 12:09:18 UTC 2024 x86_64 User : nobody ( 99) PHP Version : 5.6.40 Disable Function : shell_exec,symlink,system,exec,proc_get_status,proc_nice,proc_terminate,define_syslog_variables,syslog,openlog,closelog,escapeshellcmd,passthru,ocinum cols,ini_alter,leak,listen,chgrp,apache_note,apache_setenv,debugger_on,debugger_off,ftp_exec,dl,dll,myshellexec,proc_open,socket_bind,proc_close,escapeshellarg,parse_ini_filepopen,fpassthru,exec,passthru,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,popen,show_source,proc_nice,proc_terminate,proc_get_status,proc_close,pfsockopen,leak,apache_child_terminate,posix_kill,posix_mkfifo,posix_setpgid,posix_setsid,posix_setuid,dl,symlink,shell_exec,system,dl,passthru,escapeshellarg,escapeshellcmd,myshellexec,c99_buff_prepare,c99_sess_put,fpassthru,getdisfunc,fx29exec,fx29exec2,is_windows,disp_freespace,fx29sh_getupdate,fx29_buff_prepare,fx29_sess_put,fx29shexit,fx29fsearch,fx29ftpbrutecheck,fx29sh_tools,fx29sh_about,milw0rm,imagez,sh_name,myshellexec,checkproxyhost,dosyayicek,c99_buff_prepare,c99_sess_put,c99getsource,c99sh_getupdate,c99fsearch,c99shexit,view_perms,posix_getpwuid,posix_getgrgid,posix_kill,parse_perms,parsesort,view_perms_color,set_encoder_input,ls_setcheckboxall,ls_reverse_all,rsg_read,rsg_glob,selfURL,dispsecinfo,unix2DosTime,addFile,system,get_users,view_size,DirFiles,DirFilesWide,DirPrintHTMLHeaders,GetFilesTotal,GetTitles,GetTimeTotal,GetMatchesCount,GetFileMatchesCount,GetResultFiles,fs_copy_dir,fs_copy_obj,fs_move_dir,fs_move_obj,fs_rmdir,SearchText,getmicrotime MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/perl5/vendor_perl/Business/ |
Upload File : |
package Business::ISBN13;
use strict;
use base qw(Business::ISBN);
use Business::ISBN qw(:all);
use Data::Dumper;
use subs qw(
_checksum
INVALID_COUNTRY_CODE
INVALID_PUBLISHER_CODE
BAD_CHECKSUM
GOOD_ISBN
BAD_ISBN
);
use vars qw(
$VERSION
$debug
);
use Carp qw(carp croak cluck);
my $debug = 0;
$VERSION = '2.06';
sub _max_length { 13 }
sub _set_type { $_[0]->{type} = 'ISBN13' }
sub _parse_prefix {
my $isbn = $_[0]->isbn; # stupid workaround for 'Can't modify non-lvalue subroutine call'
( $isbn =~ /\A(97[89])(.{10})\z/g )[0];
}
sub _set_prefix {
croak "Cannot set prefix [$_[1]] on an ISBN-13"
unless $_[1] =~ m/\A97[89]\z/;
$_[0]->{prefix} = $_[1];
}
sub _hyphen_positions {
[
$_[0]->_prefix_length,
$_[0]->_prefix_length + $_[0]->_group_code_length,
$_[0]->_prefix_length + $_[0]->_group_code_length + $_[0]->_publisher_code_length,
$_[0]->_checksum_pos,
]
}
# sub group { 'Bookland' }
sub as_isbn10 {
my $self = shift;
return unless $self->prefix eq '978';
my $isbn10 = Business::ISBN->new(
substr( $self->isbn, 3 )
);
$isbn10->fix_checksum;
return $isbn10;
}
sub as_isbn13 {
my $self = shift;
my $isbn13 = Business::ISBN->new( $self->as_string );
$isbn13->fix_checksum;
return $isbn13;
}
#internal function. you don't get to use this one.
sub _checksum {
my $data = $_[0]->isbn;
return unless defined $data;
my @digits = split //, $data;
my $sum = 0;
foreach my $index ( 0, 2, 4, 6, 8, 10 )
{
$sum += substr($data, $index, 1);
$sum += 3 * substr($data, $index + 1, 1);
}
#take the next higher multiple of 10 and subtract the sum.
#if $sum is 37, the next highest multiple of ten is 40. the
#check digit would be 40 - 37 => 3.
my $checksum = ( 10 * ( int( $sum / 10 ) + 1 ) - $sum ) % 10;
return $checksum;
}
1;
__END__
=head1 NAME
Business::ISBN13 - work with 13 digit International Standard Book Numbers
=head1 SYNOPSIS
See L<Business::ISBN>
=head1 DESCRIPTION
See L<Business::ISBN>
=head1 SOURCE AVAILABILITY
This source is in Github.
https://github.com/briandfoy/business--isbn
=head1 AUTHOR
brian d foy C<< <bdfoy@cpan.org> >>
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2001-2013, brian d foy, All Rights Reserved.
You may redistribute this under the same terms as Perl itself.
=cut