Chinaunix

标题: 这段perl变量赋值吗？看不懂 [打印本页]

---

作者: lxzkenney    时间: 2018-11-21 23:41
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: hztj2005    时间: 2018-11-22 23:20


理解这种代码，你自己运行观察一下是最好的。

Getopt这个模块中，GetOptions函数参数中 =s 指示对应的命令行参数是字符串  
                                                         =i 指示对应的命令行参数是整数。


下面链接解释的比较清楚
https://blog.csdn.net/zhuzhiqi11/article/details/37877383

1. use strict;
   
2. use Getopt::Long;
   
3. 
   
4. my ( $verbose,  $more, $tag);
   
5. 
   
6. GetOptions("verbose+" => \$verbose, #接有 + 的选项不接收变量，每次出现时增加一次变量,
   
7.                                     #就是命行时在参数中出现 -v -v 时 $verbose 的值为 2。
   
8.             'more!'     => \$more, #接有 ! 的选项不接收变量
   
9.             'tag=s' =>\$tag,   # 对应的命令行参数是字符串
   
10. ) or die ("Invalid arguments.\n");
    
11. 
    
12. if ($verbose){
    
13. 
    
14.         print "\$verbose received\n";
    
15. 
    
16. } else {
    
17. 
    
18.         print "No expected arguments\n";
    
19. 
    
20. }
    
21. 
    
22. print "$verbose\n";
    
23. print "$more\n";
    
24. print "$tag\n";
    
25. exit;

复制代码

执行： perl testgetopt.pl -m -v -v -tag=study
输出：
$verbose received
2
1
study

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2