第三篇，贴个代码试试

最近做的题目

1. perl 和python脚本传递长参数, script -i indir -o oudir -h

• perl使用模块 use Getopt::Long; use Pod::Usage; 函数GetOptions()可以完成参数传递，pod2usage()可以控制帮助页面

[code]#!/usr/bin/env perl -w

use strict;
use Getopt::Long;
use Pod::Usage;

my ($indir, $outdir, $help);

GetOptions('i=s'=>\$indir, 'o=s'=>\$outdir, 'h'=>\$help);
$help and pod2usage(-verbose=>1, -exitval=>1, -out=>\*STDOUT);

&hello();

sub hello(){
print "Hello!\n";
}

__END__

=head1 SYNOPSIS

script -i indir -o outdir -h
optional arguments:
i: input dir;
o: output dir;
h: help page

=cut

• python使用模块 import getopt

[code]#!/usr/bin/env python

import sys
import getopt

args,rest = getopt.getopt(sys.argv[1:],"i:o:h")
print(args,rest)
indir=''
outdir=''
#helps
for op, value in args:
if op == '-i':
indir = value
elif op == '-o':
outdir = value

print ('input dir is: ' + indir,'output dir is: ' + outdir)