|
package DDG::Goodie::Ascii;
|
|
# ABSTRACT: ASCII
|
|
|
|
use DDG::Goodie;
|
|
|
|
triggers end => "ascii";
|
|
|
|
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 $ascii if $ascii;
|
|
return;
|
|
};
|
|
|
|
1;
|
|
|