weblog of key_amb

主にIT関連の技術メモ

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";

}

とかとか。