Doesn't seem to support Redis cluster mode

[iamalnewkirk]

Accessing a key located on a different shard doesn't follow the redirect and instead throws an error.

[shogo82148]

Right. Redis-Fast doesn't support Redis cluster mode currently.
Did you try https://metacpan.org/pod/Redis::Cluster ?

[iamalnewkirk]

It hasn't been updated since 2015 but I tried it anyway and it failed:

Could not connect to Redis server at 66.228.88.236:6381:9fefdfd5f9dd2d982914ff2fb866072dd4bee401:
  at /root/zing/local/lib/perl5/Redis/Cluster.pm line 669.
  Redis::Cluster::_get_node(Redis::Cluster=HASH(0x564d23e81238), "66.228.88.236:6381:9fefdfd5f9dd2d982914ff2fb866072dd4bee401") called
    at /root/zing/local/lib/perl5/Redis/Cluster.pm line 592
  Redis::Cluster::_get_master_by_slot(Redis::Cluster=HASH(0x564d23e81238), 12503) called
    at /root/zing/local/lib/perl5/Redis/Cluster.pm line 298

[iamalnewkirk]

I got it to work. FYI, to fix this you need to edit this line:

https://metacpan.org/source/SMSONLINE/Redis-Cluster-0.14/lib/Redis/Cluster.pm#L665

and change:

$node = join(':', @$node) if ref($node);

to this:

$node = join(':', @$node) if ref($node);
$node = join(':', (split /:/, $node)[0,1]);

[Yenya]

FWIW, Redis::Cluster::Fast is probably the way to go for accessing Redis cluster from Perl.

For Redis::Cluster, more places than the above one need to be patched for newer Redis protocol. See this issue for a more complete patch:
https://rt.cpan.org/Ticket/Display.html?id=119851