Skip to content

Instantly share code, notes, and snippets.

@sinkovsky

sinkovsky/gist:880986

Forked from esobchenko/gist:880265
Created March 22, 2011 09:35
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save sinkovsky/880986 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save sinkovsky/880986 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. sinkovsky revised this gist Mar 22, 2011. 1 changed file with 13 additions and 1 deletion.
    14 changes: 13 additions & 1 deletion gistfile1.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -11,6 +11,10 @@
    ->set ( "foo" => "foo desc" )
    ->sadd ( "set1" => "bar" )
    ->set ( "bar" => "bar desc" )
    ->sadd ( "set2" => "foo1" )
    ->set ( "foo2" => "foo desc" )
    ->sadd ( "set2" => "bar" )
    ->set ( "bar2" => "bar desc" )

    ->quit( sub { shift->stop } )->start;

    @@ -24,4 +28,12 @@
    }
    $redis->quit( sub { $redis->stop } );
    }
    )->start;
    )->smembers ( "set2",
    sub {
    my ( $redis, $res ) = @_;
    foreach my $e ( @$res ) {
    $redis->get( $e => sub { printf "%s %s\n", $e, $_[1]->[0]; } );
    }
    $redis->quit( sub { $redis->stop } );
    }
    ->start;
  2. @esobchenko esobchenko created this gist Mar 21, 2011.
    27 changes: 27 additions & 0 deletions gistfile1.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,27 @@
    #!/usr/bin/env perl

    use strict;
    use warnings;
    use MojoX::Redis;

    my $redis1 = MojoX::Redis->new();

    $redis1
    ->sadd ( "set1" => "foo" )
    ->set ( "foo" => "foo desc" )
    ->sadd ( "set1" => "bar" )
    ->set ( "bar" => "bar desc" )

    ->quit( sub { shift->stop } )->start;

    my $redis2 = MojoX::Redis->new();

    $redis2->smembers ( "set1",
    sub {
    my ( $redis, $res ) = @_;
    foreach my $e ( @$res ) {
    $redis->get( $e => sub { printf "%s %s\n", $e, $_[1]->[0]; } );
    }
    $redis->quit( sub { $redis->stop } );
    }
    )->start;