hngl.net
当前位置:首页 >> PErl中GEtopt::Long怎么获取带*的参数 >>

PErl中GEtopt::Long怎么获取带*的参数

Getopt::* 模块系列的作用是只是帮你处理 @ARGV 的参数, 而填入对应的(引用)参数内, 所以这并不会帮你找出 *.txt 档. 要找档案的话你可以用 File::Find, 而如果你想懒一点的话, 你可能还需要将你程序的介面改成 -base "/User/" -find "*.txt"

1.使用一个参数读取shell传递来的多个参数:目录下:a.logb.logc.logdota.pldota.pl的内容如下:#! /usr/bin/perluse Getopt::Std;use warnings;use strict;sub read_from_sh($) {my $file = shift;my @files = ();open F, $file or die "Could no...

1.使用一个参数读取shell传递来的多个参数:目录下: a.log b.log c.logdota.pldota.pl的内容如下: #! /usr/bin/perl use Getopt::Std; use warnings; use strict; sub read_from_sh($) { my $file = shift; my @files = (); open F, $file or di...

GetOptions(\%gh_prog_opt, qw(help|h relxml|r=s spxml|s=s corexml|c=s)); 可以读入指定的命令行参数设置到gh_prog_opt散列中;-h等价于-help,相当于别名,类似的-r是-relxml的别名,-s是-spxml的别名,-c是-corexml的别名;=s表示要用等号再...

概念 / 简单应用上, 可以这样写: sub help { ... } help() if ( grep {$_ eq "-h"} @ARGV ) ; 不过, 实际的应用上, 你可能需要有更专业的模块帮你完成, 其实应该是说... 更不费劲.. 有空可以参考一下 Getopt::Long 或 Getopt::Std

下面的代码???

调用perl里面所用的模块; use strict防止未定义变量; use Getopt::Long是调用参数; 。。。。。。。

网站首页 | 网站地图
All rights reserved Powered by www.hngl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com