Permalink
Switch branches/tags
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
72 lines (59 sloc) 2.06 KB
package DDG::Goodie::Base;
# ABSTRACT: convert numbers between arbitrary bases
use strict;
use DDG::Goodie;
use Math::Int2Base qw(int2base base2int);
use 5.010;
zci answer_type => "conversion";
zci is_cached => 1;
use bigint;
my %base_map = (
hex => 16,
hexadecimal => 16,
oct => 8,
octal => 8,
binary => 2,
dec => 10,
decimal => 10
);
my $map_keys = join '|', keys %base_map;
my %prefix_map = (
'0b' => 2,
'0x' => 16
);
my $prefix_keys = join '|', keys %prefix_map;
triggers any => 'base', keys %base_map;
handle query_lc => sub {
return unless /^(?<prefixKey>$prefix_keys)?(?<inp>[0-9A-Za-z]+)\s*((?:(?:in|as)\s+)?(?:(?<inpBaseKey>$map_keys)|(?:base\s*(?<inpBaseNum>[0-9]+)))\s+)?(?:(?:in|as|to)\s+)?(?:(?<outBaseKey>$map_keys)|(?:base\s*(?<outBaseNum>[0-9]+)))$/;
my $input = uc $+{'inp'}; # uc is necessary as Int2Base doesnt support lowercase
my $from_base = 10;
if (defined $+{'prefixKey'}) {
return if (defined $+{'inpBaseNum'} || defined $+{'inpBaseKey'}); #to avoid input like '0xFF in binary'
$from_base = $prefix_map{$+{'prefixKey'}};
} elsif (defined $+{'inpBaseNum'}) {
$from_base = $+{'inpBaseNum'};
} elsif (defined $+{'inpBaseKey'}) {
$from_base = $base_map{$+{'inpBaseKey'}};
}
my $to_base = $+{'outBaseNum'} // $base_map{$+{'outBaseKey'}};
return if $to_base < 2 || $to_base > 36 || $from_base < 2 || $from_base > 36;
my $char_str = join '', ('0'..'9', 'A'..'Z');
my $chars = substr $char_str, 0, $from_base;
return if $input !~ /^[$chars]+$/;
my $output = convert_base($input, $from_base, $to_base);
return "$input in base $to_base is $output",
structured_answer => {
data => {
title => $output,
subtitle => "From base $from_base to base $to_base: $input"
},
templates => {
group => 'text'
}
};
};
sub convert_base {
my ($num, $from, $to) = @_;
return int2base( base2int($num, $from), $to);
}
1;