Allow "." in queue names

rabbitmq-consumers

@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST name consumers| \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+    perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'

rabbitmq-messages

@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST | \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+	perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'

rabbitmq-messages_unacknowledged

@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST name messages_unacknowledged | \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+    perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'

rabbitmq-messages_uncommitted

@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST name messages_uncommitted | \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+    perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'

rabbitmq-queue_memory

@@ -71,4 +71,4 @@ fi
 
 sudo rabbitmqctl list_queues -p $VHOST name memory | \
 	grep -v "^Listing" | grep -v "done.$" | \
-	perl -nle'($q, $s) = split; print("$q.value $s")'
+    perl -nle'($q, $s) = split; $q =~ s/\./_/g; print("$q.value $s")'