[Perl]オプション引数

Getopt モジュールを使用してオプション引数を指定することができる。

use strict;
use utf8;
use Getopt::Long;
my $opt_name, my $opt_city, my $opt_year;
GetOptions('name=s' => \$opt_name, 'city=s' => \$opt_city, 'year=i' => \$opt_year);
print("My name is $opt_name. I'm from $opt_city. I'm $opt_year years old\n");

name=s で文字列が入ることを指定し、year=i で int 型数値が入ることを指定する。
実行結果

> perl option.pl --name Ken --city Tokyo --year 24
My name is Ken. I'm from Tokyo. I'm 24 years old
> perl option.pl -n Ken -c Tokyo -y 24
My name is Ken. I'm from Tokyo. I'm 24 years old

オプションには --name のような Long 形式と -n のような Short 形式が使用できる。