Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
55 lines (41 sloc) 1.17 KB
package DDG::Goodie::Base64;
# ABSTRACT: Base64 <-> Unicode
use strict;
use DDG::Goodie;
use Text::Trim;
use MIME::Base64;
use Encode;
triggers start => "base64";
zci answer_type => "base64_conversion";
zci is_cached => 1;
handle remainder => sub {
my ($command, $input) = query_components($_);
return unless $input;
my $output = perform_conversion($command, $input);
my $operation = "Base64 $command";
return "$operation d: $output",
structured_answer => {
data => {
title => $output,
subtitle => "$operation: $input"
},
templates => {
group => 'text'
}
};
};
# Parse the query into its two components:
# an optional command (encode or decode),
# and an input string.
sub query_components {
my $query = shift;
$query =~ /^(?<command>encode|decode|)\s*(?<input>.*)$/i;
my $command = lc($+{'command'}) || 'encode';
return ($command, $+{'input'});
}
sub perform_conversion {
my ($command, $input) = @_;
return trim(decode("UTF-8", decode_base64($input))) if($command eq 'decode');
return trim(encode_base64(encode("UTF-8", $input)));
}
1;