2
0

test75.pl 254 B

12345678910111213
  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;