in reply to Opposite of strtol?
This one is longer than a one-liner. Let's call the stringification function from the gmp library.
First, make sure you have the gmp library and the headers for it installed, eg. if you have a debian linux system, install the libgmp3-dev package. Then make a directory called Math-Tobase-1.0 and enter the following code to a file called Tobase.xs in it:
#include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include <gmp.h> MODULE = Math::Tobase PACKAGE = Math::Tobase SV * tobase(radix, num) int radix long num CODE: ST(0) = sv_newmortal(); if (2 <= radix && radix <= 62 || -36 <= radix && radix <= -2) +{ mpz_t big; mpz_init_set_si(big, num); if (mpz_sizeinbase(big, radix) <= 70) { char buf[72]; mpz_get_str(buf, radix, big); sv_setpv(ST(0), buf); } mpz_clear(big); }
Then enter the following to a file called lib/Math/Tobase.pm under the Math-Tobase-1.0 directory (create the subdirectories):
package Math::Tobase; require Exporter; require DynaLoader; our $VERSION = "1.00"; our @ISA = (Exporter::, DynaLoader::); our @EXPORT = "tobase"; bootstrap Math::Tobase::; 1; __END__
=head1 NAME Math::Tobase - Convert integers to a string in any radix =head1 SYNOPSIS use Math::Tobase; print tobase(16, 200), "\n"; # prints c8 =head1 DESCRIPTION =over 4 =item tobase RADIX, INTEGER Converts an integer to a string in any radix (number base), returning a string. The radix must be an integer between 2 and 62 or between -36 and -2, inclusive. If the magnitude of the radix is greater than 10 but at most 36, lowercase letters a to z are used to indicate digits greater than 9; however, if the radix is greater than 36 then digits between 10 and 35 are represented with uppercase, and digits greater than 35 are represented with lowercase letters. =back =head1 INSTALLATION This module requires the gmp (GNU MP) library, which you can download from L<http://gmplib.org/>. =cut
Then enter the following to the Makefile.PL file under the Math-Tobase-1.0 directory.
use ExtUtils::MakeMaker; WriteMakefile( NAME => "Math::Tobase", VERSION_FROM => "lib/Math/Tobase.pm", LIBS => ["-lgmp"], );
Now compile the code with the command
perl Makefile.PL && make
If all is successful, you can install the module now and get a Math::Tobase module with a tobase function that does what you want.
Try it out before installing using the command
perl -I./lib -Iblib/arch -we 'use Math::Tobase; print tobase(13, 54), +"\n";'
The output shall be 42.
Update 2011-03-18: see also Re: Module for 128-bit integer math? for a list of bigint modules. See also Re: Convert big number from decimal to hexadecimal where I reuse this code.
Update 2012-10-16: note to self (as I reference this code frequently): you may want to use XSLoader.
Update 2013-11-19: for more XS examples, see Re: Perl XS.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Opposite of strtol?
by syphilis (Archbishop) on Jun 22, 2009 at 00:09 UTC | |
by ambrus (Abbot) on Jun 22, 2009 at 08:21 UTC |