X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=blobdiff_plain;f=lib%2FRedis.pm;h=88ba139a531540bfcdb251ee06014b2121a657b6;hp=af9048a50dc3cb80f6cfc05e9fa1c48f9d3eabe4;hb=a3369adfe29f184cd6805caa4f33a7f163f6f152;hpb=7b06790912537232a106266ab3777d548f86cfd3
diff --git a/lib/Redis.pm b/lib/Redis.pm
index af9048a..88ba139 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -9,7 +9,7 @@ use Carp qw/confess/;
=head1 NAME
-Redis - The great new Redis!
+Redis - perl binding for Redis database
=cut
@@ -20,13 +20,13 @@ our $VERSION = '0.01';
Pure perl bindings for L
+This version support git version of Redis available at
+L
+
use Redis;
my $r = Redis->new();
-
-
-
=head1 FUNCTIONS
=head2 new
@@ -63,8 +63,10 @@ sub _sock_read_bulk {
warn "## bulk len: ",dump($len);
return undef if $len eq "nil\r\n";
my $v;
- read($sock, $v, $len) || die $!;
- warn "## bulk v: ",dump($v);
+ if ( $len > 0 ) {
+ read($sock, $v, $len) || die $!;
+ warn "## bulk v: ",dump($v);
+ }
my $crlf;
read($sock, $crlf, 2); # skip cr/lf
return $v;
@@ -77,8 +79,26 @@ sub _sock_result_bulk {
_sock_read_bulk();
}
+sub _sock_result_bulk_list {
+ my $self = shift;
+ warn "## _sock_result_bulk_list ",dump( @_ );
+
+ my $size = $self->_sock_send( @_ );
+ confess $size unless $size > 0;
+ $size--;
+
+ my @list = ( 0 .. $size );
+ foreach ( 0 .. $size ) {
+ $list[ $_ ] = _sock_read_bulk();
+ }
+
+ warn "## list = ", dump( @list );
+ return @list;
+}
+
sub __sock_ok {
my $ok = <$sock>;
+ return undef if $ok eq "nil\r\n";
confess dump($ok) unless $ok eq "+OK\r\n";
}
@@ -100,7 +120,8 @@ sub __sock_send_bulk_raw {
my $self = shift;
warn "## _sock_send_bulk ",dump( @_ );
my $value = pop;
- print $sock join(' ',@_) . ' ' . length($value) . "\r\n$value\r\n";
+ $value = '' unless defined $value; # FIXME errr? nil?
+ print $sock join(' ',@_) . ' ' . length($value) . "\r\n$value\r\n"
}
sub _sock_send_bulk {
@@ -272,6 +293,8 @@ sub dbsize {
=head1 Commands operating on lists
+See also L for tie interface.
+
=head2 rpush
$r->rpush( $key, $value );
@@ -313,18 +336,7 @@ sub llen {
sub lrange {
my ( $self, $key, $start, $end ) = @_;
- my $size = $self->_sock_send('LRANGE', $key, $start, $end);
-
- confess $size unless $size > 0;
- $size--;
-
- my @list = ( 0 .. $size );
- foreach ( 0 .. $size ) {
- $list[ $_ ] = _sock_read_bulk();
- }
-
- warn "## lrange $key $start $end = [$size] ", dump( @list );
- return @list;
+ $self->_sock_result_bulk_list('LRANGE', $key, $start, $end);
}
=head2 ltrim
@@ -379,7 +391,7 @@ sub lrem {
sub lpop {
my ( $self, $key ) = @_;
- $self->_sock_result_bulk( 'lpop', $key );
+ $self->_sock_result_bulk( 'LPOP', $key );
}
=head2 rpop
@@ -390,7 +402,75 @@ sub lpop {
sub rpop {
my ( $self, $key ) = @_;
- $self->_sock_result_bulk( 'rpop', $key );
+ $self->_sock_result_bulk( 'RPOP', $key );
+}
+
+=head1 Commands operating on sets
+
+=head2 sadd
+
+ $r->sadd( $key, $member );
+
+=cut
+
+sub sadd {
+ my ( $self, $key, $member ) = @_;
+ $self->_sock_send_bulk_number( 'SADD', $key, $member );
+}
+
+=head2 srem
+
+ $r->srem( $key, $member );
+
+=cut
+
+sub srem {
+ my ( $self, $key, $member ) = @_;
+ $self->_sock_send_bulk_number( 'SREM', $key, $member );
+}
+
+=head2 scard
+
+ my $elements = $r->scard( $key );
+
+=cut
+
+sub scard {
+ my ( $self, $key ) = @_;
+ $self->_sock_send( 'SCARD', $key );
+}
+
+=head2 sismember
+
+ $r->sismember( $key, $member );
+
+=cut
+
+sub sismember {
+ my ( $self, $key, $member ) = @_;
+ $self->_sock_send_bulk_number( 'SISMEMBER', $key, $member );
+}
+
+=head2 sinter
+
+ $r->sinter( $key1, $key2, ... );
+
+=cut
+
+sub sinter {
+ my $self = shift;
+ $self->_sock_result_bulk_list( 'SINTER', @_ );
+}
+
+=head2 sinterstore
+
+ my $ok = $r->sinterstore( $dstkey, $key1, $key2, ... );
+
+=cut
+
+sub sinterstore {
+ my $self = shift;
+ $self->_sock_send_ok( 'SINTERSTORE', @_ );
}
=head1 AUTHOR