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