=encoding euc-jp
=head1 NAME
X
=begin original
perlsyn - Perl syntax
=end original
perlsyn - Perl の文法
=head1 DESCRIPTION
=begin original
A Perl program consists of a sequence of declarations and statements
which run from the top to the bottom. Loops, subroutines and other
control structures allow you to jump around within the code.
=end original
Perl プログラムは、宣言と文の並びから構成され、上から下へと実行されます。
ループ、サブルーチン、その他の制御機構でコードの色々なところに
ジャンプできます。
=begin original
Perl is a B language, you can format and indent it however
you like. Whitespace mostly serves to separate tokens, unlike
languages like Python where it is an important part of the syntax.
=end original
Perl は B 言語ですが、好きなように整形したりインデントしたり
できます。
空白が文法の重要な要素である Python のような言語と異なり、
空白はほとんどトークンの分割の役目です。
=begin original
Many of Perl's syntactic elements are B. Rather than
requiring you to put parentheses around every function call and
declare every variable, you can often leave such explicit elements off
and Perl will figure out what you meant. This is known as B, abbreviated B. It allows programmers to be B and to
code in a style with which they are comfortable.
=end original
Perl の多くの文法要素は B です。
全ての関数をかっこで括ったり、全ての変数を宣言したりすることを
要求するのではなく、しばしばそのような明示的な要素を置いておいて、
Perl にあなたが意味しているところを見つけ出させることができます。
これは B と知られ、頭文字を取って B と呼ばれます。
これによって、プログラマを B にでき、彼らが快適だと思うスタイルで
コーディングできるようにします。
=begin original
Perl B and concepts from many languages: awk, sed, C,
Bourne Shell, Smalltalk, Lisp and even English. Other
languages have borrowed syntax from Perl, particularly its regular
expression extensions. So if you have programmed in another language
you will see familiar pieces in Perl. They often work the same, but
see L for information about how they differ.
=end original
Perl は、awk, sed, C, Bourne Shell, Smalltalk, Lisp, 果ては英語といった、
多くの言語からコンセプトと B しています。
他の言語も Perl から文法を借用しています; 特に正規表現拡張をです。
従って、他の言語でプログラミングしていたなら、Perl にも見たことがあるような
ものがあるでしょう。
それらはしばしば同じように動作しますが、違う点についての情報は
L を参照してください。
=head2 Declarations
X X X X
(宣言)
=begin original
The only things you need to declare in Perl are report formats and
subroutines (and sometimes not even subroutines). A variable holds
the undefined value (C) until it has been assigned a defined
value, which is anything other than C. When used as a number,
C is treated as C<0>; when used as a string, it is treated as
the empty string, C; and when used as a reference that isn't being
assigned to, it is treated as an error. If you enable warnings,
you'll be notified of an uninitialized value whenever you treat
C as a string or a number. Well, usually. Boolean contexts,
such as:
=end original
Perl で宣言が必要なものはレポートフォーマットとサブルーチンだけです
(サブルーチンすら宣言が不要な場合もあります)。
変数は、C 以外の定義された値を代入されるまでは未定義値(C)と
なります。
数値として使われる場合、C は C<0> として扱われます;
文字列として使われる場合、これは空文字列 C として扱われます;
リファレンスとして使われる場合、これは何も代入されていないので、エラーとして
扱われます。
警告を有効にしているなら、C を文字列や数値として扱おうとすると
未初期化値を指摘されます。
ええ、普通は。
次のような真偽値コンテキストなら:
my $a;
if ($a) {}
=begin original
are exempt from warnings (because they care about truth rather than
definedness). Operators such as C, C, C,
C, and C, that operate on undefined left values such as:
=end original
(定義済みかどうかではなく、真かどうかを考慮するので)警告から免れます。
未定義の左辺値を操作する、C, C, C, C, C のような
演算子でも:
my $a;
$a++;
=begin original
are also always exempt from such warnings.
=end original
とすることでもそのような警告から免れます。
=begin original
A declaration can be put anywhere a statement can, but has no effect on
the execution of the primary sequence of statements--declarations all
take effect at compile time. Typically all the declarations are put at
the beginning or the end of the script. However, if you're using
lexically-scoped private variables created with C, you'll
have to make sure
your format or subroutine definition is within the same block scope
as the my if you expect to be able to access those private variables.
=end original
宣言は、文が置けるところであればどこにでも置くことができますが、
基本的な文の並びは実行時には何の効果も持ちません -- 宣言はコンパイル時に
すべての効果が表れます。
典型的なすべての宣言は、スクリプトの先頭か終端に置かれます。
しかしながら、局所変数を C を使って作成してレキシカルなスコープを
使っているのであれば、フォーマットやサブルーチンの定義を、同じブロックの
スコープの中でその局所変数にアクセスすることが可能であるようにしておく
必要があるでしょう。
=begin original
Declaring a subroutine allows a subroutine name to be used as if it were a
list operator from that point forward in the program. You can declare a
subroutine without defining it by saying C, thus:
X
=end original
サブルーチンの宣言は、プログラムの後のほうにあるサブルーチン名を
リスト演算子のように使うことを許します。
定義されていないサブルーチンの宣言を、C と記述することで
宣言できるので、以下のようにできます。
X
sub myname;
$me = myname $0 or die "can't get myname";
=begin original
Note that myname() functions as a list operator, not as a unary operator;
so be careful to use C instead of C in this case. However, if
you were to declare the subroutine as C, then
C would function as a unary operator, so either C or
C would work.
=end original
myname() 関数は、リスト演算子のように働くのであり、単項演算子としてでは
ないということに注意してください。
ですから、こういった場合に C の代わりに C を使うことには
注意してください。
しかし、サブルーチンを C のように宣言しているのであれば、
C でも C でもうまく行きます。
=begin original
Subroutines declarations can also be loaded up with the C statement
or both loaded and imported into your namespace with a C statement.
See L for details on this.
=end original
サブルーチンの宣言は C 文を使って詰め込むこともできますし、
C 文を使って自分の名前空間にロードしたりインポートしたりすることが
できます。
これに関する詳細は L を参照してください。
=begin original
A statement sequence may contain declarations of lexically-scoped
variables, but apart from declaring a variable name, the declaration acts
like an ordinary statement, and is elaborated within the sequence of
statements as if it were an ordinary statement. That means it actually
has both compile-time and run-time effects.
=end original
文の並びはレキシカルスコープを持った変数の宣言を含むことができますが、
変数名の宣言とは切り離され、その宣言は通常の文のように振る舞い、
それが通常の文であるかのように文の並びに組みこまれます。
これは、そういった宣言がコンパイル時の効果と実行時の効果の両方を
持っているということです。
=head2 Comments
X X
(コメント)
=begin original
Text from a C character until the end of the line is a comment,
and is ignored. Exceptions include C inside a string or regular
expression.
=end original
コメントは C 文字から、行末まで続き、その部分は無視されます。
例外は、文字列や正規表現の中にある C です。
=head2 Simple Statements
X X X X
(単純文)
=begin original
The only kind of simple statement is an expression evaluated for its
side effects. Every simple statement must be terminated with a
semicolon, unless it is the final statement in a block, in which case
the semicolon is optional. (A semicolon is still encouraged if the
block takes up more than one line, because you may eventually add
another line.) Note that there are some operators like C and
C that look like compound statements, but aren't (they're just
TERMs in an expression), and thus need an explicit termination if used
as the last item in a statement.
=end original
単純文となる唯一の種類は、その副作用のために評価される式です。
すべての単純文は、それがセミコロンを省略することのできるブロックの
最後にない限りは文を終端するためのセミコロンがなければなりません
(ブロックが二行以上に渡る場合には、セミコロンを付けることをお薦めします。
なぜなら、別の行を追加する可能性があるからです)。
C や C のように、一見複合文のようにみえるけれども
そうではない(これらは単なる式における TERM です)ものがあって、
そういったものを文の最後のアイテムとして使った場合には明示的に終端する
必要があるのだということに注意してください。
=head2 Truth and Falsehood
X X X X X X X X<0>
(真偽値)
=begin original
The number 0, the strings C and C, the empty list C, and
C are all false in a boolean context. All other values are true.
Negation of a true value by C or C returns a special false value.
When evaluated as a string it is treated as C, but as a number, it
is treated as 0.
=end original
数値 0, 文字列 C と C, 空リスト C, C は全て真偽値
コンテキストでは偽となります。
その他の全ての値は真です。
真の値を C や C で否定すると、特殊な偽の値を返します。
これを文字列として評価すると C として扱われますが、数値として評価すると
0 として扱われます。
=head2 Statement Modifiers
X X X X X
X X X
(文修飾子)
=begin original
Any simple statement may optionally be followed by a I modifier,
just before the terminating semicolon (or block ending). The possible
modifiers are:
=end original
任意の単純文には、B の修飾子を終端のセミコロンの直前(もしくは
ブロックの終端の直前)に付けることができます。
使うことのできる修飾子は以下の通りです。
if EXPR
unless EXPR
while EXPR
until EXPR
foreach LIST
=begin original
The C following the modifier is referred to as the "condition".
Its truth or falsehood determines how the modifier will behave.
=end original
修飾子に引き続く C は「条件」として参照されます。
その真偽値が修飾子の振る舞いを決定します。
=begin original
C executes the statement once I and only if the condition is
true. C is the opposite, it executes the statement I
the condition is true (i.e., if the condition is false).
=end original
C は I 条件が真の場合にのみ文を実行します。
C は逆で、条件が真 I (つまり、条件が偽なら) 文を
実行します。
print "Basset hounds got long ears" if length $ear >= 10;
go_outside() and play() unless $is_raining;
=begin original
The C modifier is an iterator: it executes the statement once
for each item in the LIST (with C aliased to each item in turn).
=end original
C 修飾子は反復子です:
LIST の値それぞれ毎に文を実行します(実行中は C がそれぞれの値の
エイリアスとなります)。
print "Hello $_!\n" foreach qw(world Dolly nurse);
=begin original
C repeats the statement I the condition is true.
C does the opposite, it repeats the statement I the
condition is true (or while the condition is false):
=end original
C は条件が真 I 文を繰り返します。
C は逆で、条件が真 I (つまり条件が偽の間) 文を
繰り返します:
# Both of these count from 0 to 10.
print $i++ while $i <= 10;
print $j++ until $j > 10;
=begin original
The C and C modifiers have the usual "C loop"
semantics (conditional evaluated first), except when applied to a
C-BLOCK (or to the deprecated C-SUBROUTINE statement), in
which case the block executes once before the conditional is
evaluated. This is so that you can write loops like:
=end original
修飾子 C と C は、一般的な "C loop" の意味を
持っています(条件が最初に評価される)が、C-ブロック(もしくは現在では
使用を推奨されていない C-サブルーチン文)に適用されるときは例外で、
このときは条件が評価されるよりも前に、一度ブロックが実行されます。
このため、次のようなループを記述することができます。
do {
$line = ;
...
} until $line eq ".\n";
=begin original
See L. Note also that the loop control statements described
later will I work in this construct, because modifiers don't take
loop labels. Sorry. You can always put another block inside of it
(for C) or around it (for C) to do that sort of thing.
For C, just double the braces:
X X X
=end original
L を参照してください。
後述するループの制御文は、修飾子がループラベルを取らないために
この構造文では I ということにも注意してください。
申し訳ない。
こういった場合に対処するのに別のブロックを内側に入れたり(C の場合)、
別のブロックで囲む(C の場合)という方法が常に使えます。
C では単に中かっこを二重にします:
X X X
do {{
next if $x == $y;
# do something here
}} until $x++ > $z;
=begin original
For C, you have to be more elaborate:
X
=end original
C の場合は、もっと念入りにする必要があります:
LOOP: {
do {
last if $x = $y**2;
# do something here
} while $x++ <= $z;
}
=begin original
B The behaviour of a C statement modified with a statement
modifier conditional or loop construct (e.g. C) is
B. The value of the C variable may be C, any
previously assigned value, or possibly anything else. Don't rely on
it. Future versions of perl might do something different from the
version of perl you try it out on. Here be dragons.
X
=end original
B (C のような) 条件構造やループ構造で修飾された
C 文の振る舞いは B です。
C 変数の値は C かも知れませんし、以前に代入された値かも
知れませんし、その他の如何なる値の可能性もあります。
この値に依存してはいけません。
perl の将来のバージョンでは現在のバージョンとは何か違うかも知れません。
ここには厄介なものがいます。
X
=head2 Compound Statements
X X X X X
X X X X X X X X X
(複合文)
=begin original
In Perl, a sequence of statements that defines a scope is called a block.
Sometimes a block is delimited by the file containing it (in the case
of a required file, or the program as a whole), and sometimes a block
is delimited by the extent of a string (in the case of an eval).
=end original
Perl では、スコープを定義するような文の並びをブロックと呼びます。
ブロックはそれを含むファイルによって範囲が定められることがあります
(ファイルが require されたときか、プログラム全体としての場合)し、
文字列の展開によって範囲が定められる(eval の場合)こともあります。
=begin original
But generally, a block is delimited by curly brackets, also known as braces.
We will call this syntactic construct a BLOCK.
=end original
しかし一般的には、ブロックは中かっこによって範囲が定められます。
この構文的な構造をブロックと呼びます。
=begin original
The following compound statements may be used to control flow:
=end original
以下に挙げる複合文を制御フローとして使うことができます:
if (EXPR) BLOCK
if (EXPR) BLOCK else BLOCK
if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK
LABEL while (EXPR) BLOCK
LABEL while (EXPR) BLOCK continue BLOCK
LABEL until (EXPR) BLOCK
LABEL until (EXPR) BLOCK continue BLOCK
LABEL for (EXPR; EXPR; EXPR) BLOCK
LABEL foreach VAR (LIST) BLOCK
LABEL foreach VAR (LIST) BLOCK continue BLOCK
LABEL BLOCK continue BLOCK
=begin original
Note that, unlike C and Pascal, these are defined in terms of BLOCKs,
not statements. This means that the curly brackets are I--no
dangling statements allowed. If you want to write conditionals without
curly brackets there are several other ways to do it. The following
all do the same thing:
=end original
しかし注意して欲しいのは、C や Pascal とは異なり、ブロックを取るように
定義されていて文を取るではないということです。
つまり、中かっこは I です -- 曖昧な文が許されません。
中かっこなしの条件文を使いたいのであれば、いくつかのやり方があります。
以下の全ては同じことです:
if (!open(FOO)) { die "Can't open $FOO: $!"; }
die "Can't open $FOO: $!" unless open(FOO);
open(FOO) or die "Can't open $FOO: $!"; # FOO or bust!
open(FOO) ? 'hi mom' : die "Can't open $FOO: $!";
# a bit exotic, that last one
=begin original
The C statement is straightforward. Because BLOCKs are always
bounded by curly brackets, there is never any ambiguity about which
C an C goes with. If you use C in place of C,
the sense of the test is reversed.
=end original
C 文は明解です。
ブロックは常に中かっこで区切られるので、C と C の対応が
曖昧になるようなことは決してありません。
C を C の C のように使いたいのであれば、検査を反転します。
=begin original
The C statement executes the block as long as the expression is
L.
The C statement executes the block as long as the expression is
false.
The LABEL is optional, and if present, consists of an identifier followed
by a colon. The LABEL identifies the loop for the loop control
statements C, C, and C.
If the LABEL is omitted, the loop control statement
refers to the innermost enclosing loop. This may include dynamically
looking back your call-stack at run time to find the LABEL. Such
desperate behavior triggers a warning if you use the C
pragma or the B flag.
=end original
C 文は、式が L である間、ブロックを
実行します。
C 文は、式が偽である間、ブロックを実行します。
LABEL は省略可能ですが、ある場合には、コロンを伴った識別子になります。
LABEL は C、C、C といったループ制御文のループを規定します。
LABEL が省略された場合、ループ制御文はそれを含むループの中で最も内側の
ループを参照します。
これは、実行時に LABEL を検出するための呼び出しスタックの動的な後戻り検索を
含むことができます。
そのような推奨されない振る舞いは、C プラグマや B フラグを
使った場合には警告を引き起こします。
=begin original
If there is a C BLOCK, it is always executed just before the
conditional is about to be evaluated again. Thus it can be used to
increment a loop variable, even when the loop has been continued via
the C statement.
=end original
C ブロックが存在する場合、
常に条件が再評価される直前に実行されます。
したがって、このブロックをループ変数のインクリメントのために
使うことができます。
これは、ループがC文を通して継続されるときでも実行されます。
=head2 Loop Control
X X X X X X
(ループ制御)
=begin original
The C command starts the next iteration of the loop:
=end original
C コマンドはループの次の繰り返しを開始します:
LINE: while () {
next LINE if /^#/; # discard comments
...
}
=begin original
The C command immediately exits the loop in question. The
C block, if any, is not executed:
=end original
C コマンドはループから即座に脱出します。
C ブロックがあっても、それは実行されません:
LINE: while () {
last LINE if /^$/; # exit when done with header
...
}
=begin original
The C command restarts the loop block without evaluating the
conditional again. The C block, if any, is I executed.
This command is normally used by programs that want to lie to themselves
about what was just input.
=end original
C コマンドは、条件の再評価をすることなしにループブロックの
再実行を行います。
C ブロックがあっても、それは I。
このコマンドは通常、プログラムに対する入力に関してプログラム自身を
だましたいといったときに使われます。
=begin original
For example, when processing a file like F.
If your input lines might end in backslashes to indicate continuation, you
want to skip ahead and get the next record.
=end original
たとえば、F のようなファイルを処理することを
考えてみましょう。
もし入力された行の行末が継続を示すバックスラッシュであった場合、先へ進んで
次のレコードを取り出したいと思うでしょう。
while (<>) {
chomp;
if (s/\\$//) {
$_ .= <>;
redo unless eof();
}
# now process $_
}
=begin original
which is Perl short-hand for the more explicitly written version:
=end original
これは Perl の省略記法で、もっとはっきりと書くと以下のようになります:
LINE: while (defined($line = )) {
chomp($line);
if ($line =~ s/\\$//) {
$line .= ;
redo LINE unless eof(); # not eof(ARGV)!
}
# now process $line
}
=begin original
Note that if there were a C block on the above code, it would
get executed only on lines discarded by the regex (since redo skips the
continue block). A continue block is often used to reset line counters
or C one-time matches:
=end original
上記の例で C ブロックがあったとしたら、それは
(redo は continue ブロックをスキップするので) 正規表現によって
捨てられた行だけが実行されるということに注意してください。
continue ブロックは行カウンターをリセットするとか、
一度だけマッチする C をリセットするのに使われます。
# inspired by :1,$g/fred/s//WILMA/
while (<>) {
?(fred)? && s//WILMA $1 WILMA/;
?(barney)? && s//BETTY $1 BETTY/;
?(homer)? && s//MARGE $1 MARGE/;
} continue {
print "$ARGV $.: $_";
close ARGV if eof(); # reset $.
reset if eof(); # reset ?pat?
}
=begin original
If the word C is replaced by the word C, the sense of the
test is reversed, but the conditional is still tested before the first
iteration.
=end original
C を C で置き換えた場合検査の意味は逆転しますが、
繰り返しが実行されるより前に条件が検査されることは変わりありません。
=begin original
The loop control statements don't work in an C or C, since
they aren't loops. You can double the braces to make them such, though.
=end original
ループ制御文は C や C 中では動作しません。
なぜならそこはループではないからです。
しかし中かっこを二重にしてこれに対処することはできます。
if (/pattern/) {{
last if /fred/;
next if /barney/; # same effect as "last", but doesn't document as well
# do something here
}}
=begin original
This is caused by the fact that a block by itself acts as a loop that
executes once, see L.
=end original
これは、ブロック自身は一度だけ実行されるループとして動作するからです;
L を参照してください。
=begin original
The form C, available in Perl 4, is no longer
available. Replace any occurrence of C by C.
=end original
Perl 4 では使うことのできた C という形式は、
もはや使うことができません。
C の部分を C で置き換えてください。
=head2 For Loops
X X
(for ループ)
=begin original
Perl's C-style C loop works like the corresponding C loop;
that means that this:
=end original
Perl の C 形式の C ループは、対応する C ループと同様に
動作します。
つまり、以下のものは:
for ($i = 1; $i < 10; $i++) {
...
}
=begin original
is the same as this:
=end original
以下のものと同じです:
$i = 1;
while ($i < 10) {
...
} continue {
$i++;
}
=begin original
There is one minor difference: if variables are declared with C
in the initialization section of the C, the lexical scope of
those variables is exactly the C loop (the body of the loop
and the control sections).
X
=end original
小さな違いが一つあります: C の初期化部で C を使って変数が
宣言された場合、この変数のレキシカルスコープは C ループ
(ループ本体と制御部) と完全に同じです。
X
=begin original
Besides the normal array index looping, C can lend itself
to many other interesting applications. Here's one that avoids the
problem you get into if you explicitly test for end-of-file on
an interactive file descriptor causing your program to appear to
hang.
X X X
=end original
通常の、配列に対する添え字付けのループのほかにも、C は他の
多くの興味深いアプリケーションのために借用することができます。
以下の例は、対話的なファイル記述子の終端を明示的に検査してしまうと
プログラムをハングアップしたように見えてしまう問題を回避するものです。
X X X
$on_a_tty = -t STDIN && -t STDOUT;
sub prompt { print "yes? " if $on_a_tty }
for ( prompt(); ; prompt() ) {
# do something
}
=begin original
Using C (or the operator form, C<< >>) as the
conditional of a C loop is shorthand for the following. This
behaviour is the same as a C loop conditional.
X X<< <> >>
=end original
C ループの条件として C (または演算子形式の C<< >>) を
使う場合、以下のように省略形が使えます。
この振る舞いは C ループ条件と同じです。
X X<< <> >>
for ( prompt(); defined( $_ = ); prompt() ) {
# do something
}
=head2 Foreach Loops
X X
(foreach ループ)
=begin original
The C loop iterates over a normal list value and sets the
variable VAR to be each element of the list in turn. If the variable
is preceded with the keyword C, then it is lexically scoped, and
is therefore visible only within the loop. Otherwise, the variable is
implicitly local to the loop and regains its former value upon exiting
the loop. If the variable was previously declared with C, it uses
that variable instead of the global one, but it's still localized to
the loop. This implicit localisation occurs I in a C
loop.
X X
=end original
C ループは 通常のリスト値に対しての繰り返しを行い、変数 VAR に
リストの要素を繰り返し一回に一つずつセットします。
変数の前に C というキーワードが置かれていた場合、その変数は
レキシカルスコープを持ち、したがってそれはループの中でのみ可視となります。
このキーワードがなければ、変数はループに対してローカルとなり、ループを
抜けた後で以前の値が再度取得されます。
変数が事前に C を使って宣言されていたならば、グローバルなものの
代わりにその変数を使いますが、それもループにローカルなものとなります。
この暗黙のローカル化は C の中で I 起きます。
X X
=begin original
The C