URN Logo
Linux | FreeBSD | OpenBSD | NetBSD | BSDI | AIX | Solaris/SunOS | Tru64 | HP-UX | IRIX | Minux | SCO Unix | Mac OS X
UNIX Resources » Linux » China Linux Forum » Perl 编 程 » 第5页 » Getopt::Std模块的使用[原创]
announcement 声明: 本页内容为中国Linux论坛的内容镜像，文章的版权以及其他所有的相关权利属于中国Linux论坛和相应文章的作者，如果转载，请注明文章来源及相关版权信息。
Resources
China Linux Forum(finished)
Linux Forum(finished)
FreeBSD China(finished)
linuxforum.net
  业界新闻与评论
  自由软件杂谈
  IT 人生
  Linux软件快递
  翻译作坊
  Linux图书与评论
  GNU Emacs/XEmacs
  Linux 中文环境和中文化
  Linux桌面与办公软件
  Linux 多媒体与娱乐版
  自由之窗Mozilla
  笔记本电脑上的Linux
  Gentoo
  Debian 一族
  网络管理技术
  Linux 安装与入门
  WEB服务器和FTP服务器
  域名服务器和邮件服务器
  Linux防火墙和代理服务器应用
  文件及打印服务器
  技术培训与认证
  Linux内核技术
  Linux 嵌入技术
  Linux设备驱动程序
  Linux 集群技术
  LINUX平台数据库
  系统和网络安全
  CPU 与 编译器
  系统计算研究所专栏
  Linux下的GUI软件开发
  C/C++编程版
  PHP 技 术
  Java&jsp技术
  Shell编程技术
  Perl 编 程
  Python 编 程
  XML/Web Service 技术
  永远的Unix
  FreeBSD世界
    
Getopt::Std模块的使用[原创]
Getopt::Std模块的使用[原创] - louiskoochen [2004-04-12 13:04 | 1,184 byte(s)]
 
Re: Getopt::Std模块的使用[原创] - DanceDanceDance [2004-04-12 21:06 | 45 byte(s)]
 
Re: Getopt::Std模块的使用[原创] - louiskoochen [2004-04-13 13:28 | 53 byte(s)]
 
Re: Getopt::Std模块的使用[原创] - DanceDanceDance [2004-04-13 13:54 | 364 byte(s)]
 
Subject: Getopt::Std模块的使用[原创]
Author: louiskoochen    Posted: 2004-04-12 13:04    Length: 1,184 byte(s)
[Original] [Print] [Top]
Getopt::Std模块的使用：

初始设置：

在程序中加入如下代码：
use Getopt::Std;
use vars qw($opt_d $opt_f $opt_p);
getopts('d:f:p');
(注意上两行的参数要对应)

[ 解释一下"d:f:p"，d和f后有冒号，表示-d，-f后面要跟参数。p后面没有冒号，表示-p后面不带参数。
而且-d，-f后所跟的参数分别赋给变量$opt_d和$opt_f。对于变量$opt_p，若命令行加了-p，则$opt_p=1，否则为0]

举个例子就很清楚了：
vi file.pl

添加如下代码：
use Getopt::Std;
use vars qw($opt_d $opt_f $opt_p);
getopts('d:f:p');

print "$opt_d => $opt_d " if $opt_d;
print "$opt_f => $opt_f " if $opt_f;
print "$opt_p => $opt_p " if $opt_p;

然后在命令行中运行：
perl file.pl -d 20040412 -f louiskoochen -p

可得到下列形式的输出：
$opt_d =>200040412
$opt_f =>louiskoochen
$opt_p =>1

这回大家知道Getopt::Std模块是怎么回事了吧：）
[Original] [Print] [Top]
Subject: Re: Getopt::Std模块的使用[原创]
Author: DanceDanceDance    Posted: 2004-04-12 21:06    Length: 45 byte(s)
[Original] [Print] [Top]
Good!
另外，Getopt::Long也比较好用。
----
It's better to burn out than to fade away...
[Original] [Print] [Top]
Subject: Re: Getopt::Std模块的使用[原创]
Author: louiskoochen    Posted: 2004-04-13 13:28    Length: 53 byte(s)
[Original] [Print] [Top]
dance 兄介绍一下啊。
Getopt::Long 我还不会。
[Original] [Print] [Top]
Subject: Re: Getopt::Std模块的使用[原创]
Author: DanceDanceDance    Posted: 2004-04-13 13:54    Length: 364 byte(s)
[Original] [Print] [Top]
比如你上面的例子，用Getopt::Long可以这样实现 

use Getopt::Long;

use strict;

use warnings;

use vars ($opt_d, $opt_f, $opt_p);

GetOptions(

 "d|d=i"=>$opt_d,

 "f|f=s"=>$opt_f,

 "p|p"=>$opt_p,

)
----
It's better to burn out than to fade away...
[Original] [Print] [Top]
« Previous thread
请指教：perl的编译警告！！！！！！		 Perl 编 程
第5页		 Next thread »
有人装上了Perl的Net-Pcap-0.05么？
     
Google  
 
Copyright © 2007 UNIX Resources Network, All Rights Reserved.      About URN | Privacy & Legal | Help | Contact us
备案序号: 京ICP备05006143    webmaster: webmaster@unixresources.net
This page created on 2008-07-17 04:09:05, cost 0.051799058914185 ms.