=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 serves mostly to separate tokens, unlike
languages like Python where it is an important part of the syntax,
or Fortran where it is immaterial.
=end original
Perl は B 言語です: 好きなように整形したりインデントしたり
できます。
空白が文法の重要な要素である Python や、意味のない Fortran のような言語と
異なり、空白はほとんどトークンの分割の役目です。
=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 scalar 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 を文字列や数値として扱おうとすると
未初期化値を指摘されます。
ええ、普通は。
次のような真偽値コンテキストなら:
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 variables such as:
=end original
(定義済みかどうかではなく、真かどうかを考慮するので)警告から免れます。
未定義の変数を操作する、C, C, C, C, C のような
演算子でも:
undef $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. All declarations are typically put at
the beginning or the end of the script. However, if you're using
lexically-scoped private variables created with C,
C, or 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,C, or 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
A bare declaration like that declares the function to be a list operator,
not a unary operator, so you have to be careful to use parentheses (or
C instead of C.) The C operator binds too tightly to use after
list operators; it becomes part of the last element. You can always use
parentheses around the list operators arguments to turn the list operator
back into something that behaves more like a function call. Alternatively,
you can use the prototype C to turn the subroutine into a unary
operator:
=end original
関数の宣言のような裸の宣言はリスト演算子のように働くのであり、
単項演算子としてではありません; ですから、かっこ (または C の代わりに
C) を使うことには注意してください。
C 演算子はリスト演算子の後ろに使うには束縛が強すぎます; 最後の要素の
一部になります。
リスト演算子の周りをかっこで囲むことでいつでもリスト演算子を
関数呼び出しのように振る舞わせるようにできます。
あるいは、サブルーチンを単項演算子に変えるためにプロトタイプ
C も使えます:
sub myname ($);
$me = myname $0 || die "can't get myname";
=begin original
That now parses as you'd expect, but you still ought to get in the habit of
using parentheses in that situation. For more on prototypes, see
L
=end original
これは予想した通りにパースしますが、それでもこのような場合にはかっこを使う
習慣を付けるべきです。
プロトタイプに関してさらなる情報は、L を参照してください。
=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. But put the semicolon in anyway if the
block takes up more than one line, because you may eventually add
another line. Note that there are operators like C, C, and
C that I like compound statements, but aren't--they're just
TERMs in an expression--and thus need an explicit termination when used
as the last item in a statement.
=end original
単純文となる唯一の種類は、その副作用のために評価される式です。
すべての単純文は、それがセミコロンを省略することのできるブロックの
最後にない限りは文を終端するためのセミコロンがなければなりません。
ブロックが二行以上に渡る場合には、とにかくセミコロンを付けてください;
なぜなら、別の行を追加する可能性があるからです。
C, C, C のように、一見複合文のように I けれども
そうではない--これらは単なる式における 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. Most Perl operators
that return true or false behave this way.
=end original
数値 0, 文字列 C と C, 空リスト C, C は全て真偽値
コンテキストでは偽となります。
その他の全ての値は真です。
真の値を C や C で否定すると、特殊な偽の値を返します。
これを文字列として評価すると C として扱われますが、数値として評価すると
0 として扱われます。
真または偽を返す、ほとんど Perl の演算子はこのように振る舞います。
=head2 Statement Modifiers
X 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
for LIST
foreach LIST
when EXPR
=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 (that is, 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" for 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 Perl4 C-SUBROUTINE statement), in
which case the block executes once before the conditional is
evaluated.
=end original
修飾子 C と C は、一般的な "C loop" の意味を
持っています(条件が最初に評価される)が、C-ブロック(もしくは Perl4 の
C-サブルーチン文)に適用されるときは例外で、
このときは条件が評価されるよりも前に、一度ブロックが実行されます。
=begin original
This is so that you can write loops like:
=end original
このため、次のようなループを記述することができます:
do {
$line = ;
...
} until !defined($line) || $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, C, or
C modified with a statement modifier conditional
or loop construct (for example, 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 C,C 文の振る舞いは B です。
C 変数の値は C かも知れませんし、以前に代入された値かも
知れませんし、その他の如何なる値の可能性もあります。
この値に依存してはいけません。
perl の将来のバージョンでは現在のバージョンとは何か違うかも知れません。
ここには厄介なものがいます。
X
=begin original
The C modifier is an experimental feature that first appeared in Perl
5.14. To use it, you should include a C declaration.
(Technically, it requires only the C feature, but that aspect of it
was not available before 5.14.) Operative only from within a C
loop or a C block, it executes the statement only if the smartmatch
C<< $_ ~~ I >> is true. If the statement executes, it is followed by
a C from inside a C and C from inside a C.
=end original
C 修飾子は Perl 5.14 で最初に現れた実験的機能です。
使うには、C 宣言を含めます。
(技術的には、C 機能だけが必要ですが、この観点では 5.14 より前では
利用できません。)
C ループか C ブロックの内側でのみ動作可能で、
スマートマッチング C<< $_ ~~ I >> が真の場合にのみ実行されます。
文が実行されると、C の内側からは C に、C の
内側からは C に引き続きます。
=begin original
Under the current implementation, the C loop can be
anywhere within the C modifier's dynamic scope, but must be
within the C block's lexical scope. This restricted may
be relaxed in a future release. See L below.
=end original
現在の実装では、C ループは C 修飾子の動的スコープの内側の
どこでも使えますが、C ブロックのレキシカルスコープの内側で
なければなりません。
この制限は将来のリリースで緩和されるかもしれません。
後述する L を参照してください。
=head2 Compound Statements
X 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 ...
if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK
unless (EXPR) BLOCK
unless (EXPR) BLOCK else BLOCK
unless (EXPR) BLOCK elsif (EXPR) BLOCK ...
unless (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK
given (EXPR) 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 for VAR (LIST) BLOCK
LABEL for VAR (LIST) BLOCK continue BLOCK
LABEL foreach (EXPR; EXPR; EXPR) BLOCK
LABEL foreach VAR (LIST) BLOCK
LABEL foreach VAR (LIST) BLOCK continue BLOCK
LABEL BLOCK
LABEL BLOCK continue BLOCK
PHASE BLOCK
=begin original
The experimental C statement is I; see
L"Switch Statements"> below for how to do so, and the attendant caveats.
=end original
実験的な C 文は I; そうするための
方法と、付随する問題点については後述する L"Switch Statements"> を
参照してください。
=begin original
Unlike in C and Pascal, in Perl these are all 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 とは異なり、Perl ではブロックを取るように
定義されていて文を取るのではありません。
つまり、中かっこは I です -- 曖昧な文が許されません。
中かっこなしの条件文を使いたいのであれば、いくつかのやり方があります。
以下の全ては同じことです:
if (!open(FOO)) { die "Can't open $FOO: $!" }
die "Can't open $FOO: $!" unless open(FOO);
open(FOO) || die "Can't open $FOO: $!";
open(FOO) ? () : 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. Like C, C can be followed
by C. C can even be followed by one or more C
statements, though you may want to think twice before using that particular
language construct, as everyone reading your code will have to think at least
twice before they can understand what's going on.
=end original
C 文は明解です。
ブロックは常に中かっこで区切られるので、C と C の対応が
曖昧になるようなことは決してありません。
C を 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文を通して継続されるときでも実行されます。
=begin original
When a block is preceding by a compilation phase keyword such as C,
C, C, C, or C, then the block will run only
during the corresponding phase of execution. See L for more details.
=end original
ブロックの前に C, C, C, C, C のような
コンパイルフェーズキーワードが前置されると、ブロックは対応する実行フェーズの
間にだけ実行されます。
さらなる詳細については L を参照してください。
=begin original
Extension modules can also hook into the Perl parser to define new
kinds of compound statements. These are introduced by a keyword which
the extension recognizes, and the syntax following the keyword is
defined entirely by the extension. If you are an implementor, see
L for the mechanism. If you are using such
a module, see the module's documentation for details of the syntax that
it defines.
=end original
エクステンションモジュールは新しい種類の複合文を定義するために
Perl パーサをフックできます。
これらはエクステンションが認識するキーワードで導入され、キーワードに
引き続く文法は完全にエクステンションで定義されます。
もしあなたが実装車なら、仕組みについては L を
参照してください。
あなたがそのようなモジュールを使うなら、定義されている文法の詳細については
そのモジュールの文書を参照してください。
=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 shorthand 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