39 lines
1.2 KiB
Perl
39 lines
1.2 KiB
Perl
package DDG::Goodie::EmToPx;
|
|
|
|
use DDG::Goodie;
|
|
|
|
triggers any => "em", "px";
|
|
|
|
zci is_cached => 1;
|
|
zci answer_type => "conversion";
|
|
|
|
primary_example_queries '10 px to em';
|
|
secondary_example_queries '12.2 px in em assuming a 12.2 font size';
|
|
description 'convert from px to em';
|
|
name 'EmToPx';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/EmToPx.pm';
|
|
category 'conversions';
|
|
topics 'programming';
|
|
attribution twitter => 'crazedpsyc',
|
|
cpan => 'CRZEDPSYC' ;
|
|
|
|
handle query_raw => sub {
|
|
s/(?![\.\s])\W//g;
|
|
return unless /^(?:convert|change|what\s*(?:s|is|are)\s+)?(\d+\.\d*|\d*\.\d+|\d+)\s*(em|px)\s+(?:in|to)\s+(em|px)(?:\s+(?:with|at|using|assuming)(?:\s+an?)?\s+(\d+\.\d*|\d*\.\d+|\d+)\s*px)?/i;
|
|
my $target = lc($3);
|
|
my $num = $1;
|
|
my $source = lc($2);
|
|
|
|
my $fontsize = ( defined $4 ) ? $4 : 16;
|
|
|
|
my $result;
|
|
$result = $num * $fontsize if $target eq 'px' && $source eq 'em';
|
|
$result = $num / $fontsize if $target eq 'em' && $source eq 'px';
|
|
my $plur = $result == 1 ? "is" : "are";
|
|
|
|
return "There $plur $result $target in $num $source (assuming a ${fontsize}px font size)";
|
|
return;
|
|
};
|
|
|
|
1;
|