5.6.1

名前

perlvar - Perl predefined variables

perlvar - Perl で定義済みの変数

説明

定義済みの変数

The following names have special meaning to Perl. Most punctuation names have reasonable mnemonics, or analogs in the shells. Nevertheless, if you wish to use long variable names, you need only say

以下の名前は Perl では特別な意味を持ちます。 記号的な名前の多くは記憶法があるか、シェルでの類推が可能です。 それでも長い名前を使用したい場合には

    use English;

at the top of your program. This will alias all the short names to the long names in the current package. Some even have medium names, generally borrowed from awk.

とプログラムの最初に書いてください。 これは、すべての短い名前の別名として、 カレントパッケージで長い名前を付けるものです。 awk から持ってきた中間的な名前を持っているものもあります。

If you don't mind the performance hit, variables that depend on the currently selected filehandle may instead be set by calling an appropriate object method on the IO::Handle object. (Summary lines below for this contain the word HANDLE.) First you must say

性能を気にしないのなら、現在選択されているファイルハンドルに 依存する変数の場合には、代わりに IO::Handle オブジェクトに 関するオブジェクトメソッドを呼び出して設定することができます。 (以下の要約では HANDLE という語を含んでいます。) まず最初に必ず、

    use IO::Handle;

after which you may use either

と書き、その後で以下のように書くか、

    method HANDLE EXPR

or more safely,

もしくはより安全に以下のように書きます:

    HANDLE->method(EXPR)

Each method returns the old value of the IO::Handle attribute. The methods each take an optional EXPR, which if supplied specifies the new value for the IO::Handle attribute in question. If not supplied, most methods do nothing to the current value--except for autoflush(), which will assume a 1 for you, just to be different. Because loading in the IO::Handle class is an expensive operation, you should learn how to use the regular built-in variables.

それぞれのメソッドは、IO::Handle 属性の昔の値を返します。 メソッドはそれぞれ EXPR をとることができ、指定した場合には、 問題の IO::Handle 属性の新しい値を指定することになります。 指定しない場合には、多くのメソッドでは現在の値に対して何もしませんが、 autoflush() では 1 を指定されたものとします。 IO::Handle クラスを読み込むのはコストの高い操作なので、 通常の組み込み変数の使い方を覚えるべきです。

A few of these variables are considered "read-only". This means that if you try to assign to this variable, either directly or indirectly through a reference, you'll raise a run-time exception.

これらの変数の中には "read-only" として扱われるものもあります。 つまり、そういった変数に対して、直接にしろ、リファレンスを 介して間接にしろ、代入を行なおうとした場合には、実行時に 例外処理が起動されます。

The following list is ordered by scalar variables first, then the arrays, then the hashes.

以下のリストはまずスカラ変数、それから配列、ハッシュの順に 並んでいます。

$ARG
$_

The default input and pattern-searching space. The following pairs are equivalent:

デフォルトの入力とパターン検索のスペース。 以下の 2つは同値です:

    while (<>) {...}    # equivalent only in while!
    while (defined($_ = <>)) {...}

    /^Subject:/
    $_ =~ /^Subject:/

    tr/a-z/A-Z/
    $_ =~ tr/a-z/A-Z/

    chomp
    chomp($_)

Here are the places where Perl will assume $_ even if you don't use it:

Perl が(あなたが使いたくなくても) $_ を仮定する場合がいくつかあります。

  • Various unary functions, including functions like ord() and int(), as well as the all file tests (-f, -d) except for -t, which defaults to STDIN.

    様々な単項関数。ord() や int()、また -t 以外の全ての ファイルテスト (-f, -d)など。-t のデフォルトは STDIN です。

  • Various list functions like print() and unlink().

    print() や unlink() などの様々なリスト関数。

  • The pattern matching operations m//, s///, and tr/// when used without an =~ operator.

    =~ 演算子なしで用いられたパターンマッチ演算 m//, s///, tr///

  • The default iterator variable in a foreach loop if no other variable is supplied.

    foreach ループでの他の変数が補われなかった場合のデフォルトの 繰り返し変数。

  • The implicit iterator variable in the grep() and map() functions.

    grep() 関数と map() 関数の暗黙の繰り返し変数。

  • The default place to put an input record when a <FH> operation's result is tested by itself as the sole criterion of a while test. Outside a while test, this will not happen.

    <FH> が単独で while テストでテストされた場合の 結果を入れるデフォルトの場所。 while テスト以外ではこれは起こりません。

(Mnemonic: underline is understood in certain operations.)

(記憶法: 下線はある操作を覚えるためのもの。)

$<digits>

Contains the subpattern from the corresponding set of capturing parentheses from the last pattern match, not counting patterns matched in nested blocks that have been exited already. (Mnemonic: like \digits.) These variables are all read-only and dynamically scoped to the current BLOCK.

最後のパターンマッチで対応する括弧のサブパターンにマッチした 文字列が入っているが、既に抜けてしまったブロックでの パターンマッチは勘定に入れない。 (記憶法: \(数字) のようなもの。) これらの変数はすべて read-onlyで、現在の BLOCK に動的なスコープを持ちます。

$MATCH
$&

The string matched by the last successful pattern match (not counting any matches hidden within a BLOCK or eval() enclosed by the current BLOCK). (Mnemonic: like & in some editors.) This variable is read-only and dynamically scoped to the current BLOCK.

最後に成功したパターンマッチでマッチした文字列 (現在の BLOCK で囲まれた BLOCK や eval() で隠れている部分でのマッチは 勘定に入れない)。 (記憶法: あるエディタの & ようなもの。) この変数は read-only で、現在の BLOCK に動的なスコープを持ちます。

The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches. See BUGS.

この変数をプログラムのどこかで使うと、プログラム中の全ての正規表現 マッチングにおいてかなりの性能低下を引き起こします。 BUGS を参照して下さい。

$PREMATCH
$`

The string preceding whatever was matched by the last successful pattern match (not counting any matches hidden within a BLOCK or eval enclosed by the current BLOCK). (Mnemonic: ` often precedes a quoted string.) This variable is read-only.

