Getopt::Long
perl 模块Getopt::Long使用示例
use strict; use warnings; use Getopt::Long; my @ARGV2 = @ARGV; my $leng =10; my $data ="x.txt"; my $verb; my $help; die("error in options") unless GetOptions( "l|length=i" => \$leng, "f|file=s" => \$data, "v|verbose" => \$verb, "h|help" => \$help, ); sub usage { print <<USAGE -l|--length <number> set number of length -f|--file <str> set name of files -v|--verbose set verbose -h|--help show this help information USAGE } if($help || @ARGV2 == 0){ exit 0 if &usage(); } print "$leng\n$data\n$verb";
作者:天使不设防
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· 没有源码,如何修改代码逻辑?
· PowerShell开发游戏 · 打蜜蜂
· 在鹅厂做java开发是什么体验
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战