advanced code snippet search

Posted By

Mazzaroth on 02/19/11


Tagged


Versions (?)

Who likes this?

1 person have marked this snippet as a favorite

wheffner


handle the command line arguments

 / Published in: Perl
 
Expand | Embed | Plain Text 
  1. 	#--------------------------------------------------------------------------
  2. 	# handle the command line arguments
  3. 	#
  4. 	if ( $#ARGV == -1)
  5. 	{
  6. 		&usage;
  7. 		exit 0;
  8. 	}
  9.  
  10. 	while (@ARGV) 
  11. 	{
  12. 		$argument = shift(@ARGV);
  13.  
  14. 		if ($argument eq "-HELP"  ||  $argument eq "-H") 
  15. 		{
  16. 		    &usage;
  17. 		    exit 0;
  18. 		}
  19. 		elsif ($argument eq "-file"        ||  $argument eq "-f") 
  20. 		{
  21. 			$file = shift(@ARGV);
  22. 		}
  23. 		elsif ($argument eq "-verbose"     ||  $argument eq "-v") 
  24. 		{
  25. 			# input data come live from the specified htget output file. Faster.
  26. 		  $verbose = 1;
  27. 		}
  28. 		elsif ($argument eq "-DEBUG") 
  29. 		{
  30. 			$DEBUG_LEVEL = shift(@ARGV);
  31. 		}
  32. 		elsif ($argument eq "-DOCUMENT"  ||  $argument eq "-D") 
  33. 		{
  34. 		    &document;
  35. 		    exit 0;
  36. 		}
  37. 		elsif ($argument eq "-ABOUT"  ||  $argument eq "-A") 
  38. 		{
  39. 		    &about;
  40. 		    exit 0;
  41. 		}
  42. 		elsif ($argument eq "-REL_NOTES"  ||  $argument eq "-R") 
  43. 		{
  44. 		    &rel_notes;
  45. 		    exit 0;
  46. 		}
  47. 		else
  48. 		{
  49. 			print "ERROR: unknown argument '$argument'.\n";
  50. 	    &usage;
  51. 	    exit 0;
  52. 		}
  53. 	}

Report this snippet  

You need to login to post a comment.