Getopt::Long
Option解析。
#!/usr/bin/perl use strict; use Getopt::Long; main() sub main { my $opt_start; my $opt_end; GetOptions( 'from=i' => \$opt_start ,'to=i' => \$opt_end ); if (!$opt_start) { print "Can't Excecute without start date!\n"; usage(); die; } print "start = $opt_start\n"; print "end = $opt_end\n"; }
とかとか。