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

28 lines
763 B
Perl
Raw Normal View History

2012-04-15 12:41:23 -07:00
package DDG::Goodie::Unidecode;
# ABSTRACT: return an ASCII version of the search query
use DDG::Goodie;
use Text::Unidecode;
triggers startend => "unidecode";
zci is_cached => 1;
zci answer_type => "convert_to_ascii";
2012-11-06 13:22:27 -08:00
attribution github => ['https://github.com/moritz', 'moritz'];
primary_example_queries => 'unidecode møæp';
secondary_example_queries => "unidecode å亰";
description 'decode special non-latin characters';
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/Unidecode.pm';
category 'computing';
topics 'programming';
2012-04-15 12:41:23 -07:00
handle remainder => sub {
my $u = unidecode $_;
# unidecode output sometimes contains trailing spaces
$u =~ s/\s+$//;
return $u;
};
1;