require

`require(EXPR)'

`require EXPR'

`require'

EXPR、 または EXPR が指定されていない時は $_ で示される ライブラリファイルをインクルードする。 次のサブルーチンと同じ意味がある。

sub require {
    local($filename) = @_;
    return 1 if $INC{$filename};
    local($realfilename,$result);
    ITER: {
     foreach $prefix (@INC) {
        $realfilename = "$prefix/$filename";
        if (-f $realfilename) {
        $result = do $realfilename;
        last ITER;
        }
     }
     die "Can't find $filename in \@INC";
    }
    die $@ if $@;
    die "$filename did not return true value" unless $result;
    $INC{$filename} = $realfilename;
    $result;
}

注意: 同じ名前ではファイルを二度インクルードすることはできない。 See section ＠ＩＮＣ : perl スクリプトを探す場所のリスト for @INC.