免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 1044 | 回复: 1

这段perl变量赋值吗?看不懂 [复制链接]

论坛徽章:
2
巨蟹座
日期:2013-12-07 16:51:13天秤座
日期:2013-12-11 15:12:14
发表于 2018-11-21 23:41 |显示全部楼层

GetOptions(
    'command=s'          => \$command,
    'ssh_user=s'         => \$ssh_user,
    'orig_master_host=s' => \$orig_master_host,
    'orig_master_ip=s'   => \$orig_master_ip,
    'orig_master_port=i' => \$orig_master_port,
    'new_master_host=s'  => \$new_master_host,
    'new_master_ip=s'    => \$new_master_ip,
    'new_master_port=i'  => \$new_master_port,
);


=s 和 =i这是什么意思?

论坛徽章:
0
发表于 2018-11-22 23:20 |显示全部楼层
本帖最后由 hztj2005 于 2018-11-25 22:51 编辑

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

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


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

  1. use strict;
  2. use Getopt::Long;

  3. my ( $verbose,  $more, $tag);

  4. GetOptions("verbose+" => \$verbose, #接有 + 的选项不接收变量,每次出现时增加一次变量,
  5.                                     #就是命行时在参数中出现 -v -v 时 $verbose 的值为 2。
  6.             'more!'     => \$more, #接有 ! 的选项不接收变量
  7.             'tag=s' =>\$tag,   # 对应的命令行参数是字符串
  8. ) or die ("Invalid arguments.\n");

  9. if ($verbose){

  10.         print "\$verbose received\n";

  11. } else {

  12.         print "No expected arguments\n";

  13. }

  14. print "$verbose\n";
  15. print "$more\n";
  16. print "$tag\n";
  17. exit;
复制代码

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




您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

数据风云,十年变迁
DTCC 第十届中国数据库技术大会已启航!

2019年5月8日~5月10日,由IT168旗下ITPUB企业社区平台主办的第十届中国数据库技术大会(DTCC2019),将在北京隆重召开。大会将邀请百余位行业专家,就热点技术话题进行分享,是广大数据领域从业人士的又一次年度盛会和交流平台。与SACC2018类似,本届大会将采用“3+2”模式:3天传统技术演讲+2天深度主题培训。大会不仅提供超100场的主题演讲,还会提供连续2天的深度课程培训,深化数据领域的项目落地实践方案。
DTCC2019,一场值得期待的数据技术盛会,殷切地希望您报名参与!

活动入口>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP