| lh | 9ed821d | 2023-04-07 01:36:19 -0700 | [diff] [blame^] | 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; | ||||