在Perl中使用Getopt：：Long进行命令行解析

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了在Perl中使用Getopt：：Long进行命令行解析相关的知识，希望对你有一定的参考价值。

This is a simplified example for cut and paste use for command line parsing arguments with the use of an options hash
  1. #!/usr/bin/perl -w
  2.  
  3. ##Simplified example of using Getopt:Long moudule with an Options hash
  4.  
  5. use Getopt::Long;
  6. use strict;
  7.  
  8. my %Opt=();
  9.  
  10.  
  11. (GetOptions( \%Opt, 
  12. 		"h|help",
  13. 		"s|string=s",
  14. 		"l|[email protected]",
  15. 		"i|int=i", 
  16.  		"f|float=f",
  17.  		"o|octal=o",
  18. )) || die "ERROR: Illegal arguments or parameters: @ARGV
" unless ($#ARGV < 0);
  19.  
  20.  
  21. ## Or as OO
  22. #
  23. #my $parser = new Getopt::Long::Parser;
  24. #$parser->configure("no_ignore_case");
  25. #if ($parser->getoptions(\%Opt, 
  26. #			"h|help",
  27. #			"s|string=s",
  28. #			"l|[email protected]",
  29. #			"i|int=i", 
  30. # 			"f|float=f",
  31. # 			"o|octal=o",
  32. #)) {};
  33. #    
  34.  
  35. ## Just print out the options for each collected to see what there is:
  36. foreach my $key (keys %Opt) {
  37. 		print "$key is $Opt{$key}
";
  38. }

以上是关于在Perl中使用Getopt：：Long进行命令行解析的主要内容，如果未能解决你的问题，请参考以下文章