prime_options.pm v0.4.4
加入模块处理options选项，感觉写到很不标准……
暂时过度一下。
#!/usr/bin/perl
# file:prime_options.pm
# Analyze primedb options.
# by:1e0n 05/10/28 v0.4.4
package prime_options;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(analyze_options);
sub analyze_options (*){
local *options = shift;
if (defined @options) {
if ($#options <= 1) {
local $agm1 = shift @options;
$agm1 =~ s/^\-(.*)$/$1/ or invalid_option(*agm1);
print "option:$agm1\n";
} else {
invalid_option(*agm1);
}
} else {
# do nothing;
#print "no options\n";
}
}
sub help {
print <<EOF;
Usage: primedb [OPTIONS]
Options:
-h, –help Give this help
-v, –version display the version of primedb and exit.
primedb homepage: http://1e0n.blogs.friendster.com/x/
Please report bugs to <perl.pl+prime(at)gmail.com>
EOF
exit;
}
sub invalid_option {
local *cp_agm1 = shift;
print <<EOF;
primedb: invalid option — $cp_agm1;
Usage: primedb [OPTIONS]
Try `primedb –help’ for more information.
EOF
exit;
}
1;
