为客户端添加可选参数。

运行register.pl时可以指定server。例：register.pl localhost
qh997 · Apr 23, 2012 · f5cb3fe · f5cb3fe
1 parent 5a05a8d
commit f5cb3fe
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/register.pl b/register.pl
@@ -6,8 +6,9 @@
 use IO::Select;
 use MIME::Base64;
 
-my $SERVER = 'backup1';
+my $SERVER = @ARGV ? shift : 'backup1';
 my $PORT   = '8321';
+chomp $SERVER;
 
 my $socket = IO::Socket::INET -> new(
     PeerAddr => $SERVER,