诸暨麻将添加redis
25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

14 lines
254 B

  1. #!/usr/bin/env perl
  2. # Check that the length of a given URL is correct
  3. if ( $#ARGV != 1 )
  4. {
  5. print "Usage: $0 string length\n";
  6. exit 3;
  7. }
  8. if (length(@ARGV[0]) != @ARGV[1])
  9. {
  10. print "Given host IP and port not supported\n";
  11. exit 1;
  12. }
  13. exit 0;