83 lines
2.5 KiB
Perl
83 lines
2.5 KiB
Perl
package DDG::Goodie::Binary;
|
|
# ABSTRACT: Convert decimal, hex and string to binary.
|
|
|
|
use strict;
|
|
use DDG::Goodie;
|
|
|
|
use Bit::Vector;
|
|
|
|
triggers end => "binary";
|
|
|
|
zci answer_type => "binary_conversion";
|
|
zci is_cached => 1;
|
|
|
|
primary_example_queries 'foo in binary', '12 as binary', 'hex 0xffff into binary';
|
|
secondary_example_queries '0x1e to binary';
|
|
description 'convert ASCII, numbers, and hex to binary';
|
|
name 'Binary';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/Binary.pm';
|
|
category 'conversions';
|
|
topics 'geek';
|
|
|
|
sub bin {
|
|
my @tex = shift;
|
|
my $bin;
|
|
for(my $x = 0; $x <= $#tex; $x++) {
|
|
$bin .= unpack("B*", $tex[$x]);
|
|
}
|
|
return $bin;
|
|
}
|
|
|
|
sub dec2bin {
|
|
my $dec = shift;
|
|
# Method for packing without 'q' taken from:
|
|
# http://www.perlmonks.org/?node_id=163123
|
|
my $vec = Bit::Vector->new_Dec(64, $dec);
|
|
my $str = unpack("B*", pack('NN', $vec->Chunk_Read(32, 32), $vec->Chunk_Read(32, 0)));
|
|
$str =~ s/^0+(?=\d)//; # first suppress leading zeros
|
|
my $alignment = length($str) % 8; # Then see if we need to pad for byte-sized output.
|
|
return ($alignment) ? ('0' x (8 - $alignment)) . $str : $str;
|
|
}
|
|
|
|
sub hex2bin {
|
|
dec2bin(hex(shift));
|
|
}
|
|
|
|
sub bin2dec {
|
|
my @bin = shift;
|
|
my $str = unpack("N", pack("B32", substr("0" x 32 . $bin[0], -32)));
|
|
return $str;
|
|
}
|
|
|
|
|
|
handle remainder => sub {
|
|
my @out;
|
|
|
|
if (/^([01]+)(\s+from)?$/) {
|
|
# Looks like they gave us some binary, let's turn it into decimal!
|
|
@out = ($1, bin2dec($1), "Binary", "Decimal");
|
|
} elsif (s/\s+(in|to|into|as)$//) {
|
|
# Looks like they are asking for a conversion to binary
|
|
# So, try to figure out what they've got.
|
|
# They can either tell us explicitly or we can try to just work it out.
|
|
if (/^(?:decimal\s+)?([0-9]+)$/) {
|
|
@out = ($1, dec2bin($1), "Decimal", "Binary");
|
|
} elsif (/^(?:hex\s+)?(?:0x|Ox|x)?([0-9a-fA-F]+)$/) {
|
|
# Normalize the hex output with lowercase and a prepended '0x'.
|
|
@out = ('0x' . lc $1, hex2bin($1), "Hex", "Binary");
|
|
} else {
|
|
# We didn't match anything else, so just convert whatever string is left.
|
|
@out = ($_, bin($_), "String", "Binary");
|
|
}
|
|
}
|
|
return unless (@out); # Didn't hit any conditions, must not be us.
|
|
|
|
return qq/Binary conversion: $out[0] ($out[2]) = $out[1] ($out[3])/,
|
|
structured_answer => {
|
|
input => [$out[0]],
|
|
operation => $out[2] . ' to ' . $out[3],
|
|
result => $out[1]};
|
|
};
|
|
|
|
1;
|