tatarurzvn/check-redis.sh

## check-redis.sh
#!/usr/bin/env bash
for port in $(ps aux | perl -ne 'print if not /perl/ and not /63790/ and /redis-server/;' | perl -F'\s+' -lane '@arr = split /:/, "$F[-1]"; print $arr[1];'); do
    echo "==> Clients connected to Redis on TCP port [$port] <==";
    redis-cli -p $port client list;
done
	#!/usr/bin/env bash
	for port in $(ps aux \| perl -ne 'print if not /perl/ and not /63790/ and /redis-server/;' \| perl -F'\s+' -lane '@arr = split /:/, "$F[-1]"; print $arr[1];'); do
	echo "==> Clients connected to Redis on TCP port [$port] <==";
	redis-cli -p $port client list;
	done