Sometimes I need to do a quick calculation. I'm too lazy to open a GUI calculator and I never remember whether it's bc or dc (not mentioning the syntax). So I placed this code into ~/bin/calc: 

#!/usr/bin/perl -sT
use strict;
use warnings;
use bignum;

# Command line options...
our ($h, $b, $x, $c, $l);

# Help message...
if ($h) {
    print <<'EOF';
Simple CLI calculator based on Perl's eval()

calc [options] <expression>

-h  help
-b  convert expression (or its result) to binary
-x  convert expression (or its result) to hexadecimal
-c  convert expression (or its result) to character
-l  calculate base 2 logarithm of expression

calc 149,600,000/299 792 458*1000/60    # comma or space are thousands
+ separator
calc 2x2 + 2*2                          # x is the same as * (multipli
+cation)
calc 'sqrt(V(3+3+3) * 3)'               # V is the same as sqrt (squar
+e root)
calc -b 2^8                             # ^ is the same as ** (exponen
+tiation)
calc -x $RANDOM
calc -c 2**17-3030
calc -l 256
EOF
    exit 0;
}

# Allowed input characters regex...
my $allowed = qr'\d\+\-\/\*\.x(sqrt)V';

# Transform input a bit...
@ARGV = ( "@ARGV" =~ /[$allowed]/g );   # un-taint
my $expr = "@ARGV";
$expr =~ s/\s+//g;                      # allow whitespace in input
$expr =~ s/x/*/gi;                      # allow x for multiplication
$expr =~ s/\^/**/g;                     # allow ^ for exponentiation
$expr =~ s/V/sqrt/g;                    # allow V for square root
$expr =~ s/sqrt/sqrt /g;

# Do the calculation...
my $res = eval "$expr";
die "Does not compute...$expr\n" unless defined $res;

if ($b) {       # Show result in binary...
    printf "%s = %b\n", $expr, $res;
    exit
} elsif ($x) {  # Show result in hex...
    printf "%s = %x\n", $expr, $res;
    exit
} elsif ($c) {  # Show result as character...
    binmode(STDOUT, ':utf8');
    printf "%s = %c\n", $expr, $res;
    exit
}

if ($l) {   # Calculate base 2 logarithm...
    $res = log($res)/log(2.0);
}

# Show thousands in result but not in the decimal part...
my ( $before_dot, $after_dot ) = split /\./, $res;
$before_dot =~ s/(\d{1,3}?)(?=(\d{3})+$)/$1 /g;
printf "%s = %s.%s\n", $expr, $before_dot, $after_dot // 0;

[download]
Solve the biggest problem you can. -- Nick Hanauer

In reply to Simple CLI calculator based on Perl's eval() by reisinge

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.