root/lang/perl/Spread-DStorage/trunk/examples/client.pl @ 10933

#!/usr/bin/perl
use strict;
use Spread::DStorage::Client;
$| = 1;

my $client = Spread::DStorage::Client->new;
print "> ";
while (<>) {
    chomp;
    if ( /^set (.+?) (.+)$/i ) {
        print ">> ", $client->set( $1 => $2 ), "\n";
    }
    elsif ( /^get (.+?)$/i ) {
        print ">> ", $client->get($1), "\n";
    }
    else {
        print "invalid command\n";
    }
    print "\n> ";
}