3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-23 11:12:42 +01:00
pbot/applets/qalc.pl
Pragmatic Software 8d5b992b4c Update copyright
2023-02-20 21:31:52 -08:00

20 lines
353 B
Perl
Executable File
Vendored

#!/usr/bin/env perl
# SPDX-FileCopyrightText: 2015-2023 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
use warnings;
use strict;
if (not @ARGV) {
print "Usage: qalc <expression>\n";
exit;
}
my $result = `ulimit -t 2; qalc \Q@ARGV\E`;
$result =~ s/^.*approx.\s+//;
$result =~ s/^.*=\s+//;
print "@ARGV = $result\n";