1. packages-i18n
2. perl master

Утилита командной строки для распаковки любых файлов

テスト対象のコードが複数行の出力やレコード、データ構造などを返すような場合、その出力があや誤っていたいた場合は、 Unix の 'diff' ユーティリティを利用して違いを確認したいと思うことがあると思います。このモジュールはそのような目的で作られたものです。下記はサンプルのテストスクリプトの出力結果で、 2 つのテキスト文書と 2 つの (ごくありふれた) データ構造をチェックしています:

t/99example....1..3 not ok 1 - differences in text not ok 2 - differences in whitespace not ok 3

eq_or_diff_...() は 2 つの文字列または (限定された範囲の) データ構造を比較し、両方が一致した場合は ok を、そうでない場合は差分を並べて表示します。 Test::Differences は、 Test.pm, Test::Simple, Test::More など、 Test::Builder ベースのテストモジュールとともに使用するよう設計されています。 SYNOPSIS にも書いてある通り、お使いのテストスイートの基礎として他のテストモジュールを利用しなければなりません。

Switch.pm モジュールは一般化された case 機構を実装するもので、上述のとおり switch と case の考えうる組み合わせのほとんど (ただしすべてではないありません) に対応しています。

このモジュールは標準の Perl の文法に対して、 2 種類の制御ステートメント ('switch', 'case') を追加します。 'switch' ステートメントは 1 つのカッコで括ったスカラー値を受け入れます。 'switch' は (ローカライズされた) 制御変数内に現在の switch の値を保存します。また、値の後には 1 つまたは複数の Perl ステートメント (下記の 'case' ステートメントを含みます) を含むブロックを指定します。ブロック内では switch の値がキャッシュされるため、無条件にいずれか 1 つが実行されることになります。

'case' ステートメントでは 1 つのスカラー値を受け入れ (変数を指定する場合はカッコが必須ですが、それ以外は任意です) 、パラメータと現在の switch の値との間で適切な型を選択します。使用する型は switch の値の型と 'case' のパラメータとの間で判断されます (表 1) 。比較が成功 (一致) すると、 'case' ステートメントに結び付けられたコードブロックが実行されます。

他のほとんどの点において、 'case' ステートメントは 'if' ステートメントと意味論上は同じ動作になります。たとえば 'else' 句を利用できたり、後置ステートメント修飾子などを使用することができます。

ただし、 'case' ブロックが実行された後は、制御はブロック内の次のステートメントではなく、 'switch' ブロックの直後に自動的に移動します。言い換えると、いずれかの 'case' ステートメントが成功すると、同じスコープ内の他の 'case' は実行されなくなります。詳しくは下記の "Allowing fall-through" をお読みください。

これら 2 つの新しいステートメントは、完全に一般化された case の仕組みを提供します:

use Switch;



%special = ( woohoo => 1, d'oh => 1 );

while (<>) { chomp; switch ($_) { case (%special) { print "homer\n"; } # if $special{$_} case /[a-z]/i { print "alpha\n"; } # if $_ =~ /a-z/i case [1..9] { print "small num\n"; } # if $_ in [1..9] case { $_[0] >= 10 } { print "big num\n"; } # if $_ >= 10 print "must be punctuation\n" case /\W/; # if $_ ~= /\W/ } }

ただし、 'switch' は 'case' のコードブロック内に入れ子になることもできるほか、 'case' ステートメント間で異なる方の比較処理を実施することもできます。具体的にはハッシュのメンバーシップ確認、パターンマッチ、配列の交差、シンプルな値の比較などを、同じ switch の値に対して適用することができます。

配列の参照に対する交差テストの使用は、特に集合積分の case で特に有用です:

sub classify_digit { switch ($_[0]) { case 0 { return 'zero' } case [2,4,6,8] { return 'even' } case [1,3,5,7,9] { return 'odd' } case /[A-F]/i { return 'hex' } } }

Crypt::CBC 互換準拠の Rijndael 暗号化モジュール