最後の成功したパターンマッチ (現在のBLOCK で囲まれた BLOCK や eval() に隠れている部分でのマッチは勘定に入れない) で マッチした部分の前の文字列。 (記憶法: ` は多くの場合クォートされた文字列の前にある。) この変数は read-only です。

The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches. See BUGS.

この変数をプログラムのどこかで使うと、プログラム中の全ての正規表現 マッチングにおいてかなりの性能低下を引き起こします。 BUGS を参照して下さい。

$POSTMATCH
$'

The string following whatever was matched by the last successful pattern match (not counting any matches hidden within a BLOCK or eval() enclosed by the current BLOCK). (Mnemonic: ' often follows a quoted string.) Example:

最後の成功したパターンマッチ (現在のBLOCK で囲まれた BLOCK や eval() に隠れている部分でのマッチは勘定に入れない) で マッチした部分に続く文字列。 (記憶法: ' は多くの場合クォートされた文字列の後にある。) 例:

    $_ = 'abcdefghi';
    /def/;
    print "$`:$&:$'\n";         # prints abc:def:ghi

This variable is read-only and dynamically scoped to the current BLOCK.

この変数は read-only で、現在の BLOCK に動的なスコープを持ちます。

The use of this variable anywhere in a program imposes a considerable performance penalty on all regular expression matches. See BUGS.

この変数をプログラムのどこかで使うと、プログラム中の全ての正規表現 マッチングにおいてかなりの性能低下を引き起こします。 BUGS を参照して下さい。

$LAST_PAREN_MATCH
$+

The last bracket matched by the last search pattern. This is useful if you don't know which one of a set of alternative patterns matched. For example:

最後に検索されたパターンの最後の括弧にマッチした文字列。 これはいくつかの選択肢の中でどれがマッチするのか わからないような場合に使うと便利です。たとえば:

    /Version: (.*)|Revision: (.*)/ && ($rev = $+);

(Mnemonic: be positive and forward looking.) This variable is read-only and dynamically scoped to the current BLOCK.

(記憶法: ポジティブで前向き。) この変数は read-only で、現在の BLOCK に動的なスコープを持ちます。

@LAST_MATCH_END
@+

This array holds the offsets of the ends of the last successful submatches in the currently active dynamic scope. $+[0] is the offset into the string of the end of the entire match. This is the same value as what the pos function returns when called on the variable that was matched against. The nth element of this array holds the offset of the nth submatch, so $+[1] is the offset past where $1 ends, $+[2] the offset past where $2 ends, and so on. You can use $#+ to determine how many subgroups were in the last successful match. See the examples given for the @- variable.

この配列は、現在アクティブな動的スコープで最後に成功した サブマッチの最後へのオフセットを保持します。 $+[0] はマッチ全体の文字列の最後へのオフセットです。 これはマッチした変数に対して pos 関数を呼び出したときの 返り値と同じです。 この配列の n 番目の要素は n 番目のサブマッチのオフセットを 保持していますので、$+[1] は過去の $1 の終わりのオフセット、 $+[2] は $2 のオフセット、という形になります。 $#+ は最後に成功したマッチでいくつサブグループがあるかを 決定するのに使えます。 @- 変数の例を参照して下さい。

$MULTILINE_MATCHING
$*

Set to a non-zero integer value to do multi-line matching within a string, 0 (or undefined) to tell Perl that it can assume that strings contain a single line, for the purpose of optimizing pattern matches. Pattern matches on strings containing multiple newlines can produce confusing results when $* is 0 or undefined. Default is undefined. (Mnemonic: * matches multiple things.) This variable influences the interpretation of only ^ and $. A literal newline can be searched for even when $* == 0.

文字列中で複数行マッチを行なうために非ゼロに設定し、 0 (または undef)にすると、Perl が文字列に 1 行しか無いと仮定して、 ある種のパターンマッチに関する最適化を行なうようになります。 複数の改行を含む文字列でのパターンマッチを $* が 0 または undef のまま行なうと結果は信用の ないものになります。 デフォルトでは undef になっています。 (記憶法: * は複数のものにマッチします。) この変数は ^$ の解釈にのみ影響します。 リテラルの改行文字は、$* == 0 であっても検索することが可能です。

Use of $* is deprecated in modern Perl, supplanted by the /s and /m modifiers on pattern matching.

最近の Perl では "$*" を使わないようにしてください。 パターンマッチの /s/m の修飾子に取って代わられています。

Assigning a non-numerical value to $* triggers a warning (and makes $* act if $* == 0), while assigning a numerical value to $* makes that an implicit int is applied on the value.

数値でない値を $* に代入すると警告を引き起こします (そして $*$* == 0 のように振る舞います)。 一方数値を $* に代入すると暗黙に int が値に適用されます。

input_line_number HANDLE EXPR
$INPUT_LINE_NUMBER
$NR
$.

The current input record number for the last file handle from which you just read() (or called a seek or tell on). The value may be different from the actual physical line number in the file, depending on what notion of "line" is in effect--see $/ on how to change that. An explicit close on a filehandle resets the line number. Because <> never does an explicit close, line numbers increase across ARGV files (but see examples in "eof" in perlfunc). Consider this variable read-only: setting it does not reposition the seek pointer; you'll have to do that on your own. Localizing $. has the effect of also localizing Perl's notion of "the last read filehandle". (Mnemonic: many programs use "." to mean the current line number.)

最後にread() (または seek または tell)を 行なったファイルハンドルの現在の入力レコード番号。 この値はファイルの実際の物理行番号とは異なるかもしれません。 「行」とは何かによります。 これを変えるには $/ を参照して下さい。 明示的にファイルハンドルをクローズした場合に、行番号がリセットされます。 <> 構文では明示的にクローズを行ないませんから、ARGV の ファイルに跨って行番号が数えられることになります (が、 "eof" in perlfunc の例を参照してください)。 この変数は読み込み専用と考えてください。 値を設置してもシークポインタは移動しません。自力でする必要があります。 $.を local 化すると、Perl の「最後に読んだファイルハンドル」を local 化する効果があります。 (記憶法: 多くのプログラムで "." が現在行番号を示すように使われています。)

input_record_separator HANDLE EXPR
$INPUT_RECORD_SEPARATOR
$RS
$/

The input record separator, newline by default. This influences Perl's idea of what a "line" is. Works like awk's RS variable, including treating empty lines as a terminator if set to the null string. (An empty line cannot contain any spaces or tabs.) You may set it to a multi-character string to match a multi-character terminator, or to undef to read through the end of file. Setting it to "\n\n" means something slightly different than setting to "", if the file contains consecutive empty lines. Setting to "" will treat two or more consecutive empty lines as a single empty line. Setting to "\n\n" will blindly assume that the next input character belongs to the next paragraph, even if it's a newline. (Mnemonic: / delimits line boundaries when quoting poetry.)

入力レコードセパレータで、デフォルトでは改行文字。 これは Perl での「行」とは何か、ということに影響を与えます。 空文字列に設定されると、空行をセパレータとして扱うことを 含めて、awk の変数 RS のように働きます (空行はスペースやタブを含んでいてはいけません)。 複数文字の区切文字を示すために、文字列を設定することもできます。 また、ファイルの最後まで読み込むために undef を指定することもできます。 この変数に "\n\n" を設定すると、空行が続く場合において、 "" を設定した場合とわずかに違う動作をするようになります。 "" を設定した場合には、複数の空行も 1 つの空行であるかのように扱います。 "\n\n" を設定した場合には、単純に次の文字が (たとえ改行文字であっても) 次の段落に含まれるものとして扱います。 (記憶法: /は、詩を引用するときに、行の区切りを示します。)

    undef $/;           # enable "slurp" mode
    $_ = <FH>;          # whole file now here
    s/\n[ \t]+/ /g;

Remember: the value of $/ is a string, not a regex. awk has to be better for something. :-)

注意: $/ は文字列であり、正規表現ではありません。 awk は何かもっとうまくやらなくてはいけません。:-)

Setting $/ to a reference to an integer, scalar containing an integer, or scalar that's convertible to an integer will attempt to read records instead of lines, with the maximum record size being the referenced integer. So this:

$/ に整数、整数を含むスカラ、整数に変換できるスカラのいずれかへの リファレンスをセットすると、行を読む代わりにレコードを読もうとします。 この場合、最大レコードサイズはリファレンス先の整数値となります。つまり:

    $/ = \32768; # or \"32768", or \$var_containing_32768
    open(FILE, $myfile);
    $_ = <FILE>;

will read a record of no more than 32768 bytes from FILE. If you're not reading from a record-oriented file (or your OS doesn't have record-oriented files), then you'll likely get a full chunk of data with every read. If a record is larger than the record size you've set, you'll get the record back in pieces.

これは FILE から 32768 バイトを超えないようにレコードを読み込みます。 もしレコード指向のファイルを読み込まない場合 (あるいは OS がレコード指向ファイルを持たない場合)、 読み込み毎にデータのチャンク全部を取り込みます。 もしレコードがセットしたレコードサイズより大きい場合、 レコードの部分を取り込みます。

On VMS, record reads are done with the equivalent of sysread, so it's best not to mix record and non-record reads on the same file. (This is unlikely to be a problem, because any file you'd want to read in record mode is probably unusable in line mode.) Non-VMS systems do normal I/O, so it's safe to mix record and non-record reads of a file.

VMS では、レコード読み込みは sysread と等価に行われますので、 レコード読み込みと非レコード読み込みを同じファイルで混ぜないのが 最善です。(これはあまり問題になりません。なぜなら レコード読み込みしたいファイルは多分行モードでは使えないものだからです。) VMS 以外のシステムでは普通の I/O を使いますので、 同じファイルのレコード読み込みと非レコード読み込みを混ぜても安全です。

See also "Newlines" in perlport. Also see $..

"Newlines" in perlport$. も参照してください。

autoflush HANDLE EXPR
$OUTPUT_AUTOFLUSH
$|

