#!/usr/bin/perl -w
#
# pbc - Komentorivilaskin
#
# Ideat kopioitu Ari Mäkelän pbc:stä, ks. http://arska.org/download/pbc/
# 2002-05-10, Launo Tuuri

use strict;
my $r;

die "$0: Anna laskettava lauseke yhtenä merkkijonona\n" if @ARGV > 1;

if ($ARGV[0]) {$r = eval $ARGV[0]} else {die "$0: Ei argumenttia!\n"}

unless ($@) {print $r, "\n"} else {die "$0: Virheellinen lauseke?\n$@\n"}

# Oikeasti, R on kiva ihan pikkutarpeisiinkin:
#  http://www.r-project.org
#  http://cc.oulu.fi/~jarioksa/opetus/rekola/html-opas/node15_ct.html