いろいろと勉強中

Perl

汎用引数処理　Getopt::Long


　が、オプション必須な項目の入力チェックは自分で行わないといけないっぽい。
　まだまだ精進が必要か。

Usage

　Getopt::Longの解説も含む。

utf8

他

　definedがうまく使えないってどういうスキルレベルですか私。

　ネットワークプログラミング


　引数処理に手こずり、６時間かけて実際の中身をコーディングこと敵わず。
　何やってるんだ、私。

　結局こんな感じに落ち着きました。

use strict;
use Pod::Usage;
use Getopt::Long;
#use open ":encoding(utf8)";
#use open ":std";
BEGIN { unshift(@INC, './'); }
# get_jaccard.pl
# 2006 2006/07/09 3:20:01
# g2105024

MAIN {
	# Parse Option
	my %option_for;
	GetOptions( \%option_for,
		"keyA|a=s",
		"keyB|b=s"
	) or pod2usage(2);
	pod2usage(1) unless defined $option_for{keyA};
	pod2usage(1) unless defined $option_for{keyB};

# 処理の中身〜

}

__END__

=head1 SYNOPSIS

	perl get_jaccard.pl [options]
	
	Options:
		[--keyA|-a]		keywordA
		[--keyB|-b]		keywordB

=cut

　そう言えばuse utf8しているとマルチバイトで変数名とかをつけられるとどこかで見たような……