If set to nonzero, forces a flush right away and after every write or print on the currently selected output channel. Default is 0 (regardless of whether the channel is really buffered by the system or not; $| tells you only whether you've asked Perl explicitly to flush after each write). STDOUT will typically be line buffered if output is to the terminal and block buffered otherwise. Setting this variable is useful primarily when you are outputting to a pipe or socket, such as when you are running a Perl program under rsh and want to see the output as it's happening. This has no effect on input buffering. See "getc" in perlfunc for that. (Mnemonic: when you want your pipes to be piping hot.)

0 以外に設定されると、 その時点で選択されている出力チャネルを 直ちにその場でフラッシュし、 さらに write や print を行なうごとに、強制的にフラッシュします。 デフォルトでは 0 となっています (チャンネルが実際にシステムによってバッファリングされているかどうかは 関知しません。$| は Perl が明示的に毎回書き込みの後に フラッシュするかどうかのみを示します)。 STDOUT は通常では、端末への出力時には行バッファリング、 それ以外ではブロックバッファリングであることに注意してください。 これは、Perl のスクリプトを rsh 配下で実行して、 実行状況を確認したい場合のように、パイプやソケットに出力するときに特に便利でしょう。 これは入力バッファリングには何の影響も与えません。 (記憶法: パイプをホットな状態にしておくために使う。)

output_field_separator HANDLE EXPR
$OUTPUT_FIELD_SEPARATOR
$OFS
$,

The output field separator for the print operator. Ordinarily the print operator simply prints out its arguments without further adornment. To get behavior more like awk, set this variable as you would set awk's OFS variable to specify what is printed between fields. (Mnemonic: what is printed when there is a "," in your print statement.)

print 演算子のための出力フィールドセパレータ。 通常 print 演算子は、引数を修飾なしで単純に印字します。 より、awk に近い動作をさせるには、 フィールドの区切りとして印字されるものとして awk の 変数 OFS に設定するものを、この変数に設定します。 (記憶法: print 文で "," を書いた場所に印字されるもの。)

output_record_separator HANDLE EXPR
$OUTPUT_RECORD_SEPARATOR
$ORS
$\

The output record separator for the print operator. Ordinarily the print operator simply prints out its arguments as is, with no trailing newline or other end-of-record string added. To get behavior more like awk, set this variable as you would set awk's ORS variable to specify what is printed at the end of the print. (Mnemonic: you set $\ instead of adding "\n" at the end of the print. Also, it's just like $/, but it's what you get "back" from Perl.)

print 演算子のための出力レコードセパレータ。 通常print 演算子は、引数を単純に印字し、 改行などレコード終わりの文字列をつけません。 より awk に近い動作をさせるには、 print の最後に印字されるものとして awk の変数 ORS に 設定するものを、この変数に設定します。 (記憶法: print の最後に "\n" を付け加える代わりに $\ を設定する。 また、$/ に似通っているが、Perl から「バック」されるものです。)

$LIST_SEPARATOR
$"

This is like $, except that it applies to array and slice values interpolated into a double-quoted string (or similar interpreted string). Default is a space. (Mnemonic: obvious, I think.)

$, と同様ですが、これは 2 重引用符で括られた文字列 (または、同様に扱われる文字列) 内で配列とスライスの値が展開される 際に適用されます。 デフォルトではスペースになっています。(記憶法: 明らかでしょう。)

$SUBSCRIPT_SEPARATOR
$SUBSEP
$;

The subscript separator for multidimensional array emulation. If you refer to a hash element as

    $foo{$a,$b,$c}

it really means

    $foo{join($;, $a, $b, $c)}

But don't put

    @foo{$a,$b,$c}      # a slice--note the @

which means

    ($foo{$a},$foo{$b},$foo{$c})

多次元配列のエミュレートのための添え字の区切文字。 ハッシュの要素を

    $foo{$a,$b,$c}

のようにして参照すると、実際には

    $foo{join($;, $a, $b, $c)}

という意味になります。 しかし、

    @foo{$a,$b,$c}      # スライス -- @ に注意

としてはいけません。これは以下の意味になります。

    ($foo{$a},$foo{$b},$foo{$c})

Default is "\034", the same as SUBSEP in awk. If your keys contain binary data there might not be any safe value for $;. (Mnemonic: comma (the syntactic subscript separator) is a semi-semicolon. Yeah, I know, it's pretty lame, but $, is already taken for something more important.)

デフォルトは "\034" で、awk の SUBSEP と同じです。 使おうとしている key の値がバイナリのデータを含むならば、 $; に設定する安全な値などはないことになります。 (記憶法: コンマ (構文上の添え字区切り文字) は セミ−セミコロンなのです。 ええ、詭弁だとはわかってますが、$, はもう既にもっと 重要な任務を持ってるんです。)

Consider using "real" multidimensional arrays as described in perllol.

perllol で記述している「本物の」多次元配列を使うようにしてください。

$OFMT
$#

The output format for printed numbers. This variable is a half-hearted attempt to emulate awk's OFMT variable. There are times, however, when awk and Perl have differing notions of what counts as numeric. The initial value is "%.ng", where n is the value of the macro DBL_DIG from your system's float.h. This is different from awk's default OFMT setting of "%.6g", so you need to set $# explicitly to get awk's value. (Mnemonic: # is the number sign.)

数字を印字する際の出力フォーマット。 この変数は、不十分ではありますが、awk の変数 OFMT を エミュレートしようとするものです。 しかしながら、awk と Perl は異なる記法で数値を表わしています。 また、初期値は"%.ng" で、ここで n はシステムの float.h で 定義されているマクロ DBL_DIG の値です。 これはawk のOFMT のデフォルト値である "%.6g" と異なっていますので、 awk での値を得るには、明示的に $# を設定する必要があります。 (記憶法: # は数値記号です。)

Use of $# is deprecated.

$# は古いものなので使わないようにしてください。

format_page_number HANDLE EXPR
$FORMAT_PAGE_NUMBER
$%

The current page number of the currently selected output channel. Used with formats. (Mnemonic: % is page number in nroff.)

その時点で選択されている出力チャネルの、その時点でのページ番号。 フォーマットで用いられます。 (記憶法: % は、nroff でのページ番号です。)

format_lines_per_page HANDLE EXPR
$FORMAT_LINES_PER_PAGE
$=

The current page length (printable lines) of the currently selected output channel. Default is 60. Used with formats. (Mnemonic: = has horizontal lines.)

その時点で選択されている出力チャネルの、その時点での ページ長 (印字可能行数)。デフォルトは 60 です。 フォーマットで用いられます。 (記憶法: = には複数の水平線 (行) が含まれます。)

format_lines_left HANDLE EXPR
$FORMAT_LINES_LEFT
$-

The number of lines left on the page of the currently selected output channel. Used with formats. (Mnemonic: lines_on_page - lines_printed.)

その時点で選択されている出力チャネルの、ページに残っている行数。 フォーマットで用いられます。 (記憶法: "ページ行数" - "印字済み行数")

@LAST_MATCH_START
@-

$-[0] is the offset of the start of the last successful match. $-[n] is the offset of the start of the substring matched by n-th subpattern, or undef if the subpattern did not match.

$-[0] は最後に成功したマッチの先頭のオフセットです。 $-[n]n 番目のサブパターンにマッチした部分文字列の 先頭のオフセットです。サブパターンがマッチしなかった場合は undef です。

Thus after a match against $_, $& coincides with substr $_, $-[0], $+[0] - $-[0]. Similarly, $n coincides with substr $_, $-[n], $+[n] - $-[n] if $-[n] is defined, and $+ coincides with substr $_, $-[$#-], $+[$#-]. One can use $#- to find the last matched subgroup in the last successful match. Contrast with $#+, the number of subgroups in the regular expression. Compare with @+.

従って $_ のマッチの後、$& は substr $_, $-[0], $+[0] - $-[0] と 一致します。同様に、$n は、$-[n] が定義されていれば substr $_, $-[n], $+[n] - $-[n] と一致し、 $+ は substr $_, $-[$#-], $+[$#-] と一致します。 $#- は直前に成功したマッチで最後のマッチしたサブグループを 探すのに使えます。 正規表現でのサブグループの数である $#+ と対照的です。 @+ と比較してください。

This array holds the offsets of the beginnings of the last successful submatches in the currently active dynamic scope. $-[0] is the offset into the string of the beginning of the entire match. The nth element of this array holds the offset of the nth submatch, so $+[1] is the offset where $1 begins, $+[2] the offset where $2 begins, and so on. You can use $#- to determine how many subgroups were in the last successful match. Compare with the @+ variable.

この配列は現在アクティブな動的スコープ内で最後に成功した サブマッチの先頭位置のオフセットを保持します。 $-[0] はマッチ全体の先頭の文字列へのオフセットです。 この配列の n 番目の要素は n 番目のサブマッチへの オフセットを保持しますので、$+[1] は $1 の先頭への オフセット、$+[2] は $2 の先頭へのオフセット、などとなります。 $#- を、最後に成功したマッチでいくつのサブグループがあるのかを 決定するのに使えます。 @+ 変数と比較してください。

After a match against some variable $var:

ある変数 $var でマッチした後、以下のようになります。

$` is the same as substr($var, 0, $-[0])
$& is the same as substr($var, $-[0], $+[0] - $-[0])
$' is the same as substr($var, $+[0])
$1 is the same as substr($var, $-[1], $+[1] - $-[1])
$2 is the same as substr($var, $-[2], $+[2] - $-[2])
$3 is the same as substr $var, $-[3], $+[3] - $-[3])
$`substr($var, 0, $-[0]) と同じです。
$&substr($var, $-[0], $+[0] - $-[0]) と同じです。
$'substr($var, $+[0]) と同じです。
$1substr($var, $-[1], $+[1] - $-[1]) と同じです。
$2substr($var, $-[2], $+[2] - $-[2]) と同じです。
$3substr $var, $-[3], $+[3] - $-[3]) と同じです。
format_name HANDLE EXPR
$FORMAT_NAME
$~

The name of the current report format for the currently selected output channel. Default is the name of the filehandle. (Mnemonic: brother to $^.)

その時点で選択されている出力チャネルの、その時点でのフォーマット名。 デフォルトでは、ファイルハンドルと同名です。 (記憶法: $^ の兄弟。)

format_top_name HANDLE EXPR
$FORMAT_TOP_NAME
$^

The name of the current top-of-page format for the currently selected output channel. Default is the name of the filehandle with _TOP appended. (Mnemonic: points to top of page.)

その時点で選択されている出力チャネルの、その時点での ページ先頭フォーマット名。 デフォルトでは、ファイルハンドル名に _TOP を続けたもの。 (記憶法: ページの先頭へのポインタ。)

format_line_break_characters HANDLE EXPR
$FORMAT_LINE_BREAK_CHARACTERS
$:

The current set of characters after which a string may be broken to fill continuation fields (starting with ^) in a format. Default is " \n-", to break on whitespace or hyphens. (Mnemonic: a "colon" in poetry is a part of a line.)

フォーマットの充填継続フィールド (^ で始まるもの) への 文字列で行分割を許す文字集合。 デフォルトは " \n-" で空白か改行の後で行分割が可能となっています。 (記憶法: 詩では「コロン」は、行の一部。)

format_formfeed HANDLE EXPR
$FORMAT_FORMFEED
$^L

What formats output as a form feed. Default is \f.

フォーマット出力で、改ページのために出力されるもの。 デフォルトは \f。

$ACCUMULATOR
$^A

The current value of the write() accumulator for format() lines. A format contains formline() calls that put their result into $^A. After calling its format, write() prints out the contents of $^A and empties. So you never really see the contents of $^A unless you call formline() yourself and then look at it. See perlform and "formline()" in perlfunc.

format() 行のための、その時点での write() アキュムレータの値。 format には、$^A に結果を残す、formline() 呼び出しが含まれます。 自分のフォーマットを呼び出した後で、 write() は $^A の内容を出力してから消去します。 したがって、自分で formline() を呼び出すのでなければ、 $^A の値が見えることはありません。 perlform"formline()" in perlfunc を参照してください。

$CHILD_ERROR
$?

The status returned by the last pipe close, backtick (``) command, successful call to wait() or waitpid(), or from the system() operator. This is just the 16-bit status word returned by the wait() system call (or else is made up to look like it). Thus, the exit value of the subprocess is really ($? >> 8), and $? & 127 gives which signal, if any, the process died from, and $? & 128 reports whether there was a core dump. (Mnemonic: similar to sh and ksh.)

最後に close したパイプ、バッククォート (``) コマンド、 成功した wait() または waitpid() 呼び出し、system() 演算子が返したステータス。 このステータスワードは wait() システムコールが返した 16 ビットのステータス(またはそのように見えるもの)です。 従ってサブプロセスの exit 値は、実際には ($? >> 8) で、$? & 127 は、もしあれば、そのプロセスを止めたシグナルで、 $? & 128 はコアダンプがあるかどうかを示します。 (記憶法: shksh と同様。)

Additionally, if the h_errno variable is supported in C, its value is returned via $? if any gethost*() function fails.

さらに、C で h_errno 変数に対応している場合は、 gethost*() が失敗したときに $? を通して返されます。

If you have installed a signal handler for SIGCHLD, the value of $? will usually be wrong outside that handler.

SIGCHLD のシグナルハンドラを設定した場合、 $? の値は通常ハンドラの外側では正しくない値となります。

Inside an END subroutine $? contains the value that is going to be given to exit(). You can modify $? in an END subroutine to change the exit status of your program. For example:

END サブルーチンの内側では $? には exit() に渡されようとしている 値を含みます。 プログラムの終了ステータスを変更するために、END サブルーチン 内で $? を変更できます。 例えば:

    END {
        $? = 1 if $? == 255;  # die would make it 255
    } 

Under VMS, the pragma use vmsish 'status' makes $? reflect the actual VMS exit status, instead of the default emulation of POSIX status.

VMS では、use vmsish 'status' を指定すると、 $? はPOSIX ステータスをエミュレートしたものではなく、 実際の VMS 終了ステータスを反映します。

Also see "Error Indicators".

"Error Indicators" も参照して下さい。

$OS_ERROR
$ERRNO
$!

If used numerically, yields the current value of the C errno variable, with all the usual caveats. (This means that you shouldn't depend on the value of $! to be anything in particular unless you've gotten a specific error return indicating a system error.) If used an a string, yields the corresponding system error string. You can assign a number to $! to set errno if, for instance, you want "$!" to return the string for error n, or you want to set the exit value for the die() operator. (Mnemonic: What just went bang?)

数値として使われると、その時点の C の errno 変数の値が (通常の注意事項と共に) 得られます。 (これは、システムエラーを示す特定のエラーが得られた場合でもなければ、 $! の値が、特に何かを示すものであると、頼ってはならないということです。) 文字列として使われると、対応するシステムエラーのメッセージ文字列が得られます。 たとえば、$! にエラーの文字列を返して欲しいならば、あるいは、 die() 演算子の exit 値を設定するために、errno を設定するため $! へ代入を行なうことが可能です。 (記憶法: 何が bang(!) したか。)

Also see "Error Indicators".

"Error Indicators" も参照して下さい。

$EXTENDED_OS_ERROR
$^E

Error information specific to the current operating system. At the moment, this differs from $! under only VMS, OS/2, and Win32 (and for MacPerl). On all other platforms, $^E is always just the same as $!.

現在のオペレーティングシステムに特化したエラー情報です。 現在のところ、VMS, OS/2, Win32 (と MacPerl) のみで $! と異なる値をもちます。 その他のプラットフォームでは、$^E はいつも $! と同じです。

Under VMS, $^E provides the VMS status value from the last system error. This is more specific information about the last system error than that provided by $!. This is particularly important when $! is set to EVMSERR.

VMS では、$^E は最後のシステムエラーの VMS ステータス値です。 これは、最後のシステムエラーについて $! で提供されるものより 具体的な情報を示します。 これは特に $!EVMSERR にセットされた場合に重要です。

Under OS/2, $^E is set to the error code of the last call to OS/2 API either via CRT, or directly from perl.

OS/2 では、$^E は CRT 経由、または Perl から直接呼び出された 最後の OS/2 API のエラーコードがセットされます。

Under Win32, $^E always returns the last error information reported by the Win32 call GetLastError() which describes the last error from within the Win32 API. Most Win32-specific code will report errors via $^E. ANSI C and Unix-like calls set errno and so most portable Perl code will report errors via $!.

Win32 では、$^E は Win32 API での最後のエラーの内容を返す GetLastError() Win32 呼び出しで報告される最新のエラー情報を 返します。 ほとんどの Win32 固有のコードはエラーを $^E 経由で返します。 ANSI C と Unix 風の呼び出しは errno をセットするので、 ほとんどの移植性のある Perl コードは $! 経由で エラーを報告します。

Caveats mentioned in the description of $! generally apply to $^E, also. (Mnemonic: Extra error explanation.)

$! の説明で触れた問題点は一般的に $^E にも適用されます。 (記憶法: 追加の(Extra)エラーの説明。)

Also see "Error Indicators".

"Error Indicators" も参照して下さい。

$EVAL_ERROR
$@

The Perl syntax error message from the last eval() operator. If null, the last eval() parsed and executed correctly (although the operations you invoked may have failed in the normal fashion). (Mnemonic: Where was the syntax error "at"?)

最後の eval() 操作子による Perl の構文エラーメッセージです。 空文字列であれば、最後の eval() が正常に 解析され、実行されたことになります (が、実行した演算子が、 通常の意味で失敗しているかもしれません)。 (記憶法: どこで ("at" where) 構文エラーが起ったか。)

Warning messages are not collected in this variable. You can, however, set up a routine to process warnings by setting $SIG{__WARN__} as described below.

警告メッセージはこの変数に入りません。 しかし、後述する $SIG{__WARN__} にセットすることで 警告を処理するルーチンを設定できます。

Also see "Error Indicators".

"Error Indicators" も参照して下さい。

$PROCESS_ID
$PID
$$

The process number of the Perl running this script. You should consider this variable read-only, although it will be altered across fork() calls. (Mnemonic: same as shells.)

スクリプトを実行している Perl のプロセス番号です。 この変数は read-only と考えるべきですが、 fork() 呼び出しによって値は変わります。 (記憶法: シェルと同じ。)

$REAL_USER_ID
$UID
$<

The real uid of this process. (Mnemonic: it's the uid you came from, if you're running setuid.)

本プロセスの実 uid を示します。 (記憶法: setuid で実行中であれば、そこ「から」来た uid です。)

$EFFECTIVE_USER_ID
$EUID
$>

The effective uid of this process. Example:

本プロセスの実効 uid を示します。 例:

    $< = $>;            # set real to effective uid
    ($<,$>) = ($>,$<);  # swap real and effective uid

(Mnemonic: it's the uid you went to, if you're running setuid.) $< and $> can be swapped only on machines supporting setreuid().

(記憶法: setuid で実行中であれば、そこ「へ」行く uidです。) $<$> の交換は、setreuid() をサポートしている マシンでのみ可能です。

$REAL_GROUP_ID
$GID
$(

The real gid of this process. If you are on a machine that supports membership in multiple groups simultaneously, gives a space separated list of groups you are in. The first number is the one returned by getgid(), and the subsequent ones by getgroups(), one of which may be the same as the first number.

本プロセスの実 gid を示します。 同時に複数のグループに 所属できるマシンでは、所属するグループをスペースで 区切ったリストが得られます。 最初の数値は、getgid() で返されるものです。 その後に getgroups() が返す値が続き、その中の 1 つは、 最初の値と同じかもしれません。

However, a value assigned to $( must be a single number used to set the real gid. So the value given by $( should not be assigned back to $( without being forced numeric, such as by adding zero.

しかし、$( に代入された値は実際の gid に設定された値の 一つでなければなりません。 従って、 $( で与えられた値はゼロを足すことによって 数値化することなく $( に書き戻すべきではありません。

(Mnemonic: parentheses are used to group things. The real gid is the group you left, if you're running setgid.)

(記憶法: 括弧は、グループ化に使われます。 setgid で実行中であれば、実 gid は left した、 つまり離れたグループです。)

$EFFECTIVE_GROUP_ID
$EGID
$)

The effective gid of this process. If you are on a machine that supports membership in multiple groups simultaneously, gives a space separated list of groups you are in. The first number is the one returned by getegid(), and the subsequent ones by getgroups(), one of which may be the same as the first number.

本プロセスの実効 gid を示します。 同時に複数のグループに所属できるマシンでは、 所属するグループをスペースで区切ったリストが得られます。 最初の数値は、getegid() で返されるものです。 その後に getgroups()が返す値が続き、その中の 1 つは、 最初の値と同じかもしれません。

Similarly, a value assigned to $) must also be a space-separated list of numbers. The first number sets the effective gid, and the rest (if any) are passed to setgroups(). To get the effect of an empty list for setgroups(), just repeat the new effective gid; that is, to force an effective gid of 5 and an effectively empty setgroups() list, say $) = "5 5" .

同様に、$) へ代入する値はスペースで区切られた数値の リストでなければなりません。 最初の数値は実効 gid を設定し、残りの数値は(もしあれば) setgroups() に 渡されます。 setgroups() に空リストを渡したい場合は、単に新しい実効 gid を 繰り返してください。 つまり、実効 gid を 5 にして、setgroups() に空リストを渡したい場合は、 $) = "5 5" としてください。

(Mnemonic: parentheses are used to group things. The effective gid is the group that's right for you, if you're running setgid.)

(記憶法: 括弧は、グループ化に使われます。 setgid で実行中であれば、実効 gid は right な、つまり正しいグループです。)

$<, $>, $( and $) can be set only on machines that support the corresponding set[re][ug]id() routine. $( and $) can be swapped only on machines supporting setregid().

$<, $>, $(, $) は、実行するマシンで、 対応する set[re][ug]id() ルーティンがサポートされているときにのみ 設定可能です。 $($) の交換は、 setregid() がサポートされているマシンでのみ可能です。

$PROGRAM_NAME
$0

Contains the name of the program being executed. On some operating systems assigning to $0 modifies the argument area that the ps program sees. This is more useful as a way of indicating the current program state than it is for hiding the program you're running. (Mnemonic: same as sh and ksh.)

実行されているプログラムの名前を示します。 $0 に代入を行なうことで ps) プログラムが覗く、 引数エリアを修正できるシステムもあります。 実行しているプログラムを隠すよりは、 実行中のプログラムの状態を表示するときに、使うとよいでしょう。 (記憶法: shksh と同じ。)

Note for BSD users: setting $0 does not completely remove "perl" from the ps(1) output. For example, setting $0 to "foobar" will result in "perl: foobar (perl)". This is an operating system feature.

BSD ユーザーへの注意: $0 に値をセットしても、ps(1) の出力から 完全に "perl" の文字列は取り除かれません。 例えば、$0"foobar" と設定すると、"perl: foobar (perl)" という 結果になります。これはオペレーティングシステムの機能です。

$[

The index of the first element in an array, and of the first character in a substring. Default is 0, but you could theoretically set it to 1 to make Perl behave more like awk (or Fortran) when subscripting and when evaluating the index() and substr() functions. (Mnemonic: [ begins subscripts.)

配列の最初の要素や、文字列の最初の文字のインデックスを 示します。 デフォルトは 0 ですが、理論的には、index() 関数や substr() 関数を評価するときに、Perl の動作をより awk (や Fortran) に近づけるため、1 に設定することもできます。 (記憶法: [ は添え字付けの始め。)

As of release 5 of Perl, assignment to $[ is treated as a compiler directive, and cannot influence the behavior of any other file. Its use is highly discouraged.

Perl 5 からは $[ への代入は、コンパイラへのディレクティブとして扱われ、 他のファイルの動作に影響を与えることがなくなりました。 この変数はできるだけ使わないようにしてください。

$]

The version + patchlevel / 1000 of the Perl interpreter. This variable can be used to determine whether the Perl interpreter executing a script is in the right range of versions. (Mnemonic: Is this version of perl in the right bracket?) Example:

Perl インタプリタの version + patchlevel / 1000 が返されます。 スクリプトの最初で、そのスクリプトを実行しているインタプリタのバージョンが 適切な範囲内にあるかを調べる、といったことができます。 (記憶法: Perl のバージョンは、正しい範囲 (right bracket) にあるか。) 例:

    warn "No checksumming!\n" if $] < 3.019;

See also the documentation of use VERSION and require VERSION for a convenient way to fail if the running Perl interpreter is too old.

実行する Perl インタプリタが古すぎる場合に終了する便利な方法に ついては use VERSIONrequire VERSION のドキュメントも 参照して下さい。

The use of this variable is deprecated. The floating point representation can sometimes lead to inaccurate numeric comparisons. See $^V for a more modern representation of the Perl version that allows accurate string comparisons.

この変数は使わないようにしてください。 浮動小数点表現は数値比較が不正確に成ることがあります。 文字列比較が使える新しい Perl バージョンの表現方法である $^V を 参照して下さい。

$COMPILING
$^C

The current value of the flag associated with the -c switch. Mainly of use with -MO=... to allow code to alter its behavior when being compiled, such as for example to AUTOLOAD at compile time rather than normal, deferred loading. See perlcc. Setting $^C = 1 is similar to calling B::minus_c.

-c スイッチに関連付けられた現在の値です。 主に -MO=... と共に用いられ、例えば AUTOLOAD を通常の遅延ロードでは なくコンパイル時に実行するといった、コンパイル時の振る舞いを 変えるために用います。perlcc を参照して下さい。 $^C = 1 に設定することは B::minus_c を呼び出すのと似ています。

$DEBUGGING
$^D

The current value of the debugging flags. (Mnemonic: value of -D switch.)

デバッグフラグの現在の値を示します。 (記憶法: -D スイッチの値。)

$SYSTEM_FD_MAX
$^F

The maximum system file descriptor, ordinarily 2. System file descriptors are passed to exec()ed processes, while higher file descriptors are not. Also, during an open(), system file descriptors are preserved even if the open() fails. (Ordinary file descriptors are closed before the open() is attempted.) The close-on-exec status of a file descriptor will be decided according to the value of $^F when the corresponding file, pipe, or socket was opened, not the time of the exec().

システムが使用するファイル記述子の最大値を示し、 通常は 2 です。 システムファイル記述子は、exec() されたプロセスに渡されますが、 それ以降のファイル記述子は渡されません。 また、open() の実行中は、システムファイル記述子は、 たとえ open() が失敗しても、保存されます。 (通常のファイル記述子は、open() が実行される前にクローズされます。) ファイル記述子の close-on-exec のステータスは、exec() 時ではなく、 対応するファイル、パイプソケットの open 時の $^F の値によって 決められます。

$^H

WARNING: This variable is strictly for internal use only. Its availability, behavior, and contents are subject to change without notice.

警告: この変数は厳密に内部使用に限定されます。 その可用性、挙動、内容は告知なく変更される可能性があります。

This variable contains compile-time hints for the Perl interpreter. At the end of compilation of a BLOCK the value of this variable is restored to the value when the interpreter started to compile the BLOCK.

この変数には Perl インタプリタのコンパイル時のヒントが入ります。 BLOCK のコンパイル終了時に、この変数の値は インタプリタが BLOCK のコンパイルを開始した時の値に戻されます。

When perl begins to parse any block construct that provides a lexical scope (e.g., eval body, required file, subroutine body, loop body, or conditional block), the existing value of $^H is saved, but its value is left unchanged. When the compilation of the block is completed, it regains the saved value. Between the points where its value is saved and restored, code that executes within BEGIN blocks is free to change the value of $^H.

Perl がレキシカルスコープを持つブロック構造(eval の中身、required された ファイル、サブルーチンの中身、loop の中身、条件付きブロック)の パーズを開始するとき、現在の $^H の値は保存されますが、 値は変更されません。 ブロックのコンパイルが終わると、保存された値が戻されます。 値の保存と回復の間の地点で、 BEGIN ブロックの中で実行されるコードは自由に $^H の値を変更できます。

This behavior provides the semantic of lexical scoping, and is used in, for instance, the use strict pragma.

この振る舞いはレキシカルスコープを持ち、その中で使えます。 例としては use strict があります。

The contents should be an integer; different bits of it are used for different pragmatic flags. Here's an example:

内容は整数であるべきです。 ビット毎に異なるプラグマフラグとして使われます。以下は例です:

    sub add_100 { $^H |= 0x100 }

    sub foo {
        BEGIN { add_100() }
        bar->baz($boon);
    }

Consider what happens during execution of the BEGIN block. At this point the BEGIN block has already been compiled, but the body of foo() is still being compiled. The new value of $^H will therefore be visible only while the body of foo() is being compiled.

BEGIN ブロックの実行中に起こることを考えてみます。 この時点で BEGIN ブロックは既にコンパイルされていますが、 foo() の中身はまだコンパイル中です。 従って $^H の新しい値は foo() の中身がコンパイル中にのみ 見ることが出来ます。

Substitution of the above BEGIN block with:

上記の BEGIN ブロックを以下のように変更すると:

    BEGIN { require strict; strict->import('vars') }

demonstrates how use strict 'vars' is implemented. Here's a conditional version of the same lexical pragma:

どのように use strict 'vars' が実装されているかがわかります。 以下は同じレキシカルプラグマの条件付き版です:

    BEGIN { require strict; strict->import('vars') if $condition }
%^H

WARNING: This variable is strictly for internal use only. Its availability, behavior, and contents are subject to change without notice.

警告: この変数は厳密に内部使用に限定されます。 その可用性、挙動、内容は告知なく変更される可能性があります。

The %^H hash provides the same scoping semantic as $^H. This makes it useful for implementation of lexically scoped pragmas.

%^H ハッシュは $^H と同じスコープを持ちます。 これはレキシカルスコープを持つプラグマを実装するのに便利です。

$INPLACE_EDIT
$^I

The current value of the inplace-edit extension. Use undef to disable inplace editing. (Mnemonic: value of -i switch.)

置き換え編集の拡張子の値を示します。 置き換え編集を禁止するためには、undef を設定します。 (記憶法: -i スイッチの値。)

$^M

By default, running out of memory is an untrappable, fatal error. However, if suitably built, Perl can use the contents of $^M as an emergency memory pool after die()ing. Suppose that your Perl were compiled with -DPERL_EMERGENCY_SBRK and used Perl's malloc. Then

デフォルトでは、メモリ不足はトラップできない致命的エラーとなります。 しかし、もし適切に構築されていれば、Perl は $^M の中身を die() した後の緊急用メモリとして使えます。 Perl が -DPERL_EMERGENCY_SBRK 付きでコンパイルされ、 Perl の malloc を使うと仮定します。そして、

    $^M = 'a' x (1 << 16);

would allocate a 64K buffer for use in an emergency. See the INSTALL file in the Perl distribution for information on how to enable this option. To discourage casual use of this advanced feature, there is no English long name for this variable.

とすると緊急用の 64K のバッファを割り当てます。 このオプションを有効にする方法についての情報は Perl 配布パッケージに含まれている INSTALL ファイルを参照して下さい。 この拡張機能を気軽に使えないようにするために、 この変数には English の長い名前はありません。

$OSNAME
$^O

The name of the operating system under which this copy of Perl was built, as determined during the configuration process. The value is identical to $Config{'osname'}. See also Config and the -V command-line switch documented in perlrun.

この Perl が構築されたオペレーティングシステムの名前です。 これは設定プロセス中に決定されます。 この値は $Config{'osname'} と同じです。 Config と、perlrun でドキュメント化されている -V コマンドラインスイッチも参照して下さい。

$PERLDB
$^P

The internal variable for debugging support. The meanings of the various bits are subject to change, but currently indicate:

デバッグ機能のための内部変数です。 それぞれのビットの意味は変わるかもしれませんが、 現在のところは以下の通りです:

0x01

Debug subroutine enter/exit.

サブルーチンの出入りをデバッグします。

0x02

Line-by-line debugging.

行毎にデバッグします。

0x04

Switch off optimizations.

最適化を行いません。

0x08

Preserve more data for future interactive inspections.

将来の対話的な検査のためにより多くのデータを保存します。

0x10

Keep info about source lines on which a subroutine is defined.

サブルーチンが定義されたソース行に関する情報を保持します。

0x20

Start with single-step on.

シングルステップ実行で開始します。

0x40

Use subroutine address instead of name when reporting.

報告時にサブルーチン名でなくサブルーチンのアドレスを使います。

0x80

Report goto &subroutine as well.

goto &subroutine も同様に報告します。

0x100

Provide informative "file" names for evals based on the place they were compiled.

eval に対して、コンパイルされた位置を元にした「ファイル」名を提供します。

0x200

Provide informative names to anonymous subroutines based on the place they were compiled.

無名サブルーチンに対して、 コンパイルされた位置を基にした参考名を提供します。

Some bits may be relevant at compile-time only, some at run-time only. This is a new mechanism and the details may change.

コンパイル時にのみ有効なビットもあり、実行時にのみ有効なビットもあります。 これは新しいメカニズムであり、詳細は変わるかもしれません。

$LAST_REGEXP_CODE_RESULT
$^R

The result of evaluation of the last successful (?{ code }) regular expression assertion (see perlre). May be written to.

最後に成功した (?{ code }) 正規表現アサートの評価の結果です (perlre を参照して下さい)。おそらくもっと書き足します。

$EXCEPTIONS_BEING_CAUGHT
$^S

Current state of the interpreter. Undefined if parsing of the current module/eval is not finished (may happen in $SIG{__DIE__} and $SIG{__WARN__} handlers). True if inside an eval(), otherwise false.

現在のインタプリタの状態を示します。 現在のモジュール/eval のパーズが終了していない場合は 未定義です(これは $SIG{__DIE__} と $SIG{__WARN__} のハンドラで 起こり得ます)。 eval() の内部では真、それ以外では偽となります。

$BASETIME
$^T

The time at which the program began running, in seconds since the epoch (beginning of 1970). The values returned by the -M, -A, and -C filetests are based on this value.

プログラムを実行開始した時刻を、紀元 (1970年の始め) からの秒数で示したものです。 ファイルテスト -M-A-C で返される値は、この値に基づいています。

$PERL_VERSION
$^V

The revision, version, and subversion of the Perl interpreter, represented as a string composed of characters with those ordinals. Thus in Perl v5.6.0 it equals chr(5) . chr(6) . chr(0) and will return true for $^V eq v5.6.0. Note that the characters in this string value can potentially be in Unicode range.

Perl インタプリタの revision, version, subversion を それぞれの序数の文字からなる文字列で表現します。 つまり Perl v5.6.0 では chr(5) . chr(6) . chr(0) となり、 $^V eq v5.6.0 は真を返します。 この文字列の文字は Unicode の範囲に入るかもしれないことに注意してください。

This can be used to determine whether the Perl interpreter executing a script is in the right range of versions. (Mnemonic: use ^V for Version Control.) Example:

これはスクリプトを実行している Perl インタプリタのバージョンが 正しい範囲に入っているかを調べるのに使えます。(記憶法: ^V をバージョンコントロールに使います。) 例:

    warn "No \"our\" declarations!\n" if $^V and $^V lt v5.6.0;

See the documentation of use VERSION and require VERSION for a convenient way to fail if the running Perl interpreter is too old.

実行する Perl インタプリタが古すぎる場合に終了する便利な方法に ついては use VERSIONrequire VERSION のドキュメントを 参照して下さい。

See also $] for an older representation of the Perl version.

Perl バージョンの古い表現については $] も参照して下さい。

$WARNING
$^W

The current value of the warning switch, initially true if -w was used, false otherwise, but directly modifiable. (Mnemonic: related to the -w switch.) See also warnings.

警告スイッチの値で、-w スイッチが使われると内部的に真となり、 そうでない場合は直接変更可能です。 (記憶法: -w スイッチに関係します。) warnings も参照して下さい。

${^WARNING_BITS}

The current set of warning checks enabled by the use warnings pragma. See the documentation of warnings for more details.

use warnings プラグマで有効にされた、現在の警告チェックの集合です。 詳細については warnings のドキュメントを参照して下さい。

${^WIDE_SYSTEM_CALLS}

Global flag that enables system calls made by Perl to use wide character APIs native to the system, if available. This is currently only implemented on the Windows platform.

Perl によるシステムコールで、システムにネイティブなワイド文字 API を (もし使えるなら)使うようにするグローバルフラグです。 これは現在 Windows プラットフォームでのみ実装されています。

This can also be enabled from the command line using the -C switch.

これはコマンドラインで -C スイッチを使うことでも有効になります。

The initial value is typically 0 for compatibility with Perl versions earlier than 5.6, but may be automatically set to 1 by Perl if the system provides a user-settable default (e.g., $ENV{LC_CTYPE}).

初期値は典型的には 0 で、これは Perl バージョン 5.6 以前との 互換性のためです。 しかし、システムがユーザー定義可能なデフォルト($ENV{LC_CTYPE} など)を 提供している場合は、Perl によって自動的に 1 にセットされることもあります。

The bytes pragma always overrides the effect of this flag in the current lexical scope. See bytes.

bytes プラグマは常に現在のレキシカルスコープでの このフラグの効果を上書きします。bytes を参照して下さい。

$EXECUTABLE_NAME
$^X

The name that the Perl binary itself was executed as, from C's argv[0]. This may not be a full pathname, nor even necessarily in your path.

Perl バイナリ自身が実行された時の名前を C の argv[0] から持ってきたものです。 フルパスではないかもしれませんし、検索パスにないかもしれません。

$ARGV

contains the name of the current file when reading from <>.

<> から読込みを行なっているとき、その時点のファイル名を示します。

@ARGV

The array @ARGV contains the command-line arguments intended for the script. $#ARGV is generally the number of arguments minus one, because $ARGV[0] is the first argument, not the program's command name itself. See $0 for the command name.

配列 @ARGV は、コマンドラインからスクリプトに渡す引数が入れられます。 $ARGV[0]プログラムのコマンド名自身ではなく、 最初の引数ですから、$#ARGV は一般には、引数の個数 - 1 となります。 コマンド名については、$0 を参照してください。

@INC

The array @INC contains the list of places that the do EXPR, require, or use constructs look for their library files. It initially consists of the arguments to any -I command-line switches, followed by the default Perl library, probably /usr/local/lib/perl, followed by ".", to represent the current directory. If you need to modify this at runtime, you should use the use lib pragma to get the machine-dependent library properly loaded also:

配列 @INC には、do EXPR、require、use によってライブラリファイルを 探すときに評価する場所のリストが納められています。 初期状態では、コマンドラインスイッチ -I の引数と デフォルトの Perl ライブラリディレクトリ (おそらく /usr/local/lib/perl5) とカレントディレクトリを表わす "." を順につなげたものです。 実行時にこれを変更する必要がある場合は、 マシン依存のライブラリを正しく読み込むために use lib も使うべきです:

    use lib '/mypath/libdir/';
    use SomeMod;
@_

Within a subroutine the array @_ contains the parameters passed to that subroutine. See perlsub.

サブルーチンの内部では、配列 @_ はサブルーチンに渡されたパラメータです。 perlsub を参照して下さい。

%INC

The hash %INC contains entries for each filename included via the do, require, or use operators. The key is the filename you specified (with module names converted to pathnames), and the value is the location of the file found. The require operator uses this hash to determine whether a particular file has already been included.

ハッシュ %INC は、do, require, use演算子によって インクルードされた、個々のファイル名をエントリとして持っています。 key は指定したファイル名(モジュール名はパス名に変換されます)で、 value は見つかった場所となっています。 require 演算子は、指定されたファイル名が既に インクルードされているかを、このハッシュを使って調べます。

%ENV
$ENV{expr}

The hash %ENV contains your current environment. Setting a value in ENV changes the environment for any child processes you subsequently fork() off.

ハッシュ %ENV には、その時点の環境変数が設定されています。 ENV に値を設定することで、 以後に fork() した子プロセスの環境変数を変更します。

%SIG
$SIG{expr}

The hash %SIG contains signal handlers for signals. For example:

ハッシュ %SIG にはシグナルのためのシグナルハンドラが含まれています。例:

    sub handler {       # 1st argument is signal name
        my($sig) = @_;
        print "Caught a SIG$sig--shutting down\n";
        close(LOG);
        exit(0);
    }

    $SIG{'INT'}  = \&handler;
    $SIG{'QUIT'} = \&handler;
    ...
    $SIG{'INT'}  = 'DEFAULT';   # restore default action
    $SIG{'QUIT'} = 'IGNORE';    # ignore SIGQUIT

Using a value of 'IGNORE' usually has the effect of ignoring the signal, except for the CHLD signal. See perlipc for more about this special case.

'IGNORE' という値は通常はシグナルの効果を無視するために使いますが、 CHLD シグナルは例外です。 この特別な場合に関する詳細は perlipc を参照して下さい。

Here are some other examples:

    $SIG{"PIPE"} = "Plumber";   # assumes main::Plumber (not recommended)
    $SIG{"PIPE"} = \&Plumber;   # just fine; assume current Plumber
    $SIG{"PIPE"} = *Plumber;    # somewhat esoteric
    $SIG{"PIPE"} = Plumber();   # oops, what did Plumber() return??

以下にその他の例を示します:

    $SIG{"PIPE"} = "Plumber";   # main::Plumber を仮定します(非推奨)
    $SIG{"PIPE"} = \&Plumber;   # 問題なし; カレントの Plumber を仮定します
    $SIG{"PIPE"} = *Plumber;    # 少々難解
    $SIG{"PIPE"} = Plumber();   # げげ、Plumber() は何を返すの??

Be sure not to use a bareword as the name of a signal handler, lest you inadvertently call it.

裸の単語をシグナルハンドラの名前として使わないようにしてください。 不注意で呼び出すのを避けるためです。

If your system has the sigaction() function then signal handlers are installed using it. This means you get reliable signal handling. If your system has the SA_RESTART flag it is used when signals handlers are installed. This means that system calls for which restarting is supported continue rather than returning when a signal arrives. If you want your system calls to be interrupted by signal delivery then do something like this:

システムに sigaction() 関数がある場合は、 シグナルハンドラはこの関数を使って設定されます。 これにより、信頼性のあるシグナルハンドリングが可能になります。 システムに SA_RESTART フラグがある場合は、 シグナルハンドラはこれを使います。 これによりこれにより再開に対応しているシステムコールは シグナルが到着したときに返らずに再開します。 シグナルが届いたときにシステムコールを中断したい場合は 以下のようにしてください:

    use POSIX ':signal_h';

    my $alarm = 0;
    sigaction SIGALRM, new POSIX::SigAction sub { $alarm = 1 }
        or die "Error setting SIGALRM handler: $!\n";

See POSIX.

POSIX を参照して下さい。

Certain internal hooks can be also set using the %SIG hash. The routine indicated by $SIG{__WARN__} is called when a warning message is about to be printed. The warning message is passed as the first argument. The presence of a __WARN__ hook causes the ordinary printing of warnings to STDERR to be suppressed. You can use this to save warnings in a variable, or turn warnings into fatal errors, like this:

ある種の内部フックも %SIG ハッシュを使ってセットされます。 警告メッセージを表示しようとするときに $SIG{__WARN__} で 示されたルーチンが呼び出されます。 警告メッセージは最初の引数として渡されます。 __WARN__ フックがあると、通常の STDERR への警告の出力は行われません。 これを使って、警告メッセージを変数にいれたり、 あるいは以下のようにして警告を致命的エラーに変えたり出来ます:

    local $SIG{__WARN__} = sub { die $_[0] };
    eval $proggie;

The routine indicated by $SIG{__DIE__} is called when a fatal exception is about to be thrown. The error message is passed as the first argument. When a __DIE__ hook routine returns, the exception processing continues as it would have in the absence of the hook, unless the hook routine itself exits via a goto, a loop exit, or a die(). The __DIE__ handler is explicitly disabled during the call, so that you can die from a __DIE__ handler. Similarly for __WARN__.

$SIG{__DIE__} で示されるルーチンは 致命的な例外がまさに投げられようとするときに呼び出されます。 エラーメッセージは最初の引数として渡されます。 __DIE__ フックから戻ると、 例外処理はフックがなかったかのように再開されますが、 フックルーチン自体が goto、ループ終了、die() によって 終了した場合を除きます。 __DIE__ ハンドラは呼び出し中は明示的に無効になりますので、 __DIE__ ハンドラから die できます。 __WARN__ も同様です。

Due to an implementation glitch, the $SIG{__DIE__} hook is called even inside an eval(). Do not use this to rewrite a pending exception in $@, or as a bizarre substitute for overriding CORE::GLOBAL::die(). This strange action at a distance may be fixed in a future release so that $SIG{__DIE__} is only called if your program is about to exit, as was the original intent. Any other use is deprecated.

実装上の不具合により、$SIG{__DIE__} は eval() の中でも 呼び出されます。これを、$@ の待っている例外を書き換えたり、 CORE::GLOBAL::die() を上書きするのに使わないでください。 この奇妙な行動は将来のリリースで修正される予定なので、 $SIG{__DIE__} は当初の目的通り、 プログラムが終了するときにのみ呼び出されるようになります。 その他の用途は非推奨です。

__DIE__/__WARN__ handlers are very special in one respect: they may be called to report (probable) errors found by the parser. In such a case the parser may be in inconsistent state, so any attempt to evaluate Perl code from such a handler will probably result in a segfault. This means that warnings or errors that result from parsing Perl should be used with extreme caution, like this:

__DIE____WARN__ のハンドラは一つの点で非常に特別です。 パーザによってエラー(であろうもの)を報告するために呼び出されることがある ことです。 このような場合、パーザは不安定な状態になっているかもしれないので、 ハンドラから Perl コードを評価しようとするとセグメンテーションフォールトが 発生するかもしれません。 Perl のパーズ中の警告やエラーは、以下のように非常に注意して扱うべきです。

    require Carp if defined $^S;
    Carp::confess("Something wrong") if defined &Carp::confess;
    die "Something wrong, but could not load Carp to give backtrace...
         To see backtrace try starting Perl with -MCarp switch";

Here the first line will load Carp unless it is the parser who called the handler. The second line will print backtrace and die if Carp was available. The third line will be executed only if Carp was not available.

一行目は、パーザがハンドラを呼び出したのでなければ Carp を読み込みます。 二行目は、Carp が使えるならバックとレースを表示して die します。 三行目は Carp が使えないときにのみ実行されます。

See "die" in perlfunc, "warn" in perlfunc, "eval" in perlfunc, and warnings for additional information.

追加の情報については "die" in perlfunc, "warn" in perlfunc, "eval" in perlfunc, warnings を参照して下さい。

エラー指示子

The variables $@, $!, $^E, and $? contain information about different types of error conditions that may appear during execution of a Perl program. The variables are shown ordered by the "distance" between the subsystem which reported the error and the Perl process. They correspond to errors detected by the Perl interpreter, C library, operating system, or an external program, respectively.

変数 $@, $!, $^E, $? は Perl プログラムの実行中に 発生した、異なる種類のエラー情報を保持します。 変数はエラーを報告した副システムと Perl プロセスとの「距離」 の順番に並んでいます。 これらはそれぞれ、Perl インタプリタ、C ライブラリ、 オペレーティングシステム、外部プログラムによって検出された エラーに対応しています。

To illustrate the differences between these variables, consider the following Perl expression, which uses a single-quoted string:

これらの変数の違いを示すために、 以下のようなシングルクォートを用いた Perl 式を考えます:

    eval q{
        open PIPE, "/cdrom/install |";
        @res = <PIPE>;
        close PIPE or die "bad pipe: $?, $!";
    };

After execution of this statement all 4 variables may have been set.

この文を実行した後、4 つの変数全てがセットされる可能性があります。

$@ is set if the string to be eval-ed did not compile (this may happen if open or close were imported with bad prototypes), or if Perl code executed during evaluation die()d . In these cases the value of $@ is the compile error, or the argument to die (which will interpolate $! and $?!). (See also Fatal, though.)

$@eval された文字列がコンパイルされなかったとき (これは openclose が正しくない プロトタイプでインポートされたときに起こり得ます)、 または評価中に実行している Perl コードが die() したときにセットされます。 これらの場合には $@ の値はコンパイルエラー、または die への引数(これには $!$? が差し挟まれます!)です。 (しかし、Fatal も参照して下さい。)

When the eval() expression above is executed, open(), <PIPE>, and close are translated to calls in the C run-time library and thence to the operating system kernel. $! is set to the C library's errno if one of these calls fails.

上記の eval() 式が実行された後、 open(), <PIPE>, close は C ランタイムライブラリの呼び出しに 変換され、それからオペレーティングシステムコールに変換されます。 $! はこれらの呼び出しのどれかが失敗したとき、 C ライブラリの errno の値がセットされます。

Under a few operating systems, $^E may contain a more verbose error indicator, such as in this case, "CDROM tray not closed." Systems that do not support extended error messages leave $^E the same as $!.

いくつかのオペレーティングシステムでは、 $^E により詳細なエラー指示子が入っているかもしれません。 今回の場合で言えば、"CDROM tray not closed." などです。 追加のエラーメッセージに対応していないシステムでは、 $^E$! と同じ値です。

Finally, $? may be set to non-0 value if the external program /cdrom/install fails. The upper eight bits reflect specific error conditions encountered by the program (the program's exit() value). The lower eight bits reflect mode of failure, like signal death and core dump information See wait(2) for details. In contrast to $! and $^E, which are set only if error condition is detected, the variable $? is set on each wait or pipe close, overwriting the old value. This is more like $@, which on every eval() is always set on failure and cleared on success.

最後に、$? は外部プログラム /cdrom/install が失敗したときに 非 0 にセットされるかもしれません。 上位の 8 ビットはプログラムが遭遇した特定のエラー状況 (プログラムの exit() の値)を反映します。 下位の 8 ビットは、シグナルの死亡やコアダンプ情報と言った失敗のモードを反映します。 詳細については wait(2) を参照して下さい。 $!$^E はエラー状況が検出されたときにのみ設定されますが、 変数 $?wait やパイプの close の度に、前の値を上書きします。 これは、$@ が eval() の実行毎に、エラーならセットされ、 成功ならクリアされるという動作と似ています。

For more details, see the individual descriptions at $@, $!, $^E, and $?.

より詳細については、$@, $!, $^E, $? それぞれの説明を 参照して下さい。

変数名の文法に関するテクニカルノート

Variable names in Perl can have several formats. Usually, they must begin with a letter or underscore, in which case they can be arbitrarily long (up to an internal limit of 251 characters) and may contain letters, digits, underscores, or the special sequence :: or '. In this case, the part before the last :: or ' is taken to be a package qualifier; see perlmod.

Perl の変数名は様々な形があります。 通常、変数名は英文字か下線で始まらなければならず、 任意の長さ(内部制限の 251 文字まで)を取ることができ、 英文字、数字、下線、特別な文字列である ::' を含むことができます。 この場合、最後の :: または ' の前は パッケージ限定子 として扱われます。 perlmod を参照して下さい。

Perl variable names may also be a sequence of digits or a single punctuation or control character. These names are all reserved for special uses by Perl; for example, the all-digits names are used to hold data captured by backreferences after a regular expression match. Perl has a special syntax for the single-control-character names: It understands ^X (caret X) to mean the control-X character. For example, the notation $^W (dollar-sign caret W) is the scalar variable whose name is the single character control-W. This is better than typing a literal control-W into your program.

Perl の変数は、数字の列または一文字の句読点かコントロール文字の 場合もあります。 これらの名前は全て Perl によって特別な用途のために予約されています。 例えば、全て数字の名前は正規表現マッチの後の後方参照のデータを 保持するために用いられます。 Perl には一文字のコントロール文字の名前のための特別な文法があります。 ^X(キャレット X)は control-X キャラクタを意味します。 例えば、$^W(ドル記号 キャレット W)は control-W 一文字の 名前をもつスカラ変数です。 これはプログラム中にリテラルな control-W をタイプするより 良いです。

Finally, new in Perl 5.6, Perl variable names may be alphanumeric strings that begin with control characters (or better yet, a caret). These variables must be written in the form ${^Foo}; the braces are not optional. ${^Foo} denotes the scalar variable whose name is a control-F followed by two o's. These variables are reserved for future special uses by Perl, except for the ones that begin with ^_ (control-underscore or caret-underscore). No control-character name that begins with ^_ will acquire a special meaning in any future version of Perl; such names may therefore be used safely in programs. $^_ itself, however, is reserved.

最後に、Perl 5.6 の新機能として、コントロール文字(もっと言えばキャレット)で 始まる、英数字からなる文字列の変数名も使えます。 これらの変数は ${^Foo} の形で書かれなければなりません。 括弧は必須です。 ${^Foo} はコントロール-F の後に二つ o が続く名前を持つ スカラ変数です。 これらの変数は Perl によって特別な用途のために予約されていますが、 ^_ (コントロール-下線またはキャレット-下線)で始まるものは例外です。 ^_ で始まるコントロール文字名は Perl の将来のバージョンで 特別な意味を持つことはありません。 従ってこれらの名前はプログラム中で安全に使用できます。 但し、$^_ そのものは 予約されます

Perl identifiers that begin with digits, control characters, or punctuation characters are exempt from the effects of the package declaration and are always forced to be in package main. A few other names are also exempt:

数字、コントロール文字、句読点で始まる Perl の識別子は package 宣言の効果から逃れて、常に main パッケージにあるものとして 扱われます。さらに以下のものも逃れます:

        ENV             STDIN
        INC             STDOUT
        ARGV            STDERR
        ARGVOUT
        SIG

In particular, the new special ${^_XYZ} variables are always taken to be in package main, regardless of any package declarations presently in scope.

特に、新しい特別な ${^_XYZ} 変数はスコープ内の package 宣言に関わらず 常に main パッケージとして扱われます。

バグ

Due to an unfortunate accident of Perl's implementation, use English imposes a considerable performance penalty on all regular expression matches in a program, regardless of whether they occur in the scope of use English. For that reason, saying use English in libraries is strongly discouraged. See the Devel::SawAmpersand module documentation from CPAN (http://www.perl.com/CPAN/modules/by-module/Devel/) for more information.

Perl の実装における不幸な事故により、 use English はプログラム中の全ての正規表現マッチングにおいて かなりの性能低下を引き起こします。 これは use English のスコープ内かどうかに関わりません。 この理由により、ライブラリで use English を使うのは できるだけ避けてください。 さらなる情報については CPAN の Devel::SawAmpersand モジュール (http://www.perl.com/CPAN/modules/by-module/Devel/) の ドキュメントを参照して下さい。

Having to even think about the $^S variable in your exception handlers is simply wrong. $SIG{__DIE__} as currently implemented invites grievous and difficult to track down errors. Avoid it and use an END{} or CORE::GLOBAL::die override instead.

例外ハンドラの中で $^S を使おうなどとは考えてもいけません。 現在の実装の $SIG{__DIE__} は面倒を引き寄せ、エラーの追跡を困難にします。 これの代わりに END{} を使うか、CORE::GLOBAL::die をオーバーライドしてください。