#! /usr/bin/env perl
use Statistics::RserveClient::Connection;
$cnx = new Statistics::RserveClient::Connection('localhost');
Statistics::RserveClient::Connection->init();
my $EOF = 0;
my @result = undef;
while (!$EOF) {
print "> ";
$input = <>;
chomp $input;
if ($input eq "quit") {
print "exiting...\n";
exit 0;
}
else {
print "evaluating $input\n";
@result = $cnx->evalString($input);
print "[" . join (", ", @result) . "]\n";
}
}