zeroclickinfo-goodies/lib/DDG/Goodie/Ascii.pm

26 lines
623 B
Raku

package DDG::Goodie::Ascii;
# ABSTRACT: ASCII
use DDG::Goodie;
triggers end => "ascii";
primary_example_queries '0110100001100101011011000110110001101111 to ascii';
description 'convert binary data to readable characters';
name 'Ascii';
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/Binary.pm';
category 'transformations';
topics 'cryptography';
zci answer_type => "ascii_conversion";
zci is_cached => 1;
handle remainder => sub {
my $ascii = pack("B*", $1) if /^(([0-1]{8})*)\s+(in|to)$/;
return "$1 in binary is \"$ascii\" in ASCII" if $ascii;
return;
};
1;