ZeroMQ Dealer to Dealer 프록시 수정

ZeroMQ/perl/zmq_proxy_dealerclient.pl → ZeroMQ/perl/zmq_proxy_dealer_to_dealer-client.pl

@@ -22,7 +22,7 @@ my $socket  = zmq_socket($context, ZMQ_DEALER);
 my $seq     = 0;
 
 zmq_setsockopt($socket, ZMQ_IDENTITY, $$);
-zmq_connect ($socket, "ipc:///tmp/test_proxy.ipc");
+zmq_connect ($socket, "ipc:///tmp/test_frontend.ipc");
 
 while (1)
 {

ZeroMQ/perl/zmq_proxy_dealerproxy.pl → ZeroMQ/perl/zmq_proxy_dealer_to_dealer-proxy.pl

@@ -21,8 +21,8 @@ my $context  = zmq_ctx_new();
 my $frontend = zmq_socket($context, ZMQ_ROUTER);
 my $backend  = zmq_socket($context, ZMQ_DEALER);
 
-zmq_bind ($frontend, "ipc:///tmp/test_proxy.ipc");
-zmq_connect ($backend, "ipc:///tmp/test.ipc");
+zmq_bind ($frontend, "ipc:///tmp/test_frontend.ipc");
+zmq_bind ($backend, "ipc:///tmp/test_backend.ipc");
 
 while (1)
 {

ZeroMQ/perl/zmq_proxy_dealerserver.pl → ZeroMQ/perl/zmq_proxy_dealer_to_dealer-server.pl

@@ -21,8 +21,8 @@ my $context = zmq_ctx_new();
 my $socket  = zmq_socket($context, ZMQ_DEALER);
 my $seq     = 0;
 
-zmq_setsockopt($socket, ZMQ_IDENTITY, $$);
-zmq_bind ($socket, "ipc:///tmp/test.ipc");
+zmq_setsockopt ($socket, ZMQ_IDENTITY, $$);
+zmq_connect ($socket, "ipc:///tmp/test_backend.ipc");
 
 while (1)
 {
@@ -34,6 +34,7 @@ while (1)
                 {
                     my @msgs = ();
 
+                    print "TEST\n";
                     while (1)
                     {
                         my $msg = zmq_msg_init();