Perl 5 to 6

これはMoritz Lenz氏のWebサイトPerlgeek.deで公開されているブログ記事"Perl 5 to 6" Lesson 02 - Typesの日本語訳です。

原文はCreative Commons Attribution 3.0 Germanyに基づいて公開されています。

本エントリにはCreative Commons Attribution 3.0 Unportedを適用します。

NAME

"Perl 5 to 6" Lesson 02 - 型

my Int $x = 3;
$x = "foo";         # エラー
say $x.WHAT;        # 'Int()'

# 型チェック:
if $x ~~ Int {
    say '$x contains an Int'
}

Perl6には型があります。すべてが何らかの形のオブジェクトであり、型を持ちます。変数は型制約を持つことができますが、必須ではありません。

知っておくべきいくつかの基本的な型があります:

'a string'      # Str
2               # Int
3.14            # Rat (有理数)
(1, 2, 3)       # Seq

「通常の」組み込み型はすべて大文字で始まります。「通常の」型はすべてAnyを継承し、他も含めたすべての型は~~Object~~Mu(コメントで指摘があったので修正しました。多謝。ちなみに「無」から来ているそうです)を継承します。

型名を変数宣言に加えることで、変数が保持できる値の型に制約をつけられます。

my Numeric $x = 3.4;
my Int @a = 1, 2, 3;

「間違った」型(与えられた型でもその派生型でもない型)の値を変数に代入しようとするとエラーになります。

配列に対する型宣言はその要素に対して適用されるので、my Str @sは文字列だけを格納できる配列になります。

いくつかの型は更に詳細な型の族を表します。例えば整数、有理数と浮動小数(Num型)はNumeric型を構成します。

.WHATメソッドを呼ぶことでインスタンスの型を知ることができます。

say "foo".WHAT;     # Str()

ただし、もしインスタンスが与えられた型を継承しているか確認したいのなら別の方法があります。継承関係も考慮してくれるのでこちらの方がオススメです:

if $x ~~ Int {
    say 'Variable $x contains an integer';
}

型システムの詳細をすべて完全に理解することは簡単ではありませんが、型が必要な理由があります:

インスタンスがある型であると宣言すれば然るべき処理を実行することを確信できます。確認の必要はありません。

コンパイル時に型情報があれば然るべき最適化を行うことができます。 Perl6は必ずしもCより遅くなりません。原理的には。

型情報と多重ディスパッチによって、特定の型に対して演算を簡単に再定義できます。