--- lib/Redis.pm 2009/03/22 17:06:34 32
+++ lib/Redis.pm 2009/03/22 18:05:12 36
@@ -9,7 +9,7 @@
=head1 NAME
-Redis - The great new Redis!
+Redis - perl binding for Redis database
=cut
@@ -20,13 +20,13 @@
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
@@ -79,6 +79,23 @@
_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";
@@ -276,6 +293,8 @@
=head1 Commands operating on lists
+See also L for tie interface.
+
=head2 rpush
$r->rpush( $key, $value );
@@ -317,18 +336,7 @@
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
@@ -443,6 +451,28 @@
$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
Dobrica Pavlinusic, C<< >>