perlfunc 5.32.0 と 5.36.0 の差分

1	1
2		=encoding eu~~c-jp~~
	2	=encoding utf8
3	3
4	4	=head1 NAME
5	5	X<function>
6	6
7	7	=begin original
8	8
9	9	perlfunc - Perl builtin functions
10	10
11	11	=end original
12	12
13	13	perlfunc - Perl 組み込み関数
14	14
15	15	=head1 DESCRIPTION
16	16
17	17	=begin original
18	18
19	19	The functions in this section can serve as terms in an expression.
20	20	They fall into two major categories: list operators and named unary
21	21	operators. These differ in their precedence relationship with a
22	22	following comma. (See the precedence table in L<perlop>.) List
23	23	operators take more than one argument, while unary operators can never
24	24	take more than one argument. Thus, a comma terminates the argument of
25	25	a unary operator, but merely separates the arguments of a list
26	26	operator. A unary operator generally provides scalar context to its
27	27	argument, while a list operator may provide either scalar or list
28	28	contexts for its arguments. If it does both, scalar arguments
29	29	come first and list argument follow, and there can only ever
30	30	be one such list argument. For instance,
31	31	L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST> has three scalar arguments
32	32	followed by a list, whereas L<C<gethostbyname>\|/gethostbyname NAME> has
33	33	four scalar arguments.
34	34
35	35	=end original
36	36
37	37	この節の関数は、式の中で項として使うことができます。
38	38	これらは、大きく二つに分けられます:
39	39	リスト演算子と名前付き単項演算子です。
40	40	これらの違いは、その後に出て来るコンマとの優先順位の関係にあります。
41	41	(L<perlop> の優先順位の表を参照してください。)
42	42	リスト演算子は 2 個以上の引数をとるのに対して、単項演算子が複数の引数を
43	43	とることはありません。
44	44	つまり、コンマは単項演算子の引数の終わりとなりますが、リスト演算子の
45	45	場合には、引数の区切りでしかありません。
46	46	単項演算子は一般に、引数に対してスカラコンテキストを与えるのに対して、
47	47	スカラ演算子の場合には、引数に対してスカラコンテキストを与える場合も、
48	48	リストコンテキストを与える場合もあります。
49	49	一つのリスト演算子が両方のコンテキストを与える場合には、スカラ引数が
50	50	いくつか並び、最後にリスト引数が一つ続きます;
51	51	そしてそのようなリスト引数は一つだけしかありません。
52	52	たとえば、L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST> は三つのスカラ引数に
53	53	一つのリスト引数が続きます;
54	54	一方 L<C<gethostbyname>\|/gethostbyname NAME> は四つのスカラ引数を持ちます。
55	55
56	56	=begin original
57	57
58	58	In the syntax descriptions that follow, list operators that expect a
59	59	list (and provide list context for elements of the list) are shown
60	60	with LIST as an argument. Such a list may consist of any combination
61	61	of scalar arguments or list values; the list values will be included
62	62	in the list as if each individual element were interpolated at that
63	63	point in the list, forming a longer single-dimensional list value.
64	64	Commas should separate literal elements of the LIST.
65	65
66	66	=end original
67	67
68	68	後に載せる構文記述では、リストをとり (そのリストの要素にリストコンテキストを
69	69	与える)リスト演算子は、引数として LIST をとるように書いています;
70	70	そのようなリストには、任意のスカラ引数の組み合わせやリスト値を
71	71	含めることができ、リスト値はリストの中に、個々の要素が展開されたように
72	72	埋め込まれます。
73	73	1 次元の長いリスト値が形成されることになります。
74	74	LIST のリテラルな要素は、コンマで区切られます。
75	75
76	76	=begin original
77	77
78	78	Any function in the list below may be used either with or without
79	79	parentheses around its arguments. (The syntax descriptions omit the
80	80	parentheses.) If you use parentheses, the simple but occasionally
81	81	surprising rule is this: It I<looks> like a function, therefore it I<is> a
82	82	function, and precedence doesn't matter. Otherwise it's a list
83	83	operator or unary operator, and precedence does matter. Whitespace
84	84	between the function and left parenthesis doesn't count, so sometimes
85	85	you need to be careful:
86	86
87	87	=end original
88	88
89	89	以下のリストの関数はすべて、引数の前後の括弧は省略可能となっています。
90	90	(構文記述では省略しています。)
91	91	括弧を使うときには、単純な、(しかし、ときには驚く結果となる規則が
92	92	適用できます:
93	93	I<関数に見える>ならば、I<それは関数>で、優先順位は関係ありません。
94	94	そう見えなければ、それはリスト演算子か単項演算子で、優先順位が関係します。
95	95	関数と開き括弧の間の空白は関係ありませんので、ときに
96	96	気を付けなければなりません:
97	97
98	98	print 1+2+4; # Prints 7.
99	99	print(1+2) + 4; # Prints 3.
100	100	print (1+2)+4; # Also prints 3!
101	101	print +(1+2)+4; # Prints 7.
102	102	print ((1+2)+4); # Prints 7.
103	103
104	104	=begin original
105	105
106	106	If you run Perl with the L<C<use warnings>\|warnings> pragma, it can warn
107	107	you about this. For example, the third line above produces:
108	108
109	109	=end original
110	110
111	111	Perl に L<C<use warnings>\|warnings> プラグマを付けて実行すれば、
112	112	こういったものには警告を出してくれます。
113	113	たとえば、上記の三つめは、以下のような警告が出ます:
114	114
115	115	print (...) interpreted as function at - line 1.
116	116	Useless use of integer addition in void context at - line 1.
117	117
118	118	=begin original
119	119
120	120	A few functions take no arguments at all, and therefore work as neither
121	121	unary nor list operators. These include such functions as
122	122	L<C<time>\|/time> and L<C<endpwent>\|/endpwent>. For example,
123	123	C<time+86_400> always means C<time() + 86_400>.
124	124
125	125	=end original
126	126
127	127	いくつかの関数は引数を全くとらないので、単項演算子としても
128	128	リスト演算子としても動作しません。
129	129	このような関数としては L<C<time>\|/time> や L<C<endpwent>\|/endpwent> が
130	130	あります。
131	131	例えば、C<time+86_400> は常に C<time() + 86_400> として扱われます。
132	132
133	133	=begin original
134	134
135	135	For functions that can be used in either a scalar or list context,
136	136	nonabortive failure is generally indicated in scalar context by
137	137	returning the undefined value, and in list context by returning the
138	138	empty list.
139	139
140	140	=end original
141	141
142	142	スカラコンテキストでも、リストコンテキストでも使える関数は、致命的でない
143	143	エラーを示すために、スカラコンテキストでは未定義値を返し、
144	144	リストコンテキストでは空リストを返します。
145	145
146	146	=begin original
147	147
148	148	Remember the following important rule: There is B<no rule> that relates
149	149	the behavior of an expression in list context to its behavior in scalar
150	150	context, or vice versa. It might do two totally different things.
151	151	Each operator and function decides which sort of value would be most
152	152	appropriate to return in scalar context. Some operators return the
153	153	length of the list that would have been returned in list context. Some
154	154	operators return the first value in the list. Some operators return the
155	155	last value in the list. Some operators return a count of successful
156	156	operations. In general, they do what you want, unless you want
157	157	consistency.
158	158	X<context>
159	159
160	160	=end original
161	161
162	162	以下に述べる重要なルールを忘れないで下さい: リストコンテキストでの
163	163	振る舞いとスカラコンテキストでの振る舞いの関係、あるいはその逆に
164	164	B<ルールはありません>。
165	165	2 つの全く異なったことがあります。
166	166	それぞれの演算子と関数は、スカラコンテキストでは、もっとも適切と
167	167	思われる値を返します。
168	168	リストコンテキストで返す時のリストの長さを返す演算子もあります。
169	169	リストの最初の値を返す演算子もあります。
170	170	リストの最後の値を返す演算子もあります。
171	171	成功した操作の数を返す演算子もあります。
172	172	一般的には、一貫性を求めない限り、こちらが求めることをします。
173	173	X<context>
174	174
175	175	=begin original
176	176
177	177	A named array in scalar context is quite different from what would at
178	178	first glance appear to be a list in scalar context. You can't get a list
179	179	like C<(1,2,3)> into being in scalar context, because the compiler knows
180	180	the context at compile time. It would generate the scalar comma operator
181	181	there, not the list concatenation version of the comma. That means it
182	182	was never a list to start with.
183	183
184	184	=end original
185	185
186	186	スカラコンテキストでの名前付き配列は、スカラコンテキストでのリストを
187	187	一目見たものとは全く違います。
188	188	コンパイラはコンパイル時にコンテキストを知っているので、
189	189	C<(1,2,3)> のようなリストをスカラコンテキストで得ることはできません。
190	190	これはスカラコンマ演算子を生成し、コンマのリスト結合版ではありません。
191	191	これは初めからリストであることはないことを意味します。
192	192
193	193	=begin original
194	194
195	195	In general, functions in Perl that serve as wrappers for system calls
196	196	("syscalls") of the same name (like L<chown(2)>, L<fork(2)>,
197	197	L<closedir(2)>, etc.) return true when they succeed and
198	198	L<C<undef>\|/undef EXPR> otherwise, as is usually mentioned in the
199	199	descriptions below. This is different from the C interfaces, which
200	200	return C<-1> on failure. Exceptions to this rule include
201	201	L<C<wait>\|/wait>, L<C<waitpid>\|/waitpid PID,FLAGS>, and
202	202	L<C<syscall>\|/syscall NUMBER, LIST>. System calls also set the special
203	203	L<C<$!>\|perlvar/$!> variable on failure. Other functions do not, except
204	204	accidentally.
205	205
206	206	=end original
207	207
208	208	一般的に、同じ名前のシステムコールのラッパーとして動作する Perl の関数
209	209	(L<chown(2)>, L<fork(2)>, L<closedir(2)> など)は、以下に述べるように、
210	210	成功時に真を返し、そうでなければ L<C<undef>\|/undef EXPR> を返します。
211	211	これは失敗時に C<-1> を返す C のインターフェースとは違います。
212	212	このルールの例外は L<C<wait>\|/wait>, L<C<waitpid>\|/waitpid PID,FLAGS>,
213	213	L<C<syscall>\|/syscall NUMBER, LIST> です。
214	214	システムコールは失敗時に特殊変数 L<C<$!>\|perlvar/$!> をセットします。
215	215	その他の関数は、事故を除いて、セットしません。
216	216
217	217	=begin original
218	218
219	219	Extension modules can also hook into the Perl parser to define new
220	220	kinds of keyword-headed expression. These may look like functions, but
221	221	may also look completely different. The syntax following the keyword
222	222	is defined entirely by the extension. If you are an implementor, see
223	223	L<perlapi/PL_keyword_plugin> for the mechanism. If you are using such
224	224	a module, see the module's documentation for details of the syntax that
225	225	it defines.
226	226
227	227	=end original
228	228
229	229	エクステンションモジュールは、新しい種類のキーワードが頭に付いた式を
230	230	定義するために Perl パーサをフックできます。
231	231	これらは関数のように見えるかもしれませんが、全く別物かもしれません。
232	232	キーワード以降の文法は完全にエクステンションによって定義されます。
233	233	もしあなたが実装者なら、この機構については L<perlapi/PL_keyword_plugin> を
234	234	参照してください。
235	235	もしあなたがそのようなモジュールを使っているなら、
236	236	定義されている文法の詳細についてはモジュールの文書を参照してください。
237	237
238	238	=head2 Perl Functions by Category
239	239	X<function>
240	240
241	241	(カテゴリ別の Perl 関数)
242	242
243	243	=begin original
244	244
245	245	Here are Perl's functions (including things that look like
246	246	functions, like some keywords and named operators)
247	247	arranged by category. Some functions appear in more
248	248	than one place. Any warnings, including those produced by
249	249	keywords, are described in L<perldiag> and L<warnings>.
250	250
251	251	=end original
252	252
253	253	以下に、カテゴリ別の関数(キーワードや名前付き演算子のような、
254	254	関数のように見えるものも含みます)を示します。
255	255	複数の場所に現れる関数もあります。
256	256	キーワードによって生成されるものを含む全ての警告は
257	257	L<perldiag> と L<warnings> に記述されています。
258	258
259	259	=over 4
260	260
261	261	=item Functions for SCALARs or strings
262	262	X<scalar> X<string> X<character>
263	263
264	264	(スカラや文字列のための関数)
265	265
266	266	=for Pod::Functions =String
267	267
268	268	L<C<chomp>\|/chomp VARIABLE>, L<C<chop>\|/chop VARIABLE>,
269	269	L<C<chr>\|/chr NUMBER>, L<C<crypt>\|/crypt PLAINTEXT,SALT>,
270	270	L<C<fc>\|/fc EXPR>, L<C<hex>\|/hex EXPR>,
271	271	L<C<index>\|/index STR,SUBSTR,POSITION>, L<C<lc>\|/lc EXPR>,
272	272	L<C<lcfirst>\|/lcfirst EXPR>, L<C<length>\|/length EXPR>,
273	273	L<C<oct>\|/oct EXPR>, L<C<ord>\|/ord EXPR>,
274	274	L<C<pack>\|/pack TEMPLATE,LIST>,
275	275	L<C<qE<sol>E<sol>>\|/qE<sol>STRINGE<sol>>,
276	276	L<C<qqE<sol>E<sol>>\|/qqE<sol>STRINGE<sol>>, L<C<reverse>\|/reverse LIST>,
277	277	L<C<rindex>\|/rindex STR,SUBSTR,POSITION>,
278	278	L<C<sprintf>\|/sprintf FORMAT, LIST>,
279	279	L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT>,
280	280	L<C<trE<sol>E<sol>E<sol>>\|/trE<sol>E<sol>E<sol>>, L<C<uc>\|/uc EXPR>,
281	281	L<C<ucfirst>\|/ucfirst EXPR>,
282	282	L<C<yE<sol>E<sol>E<sol>>\|/yE<sol>E<sol>E<sol>>
283	283
284	284	=begin original
285	285
286	286	L<C<fc>\|/fc EXPR> is available only if the
287	287	L<C<"fc"> feature\|feature/The 'fc' feature> is enabled or if it is
288	288	prefixed with C<CORE::>. The
289	289	L<C<"fc"> feature\|feature/The 'fc' feature> is enabled automatically
290	290	with a C<use v5.16> (or higher) declaration in the current scope.
291	291
292	292	=end original
293	293
294	294	L<C<fc>\|/fc EXPR> は L<C<"fc"> 機能\|feature/The 'fc' feature> が有効か
295	295	C<CORE::> が前置されたときにのみ利用可能です。
296	296	L<C<"fc"> 機能\|feature/The 'fc' feature> は現在のスコープで
297	297	C<use v5.16> (またはそれ以上) が宣言されると自動的に有効になります。
298	298
299	299	=item Regular expressions and pattern matching
300	300	X<regular expression> X<regex> X<regexp>
301	301
302	302	(正規表現とパターンマッチング)
303	303
304	304	=for Pod::Functions =Regexp
305	305
306	306	L<C<mE<sol>E<sol>>\|/mE<sol>E<sol>>, L<C<pos>\|/pos SCALAR>,
307	307	L<C<qrE<sol>E<sol>>\|/qrE<sol>STRINGE<sol>>,
308	308	L<C<quotemeta>\|/quotemeta EXPR>,
309	309	L<C<sE<sol>E<sol>E<sol>>\|/sE<sol>E<sol>E<sol>>,
310	310	L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT>,
311	311	L<C<study>\|/study SCALAR>
312	312
313	313	=item Numeric functions
314	314	X<numeric> X<number> X<trigonometric> X<trigonometry>
315	315
316	316	(数値関数)
317	317
318	318	=for Pod::Functions =Math
319	319
320	320	L<C<abs>\|/abs VALUE>, L<C<atan2>\|/atan2 Y,X>, L<C<cos>\|/cos EXPR>,
321	321	L<C<exp>\|/exp EXPR>, L<C<hex>\|/hex EXPR>, L<C<int>\|/int EXPR>,
322	322	L<C<log>\|/log EXPR>, L<C<oct>\|/oct EXPR>, L<C<rand>\|/rand EXPR>,
323	323	L<C<sin>\|/sin EXPR>, L<C<sqrt>\|/sqrt EXPR>, L<C<srand>\|/srand EXPR>
324	324
325	325	=item Functions for real @ARRAYs
326	326	X<array>
327	327
328	328	(実配列のための関数)
329	329
330	330	=for Pod::Functions =ARRAY
331	331
332	332	L<C<each>\|/each HASH>, L<C<keys>\|/keys HASH>, L<C<pop>\|/pop ARRAY>,
333	333	L<C<push>\|/push ARRAY,LIST>, L<C<shift>\|/shift ARRAY>,
334	334	L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST>,
335	335	L<C<unshift>\|/unshift ARRAY,LIST>, L<C<values>\|/values HASH>
336	336
337	337	=item Functions for list data
338	338	X<list>
339	339
340	340	(リストデータのための関数)
341	341
342	342	=for Pod::Functions =LIST
343	343
344	344	L<C<grep>\|/grep BLOCK LIST>, L<C<join>\|/join EXPR,LIST>,
345	345	L<C<map>\|/map BLOCK LIST>, L<C<qwE<sol>E<sol>>\|/qwE<sol>STRINGE<sol>>,
346	346	L<C<reverse>\|/reverse LIST>, L<C<sort>\|/sort SUBNAME LIST>,
347	347	L<C<unpack>\|/unpack TEMPLATE,EXPR>
348	348
349	349	=item Functions for real %HASHes
350	350	X<hash>
351	351
352	352	(実ハッシュのための関数)
353	353
354	354	=for Pod::Functions =HASH
355	355
356	356	L<C<delete>\|/delete EXPR>, L<C<each>\|/each HASH>,
357	357	L<C<exists>\|/exists EXPR>, L<C<keys>\|/keys HASH>,
358	358	L<C<values>\|/values HASH>
359	359
360	360	=item Input and output functions
361	361	X<I/O> X<input> X<output> X<dbm>
362	362
363	363	(入出力関数)
364	364
365	365	=for Pod::Functions =I/O
366	366
367	367	L<C<binmode>\|/binmode FILEHANDLE, LAYER>, L<C<close>\|/close FILEHANDLE>,
368	368	L<C<closedir>\|/closedir DIRHANDLE>, L<C<dbmclose>\|/dbmclose HASH>,
369	369	L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK>, L<C<die>\|/die LIST>,
370	370	L<C<eof>\|/eof FILEHANDLE>, L<C<fileno>\|/fileno FILEHANDLE>,
371	371	L<C<flock>\|/flock FILEHANDLE,OPERATION>, L<C<format>\|/format>,
372	372	L<C<getc>\|/getc FILEHANDLE>, L<C<print>\|/print FILEHANDLE LIST>,
373	373	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>,
374	374	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>,
375	375	L<C<readdir>\|/readdir DIRHANDLE>, L<C<readline>\|/readline EXPR>,
376	376	L<C<rewinddir>\|/rewinddir DIRHANDLE>, L<C<say>\|/say FILEHANDLE LIST>,
377	377	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
378	378	L<C<seekdir>\|/seekdir DIRHANDLE,POS>,
379	379	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT>,
380	380	L<C<syscall>\|/syscall NUMBER, LIST>,
381	381	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
382	382	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE>,
383	383	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>,
384	384	L<C<tell>\|/tell FILEHANDLE>, L<C<telldir>\|/telldir DIRHANDLE>,
385	385	L<C<truncate>\|/truncate FILEHANDLE,LENGTH>, L<C<warn>\|/warn LIST>,
386	386	L<C<write>\|/write FILEHANDLE>
387	387
388	388	=begin original
389	389
390	390	L<C<say>\|/say FILEHANDLE LIST> is available only if the
391	391	L<C<"say"> feature\|feature/The 'say' feature> is enabled or if it is
392	392	prefixed with C<CORE::>. The
393	393	L<C<"say"> feature\|feature/The 'say' feature> is enabled automatically
394	394	with a C<use v5.10> (or higher) declaration in the current scope.
395	395
396	396	=end original
397	397
398	398	L<C<say>\|/say FILEHANDLE LIST> は
399	399	L<C<"say"> 機能\|feature/The 'say' feature> が有効か C<CORE::> が
400	400	前置されたときにのみ利用可能です。
401	401	L<C<"say"> 機能\|feature/The 'say' feature> は現在のスコープで
402	402	C<use v5.10> (またはそれ以上) が宣言されると自動的に有効になります。
403	403
404	404	=item Functions for fixed-length data or records
405	405
406	406	(固定長データやレコードのための関数)
407	407
408	408	=for Pod::Functions =Binary
409	409
410	410	L<C<pack>\|/pack TEMPLATE,LIST>,
411	411	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>,
412	412	L<C<syscall>\|/syscall NUMBER, LIST>,
413	413	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
414	414	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE>,
415	415	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>,
416	416	L<C<unpack>\|/unpack TEMPLATE,EXPR>, L<C<vec>\|/vec EXPR,OFFSET,BITS>
417	417
418	418	=item Functions for filehandles, files, or directories
419	419	X<file> X<filehandle> X<directory> X<pipe> X<link> X<symlink>
420	420
421	421	(ファイルハンドル、ファイル、ディレクトリのための関数)
422	422
423	423	=for Pod::Functions =File
424	424
425	425	L<C<-I<X>>\|/-X FILEHANDLE>, L<C<chdir>\|/chdir EXPR>,
426	426	L<C<chmod>\|/chmod LIST>, L<C<chown>\|/chown LIST>,
427	427	L<C<chroot>\|/chroot FILENAME>,
428	428	L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR>, L<C<glob>\|/glob EXPR>,
429	429	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR>,
430	430	L<C<link>\|/link OLDFILE,NEWFILE>, L<C<lstat>\|/lstat FILEHANDLE>,
431	431	L<C<mkdir>\|/mkdir FILENAME,MODE>, L<C<open>\|/open FILEHANDLE,MODE,EXPR>,
432	432	L<C<opendir>\|/opendir DIRHANDLE,EXPR>, L<C<readlink>\|/readlink EXPR>,
433	433	L<C<rename>\|/rename OLDNAME,NEWNAME>, L<C<rmdir>\|/rmdir FILENAME>,
434	434	L<C<select>\|/select FILEHANDLE>, L<C<stat>\|/stat FILEHANDLE>,
435	435	L<C<symlink>\|/symlink OLDFILE,NEWFILE>,
436	436	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE>,
437	437	L<C<umask>\|/umask EXPR>, L<C<unlink>\|/unlink LIST>,
438	438	L<C<utime>\|/utime LIST>
439	439
440	440	=item Keywords related to the control flow of your Perl program
441	441	X<control flow>
442	442
443	443	(プログラムの流れを制御することに関連するキーワード)
444	444
445	445	=for Pod::Functions =Flow
446	446
447	447	L<C<break>\|/break>, L<C<caller>\|/caller EXPR>,
448	448	L<C<continue>\|/continue BLOCK>, L<C<die>\|/die LIST>, L<C<do>\|/do BLOCK>,
449	449	L<C<dump>\|/dump LABEL>, L<C<eval>\|/eval EXPR>,
450	450	L<C<evalbytes>\|/evalbytes EXPR>, L<C<exit>\|/exit EXPR>,
451	451	L<C<__FILE__>\|/__FILE__>, L<C<goto>\|/goto LABEL>,
452	452	L<C<last>\|/last LABEL>, L<C<__LINE__>\|/__LINE__>,
453	453	L<C<next>\|/next LABEL>, L<C<__PACKAGE__>\|/__PACKAGE__>,
454	454	L<C<redo>\|/redo LABEL>, L<C<return>\|/return EXPR>,
455	455	L<C<sub>\|/sub NAME BLOCK>, L<C<__SUB__>\|/__SUB__>,
456	456	L<C<wantarray>\|/wantarray>
457	457
458	458	=begin original
459	459
460	460	L<C<break>\|/break> is available only if you enable the experimental
461	461	L<C<"switch"> feature\|feature/The 'switch' feature> or use the C<CORE::>
462	462	prefix. The L<C<"switch"> feature\|feature/The 'switch' feature> also
463	463	enables the C<default>, C<given> and C<when> statements, which are
464	464	documented in L<perlsyn/"Switch Statements">.
465	465	The L<C<"switch"> feature\|feature/The 'switch' feature> is enabled
466	466	automatically with a C<use v5.10> (or higher) declaration in the current
467	467	scope. In Perl v5.14 and earlier, L<C<continue>\|/continue BLOCK>
468	468	required the L<C<"switch"> feature\|feature/The 'switch' feature>, like
469	469	the other keywords.
470	470
471	471	=end original
472	472
473	473	L<C<break>\|/break> は、実験的な
474	474	L<C<"switch"> 機能\|feature/The 'switch' feature> が有効か C<CORE::> 接頭辞を
475	475	使ったときにのみ利用可能です。
476	476	L<C<"switch"> 機能\|feature/The 'switch' feature> は、
477	477	L<perlsyn/"Switch Statements"> で文書化されている
478	478	C<default>, C<given>, C<when> 文も有効にします。
479	479	L<C<"switch"> 機能\|feature/The 'switch' feature> は、現在のスコープで
480	480	C<use v5.10> (またはそれ以上) 宣言があると自動的に有効になります。
481	481	Perl v5.14 以前では、L<C<continue>\|/continue BLOCK> は他のキーワードと同様に
482	482	L<C<"switch"> 機能\|feature/The 'switch' feature> が必要です。
483	483
484	484	=begin original
485	485
486	486	L<C<evalbytes>\|/evalbytes EXPR> is only available with the
487	487	L<C<"evalbytes"> feature\|feature/The 'unicode_eval' and 'evalbytes' features>
488	488	(see L<feature>) or if prefixed with C<CORE::>. L<C<__SUB__>\|/__SUB__>
489	489	is only available with the
490	490	L<C<"current_sub"> feature\|feature/The 'current_sub' feature> or if
491	491	prefixed with C<CORE::>. Both the
492	492	L<C<"evalbytes">\|feature/The 'unicode_eval' and 'evalbytes' features>
493	493	and L<C<"current_sub">\|feature/The 'current_sub' feature> features are
494	494	enabled automatically with a C<use v5.16> (or higher) declaration in the
495	495	current scope.
496	496
497	497	=end original
498	498
499	499	L<C<evalbytes>\|/evalbytes EXPR> は
500	500	L<C<"evalbytes"> 機能\|feature/The 'unicode_eval' and 'evalbytes' features>
501	501	(L<feature> 参照) が有効か C<CORE::> が前置されたときにのみ利用可能です。
502	502	L<C<__SUB__>\|/__SUB__> は
503	503	L<C<"current_sub"> 機能\|feature/The 'current_sub' feature> が有効か
504	504	C<CORE::> が前置されたときにのみ利用可能です。
505	505	L<C<"evalbytes">\|feature/The 'unicode_eval' and 'evalbytes' features> と
506	506	L<C<"current_sub">\|feature/The 'current_sub' feature> の両方の機能は
507	507	現在のスコープで
508	508	C<use v5.16> (またはそれ以上) が宣言されると自動的に有効になります。
509	509
510	510	=item Keywords related to scoping
511	511
512	512	(スコープに関するキーワード)
513	513
514	514	=for Pod::Functions =Namespace
515	515
516	516	L<C<caller>\|/caller EXPR>, L<C<import>\|/import LIST>,
517	517	L<C<local>\|/local EXPR>, L<C<my>\|/my VARLIST>, L<C<our>\|/our VARLIST>,
518	518	L<C<package>\|/package NAMESPACE>, L<C<state>\|/state VARLIST>,
519	519	L<C<use>\|/use Module VERSION LIST>
520	520
521	521	=begin original
522	522
523	523	L<C<state>\|/state VARLIST> is available only if the
524	524	L<C<"state"> feature\|feature/The 'state' feature> is enabled or if it is
525	525	prefixed with C<CORE::>. The
526	526	L<C<"state"> feature\|feature/The 'state' feature> is enabled
527	527	automatically with a C<use v5.10> (or higher) declaration in the current
528	528	scope.
529	529
530	530	=end original
531	531
532	532	L<C<state>\|/state VARLIST> は
533	533	L<C<"state"> 機能\|feature/The 'state' feature> が有効か C<CORE::> を
534	534	前置した場合にのみ利用可能です。
535	535	L<C<"state"> 機能\|feature/The 'state' feature> は現在のスコープで
536	536	C<use v5.10> (またはそれ以上) を宣言した場合自動的に有効になります。
537	537
538	538	=item Miscellaneous functions
539	539
540	540	(さまざまな関数)
541	541
542	542	=for Pod::Functions =Misc
543	543
544	544	L<C<defined>\|/defined EXPR>, L<C<formline>\|/formline PICTURE,LIST>,
545	545	L<C<lock>\|/lock THING>, L<C<prototype>\|/prototype FUNCTION>,
546	546	L<C<reset>\|/reset EXPR>, L<C<scalar>\|/scalar EXPR>,
547	547	L<C<undef>\|/undef EXPR>
548	548
549	549	=item Functions for processes and process groups
550	550	X<process> X<pid> X<process id>
551	551
552	552	(プロセスとプロセスグループのための関数)
553	553
554	554	=for Pod::Functions =Process
555	555
556	556	L<C<alarm>\|/alarm SECONDS>, L<C<exec>\|/exec LIST>, L<C<fork>\|/fork>,
557	557	L<C<getpgrp>\|/getpgrp PID>, L<C<getppid>\|/getppid>,
558	558	L<C<getpriority>\|/getpriority WHICH,WHO>, L<C<kill>\|/kill SIGNAL, LIST>,
559	559	L<C<pipe>\|/pipe READHANDLE,WRITEHANDLE>,
560	560	L<C<qxE<sol>E<sol>>\|/qxE<sol>STRINGE<sol>>,
561	561	L<C<readpipe>\|/readpipe EXPR>, L<C<setpgrp>\|/setpgrp PID,PGRP>,
562	562	L<C<setpriority>\|/setpriority WHICH,WHO,PRIORITY>,
563	563	L<C<sleep>\|/sleep EXPR>, L<C<system>\|/system LIST>, L<C<times>\|/times>,
564	564	L<C<wait>\|/wait>, L<C<waitpid>\|/waitpid PID,FLAGS>
565	565
566	566	=item Keywords related to Perl modules
567	567	X<module>
568	568
569	569	(Perl モジュールに関するキーワード)
570	570
571	571	=for Pod::Functions =Modules
572	572
573	573	L<C<do>\|/do EXPR>, L<C<import>\|/import LIST>,
574	574	L<C<no>\|/no MODULE VERSION LIST>, L<C<package>\|/package NAMESPACE>,
575	575	L<C<require>\|/require VERSION>, L<C<use>\|/use Module VERSION LIST>
576	576
577	577	=item Keywords related to classes and object-orientation
578	578	X<object> X<class> X<package>
579	579
580	580	(クラスとオブジェクト指向に関するキーワード)
581	581
582	582	=for Pod::Functions =Objects
583	583
584	584	L<C<bless>\|/bless REF,CLASSNAME>, L<C<dbmclose>\|/dbmclose HASH>,
585	585	L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK>,
586	586	L<C<package>\|/package NAMESPACE>, L<C<ref>\|/ref EXPR>,
587	587	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST>, L<C<tied>\|/tied VARIABLE>,
588	588	L<C<untie>\|/untie VARIABLE>, L<C<use>\|/use Module VERSION LIST>
589	589
590	590	=item Low-level socket functions
591	591	X<socket> X<sock>
592	592
593	593	(低レベルソケット関数)
594	594
595	595	=for Pod::Functions =Socket
596	596
597	597	L<C<accept>\|/accept NEWSOCKET,GENERICSOCKET>,
598	598	L<C<bind>\|/bind SOCKET,NAME>, L<C<connect>\|/connect SOCKET,NAME>,
599	599	L<C<getpeername>\|/getpeername SOCKET>,
600	600	L<C<getsockname>\|/getsockname SOCKET>,
601	601	L<C<getsockopt>\|/getsockopt SOCKET,LEVEL,OPTNAME>,
602	602	L<C<listen>\|/listen SOCKET,QUEUESIZE>,
603	603	L<C<recv>\|/recv SOCKET,SCALAR,LENGTH,FLAGS>,
604	604	L<C<send>\|/send SOCKET,MSG,FLAGS,TO>,
605	605	L<C<setsockopt>\|/setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL>,
606	606	L<C<shutdown>\|/shutdown SOCKET,HOW>,
607	607	L<C<socket>\|/socket SOCKET,DOMAIN,TYPE,PROTOCOL>,
608	608	L<C<socketpair>\|/socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL>
609	609
610	610	=item System V interprocess communication functions
611	611	X<IPC> X<System V> X<semaphore> X<shared memory> X<memory> X<message>
612	612
613	613	(System V プロセス間通信関数)
614	614
615	615	=for Pod::Functions =SysV
616	616
617	617	L<C<msgctl>\|/msgctl ID,CMD,ARG>, L<C<msgget>\|/msgget KEY,FLAGS>,
618	618	L<C<msgrcv>\|/msgrcv ID,VAR,SIZE,TYPE,FLAGS>,
619	619	L<C<msgsnd>\|/msgsnd ID,MSG,FLAGS>,
620	620	L<C<semctl>\|/semctl ID,SEMNUM,CMD,ARG>,
621	621	L<C<semget>\|/semget KEY,NSEMS,FLAGS>, L<C<semop>\|/semop KEY,OPSTRING>,
622	622	L<C<shmctl>\|/shmctl ID,CMD,ARG>, L<C<shmget>\|/shmget KEY,SIZE,FLAGS>,
623	623	L<C<shmread>\|/shmread ID,VAR,POS,SIZE>,
624	624	L<C<shmwrite>\|/shmwrite ID,STRING,POS,SIZE>
625	625
626	626	=item Fetching user and group info
627	627	X<user> X<group> X<password> X<uid> X<gid> X<passwd> X</etc/passwd>
628	628
629	629	(ユーザーとグループの情報取得)
630	630
631	631	=for Pod::Functions =User
632	632
633	633	L<C<endgrent>\|/endgrent>, L<C<endhostent>\|/endhostent>,
634	634	L<C<endnetent>\|/endnetent>, L<C<endpwent>\|/endpwent>,
635	635	L<C<getgrent>\|/getgrent>, L<C<getgrgid>\|/getgrgid GID>,
636	636	L<C<getgrnam>\|/getgrnam NAME>, L<C<getlogin>\|/getlogin>,
637	637	L<C<getpwent>\|/getpwent>, L<C<getpwnam>\|/getpwnam NAME>,
638	638	L<C<getpwuid>\|/getpwuid UID>, L<C<setgrent>\|/setgrent>,
639	639	L<C<setpwent>\|/setpwent>
640	640
641	641	=item Fetching network info
642	642	X<network> X<protocol> X<host> X<hostname> X<IP> X<address> X<service>
643	643
644	644	(ネットワーク情報取得)
645	645
646	646	=for Pod::Functions =Network
647	647
648	648	L<C<endprotoent>\|/endprotoent>, L<C<endservent>\|/endservent>,
649	649	L<C<gethostbyaddr>\|/gethostbyaddr ADDR,ADDRTYPE>,
650	650	L<C<gethostbyname>\|/gethostbyname NAME>, L<C<gethostent>\|/gethostent>,
651	651	L<C<getnetbyaddr>\|/getnetbyaddr ADDR,ADDRTYPE>,
652	652	L<C<getnetbyname>\|/getnetbyname NAME>, L<C<getnetent>\|/getnetent>,
653	653	L<C<getprotobyname>\|/getprotobyname NAME>,
654	654	L<C<getprotobynumber>\|/getprotobynumber NUMBER>,
655	655	L<C<getprotoent>\|/getprotoent>,
656	656	L<C<getservbyname>\|/getservbyname NAME,PROTO>,
657	657	L<C<getservbyport>\|/getservbyport PORT,PROTO>,
658	658	L<C<getservent>\|/getservent>, L<C<sethostent>\|/sethostent STAYOPEN>,
659	659	L<C<setnetent>\|/setnetent STAYOPEN>,
660	660	L<C<setprotoent>\|/setprotoent STAYOPEN>,
661	661	L<C<setservent>\|/setservent STAYOPEN>
662	662
663	663	=item Time-related functions
664	664	X<time> X<date>
665	665
666	666	(時刻に関する関数)
667	667
668	668	=for Pod::Functions =Time
669	669
670	670	L<C<gmtime>\|/gmtime EXPR>, L<C<localtime>\|/localtime EXPR>,
671	671	L<C<time>\|/time>, L<C<times>\|/times>
672	672
673	673	=item Non-function keywords
674	674
675	675	=for Pod::Functions =!Non-functions
676	676
677		C<and>, ~~C<AUTOLOAD>, C<BEGIN>, C<CHECK>, C<cmp>, C<CORE>, C<__DATA__>,~~
	677	C<and>,
678		C<~~default>, C<DES~~TRO~~Y>, C<else>, C<elseif>, C<elsif>, C<EN~~D~~>, C<__END__~~>,
	678	C<AUTOLOAD>,
679		C<~~eq>, C<for>, C<foreach>, C<ge>, C<given>, C<gt>, C<if>, C<~~IN~~IT>, C<le~~>,
	679	C<BEGIN>,
680		C<lt~~>, C<ne>, C<not>, C<or>, C<UNITCHECK>, C<unless>, C<until>, C<w~~hen>,
	680	C<catch>,
681		C<~~while>,~~ C~~<x>,~~ C~~<xor~~>
	681	C<CHECK>,
	682	C<cmp>,
	683	C<CORE>,
	684	C<__DATA__>,
	685	C<default>,
	686	C<defer>,
	687	C<DESTROY>,
	688	C<else>,
	689	C<elseif>,
	690	C<elsif>,
	691	C<END>,
	692	C<__END__>,
	693	C<eq>,
	694	C<finally>,
	695	C<for>,
	696	C<foreach>,
	697	C<ge>,
	698	C<given>,
	699	C<gt>,
	700	C<if>,
	701	C<INIT>,
	702	C<isa>,
	703	C<le>,
	704	C<lt>,
	705	C<ne>,
	706	C<not>,
	707	C<or>,
	708	C<try>,
	709	C<UNITCHECK>,
	710	C<unless>,
	711	C<until>,
	712	C<when>,
	713	C<while>,
	714	C<x>,
	715	C<xor>
682	716
683	717	=back
684	718
685	719	=head2 Portability
686	720	X<portability> X<Unix> X<portable>
687	721
688	722	(移植性)
689	723
690	724	=begin original
691	725
692	726	Perl was born in Unix and can therefore access all common Unix
693	727	system calls. In non-Unix environments, the functionality of some
694	728	Unix system calls may not be available or details of the available
695	729	functionality may differ slightly. The Perl functions affected
696	730	by this are:
697	731
698	732	=end original
699	733
700	734	Perl は Unix 環境で生まれたので、全ての共通する Unix システムコールに
701	735	アクセスします。
702	736	非 Unix 環境では、いくつかの Unix システムコールの機能が使えなかったり、
703	737	使える機能の詳細が多少異なったりします。
704	738	これによる影響を受ける Perl 関数は以下のものです:
705	739
706	740	L<C<-I<X>>\|/-X FILEHANDLE>, L<C<binmode>\|/binmode FILEHANDLE, LAYER>,
707	741	L<C<chmod>\|/chmod LIST>, L<C<chown>\|/chown LIST>,
708	742	L<C<chroot>\|/chroot FILENAME>, L<C<crypt>\|/crypt PLAINTEXT,SALT>,
709	743	L<C<dbmclose>\|/dbmclose HASH>, L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK>,
710	744	L<C<dump>\|/dump LABEL>, L<C<endgrent>\|/endgrent>,
711	745	L<C<endhostent>\|/endhostent>, L<C<endnetent>\|/endnetent>,
712	746	L<C<endprotoent>\|/endprotoent>, L<C<endpwent>\|/endpwent>,
713	747	L<C<endservent>\|/endservent>, L<C<exec>\|/exec LIST>,
714	748	L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR>,
715	749	L<C<flock>\|/flock FILEHANDLE,OPERATION>, L<C<fork>\|/fork>,
716	750	L<C<getgrent>\|/getgrent>, L<C<getgrgid>\|/getgrgid GID>,
717	751	L<C<gethostbyname>\|/gethostbyname NAME>, L<C<gethostent>\|/gethostent>,
718	752	L<C<getlogin>\|/getlogin>,
719	753	L<C<getnetbyaddr>\|/getnetbyaddr ADDR,ADDRTYPE>,
720	754	L<C<getnetbyname>\|/getnetbyname NAME>, L<C<getnetent>\|/getnetent>,
721	755	L<C<getppid>\|/getppid>, L<C<getpgrp>\|/getpgrp PID>,
722	756	L<C<getpriority>\|/getpriority WHICH,WHO>,
723	757	L<C<getprotobynumber>\|/getprotobynumber NUMBER>,
724	758	L<C<getprotoent>\|/getprotoent>, L<C<getpwent>\|/getpwent>,
725	759	L<C<getpwnam>\|/getpwnam NAME>, L<C<getpwuid>\|/getpwuid UID>,
726	760	L<C<getservbyport>\|/getservbyport PORT,PROTO>,
727	761	L<C<getservent>\|/getservent>,
728	762	L<C<getsockopt>\|/getsockopt SOCKET,LEVEL,OPTNAME>,
729	763	L<C<glob>\|/glob EXPR>, L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR>,
730	764	L<C<kill>\|/kill SIGNAL, LIST>, L<C<link>\|/link OLDFILE,NEWFILE>,
731	765	L<C<lstat>\|/lstat FILEHANDLE>, L<C<msgctl>\|/msgctl ID,CMD,ARG>,
732	766	L<C<msgget>\|/msgget KEY,FLAGS>,
733	767	L<C<msgrcv>\|/msgrcv ID,VAR,SIZE,TYPE,FLAGS>,
734	768	L<C<msgsnd>\|/msgsnd ID,MSG,FLAGS>, L<C<open>\|/open FILEHANDLE,MODE,EXPR>,
735	769	L<C<pipe>\|/pipe READHANDLE,WRITEHANDLE>, L<C<readlink>\|/readlink EXPR>,
736	770	L<C<rename>\|/rename OLDNAME,NEWNAME>,
737	771	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT>,
738	772	L<C<semctl>\|/semctl ID,SEMNUM,CMD,ARG>,
739	773	L<C<semget>\|/semget KEY,NSEMS,FLAGS>, L<C<semop>\|/semop KEY,OPSTRING>,
740	774	L<C<setgrent>\|/setgrent>, L<C<sethostent>\|/sethostent STAYOPEN>,
741	775	L<C<setnetent>\|/setnetent STAYOPEN>, L<C<setpgrp>\|/setpgrp PID,PGRP>,
742	776	L<C<setpriority>\|/setpriority WHICH,WHO,PRIORITY>,
743	777	L<C<setprotoent>\|/setprotoent STAYOPEN>, L<C<setpwent>\|/setpwent>,
744	778	L<C<setservent>\|/setservent STAYOPEN>,
745	779	L<C<setsockopt>\|/setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL>,
746	780	L<C<shmctl>\|/shmctl ID,CMD,ARG>, L<C<shmget>\|/shmget KEY,SIZE,FLAGS>,
747	781	L<C<shmread>\|/shmread ID,VAR,POS,SIZE>,
748	782	L<C<shmwrite>\|/shmwrite ID,STRING,POS,SIZE>,
749	783	L<C<socket>\|/socket SOCKET,DOMAIN,TYPE,PROTOCOL>,
750	784	L<C<socketpair>\|/socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL>,
751	785	L<C<stat>\|/stat FILEHANDLE>, L<C<symlink>\|/symlink OLDFILE,NEWFILE>,
752	786	L<C<syscall>\|/syscall NUMBER, LIST>,
753	787	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE>,
754	788	L<C<system>\|/system LIST>, L<C<times>\|/times>,
755	789	L<C<truncate>\|/truncate FILEHANDLE,LENGTH>, L<C<umask>\|/umask EXPR>,
756	790	L<C<unlink>\|/unlink LIST>, L<C<utime>\|/utime LIST>, L<C<wait>\|/wait>,
757	791	L<C<waitpid>\|/waitpid PID,FLAGS>
758	792
759	793	=begin original
760	794
761	795	For more information about the portability of these functions, see
762	796	L<perlport> and other available platform-specific documentation.
763	797
764	798	=end original
765	799
766	800	これらの関数の移植性に関するさらなる情報については、
767	801	L<perlport> とその他のプラットホーム固有のドキュメントを参照してください。
768	802
769	803	=head2 Alphabetical Listing of Perl Functions
770	804
771	805	=over
772	806
773	807	=item -X FILEHANDLE
774	808	X<-r>X<-w>X<-x>X<-o>X<-R>X<-W>X<-X>X<-O>X<-e>X<-z>X<-s>X<-f>X<-d>X<-l>X<-p>
775	809	X<-S>X<-b>X<-c>X<-t>X<-u>X<-g>X<-k>X<-T>X<-B>X<-M>X<-A>X<-C>
776	810
777	811	=item -X EXPR
778	812
779	813	=item -X DIRHANDLE
780	814
781	815	=item -X
782	816
783	817	=for Pod::Functions a file test (-r, -x, etc)
784	818
785	819	=begin original
786	820
787	821	A file test, where X is one of the letters listed below. This unary
788	822	operator takes one argument, either a filename, a filehandle, or a dirhandle,
789	823	and tests the associated file to see if something is true about it. If the
790	824	argument is omitted, tests L<C<$_>\|perlvar/$_>, except for C<-t>, which
791	825	tests STDIN. Unless otherwise documented, it returns C<1> for true and
792	826	C<''> for false. If the file doesn't exist or can't be examined, it
793	827	returns L<C<undef>\|/undef EXPR> and sets L<C<$!>\|perlvar/$!> (errno).
794	828	With the exception of the C<-l> test they all follow symbolic links
795	829	because they use C<stat()> and not C<lstat()> (so dangling symlinks can't
796	830	be examined and will therefore report failure).
797	831
798	832	=end original
799	833
800	834	X は以下にあげる文字で、ファイルテストを行ないます。
801	835	この単項演算子は、ファイル名かファイルハンドルを唯一の引数として動作し、
802	836	「あること」について真であるか否かを判定した結果を返します。
803	837	引数が省略されると、C<-t> では STDIN を調べますが、その他は
804	838	L<C<$_>\|perlvar/$_> を調べます。
805	839	特に記述されていなければ、真として C<1> を返し、偽として C<''> を返します。
806	840	ファイルが存在しないか、テスト出来なければ、L<C<undef>\|/undef EXPR> を返し、
807	841	L<C<$!>\|perlvar/$!> (errno) を設定します。
808	842	C<-l> テストを例外として、これら全てはシンボリックリンクに従います;
809	843	C<lstat()> ではなく C<stat()> を使っているからです
810	844	(従って壊れたシンボリックリンクは検査されず、失敗が報告されます)。
811	845
812	846	=begin original
813	847
814	848	Despite the funny names, precedence is the same as any other named unary
815	849	operator. The operator may be any of:
816	850
817	851	=end original
818	852
819	853	みかけは変わっていますが、優先順位は名前付き単項演算子と同じで、
820	854	他の単項演算子と同じく、引数を括弧で括ることもできます。
821	855	演算子には以下のものがあります:
822	856
823	857	=begin original
824	858
825	859	-r File is readable by effective uid/gid.
826	860	-w File is writable by effective uid/gid.
827	861	-x File is executable by effective uid/gid.
828	862	-o File is owned by effective uid.
829	863
830	864	=end original
831	865
832	866	-r ファイルが実効 uid/gid で読み出し可。
833	867	-w ファイルが実効 uid/gid で書き込み可。
834	868	-x ファイルが実効 uid/gid で実行可。
835	869	-o ファイルが実効 uid の所有物。
836	870
837	871	=begin original
838	872
839	873	-R File is readable by real uid/gid.
840	874	-W File is writable by real uid/gid.
841	875	-X File is executable by real uid/gid.
842	876	-O File is owned by real uid.
843	877
844	878	=end original
845	879
846	880	-R ファイルが実 uid/gid で読み出し可。
847	881	-W ファイルが実 uid/gid で書き込み可。
848	882	-X ファイルが実 uid/gid で実行可。
849	883	-O ファイルが実 uid の所有物。
850	884
851	885	=begin original
852	886
853	887	-e File exists.
854	888	-z File has zero size (is empty).
855	889	-s File has nonzero size (returns size in bytes).
856	890
857	891	=end original
858	892
859	893	-e ファイルが存在する。
860	894	-z ファイルの大きさがゼロ(空)。
861	895	-s ファイルの大きさがゼロ以外 (バイト単位での大きさを返す)。
862	896
863	897	=begin original
864	898
865	899	-f File is a plain file.
866	900	-d File is a directory.
867	901	-l File is a symbolic link (false if symlinks aren't
868	902	supported by the file system).
869	903	-p File is a named pipe (FIFO), or Filehandle is a pipe.
870	904	-S File is a socket.
871	905	-b File is a block special file.
872	906	-c File is a character special file.
873	907	-t Filehandle is opened to a tty.
874	908
875	909	=end original
876	910
877	911	-f ファイルは通常ファイル。
878	912	-d ファイルはディレクトリ。
879	913	-l ファイルはシンボリックリンク(ファイルシステムが非対応なら偽)。
880	914	-p ファイルは名前付きパイプ (FIFO) またはファイルハンドルはパイプ。
881	915	-S ファイルはソケット。
882	916	-b ファイルはブロック特殊ファイル。
883	917	-c ファイルはキャラクタ特殊ファイル。
884	918	-t ファイルハンドルは tty にオープンされている。
885	919
886	920	=begin original
887	921
888	922	-u File has setuid bit set.
889	923	-g File has setgid bit set.
890	924	-k File has sticky bit set.
891	925
892	926	=end original
893	927
894	928	-u ファイルの setuid ビットがセットされている。
895	929	-g ファイルの setgid ビットがセットされている。
896	930	-k ファイルの sticky ビットがセットされている。
897	931
898	932	=begin original
899	933
900	934	-T File is an ASCII or UTF-8 text file (heuristic guess).
901	935	-B File is a "binary" file (opposite of -T).
902	936
903	937	=end original
904	938
905	939	-T ファイルは ASCII または UTF-8 テキストファイル (発見的に推測します)。
906	940	-B ファイルは「バイナリ」ファイル (-T の反対)。
907	941
908	942	=begin original
909	943
910	944	-M Script start time minus file modification time, in days.
911	945	-A Same for access time.
912	946	-C Same for inode change time (Unix, may differ for other
913	947	platforms)
914	948
915	949	=end original
916	950
917	951	-M スクリプト実行開始時刻からファイル修正時刻を引いたもの(日単位)。
918	952	-A 同様にアクセスがあってからの日数。
919	953	-C 同様に(Unix では) inode が変更されてからの日数(それ以外の
920	954	プラットフォームでは違うかもしれません)。
921	955
922	956	=begin original
923	957
924	958	Example:
925	959
926	960	=end original
927	961
928	962	例:
929	963
930	964	while (<>) {
931	965	chomp;
932	966	next unless -f $_; # ignore specials
933	967	#...
934	968	}
935	969
936	970	=begin original
937	971
938	972	Note that C<-s/a/b/> does not do a negated substitution. Saying
939	973	C<-exp($foo)> still works as expected, however: only single letters
940	974	following a minus are interpreted as file tests.
941	975
942	976	=end original
943	977
944	978	C<-s/a/b> は、置換演算 (s///) の符号反転ではありません。
945	979	しかし、C<-exp($foo)> は期待どおりに動作します; しかし、マイナス記号の後に
946	980	英字が 1 字続くときにのみ、ファイルテストと解釈されます。
947	981
948	982	=begin original
949	983
950	984	These operators are exempt from the "looks like a function rule" described
951	985	above. That is, an opening parenthesis after the operator does not affect
952	986	how much of the following code constitutes the argument. Put the opening
953	987	parentheses before the operator to separate it from code that follows (this
954	988	applies only to operators with higher precedence than unary operators, of
955	989	course):
956	990
957	991	=end original
958	992
959	993	これらの演算子は上述の「関数のように見えるルール」から免除されます。
960	994	つまり、演算子の後の開きかっこは、引き続くコードのどこまでが引数を
961	995	構成するかに影響を与えません。
962	996	演算子を引き続くコードから分離するには、演算子の前に開きかっこを
963	997	置いてください (これはもちろん、単項演算子より高い優先順位を持つ
964	998	演算子にのみ適用されます):
965	999
966	1000	-s($file) + 1024 # probably wrong; same as -s($file + 1024)
967	1001	(-s $file) + 1024 # correct
968	1002
969	1003	=begin original
970	1004
971	1005	The interpretation of the file permission operators C<-r>, C<-R>,
972	1006	C<-w>, C<-W>, C<-x>, and C<-X> is by default based solely on the mode
973	1007	of the file and the uids and gids of the user. There may be other
974	1008	reasons you can't actually read, write, or execute the file: for
975	1009	example network filesystem access controls, ACLs (access control lists),
976	1010	read-only filesystems, and unrecognized executable formats. Note
977	1011	that the use of these six specific operators to verify if some operation
978	1012	is possible is usually a mistake, because it may be open to race
979	1013	conditions.
980	1014
981	1015	=end original
982	1016
983	1017	ファイルのパーミッション演算子 C<-r>, C<-R>, C<-w>, C<-W>, C<-x>,
984	1018	C<-X> の解釈は、ファイルのモードとユーザの実効／実 uid と
985	1019	実効／実 gid のみから判断されます。
986	1020	実際にファイルが読めたり、書けたり、実行できたりするためには、
987	1021	別の条件が必要かもしれません:
988	1022	例えば、ネットワークファイルシステムアクセスコントロール、
989	1023	ACL(アクセスコントロールリスト)、読み込み専用ファイルシステム、
990	1024	認識できない実行ファイルフォーマット、などです。
991	1025	これらの 6 つの演算子を、特定の操作が可能かどうかを確認するために使うのは
992	1026	通常は誤りであることに注意してください; なぜなら、これらは競合条件を
993	1027	招きやすいからです。
994	1028
995	1029	=begin original
996	1030
997	1031	Also note that, for the superuser on the local filesystems, the C<-r>,
998	1032	C<-R>, C<-w>, and C<-W> tests always return 1, and C<-x> and C<-X> return 1
999	1033	if any execute bit is set in the mode. Scripts run by the superuser
1000	1034	may thus need to do a L<C<stat>\|/stat FILEHANDLE> to determine the
1001	1035	actual mode of the file, or temporarily set their effective uid to
1002	1036	something else.
1003	1037
1004	1038	=end original
1005	1039
1006	1040	ローカルファイルシステムのスーパーユーザには、
1007	1041	C<-r>, C<-R>, C<-w>, C<-W> に対して、常に 1 が返り、モード中の
1008	1042	いずれかの実行許可ビットが立っていれば、C<-x>, C<-X> にも 1 が
1009	1043	返ることにも注意してください。
1010	1044	スーパーユーザが実行するスクリプトでは、ファイルのモードを調べるためには、
1011	1045	L<C<stat>\|/stat FILEHANDLE> を行なうか、実効 uid を一時的に別のものにする
1012	1046	必要があるでしょう。
1013	1047
1014	1048	=begin original
1015	1049
1016	1050	If you are using ACLs, there is a pragma called L<C<filetest>\|filetest>
1017	1051	that may produce more accurate results than the bare
1018	1052	L<C<stat>\|/stat FILEHANDLE> mode bits.
1019	1053	When under C<use filetest 'access'>, the above-mentioned filetests
1020	1054	test whether the permission can(not) be granted using the L<access(2)>
1021	1055	family of system calls. Also note that the C<-x> and C<-X> tests may
1022	1056	under this pragma return true even if there are no execute permission
1023	1057	bits set (nor any extra execute permission ACLs). This strangeness is
1024	1058	due to the underlying system calls' definitions. Note also that, due to
1025	1059	the implementation of C<use filetest 'access'>, the C<_> special
1026	1060	filehandle won't cache the results of the file tests when this pragma is
1027	1061	in effect. Read the documentation for the L<C<filetest>\|filetest>
1028	1062	pragma for more information.
1029	1063
1030	1064	=end original
1031	1065
1032	1066	ACL を使っている場合は、生の L<C<stat>\|/stat FILEHANDLE> モードビットより
1033	1067	精度の高い結果を作成する L<C<filetest>\|filetest> プラグマがあります。
1034	1068	C<use filetest 'access'> とした場合、上述したファイルテストは
1035	1069	システムコールの L<access(2)> ファミリーを使って権限が与えられているか
1036	1070	どうかをテストします。
1037	1071	また、このプラグマが指定されている場合、C<-x> と C<-X> テストは
1038	1072	たとえ実行許可ビット(または追加の実行許可 ACL)がセットされていない
1039	1073	場合でも真を返すことに注意してください。
1040	1074	この挙動は使用するシステムコールの定義によるものです。
1041	1075	C<use filetest 'access'> の実装により、このプラグマが有効の場合は
1042	1076	C<_> 特殊ファイルハンドルはファイルテストの結果をキャッシュしないことに
1043	1077	注意してください。
1044	1078	さらなる情報については L<C<filetest>\|filetest> プラグマのドキュメントを
1045	1079	参照してください。
1046	1080
1047	1081	=begin original
1048	1082
1049	1083	The C<-T> and C<-B> tests work as follows. The first block or so of
1050	1084	the file is examined to see if it is valid UTF-8 that includes non-ASCII
1051	1085	characters. If so, it's a C<-T> file. Otherwise, that same portion of
1052	1086	the file is examined for odd characters such as strange control codes or
1053	1087	characters with the high bit set. If more than a third of the
1054	1088	characters are strange, it's a C<-B> file; otherwise it's a C<-T> file.
1055	1089	Also, any file containing a zero byte in the examined portion is
1056	1090	considered a binary file. (If executed within the scope of a L<S<use
1057	1091	locale>\|perllocale> which includes C<LC_CTYPE>, odd characters are
1058	1092	anything that isn't a printable nor space in the current locale.) If
1059	1093	C<-T> or C<-B> is used on a filehandle, the current IO buffer is
1060	1094	examined
1061	1095	rather than the first block. Both C<-T> and C<-B> return true on an empty
1062	1096	file, or a file at EOF when testing a filehandle. Because you have to
1063	1097	read a file to do the C<-T> test, on most occasions you want to use a C<-f>
1064	1098	against the file first, as in C<next unless -f $file && -T $file>.
1065	1099
1066	1100	=end original
1067	1101
1068	1102	ファイルテスト C<-T> と C<-B> の動作原理は、次のようになっています。
1069	1103	ファイルの最初の数ブロックを調べて、非 ASCII 文字を含む妥当な UTF-8 かどうかを
1070	1104	調べます。
1071	1105	もしそうなら、それは C<-T> ファイルです。
1072	1106	さもなければ、ファイルの同じ位置から、変わった制御コードや
1073	1107	上位ビットがセットされているような、通常のテキストには現れない文字を探します。
1074	1108	三分の一以上がおかしな文字なら、それは C<-B> ファイルでです;
1075	1109	さもなければ C<-T> ファイルです。
1076	1110	また、調べた位置にヌル文字が含まれるファイルも、バイナリファイルと
1077	1111	みなされます。
1078	1112	(C<LC_CTYPE> を含む L<S<use locale>\|perllocale> のスコープの中で実行されると、
1079	1113	おかしな文字というのは現在のロケールで表示可能でもスペースでもないものです。)
1080	1114	C<-T> や C<-B> をファイルハンドルに対して用いると、
1081	1115	最初のブロックを調べる代わりに、IO バッファを調べます。
1082	1116	調べたファイルの中身が何もないときや、
1083	1117	ファイルハンドルを調べたときに EOF に達して
1084	1118	いたときには、C<-T> も C<-B> も「真」を返します。
1085	1119	C<-T> テストをするためにはファイルを読み込まないといけないので、
1086	1120	たいていは C<next unless -f $file && -T $file> というような形で
1087	1121	まず調べたいファイルに対して C<-f> を使いたいはずです。
1088	1122
1089	1123	=begin original
1090	1124
1091	1125	If any of the file tests (or either the L<C<stat>\|/stat FILEHANDLE> or
1092	1126	L<C<lstat>\|/lstat FILEHANDLE> operator) is given the special filehandle
1093	1127	consisting of a solitary underline, then the stat structure of the
1094	1128	previous file test (or L<C<stat>\|/stat FILEHANDLE> operator) is used,
1095	1129	saving a system call. (This doesn't work with C<-t>, and you need to
1096	1130	remember that L<C<lstat>\|/lstat FILEHANDLE> and C<-l> leave values in
1097	1131	the stat structure for the symbolic link, not the real file.) (Also, if
1098	1132	the stat buffer was filled by an L<C<lstat>\|/lstat FILEHANDLE> call,
1099	1133	C<-T> and C<-B> will reset it with the results of C<stat _>).
1100	1134	Example:
1101	1135
1102	1136	=end original
1103	1137
1104	1138	どのファイルテスト (あるいは、L<C<stat>\|/stat FILEHANDLE> や
1105	1139	L<C<lstat>\|/lstat FILEHANDLE>) 演算子にも、
1106	1140	下線だけから成る特別なファイルハンドルを与えると、
1107	1141	前回のファイルテスト (や L<C<stat>\|/stat FILEHANDLE> 演算子) の
1108	1142	stat 構造体が使われ、システムコールを省きます。
1109	1143	(C<-t> には使えませんし、L<C<lstat>\|/lstat FILEHANDLE> や C<-l> は
1110	1144	実ファイルではなく、シンボリックリンクの情報を stat 構造体に残すことを
1111	1145	覚えておく必要があります。)
1112	1146	(また、stat バッファが L<C<lstat>\|/lstat FILEHANDLE> 呼び出しで埋まった場合、
1113	1147	C<-T> と C<-B> の結果は C<stat _> の結果でリセットされます。
1114	1148	例:
1115	1149
1116	1150	print "Can do.\n" if -r $a \|\| -w _ \|\| -x _;
1117	1151
1118	1152	stat($filename);
1119	1153	print "Readable\n" if -r _;
1120	1154	print "Writable\n" if -w _;
1121	1155	print "Executable\n" if -x _;
1122	1156	print "Setuid\n" if -u _;
1123	1157	print "Setgid\n" if -g _;
1124	1158	print "Sticky\n" if -k _;
1125	1159	print "Text\n" if -T _;
1126	1160	print "Binary\n" if -B _;
1127	1161
1128	1162	=begin original
1129	1163
1130	1164	As of Perl 5.10.0, as a form of purely syntactic sugar, you can stack file
1131	1165	test operators, in a way that C<-f -w -x $file> is equivalent to
1132	1166	C<-x $file && -w _ && -f _>. (This is only fancy syntax: if you use
1133	1167	the return value of C<-f $file> as an argument to another filetest
1134	1168	operator, no special magic will happen.)
1135	1169
1136	1170	=end original
1137	1171
1138	1172	Perl 5.10.0 から、純粋にシンタックスシュガーとして、ファイルテスト演算子を
1139	1173	スタックさせることができるので、C<-f -w -x $file> は
1140	1174	C<-x $file && -w _ && -f _> と等価です。
1141	1175	(これは文法上だけの話です; もし C<-f $file> の返り値を他のファイルテスト
1142	1176	演算子の引数として使う場合は、何の特別なことも起きません。)
1143	1177
1144	1178	=begin original
1145	1179
1146	1180	Portability issues: L<perlport/-X>.
1147	1181
1148	1182	=end original
1149	1183
1150	1184	移植性の問題: L<perlport/-X>。
1151	1185
1152	1186	=begin original
1153	1187
1154	1188	To avoid confusing would-be users of your code with mysterious
1155	1189	syntax errors, put something like this at the top of your script:
1156	1190
1157	1191	=end original
1158	1192
1159	1193	あなたのコードのユーザーが不思議な文法エラーで混乱することを
1160	1194	避けるために、スクリプトの先頭に以下のようなことを書いてください:
1161	1195
1162		use 5.010; # so filetest ops can stack
	1196	use v5.10; # so filetest ops can stack
1163	1197
1164	1198	=item abs VALUE
1165	1199	X<abs> X<absolute>
1166	1200
1167	1201	=item abs
1168	1202
1169	1203	=for Pod::Functions absolute value function
1170	1204
1171	1205	=begin original
1172	1206
1173	1207	Returns the absolute value of its argument.
1174	1208	If VALUE is omitted, uses L<C<$_>\|perlvar/$_>.
1175	1209
1176	1210	=end original
1177	1211
1178	1212	引数の絶対値を返します。
1179	1213	VALUE が省略された場合は、L<C<$_>\|perlvar/$_> を使います。
1180	1214
1181	1215	=item accept NEWSOCKET,GENERICSOCKET
1182	1216	X<accept>
1183	1217
1184	1218	=for Pod::Functions accept an incoming socket connect
1185	1219
1186	1220	=begin original
1187	1221
1188	1222	Accepts an incoming socket connect, just as L<accept(2)>
1189	1223	does. Returns the packed address if it succeeded, false otherwise.
1190	1224	See the example in L<perlipc/"Sockets: Client/Server Communication">.
1191	1225
1192	1226	=end original
1193	1227
1194	1228	L<accept(2)> システムコールと同様に、着信するソケットの接続を受け付けます。
1195	1229	成功時にはパックされたアドレスを返し、失敗すれば偽を返します。
1196	1230	L<perlipc/"Sockets: Client/Server Communication"> の例を参照してください。
1197	1231
1198	1232	=begin original
1199	1233
1200	1234	On systems that support a close-on-exec flag on files, the flag will
1201	1235	be set for the newly opened file descriptor, as determined by the
1202	1236	value of L<C<$^F>\|perlvar/$^F>. See L<perlvar/$^F>.
1203	1237
1204	1238	=end original
1205	1239
1206	1240	ファイルに対する close-on-exec フラグをサポートしているシステムでは、
1207	1241	フラグは L<C<$^F>\|perlvar/$^F> の値で決定される、新しくオープンされた
1208	1242	ファイル記述子に対してセットされます。
1209	1243	L<perlvar/$^F> を参照してください。
1210	1244
1211	1245	=item alarm SECONDS
1212	1246	X<alarm>
1213	1247	X<SIGALRM>
1214	1248	X<timer>
1215	1249
1216	1250	=item alarm
1217	1251
1218	1252	=for Pod::Functions schedule a SIGALRM
1219	1253
1220	1254	=begin original
1221	1255
1222	1256	Arranges to have a SIGALRM delivered to this process after the
1223	1257	specified number of wallclock seconds has elapsed. If SECONDS is not
1224	1258	specified, the value stored in L<C<$_>\|perlvar/$_> is used. (On some
1225	1259	machines, unfortunately, the elapsed time may be up to one second less
1226	1260	or more than you specified because of how seconds are counted, and
1227	1261	process scheduling may delay the delivery of the signal even further.)
1228	1262
1229	1263	=end original
1230	1264
1231	1265	指定した壁時計秒数が経過した後に、自プロセスに SIGALRM が
1232	1266	送られてくるようにします。
1233	1267	SECONDS が指定されていない場合は、L<C<$_>\|perlvar/$_> に格納されている値を
1234	1268	使います。
1235	1269	(マシンによっては、秒の数え方が異なるため、指定した秒数よりも最大で
1236	1270	1 秒ずれます。)
1237	1271
1238	1272	=begin original
1239	1273
1240	1274	Only one timer may be counting at once. Each call disables the
1241	1275	previous timer, and an argument of C<0> may be supplied to cancel the
1242	1276	previous timer without starting a new one. The returned value is the
1243	1277	amount of time remaining on the previous timer.
1244	1278
1245	1279	=end original
1246	1280
1247	1281	一度には一つのタイマだけが設定可能です。
1248	1282	呼び出しを行なう度に、以前のタイマを無効にしますし、
1249	1283	新しくタイマを起動しないで以前のタイマをキャンセルするために
1250	1284	引数に C<0> を指定して呼び出すことができます。
1251	1285	以前のタイマの残り時間が、返り値となります。
1252	1286
1253	1287	=begin original
1254	1288
1255	1289	For delays of finer granularity than one second, the L<Time::HiRes> module
1256	1290	(from CPAN, and starting from Perl 5.8 part of the standard
1257	1291	distribution) provides
1258	1292	L<C<ualarm>\|Time::HiRes/ualarm ( $useconds [, $interval_useconds ] )>.
1259	1293	You may also use Perl's four-argument version of
1260	1294	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> leaving the first three
1261	1295	arguments undefined, or you might be able to use the
1262	1296	L<C<syscall>\|/syscall NUMBER, LIST> interface to access L<setitimer(2)>
1263	1297	if your system supports it. See L<perlfaq8> for details.
1264	1298
1265	1299	=end original
1266	1300
1267	1301	1 秒より精度の高いスリープを行なうには、L<Time::HiRes> モジュール(CPAN から、
1268	1302	また Perl 5.8 からは標準配布されています) が
1269	1303	L<C<usleep>\|Time::HiRes/usleep ( $useconds )> を提供します。
1270	1304	Perl の 4 引数版 L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> を最初の
1271	1305	3 引数を未定義にして使うか、L<setitimer(2)> をサポートしているシステムでは、
1272	1306	Perl の L<C<syscall>\|/syscall NUMBER, LIST> インタフェースを使って
1273	1307	アクセスすることもできます。
1274	1308	詳しくは L<perlfaq8> を参照してください。
1275	1309
1276	1310	=begin original
1277	1311
1278	1312	It is usually a mistake to intermix L<C<alarm>\|/alarm SECONDS> and
1279	1313	L<C<sleep>\|/sleep EXPR> calls, because L<C<sleep>\|/sleep EXPR> may be
1280	1314	internally implemented on your system with L<C<alarm>\|/alarm SECONDS>.
1281	1315
1282	1316	=end original
1283	1317
1284	1318	L<C<alarm>\|/alarm SECONDS> と L<C<sleep>\|/sleep EXPR> を混ぜて使うのは
1285	1319	普通は間違いです; なぜなら、L<C<sleep>\|/sleep EXPR> は内部的に
1286	1320	L<C<alarm>\|/alarm SECONDS> を使って内部的に実装されているかも
1287	1321	しれないからです。
1288	1322
1289	1323	=begin original
1290	1324
1291	1325	If you want to use L<C<alarm>\|/alarm SECONDS> to time out a system call
1292	1326	you need to use an L<C<eval>\|/eval EXPR>/L<C<die>\|/die LIST> pair. You
1293	1327	can't rely on the alarm causing the system call to fail with
1294	1328	L<C<$!>\|perlvar/$!> set to C<EINTR> because Perl sets up signal handlers
1295	1329	to restart system calls on some systems. Using
1296	1330	L<C<eval>\|/eval EXPR>/L<C<die>\|/die LIST> always works, modulo the
1297	1331	caveats given in L<perlipc/"Signals">.
1298	1332
1299	1333	=end original
1300	1334
1301	1335	L<C<alarm>\|/alarm SECONDS> をシステムコールの時間切れのために使いたいなら、
1302	1336	L<C<eval>\|/eval EXPR>/L<C<die>\|/die LIST> のペアで使う必要があります。
1303	1337	システムコールが失敗したときに L<C<$!>\|perlvar/$!> に C<EINTR> が
1304	1338	セットされることに頼ってはいけません; なぜならシステムによっては Perl は
1305	1339	システムコールを再開するためにシグナルハンドラを設定するからです。
1306	1340	L<C<eval>\|/eval EXPR>/L<C<die>\|/die LIST> は常にうまく動きます;
1307	1341	注意点については L<perlipc/"Signals"> を参照してください。
1308	1342
1309	1343	eval {
1310	1344	local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
1311	1345	alarm $timeout;
1312	1346	my $nread = sysread $socket, $buffer, $size;
1313	1347	alarm 0;
1314	1348	};
1315	1349	if ($@) {
1316	1350	die unless $@ eq "alarm\n"; # propagate unexpected errors
1317	1351	# timed out
1318	1352	}
1319	1353	else {
1320	1354	# didn't
1321	1355	}
1322	1356
1323	1357	=begin original
1324	1358
1325	1359	For more information see L<perlipc>.
1326	1360
1327	1361	=end original
1328	1362
1329	1363	さらなる情報については L<perlipc> を参照してください。
1330	1364
1331	1365	=begin original
1332	1366
1333	1367	Portability issues: L<perlport/alarm>.
1334	1368
1335	1369	=end original
1336	1370
1337	1371	移植性の問題: L<perlport/alarm>。
1338	1372
1339	1373	=item atan2 Y,X
1340	1374	X<atan2> X<arctangent> X<tan> X<tangent>
1341	1375
1342	1376	=for Pod::Functions arctangent of Y/X in the range -PI to PI
1343	1377
1344	1378	=begin original
1345	1379
1346	1380	Returns the arctangent of Y/X in the range -PI to PI.
1347	1381
1348	1382	=end original
1349	1383
1350	1384	-πからπの範囲で Y/X の逆正接を返します。
1351	1385
1352	1386	=begin original
1353	1387
1354	1388	For the tangent operation, you may use the
1355	1389	L<C<Math::Trig::tan>\|Math::Trig/B<tan>> function, or use the familiar
1356	1390	relation:
1357	1391
1358	1392	=end original
1359	1393
1360	1394	正接を求めたいときは、L<C<Math::Trig::tan>\|Math::Trig/B<tan>> を使うか、
1361	1395	以下のよく知られた関係を使ってください。
1362	1396
1363	1397	sub tan { sin($_[0]) / cos($_[0]) }
1364	1398
1365	1399	=begin original
1366	1400
1367	1401	The return value for C<atan2(0,0)> is implementation-defined; consult
1368	1402	your L<atan2(3)> manpage for more information.
1369	1403
1370	1404	=end original
1371	1405
1372	1406	C<atan2(0,0)> の返り値は実装依存です; さらなる情報については
1373	1407	L<atan2(3)> man ページを参照してください。
1374	1408
1375	1409	=begin original
1376	1410
1377	1411	Portability issues: L<perlport/atan2>.
1378	1412
1379	1413	=end original
1380	1414
1381	1415	移植性の問題: L<perlport/atan2>。
1382	1416
1383	1417	=item bind SOCKET,NAME
1384	1418	X<bind>
1385	1419
1386	1420	=for Pod::Functions binds an address to a socket
1387	1421
1388	1422	=begin original
1389	1423
1390	1424	Binds a network address to a socket, just as L<bind(2)>
1391	1425	does. Returns true if it succeeded, false otherwise. NAME should be a
1392	1426	packed address of the appropriate type for the socket. See the examples in
1393	1427	L<perlipc/"Sockets: Client/Server Communication">.
1394	1428
1395	1429	=end original
1396	1430
1397	1431	L<bind(2)> システムコールと同様に、ネットワークアドレスをソケットに
1398	1432	結び付けます。
1399	1433	成功時には真を、さもなければ偽を返します。
1400	1434	NAME は、ソケットに対する、適切な型のパックされた
1401	1435	アドレスでなければなりません。
1402	1436	L<perlipc/"Sockets: Client/Server Communication"> の例を参照してください。
1403	1437
1404	1438	=item binmode FILEHANDLE, LAYER
1405	1439	X<binmode> X<binary> X<text> X<DOS> X<Windows>
1406	1440
1407	1441	=item binmode FILEHANDLE
1408	1442
1409	1443	=for Pod::Functions prepare binary files for I/O
1410	1444
1411	1445	=begin original
1412	1446
1413	1447	Arranges for FILEHANDLE to be read or written in "binary" or "text"
1414	1448	mode on systems where the run-time libraries distinguish between
1415	1449	binary and text files. If FILEHANDLE is an expression, the value is
1416	1450	taken as the name of the filehandle. Returns true on success,
1417	1451	otherwise it returns L<C<undef>\|/undef EXPR> and sets
1418	1452	L<C<$!>\|perlvar/$!> (errno).
1419	1453
1420	1454	=end original
1421	1455
1422	1456	バイナリファイルとテキストファイルを区別する OS において、
1423	1457	FILEHANDLE を「バイナリ」または「テキスト」で読み書きするように
1424	1458	指定します。
1425	1459	FILEHANDLE が式である場合には、その式の値がファイルハンドルの
1426	1460	名前として使われます。
1427	1461	成功時には真を返し、失敗時には L<C<undef>\|/undef EXPR> を返して
1428	1462	L<C<$!>\|perlvar/$!> (errno) を設定します。
1429	1463
1430	1464	=begin original
1431	1465
1432	1466	On some systems (in general, DOS- and Windows-based systems)
1433	1467	L<C<binmode>\|/binmode FILEHANDLE, LAYER> is necessary when you're not
1434	1468	working with a text file. For the sake of portability it is a good idea
1435	1469	always to use it when appropriate, and never to use it when it isn't
1436	1470	appropriate. Also, people can set their I/O to be by default
1437	1471	UTF8-encoded Unicode, not bytes.
1438	1472
1439	1473	=end original
1440	1474
1441	1475	テキストファイルでないものを扱う場合に
1442	1476	L<C<binmode>\|/binmode FILEHANDLE, LAYER> が必要な
1443	1477	システムもあります(一般的には DOS と Windows ベースのシステムです)。
1444	1478	移植性のために、適切なときには常にこれを使い、適切でないときには
1445	1479	決して使わないというのは良い考えです。
1446	1480	また、デフォルトとして I/O を bytes ではなく UTF-8 エンコードされた
1447	1481	Unicode にセットすることも出来ます。
1448	1482
1449	1483	=begin original
1450	1484
1451	1485	In other words: regardless of platform, use
1452	1486	L<C<binmode>\|/binmode FILEHANDLE, LAYER> on binary data, like images,
1453	1487	for example.
1454	1488
1455	1489	=end original
1456	1490
1457	1491	言い換えると: プラットフォームに関わらず、
1458	1492	例えばイメージのようなバイナリファイルに対しては
1459	1493	L<C<binmode>\|/binmode FILEHANDLE, LAYER> を使ってください。
1460	1494
1461	1495	=begin original
1462	1496
1463	1497	If LAYER is present it is a single string, but may contain multiple
1464	1498	directives. The directives alter the behaviour of the filehandle.
1465	1499	When LAYER is present, using binmode on a text file makes sense.
1466	1500
1467	1501	=end original
1468	1502
1469	1503	LAYER が存在すると、それは単一の文字列ですが、複数の指示子を
1470	1504	含むことができます。
1471	1505	指示子はファイルハンドルの振る舞いを変更します。
1472	1506	LAYER が存在すると、テキストファイルでの binmode が意味を持ちます。
1473	1507
1474	1508	=begin original
1475	1509
1476	1510	If LAYER is omitted or specified as C<:raw> the filehandle is made
1477	1511	suitable for passing binary data. This includes turning off possible CRLF
1478	1512	translation and marking it as bytes (as opposed to Unicode characters).
1479	1513	Note that, despite what may be implied in I<"Programming Perl"> (the
1480	1514	Camel, 3rd edition) or elsewhere, C<:raw> is I<not> simply the inverse of C<:crlf>.
1481	1515	Other layers that would affect the binary nature of the stream are
1482	1516	I<also> disabled. See L<PerlIO>, and the discussion about the PERLIO
1483	1517	environment variable in L<perlrun\|perlrun/PERLIO>.
1484	1518
1485	1519	=end original
1486	1520
1487	1521	LAYER が省略されたり、C<:raw> が指定されると、ファイルハンドルはバイナリ
1488	1522	データの通過に適するように設定されます。
1489	1523	これには CRLF 変換をオフにしたり、それぞれを(Unicode 文字ではなく)
1490	1524	バイトであるとマークしたりすることを含みます。
1491	1525	I<"プログラミング Perl">(ラクダ本第三版) やその他で暗示されているにも関わらず、
1492	1526	C<:raw> は単なる C<:crlf> の I<逆ではありません>。
1493	1527	ストリームのバイナリとしての性質に影響を与える
1494	1528	I<その他の層も無効にされます>。
1495	1529	L<PerlIO>, および L<perlrun\|perlrun/PERLIO> の PERLIO 環境変数に関する議論を
1496	1530	参照してください。
1497	1531
1498	1532	=begin original
1499	1533
1500	1534	The C<:bytes>, C<:crlf>, C<:utf8>, and any other directives of the
1501	1535	form C<:...>, are called I/O I<layers>. The L<open> pragma can be used to
1502	1536	establish default I/O layers.
1503	1537
1504	1538	=end original
1505	1539
1506	1540	C<:bytes>, C<:crlf>, and C<:utf8>, 及びその他の C<:...> 形式の指示子は
1507	1541	I/O I<層> が呼び出されます。
1508	1542	L<open> プラグマはデフォルト I/O 層を指定するために使われます。
1509	1543
1510	1544	=begin original
1511	1545
1512	1546	I<The LAYER parameter of the L<C<binmode>\|/binmode FILEHANDLE, LAYER>
1513	1547	function is described as "DISCIPLINE" in "Programming Perl, 3rd
1514	1548	Edition". However, since the publishing of this book, by many known as
1515	1549	"Camel III", the consensus of the naming of this functionality has moved
1516	1550	from "discipline" to "layer". All documentation of this version of Perl
1517	1551	therefore refers to "layers" rather than to "disciplines". Now back to
1518	1552	the regularly scheduled documentation...>
1519	1553
1520	1554	=end original
1521	1555
1522	1556	I<L<C<binmode>\|/binmode FILEHANDLE, LAYER> 関数の LAYER パラメータは
1523	1557	「プログラミングPerl 第 3 版」では
1524	1558	「ディシプリン(DISCIPLINE)」と表現されていました。
1525	1559	しかし、「ラクダ本第 3 版」として知られているこの本の出版後、この機能の名前は
1526	1560	「ディシプリン」から「層」に変更することで合意されました。
1527	1561	従って、このバージョンの Perl の全ての文書では「ディシプリン」ではなく
1528	1562	「層」と記述されています。では通常の解説に戻ります…>
1529	1563
1530	1564	=begin original
1531	1565
1532	1566	To mark FILEHANDLE as UTF-8, use C<:utf8> or C<:encoding(UTF-8)>.
1533	1567	C<:utf8> just marks the data as UTF-8 without further checking,
1534	1568	while C<:encoding(UTF-8)> checks the data for actually being valid
1535	1569	UTF-8. More details can be found in L<PerlIO::encoding>.
1536	1570
1537	1571	=end original
1538	1572
1539	1573	FILEHANDLE が UTF-8 であるというマークをつけるには、C<:utf8> か
1540	1574	C<:encoding(UTF-8)> を使ってください。
1541	1575	C<:utf8> は、さらなるチェックなしにデータが UTF-8 としてマークしますが、
1542	1576	C<:encoding(UTF-8)> はデータが実際に有効な UTF-8 かどうかをチェックします。
1543	1577	さらなる詳細は L<PerlIO::encoding> にあります。
1544	1578
1545	1579	=begin original
1546	1580
1547	1581	In general, L<C<binmode>\|/binmode FILEHANDLE, LAYER> should be called
1548	1582	after L<C<open>\|/open FILEHANDLE,MODE,EXPR> but before any I/O is done on the
1549	1583	filehandle. Calling L<C<binmode>\|/binmode FILEHANDLE, LAYER> normally
1550	1584	flushes any pending buffered output data (and perhaps pending input
1551	1585	data) on the handle. An exception to this is the C<:encoding> layer
1552	1586	that changes the default character encoding of the handle.
1553	1587	The C<:encoding> layer sometimes needs to be called in
1554	1588	mid-stream, and it doesn't flush the stream. C<:encoding>
1555	1589	also implicitly pushes on top of itself the C<:utf8> layer because
1556	1590	internally Perl operates on UTF8-encoded Unicode characters.
1557	1591
1558	1592	=end original
1559	1593
1560	1594	一般的に L<C<binmode>\|/binmode FILEHANDLE, LAYER> は
1561	1595	L<C<open>\|/open FILEHANDLE,MODE,EXPR> を呼び出した後、このファイルハンドルに
1562	1596	対するI/O 操作をする前に呼び出すべきです。
1563	1597	L<C<binmode>\|/binmode FILEHANDLE, LAYER> を呼び出すと、普通はこの
1564	1598	ファイルハンドルに対してバッファリングされている全ての出力データ
1565	1599	(およびおそらくは入力データ)をフラッシュします。
1566	1600	例外は、このハンドルに対するデフォルト文字エンコーディングを変更する
1567	1601	C<:encoding> 層です。
1568	1602	C<:encoding> 層はストリームの途中で呼び出す必要があることがあり、
1569	1603	それによってストリームはフラッシュされません。
1570	1604	Perl は内部で UTF-8 エンコードされた Unicode 文字を操作しているので、
1571	1605	C<:encoding> は暗黙のうちに自身を C<:utf8> 層の上に押し上げます。
1572	1606
1573	1607	=begin original
1574	1608
1575	1609	The operating system, device drivers, C libraries, and Perl run-time
1576	1610	system all conspire to let the programmer treat a single
1577	1611	character (C<\n>) as the line terminator, irrespective of external
1578	1612	representation. On many operating systems, the native text file
1579	1613	representation matches the internal representation, but on some
1580	1614	platforms the external representation of C<\n> is made up of more than
1581	1615	one character.
1582	1616
1583	1617	=end original
1584	1618
1585	1619	オペレーティングシステム、デバイスドライバ、C ライブラリ、
1586	1620	Perl ランタイムシステムは全て、プログラマが外部表現に関わらず
1587	1621	1 文字 (C<\n>) を行終端として扱えるように協調作業します。
1588	1622	多くのオペレーティングシステムでは、ネイティブテキストファイル表現は
1589	1623	内部表現と同じですが、C<\n> の外部表現が複数文字になる
1590	1624	プラットフォームもあります。
1591	1625
1592	1626	=begin original
1593	1627
1594	1628	All variants of Unix, Mac OS (old and new), and Stream_LF files on VMS use
1595	1629	a single character to end each line in the external representation of text
1596	1630	(even though that single character is CARRIAGE RETURN on old, pre-Darwin
1597	1631	flavors of Mac OS, and is LINE FEED on Unix and most VMS files). In other
1598	1632	systems like OS/2, DOS, and the various flavors of MS-Windows, your program
1599	1633	sees a C<\n> as a simple C<\cJ>, but what's stored in text files are the
1600	1634	two characters C<\cM\cJ>. That means that if you don't use
1601	1635	L<C<binmode>\|/binmode FILEHANDLE, LAYER> on these systems, C<\cM\cJ>
1602	1636	sequences on disk will be converted to C<\n> on input, and any C<\n> in
1603	1637	your program will be converted back to C<\cM\cJ> on output. This is
1604	1638	what you want for text files, but it can be disastrous for binary files.
1605	1639
1606	1640	=end original
1607	1641
1608	1642	全ての Unix 系、(新旧の)Mac OS、VMS の Stream_LF ファイルは
1609	1643	テキストの外部表現として各行の末尾に一つの文字を
1610	1644	使っています(しかしその文字は古い Darwin 以前の Mac OS では復帰で、
1611	1645	Unix とほとんどのVMS のファイルでは改行です)。
1612	1646	VMS, MS-DOS, MS-Windows 系といったその他のシステムでは、
1613	1647	プログラムからは C<\n> は単純に C<\cJ> に見えますが、
1614	1648	テキストファイルとして保存される場合は C<\cM\cJ> の 2 文字になります。
1615	1649	つまり、もしこれらのシステムで L<C<binmode>\|/binmode FILEHANDLE, LAYER> を
1616	1650	使わないと、ディスク上の C<\cM\cJ> という並びは入力時に C<\n> に変換され、
1617	1651	プログラムが出力した全ての C<\n> は C<\cM\cJ> に逆変換されます。
1618	1652	これはテキストファイルの場合は思い通りの結果でしょうが、
1619	1653	バイナリファイルの場合は悲惨です。
1620	1654
1621	1655	=begin original
1622	1656
1623	1657	Another consequence of using L<C<binmode>\|/binmode FILEHANDLE, LAYER>
1624	1658	(on some systems) is that special end-of-file markers will be seen as
1625	1659	part of the data stream. For systems from the Microsoft family this
1626	1660	means that, if your binary data contain C<\cZ>, the I/O subsystem will
1627	1661	regard it as the end of the file, unless you use
1628	1662	L<C<binmode>\|/binmode FILEHANDLE, LAYER>.
1629	1663
1630	1664	=end original
1631	1665
1632	1666	L<C<binmode>\|/binmode FILEHANDLE, LAYER> を(いくつかのシステムで)
1633	1667	使うことによるその他の作用としては、特別なファイル終端マーカーが
1634	1668	データストリームの一部として見られることです。
1635	1669	Microsoft ファミリーのシステムでは、
1636	1670	L<C<binmode>\|/binmode FILEHANDLE, LAYER> を使っていないと、
1637	1671	もしバイナリデータに C<\cZ> が含まれていたときに、
1638	1672	I/O サブシステムがこれをファイル終端とみなすことを意味します。
1639	1673
1640	1674	=begin original
1641	1675
1642	1676	L<C<binmode>\|/binmode FILEHANDLE, LAYER> is important not only for
1643	1677	L<C<readline>\|/readline EXPR> and L<C<print>\|/print FILEHANDLE LIST>
1644	1678	operations, but also when using
1645	1679	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>,
1646	1680	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
1647	1681	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
1648	1682	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET> and
1649	1683	L<C<tell>\|/tell FILEHANDLE> (see L<perlport> for more details). See the
1650	1684	L<C<$E<sol>>\|perlvar/$E<sol>> and L<C<$\>\|perlvar/$\> variables in
1651	1685	L<perlvar> for how to manually set your input and output
1652	1686	line-termination sequences.
1653	1687
1654	1688	=end original
1655	1689
1656	1690	L<C<binmode>\|/binmode FILEHANDLE, LAYER> は L<C<readline>\|/readline EXPR> と
1657	1691	L<C<print>\|/print FILEHANDLE LIST> 操作にだけではなく、
1658	1692	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>,
1659	1693	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
1660	1694	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
1661	1695	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>,
1662	1696	L<C<tell>\|/tell FILEHANDLE> を使うときにも重要です
1663	1697	(詳細は L<perlport> を参照してください)。
1664	1698	入出力の行端末シーケンスを手動でセットする方法については
1665	1699	L<perlvar> の L<C<$E<sol>>\|perlvar/$E<sol>> 変数と
1666	1700	L<C<$\>\|perlvar/$\> 変数を参照してください。
1667	1701
1668	1702	=begin original
1669	1703
1670	1704	Portability issues: L<perlport/binmode>.
1671	1705
1672	1706	=end original
1673	1707
1674	1708	移植性の問題: L<perlport/binmode>。
1675	1709
1676	1710	=item bless REF,CLASSNAME
1677	1711	X<bless>
1678	1712
1679	1713	=item bless REF
1680	1714
1681	1715	=for Pod::Functions create an object
1682	1716
1683	1717	=begin original
1684	1718
1685	1719	This function tells the thingy referenced by REF that it is now an object
1686	1720	in the CLASSNAME package. If CLASSNAME is an empty string, it is
1687	1721	interpreted as referring to the C<main> package.
1688	1722	If CLASSNAME is omitted, the current package
1689	1723	is used. Because a L<C<bless>\|/bless REF,CLASSNAME> is often the last
1690	1724	thing in a constructor, it returns the reference for convenience.
1691	1725	Always use the two-argument version if a derived class might inherit the
1692	1726	method doing the blessing. See L<perlobj> for more about the blessing
1693	1727	(and blessings) of objects.
1694	1728
1695	1729	=end original
1696	1730
1697	1731	この関数は、REF で渡されたオブジェクトに対し、
1698	1732	CLASSNAME 内のオブジェクトとなったことを伝えます。
1699	1733	CLASSNAME が空文字列の場合、C<main> パッケージを参照しているものと
1700	1734	解釈されます。
1701	1735	CLASSNAME が省略された場合には、その時点のパッケージとなります。
1702	1736	L<C<bless>\|/bless REF,CLASSNAME> は通常、コンストラクタの最後に
1703	1737	置かれますので、簡便のためにそのリファレンスを返します。
1704	1738	派生クラスが bless されるメソッドを継承する場合は、
1705	1739	常に 2 引数版を使ってください。
1706	1740	オブジェクトの bless (や再 bless) について、詳しくはと L<perlobj> を
1707	1741	参照してください。
1708	1742
1709	1743	=begin original
1710	1744
1711	1745	Consider always blessing objects in CLASSNAMEs that are mixed case.
1712	1746	Namespaces with all lowercase names are considered reserved for
1713	1747	Perl pragmas. Builtin types have all uppercase names. To prevent
1714	1748	confusion, you may wish to avoid such package names as well.
1715	1749	It is advised to avoid the class name C<0>, because much code erroneously
1716	1750	uses the result of L<C<ref>\|/ref EXPR> as a truth value.
1717	1751
1718	1752	=end original
1719	1753
1720	1754	大文字小文字が混じっている CLASSNAME のオブジェクトは常に bless することを
1721	1755	考慮してください。
1722	1756	全て小文字の名前を持つ名前空間は Perl プラグマのために予約されています。
1723	1757	組み込みの型は全て大文字の名前を持ちます。
1724	1758	混乱を避けるために、
1725	1759	パッケージ名としてこのような名前は避けるべきです。
1726		CLASSNAME は真の値を持つようにしてください。
	1760	CLASSNAME は真の値を持つようにしてください;
1727	1761	クラス名として C<0> は避けてください; 多くのコードが誤って
1728	1762	L<C<ref>\|/ref EXPR> の結果を真の値として使っているからです。
1729	1763
1730	1764	=begin original
1731	1765
1732	1766	See L<perlmod/"Perl Modules">.
1733	1767
1734	1768	=end original
1735	1769
1736	1770	L<perlmod/"Perl Modules"> を参照してください。
1737	1771
1738	1772	=item break
1739	1773
1740	1774	=for Pod::Functions +switch break out of a C<given> block
1741	1775
1742	1776	=begin original
1743	1777
1744	1778	Break out of a C<given> block.
1745	1779
1746	1780	=end original
1747	1781
1748	1782	C<given> ブロックから脱出します。
1749	1783
1750	1784	=begin original
1751	1785
1752	1786	L<C<break>\|/break> is available only if the
1753	1787	L<C<"switch"> feature\|feature/The 'switch' feature> is enabled or if it
1754	1788	is prefixed with C<CORE::>. The
1755	1789	L<C<"switch"> feature\|feature/The 'switch' feature> is enabled
1756	1790	automatically with a C<use v5.10> (or higher) declaration in the current
1757	1791	scope.
1758	1792
1759	1793	=end original
1760	1794
1761	1795	L<C<break>\|/break> は、L<C<"switch"> 機能\|feature/The 'switch' feature> が
1762	1796	有効か、C<CORE::> 接頭辞を使ったときにのみ利用可能です。
1763	1797	L<C<"switch"> 機能\|feature/The 'switch' feature> は、現在のスコープで
1764	1798	C<use v5.10> (またはそれ以上) 宣言があると自動的に有効になります。
1765	1799
1766	1800	=item caller EXPR
1767	1801	X<caller> X<call stack> X<stack> X<stack trace>
1768	1802
1769	1803	=item caller
1770	1804
1771	1805	=for Pod::Functions get context of the current subroutine call
1772	1806
1773	1807	=begin original
1774	1808
1775	1809	Returns the context of the current pure perl subroutine call. In scalar
1776	1810	context, returns the caller's package name if there I<is> a caller (that is, if
1777	1811	we're in a subroutine or L<C<eval>\|/eval EXPR> or
1778	1812	L<C<require>\|/require VERSION>) and the undefined value otherwise.
1779	1813	caller never returns XS subs and they are skipped. The next pure perl
1780	1814	sub will appear instead of the XS sub in caller's return values. In
1781	1815	list context, caller returns
1782	1816
1783	1817	=end original
1784	1818
1785	1819	その時点のピュア perl サブルーチン呼び出しのコンテキストを返します。
1786	1820	スカラコンテキストでは、呼び元が I<ある> 場合
1787	1821	(サブルーチン、L<C<eval>\|/eval EXPR>、L<C<require>\|/require VERSION> の中に
1788	1822	いるとき) には呼び出し元のパッケージ名を返し、
1789	1823	その他のときには未定義値を返します。
1790	1824	caller は XS サブルーチンを返すことはなく、それらは飛ばされます。
1791	1825	XS サブルーチンの代わりに次のピュア perl サブルーチンが caller の返り値に
1792	1826	なります。
1793	1827	リストコンテキストでは、caller は以下を返します:
1794	1828
1795	1829	# 0 1 2
1796	1830	my ($package, $filename, $line) = caller;
1797	1831
1798	1832	=begin original
1799	1833
1800	1834	Like L<C<__FILE__>\|/__FILE__> and L<C<__LINE__>\|/__LINE__>, the filename and
1801	1835	line number returned here may be altered by the mechanism described at
1802	1836	L<perlsyn/"Plain Old Comments (Not!)">.
1803	1837
1804	1838	=end original
1805	1839
1806	1840	L<C<__FILE__>\|/__FILE__> と L<C<__LINE__>\|/__LINE__> 同様、
1807	1841	ここで返されるファイル名と行番号は
1808	1842	L<perlsyn/"Plain Old Comments (Not!)"> で記述されている機構によって
1809	1843	置き換えられます。
1810	1844
1811	1845	=begin original
1812	1846
1813	1847	With EXPR, it returns some extra information that the debugger uses to
1814	1848	print a stack trace. The value of EXPR indicates how many call frames
1815	1849	to go back before the current one.
1816	1850
1817	1851	=end original
1818	1852
1819	1853	EXPR を付けると、デバッガがスタックトレースを表示するために使う情報を返します。
1820	1854	EXPR の値は、現状から数えて、
1821	1855	いくつ前のコールフレームまで戻るかを示します。
1822	1856
1823	1857	# 0 1 2 3 4
1824	1858	my ($package, $filename, $line, $subroutine, $hasargs,
1825	1859
1826	1860	# 5 6 7 8 9 10
1827	1861	$wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash)
1828	1862	= caller($i);
1829	1863
1830	1864	=begin original
1831	1865
1832	1866	Here, $subroutine is the function that the caller called (rather than the
1833	1867	function containing the caller). Note that $subroutine may be C<(eval)> if
1834	1868	the frame is not a subroutine call, but an L<C<eval>\|/eval EXPR>. In
1835	1869	such a case additional elements $evaltext and C<$is_require> are set:
1836	1870	C<$is_require> is true if the frame is created by a
1837	1871	L<C<require>\|/require VERSION> or L<C<use>\|/use Module VERSION LIST>
1838	1872	statement, $evaltext contains the text of the C<eval EXPR> statement.
1839	1873	In particular, for an C<eval BLOCK> statement, $subroutine is C<(eval)>,
1840	1874	but $evaltext is undefined. (Note also that each
1841	1875	L<C<use>\|/use Module VERSION LIST> statement creates a
1842	1876	L<C<require>\|/require VERSION> frame inside an C<eval EXPR> frame.)
1843	1877	$subroutine may also be C<(unknown)> if this particular subroutine
1844	1878	happens to have been deleted from the symbol table. C<$hasargs> is true
1845	1879	if a new instance of L<C<@_>\|perlvar/@_> was set up for the frame.
1846	1880	C<$hints> and C<$bitmask> contain pragmatic hints that the caller was
1847	1881	compiled with. C<$hints> corresponds to L<C<$^H>\|perlvar/$^H>, and
1848	1882	C<$bitmask> corresponds to
1849	1883	L<C<${^WARNING_BITS}>\|perlvar/${^WARNING_BITS}>. The C<$hints> and
1850	1884	C<$bitmask> values are subject to change between versions of Perl, and
1851	1885	are not meant for external use.
1852	1886
1853	1887	=end original
1854	1888
1855	1889	ここで、$subroutine は、(caller を含む関数ではなく) caller が呼び出した
1856	1890	関数です。
1857	1891	フレームがサブルーチン呼び出しではなく L<C<eval>\|/eval EXPR> だった場合、この
1858	1892	$subroutine は C<(eval)> になることに注意してください。
1859	1893	この場合、追加の要素である $evaltext と C<$is_require> がセットされます:
1860	1894	C<$is_require> はフレームが L<C<require>\|/require VERSION> または
1861	1895	L<C<use>\|/use Module VERSION LIST> で作られた場合に真になり、
1862	1896	$evaltext は C<eval EXPR> のテキストが入ります。
1863	1897	特に、C<eval BLOCK> の場合、$subroutine は C<(eval)> になりますが、
1864	1898	$evaltext は未定義値になります。
1865	1899	(それぞれの L<C<use>\|/use Module VERSION LIST> は C<eval EXPR> の中で
1866	1900	L<C<require>\|/require VERSION> フレームを作ることに注意してください。)
1867	1901	$subroutine は、そのサブルーチンがシンボルテーブルから削除された場合は
1868	1902	C<(unknown)> になります。
1869	1903	C<$hasargs> はこのフレーム用に L<C<@_>\|perlvar/@_> の新しい実体が
1870	1904	設定された場合に真となります。
1871	1905	C<$hints> と C<$bitmask> は caller がコンパイルされたときの
1872	1906	実際的なヒントを含みます。
1873	1907	C<$hints> は L<C<$^H>\|perlvar/$^H> に対応し、C<$bitmask> は
1874	1908	L<C<${^WARNING_BITS}>\|perlvar/${^WARNING_BITS}> に
1875	1909	対応します。
1876	1910	C<$hints> は C<$bitmask> は Perl のバージョンによって変更される
1877	1911	可能性があるので、外部での使用を想定していません。
1878	1912
1879	1913	=begin original
1880	1914
1881	1915	C<$hinthash> is a reference to a hash containing the value of
1882	1916	L<C<%^H>\|perlvar/%^H> when the caller was compiled, or
1883	1917	L<C<undef>\|/undef EXPR> if L<C<%^H>\|perlvar/%^H> was empty. Do not
1884	1918	modify the values of this hash, as they are the actual values stored in
1885	1919	the optree.
1886	1920
1887	1921	=end original
1888	1922
1889	1923	C<$hinthash> は、caller がコンパイルされた時の L<C<%^H>\|perlvar/%^H> の値を
1890	1924	含むハッシュへのリファレンスか、あるいは L<C<%^H>\|perlvar/%^H> が空の場合は
1891	1925	L<C<undef>\|/undef EXPR> です。
1892	1926	このハッシュの値は構文木に保管されている実際の値なので、変更しないで下さい。
1893	1927
1894	1928	=begin original
1895	1929
	1930	Note that the only types of call frames that are visible are subroutine
	1931	calls and C<eval>. Other forms of context, such as C<while> or C<foreach>
	1932	loops or C<try> blocks are not considered interesting to C<caller>, as they
	1933	do not alter the behaviour of the C<return> expression.
	1934
	1935	=end original
	1936
	1937	見ることができる呼び出しフレームの種類はサブルーチン呼び出しと
	1938	C<eval> だけであることに注意してください。
	1939	C<while> や C<foreach> のループや C<try> ブロックのようなその他の構造は、
	1940	C<caller> の関心外です; これらは C<return> 式の振る舞いを変えないからです。
	1941
	1942	=begin original
	1943
1896	1944	Furthermore, when called from within the DB package in
1897	1945	list context, and with an argument, caller returns more
1898	1946	detailed information: it sets the list variable C<@DB::args> to be the
1899	1947	arguments with which the subroutine was invoked.
1900	1948
1901	1949	=end original
1902	1950
1903	1951	さらに、DB パッケージの中からリストコンテキストで引数付きで呼ばれた場合は、
1904	1952	caller はより詳細な情報を返します; サブルーチンが起動されたときの引数を
1905	1953	変数 C<@DB::args> に設定します。
1906	1954
1907	1955	=begin original
1908	1956
1909	1957	Be aware that the optimizer might have optimized call frames away before
1910	1958	L<C<caller>\|/caller EXPR> had a chance to get the information. That
1911	1959	means that C<caller(N)> might not return information about the call
1912	1960	frame you expect it to, for C<< N > 1 >>. In particular, C<@DB::args>
1913	1961	might have information from the previous time L<C<caller>\|/caller EXPR>
1914	1962	was called.
1915	1963
1916	1964	=end original
1917	1965
1918	1966	L<C<caller>\|/caller EXPR> が情報を得る前にオプティマイザが呼び出しフレームを
1919	1967	最適化してしまうかもしれないことに注意してください。
1920	1968	これは、C<caller(N)> が C<< N > 1 >> のとき、
1921	1969	あなたが予測した呼び出しフレームの情報を返さないかもしれないことを意味します。
1922	1970	特に、C<@DB::args> は L<C<caller>\|/caller EXPR> が前回呼び出された時の情報を
1923	1971	持っているかもしれません。
1924	1972
1925	1973	=begin original
1926	1974
1927	1975	Be aware that setting C<@DB::args> is I<best effort>, intended for
1928	1976	debugging or generating backtraces, and should not be relied upon. In
1929	1977	particular, as L<C<@_>\|perlvar/@_> contains aliases to the caller's
1930	1978	arguments, Perl does not take a copy of L<C<@_>\|perlvar/@_>, so
1931	1979	C<@DB::args> will contain modifications the subroutine makes to
1932	1980	L<C<@_>\|perlvar/@_> or its contents, not the original values at call
1933	1981	time. C<@DB::args>, like L<C<@_>\|perlvar/@_>, does not hold explicit
1934	1982	references to its elements, so under certain cases its elements may have
1935	1983	become freed and reallocated for other variables or temporary values.
1936	1984	Finally, a side effect of the current implementation is that the effects
1937	1985	of C<shift @_> can I<normally> be undone (but not C<pop @_> or other
1938	1986	splicing, I<and> not if a reference to L<C<@_>\|perlvar/@_> has been
1939	1987	taken, I<and> subject to the caveat about reallocated elements), so
1940	1988	C<@DB::args> is actually a hybrid of the current state and initial state
1941	1989	of L<C<@_>\|perlvar/@_>. Buyer beware.
1942	1990
1943	1991	=end original
1944	1992
1945	1993	C<@DB::args> の設定は I<ベストエフォート> で、デバッグやバックトレースの
1946	1994	生成を目的としていて、これに依存するべきではないということにも
1947	1995	注意してください。
1948	1996	特に、L<C<@_>\|perlvar/@_> は呼び出し元の引数へのエイリアスを含んでいるので、
1949	1997	Perl は L<C<@_>\|perlvar/@_> のコピーを取らず、従って C<@DB::args> は
1950	1998	サブルーチンが L<C<@_>\|perlvar/@_> やその内容に行った変更を含んでいて、
1951	1999	呼び出し時の元の値ではありません。
1952	2000	C<@DB::args> は、L<C<@_>\|perlvar/@_> と同様、その要素への明示的な
1953	2001	リファレンスを保持しないので、ある種の状況では、解放されて他の変数や
1954	2002	一時的な値のために再割り当てされているかもしれません。
1955	2003	最後に、現在の実装の副作用は、C<shift @_> の効果は I<普通は> 行われない
1956	2004	(しかし C<pop @_> やその他の splice は違い、I<そして> もし
1957	2005	L<C<@_>\|perlvar/@_> のリファレンスが取られると違い、I<そして> 再割り当てされた
1958	2006	要素に関する問題になりやすいです)ことなので、C<@DB::args> は実際には現在の
1959	2007	状態と L<C<@_>\|perlvar/@_> の初期状態との合成物となります。
1960	2008	ご用心を。
1961	2009
1962	2010	=item chdir EXPR
1963	2011	X<chdir>
1964	2012	X<cd>
1965	2013	X<directory, change>
1966	2014
1967	2015	=item chdir FILEHANDLE
1968	2016
1969	2017	=item chdir DIRHANDLE
1970	2018
1971	2019	=item chdir
1972	2020
1973	2021	=for Pod::Functions change your current working directory
1974	2022
1975	2023	=begin original
1976	2024
1977	2025	Changes the working directory to EXPR, if possible. If EXPR is omitted,
1978	2026	changes to the directory specified by C<$ENV{HOME}>, if set; if not,
1979	2027	changes to the directory specified by C<$ENV{LOGDIR}>. (Under VMS, the
1980	2028	variable C<$ENV{'SYS$LOGIN'}> is also checked, and used if it is set.) If
1981	2029	neither is set, L<C<chdir>\|/chdir EXPR> does nothing and fails. It
1982	2030	returns true on success, false otherwise. See the example under
1983	2031	L<C<die>\|/die LIST>.
1984	2032
1985	2033	=end original
1986	2034
1987	2035	(可能であれば、) カレントディレクトリを EXPR に移します。
1988	2036	EXPR を指定しないと、C<$ENV{HOME}> が設定されていれば、そのディレクトリに
1989	2037	移ります; そうでなく、C<$ENV{LOGDIR}>が設定されていれば、そのディレクトリに
1990	2038	移ります。
1991	2039	(VMS では C<$ENV{'SYS$LOGIN'}> もチェックされ、もしセットされていれば
1992	2040	使われます。)
1993	2041	どちらも設定されていなければ、L<C<chdir>\|/chdir EXPR> は何もせずに失敗します。
1994	2042	成功時には真を返し、そうでなければ偽を返します。
1995	2043	L<C<die>\|/die LIST> の項の例を参照してください。
1996	2044
1997	2045	=begin original
1998	2046
1999	2047	On systems that support L<fchdir(2)>, you may pass a filehandle or
2000	2048	directory handle as the argument. On systems that don't support L<fchdir(2)>,
2001	2049	passing handles raises an exception.
2002	2050
2003	2051	=end original
2004	2052
2005	2053	L<fchdir(2)> に対応しているシステムでは、ファイルハンドルや
2006	2054	ディレクトリハンドルを引数として渡せます。
2007	2055	L<fchdir(2)> に対応していないシステムでは、ハンドルを渡すと例外が発生します。
2008	2056
2009	2057	=item chmod LIST
2010	2058	X<chmod> X<permission> X<mode>
2011	2059
2012	2060	=for Pod::Functions changes the permissions on a list of files
2013	2061
2014	2062	=begin original
2015	2063
2016	2064	Changes the permissions of a list of files. The first element of the
2017	2065	list must be the numeric mode, which should probably be an octal
2018	2066	number, and which definitely should I<not> be a string of octal digits:
2019	2067	C<0644> is okay, but C<"0644"> is not. Returns the number of files
2020	2068	successfully changed. See also L<C<oct>\|/oct EXPR> if all you have is a
2021	2069	string.
2022	2070
2023	2071	=end original
2024	2072
2025	2073	LIST に含まれるファイルの、パーミッションを変更します。
2026	2074	LIST の最初の要素は、数値表現のモードでなければなりません;
2027	2075	恐らく 8 進表記の数であるべきでしょう: しかし、8 進表記の
2028	2076	文字列では I<いけません>: C<0644> は OK ですが、 C<"0644"> は
2029	2077	だめ、ということです。
2030	2078	変更に成功したファイルの数を返します。
2031	2079	文字列を使いたい場合は、L<C<oct>\|/oct EXPR> を参照してください。
2032	2080
2033	2081	my $cnt = chmod 0755, "foo", "bar";
2034	2082	chmod 0755, @executables;
2035	2083	my $mode = "0644"; chmod $mode, "foo"; # !!! sets mode to
2036	2084	# --w----r-T
2037	2085	my $mode = "0644"; chmod oct($mode), "foo"; # this is better
2038	2086	my $mode = 0644; chmod $mode, "foo"; # this is best
2039	2087
2040	2088	=begin original
2041	2089
2042	2090	On systems that support L<fchmod(2)>, you may pass filehandles among the
2043	2091	files. On systems that don't support L<fchmod(2)>, passing filehandles raises
2044	2092	an exception. Filehandles must be passed as globs or glob references to be
2045	2093	recognized; barewords are considered filenames.
2046	2094
2047	2095	=end original
2048	2096
2049	2097	L<fchmod(2)> に対応しているシステムでは、ファイルハンドルを引数として
2050	2098	渡せます。
2051	2099	L<fchmod(2)> に対応していないシステムでは、ファイルハンドルを渡すと
2052	2100	例外が発生します。
2053	2101	ファイルハンドルを認識させるためには、グロブまたはリファレンスとして
2054	2102	渡されなければなりません;
2055	2103	裸の単語はファイル名として扱われます。
2056	2104
2057	2105	open(my $fh, "<", "foo");
2058	2106	my $perm = (stat $fh)[2] & 07777;
2059	2107	chmod($perm \| 0600, $fh);
2060	2108
2061	2109	=begin original
2062	2110
2063	2111	You can also import the symbolic C<S_I*> constants from the
2064	2112	L<C<Fcntl>\|Fcntl> module:
2065	2113
2066	2114	=end original
2067	2115
2068	2116	L<C<Fcntl>\|Fcntl> モジュールから C<S_I*> シンボル定数を
2069	2117	インポートすることもできます:
2070	2118
2071	2119	use Fcntl qw( :mode );
2072	2120	chmod S_IRWXU\|S_IRGRP\|S_IXGRP\|S_IROTH\|S_IXOTH, @executables;
2073	2121	# Identical to the chmod 0755 of the example above.
2074	2122
2075	2123	=begin original
2076	2124
2077	2125	Portability issues: L<perlport/chmod>.
2078	2126
2079	2127	=end original
2080	2128
2081	2129	移植性の問題: L<perlport/chmod>。
2082	2130
2083	2131	=item chomp VARIABLE
2084	2132	X<chomp> X<INPUT_RECORD_SEPARATOR> X<$/> X<newline> X<eol>
2085	2133
2086	2134	=item chomp( LIST )
2087	2135
2088	2136	=item chomp
2089	2137
2090	2138	=for Pod::Functions remove a trailing record separator from a string
2091	2139
2092	2140	=begin original
2093	2141
2094	2142	This safer version of L<C<chop>\|/chop VARIABLE> removes any trailing
2095	2143	string that corresponds to the current value of
2096	2144	L<C<$E<sol>>\|perlvar/$E<sol>> (also known as C<$INPUT_RECORD_SEPARATOR>
2097	2145	in the L<C<English>\|English> module). It returns the total
2098	2146	number of characters removed from all its arguments. It's often used to
2099	2147	remove the newline from the end of an input record when you're worried
2100	2148	that the final record may be missing its newline. When in paragraph
2101	2149	mode (C<$/ = ''>), it removes all trailing newlines from the string.
2102	2150	When in slurp mode (C<$/ = undef>) or fixed-length record mode
2103	2151	(L<C<$E<sol>>\|perlvar/$E<sol>> is a reference to an integer or the like;
2104	2152	see L<perlvar>), L<C<chomp>\|/chomp VARIABLE> won't remove anything.
2105	2153	If VARIABLE is omitted, it chomps L<C<$_>\|perlvar/$_>. Example:
2106	2154
2107	2155	=end original
2108	2156
2109	2157	より安全な L<C<chop>\|/chop VARIABLE> (以下を参照してください) です;
2110	2158	L<C<$E<sol>>\|perlvar/$E<sol>> (L<C<English>\|English> モジュールでは、
2111	2159	C<$INPUT_RECORD_SEPARATOR> とも言う) のその時点の
2112	2160	値に対応する行末文字を削除します。
2113	2161	全ての引数から削除した文字数の合計を返します。
2114	2162	入力レコードから、改行を削除したいのだけれど、最後のレコードには改行が
2115	2163	入っているのかわからないような場合に、使用できます。
2116	2164	段落モード (C<$/ = ''>) では、レコードの最後の改行をすべて取り除きます。
2117	2165	吸い込みモード (C<$/ = undef>) や固定長レコードモード
2118	2166	(L<C<$E<sol>>\|perlvar/$E<sol>> が整数へのリファレンスや類似のものの場合;
2119	2167	L<perlvar>を参照してください)では、L<C<chomp>\|/chomp VARIABLE> は
2120	2168	何も取り除きません。
2121	2169	VARIABLE が省略されると、L<C<$_>\|perlvar/$_> を対象として chomp します。
2122	2170	例:
2123	2171
2124	2172	while (<>) {
2125	2173	chomp; # avoid \n on last field
2126	2174	my @array = split(/:/);
2127	2175	# ...
2128	2176	}
2129	2177
2130	2178	=begin original
2131	2179
2132	2180	If VARIABLE is a hash, it chomps the hash's values, but not its keys,
2133	2181	resetting the L<C<each>\|/each HASH> iterator in the process.
2134	2182
2135	2183	=end original
2136	2184
2137	2185	VARIABLE がハッシュなら、ハッシュのキーではなく値について chomp し、
2138	2186	このプロセスの L<C<each>\|/each HASH> 反復子をリセットします。
2139	2187
2140	2188	=begin original
2141	2189
2142	2190	You can actually chomp anything that's an lvalue, including an assignment:
2143	2191
2144	2192	=end original
2145	2193
2146	2194	左辺値であれば、代入を含めて、任意のものを chomp できます:
2147	2195
2148	2196	chomp(my $cwd = `pwd`);
2149	2197	chomp(my $answer = <STDIN>);
2150	2198
2151	2199	=begin original
2152	2200
2153	2201	If you chomp a list, each element is chomped, and the total number of
2154	2202	characters removed is returned.
2155	2203
2156	2204	=end original
2157	2205
2158	2206	リストを chomp すると、個々の要素が chomp され、
2159	2207	削除された文字数の合計が返されます。
2160	2208
2161	2209	=begin original
2162	2210
2163	2211	Note that parentheses are necessary when you're chomping anything
2164	2212	that is not a simple variable. This is because C<chomp $cwd = `pwd`;>
2165	2213	is interpreted as C<(chomp $cwd) = `pwd`;>, rather than as
2166	2214	C<chomp( $cwd = `pwd` )> which you might expect. Similarly,
2167	2215	C<chomp $a, $b> is interpreted as C<chomp($a), $b> rather than
2168	2216	as C<chomp($a, $b)>.
2169	2217
2170	2218	=end original
2171	2219
2172	2220	単純な変数以外のものを chomp する場合はかっこが必要であることに
2173	2221	注意してください。
2174	2222	これは、C<chomp $cwd = `pwd`;> は、予測している
2175	2223	C<chomp( $cwd = `pwd` )> ではなく、C<(chomp $cwd) = `pwd`;> と
2176	2224	解釈されるからです。
2177	2225	同様に、C<chomp $a, $b> は C<chomp($a, $b)> ではなく C<chomp($a), $b>
2178	2226	と解釈されます。
2179	2227
2180	2228	=item chop VARIABLE
2181	2229	X<chop>
2182	2230
2183	2231	=item chop( LIST )
2184	2232
2185	2233	=item chop
2186	2234
2187	2235	=for Pod::Functions remove the last character from a string
2188	2236
2189	2237	=begin original
2190	2238
2191	2239	Chops off the last character of a string and returns the character
2192	2240	chopped. It is much more efficient than C<s/.$//s> because it neither
2193	2241	scans nor copies the string. If VARIABLE is omitted, chops
2194	2242	L<C<$_>\|perlvar/$_>.
2195	2243	If VARIABLE is a hash, it chops the hash's values, but not its keys,
2196	2244	resetting the L<C<each>\|/each HASH> iterator in the process.
2197	2245
2198	2246	=end original
2199	2247
2200	2248	文字列の最後の文字を切り捨てて、その切り取った文字を返します。
2201	2249	文字列の検索もコピーも行ないませんので
2202	2250	C<s/.$//s> よりも、ずっと効率的です。
2203	2251	VARIABLE が省略されると、L<C<$_>\|perlvar/$_> を対象として chop します。
2204	2252	VARIABLE がハッシュの場合、ハッシュのキーではなく値について chop し、
2205	2253	このプロセスの L<C<each>\|/each HASH> 反復子をリセットします。
2206	2254
2207	2255	=begin original
2208	2256
2209	2257	You can actually chop anything that's an lvalue, including an assignment.
2210	2258
2211	2259	=end original
2212	2260
2213	2261	実際のところ、代入を含む左辺値となりうるなんでも chop できます。
2214	2262
2215	2263	=begin original
2216	2264
2217	2265	If you chop a list, each element is chopped. Only the value of the
2218	2266	last L<C<chop>\|/chop VARIABLE> is returned.
2219	2267
2220	2268	=end original
2221	2269
2222	2270	リストを chop すると、個々の要素が chop されます。
2223	2271	最後の L<C<chop>\|/chop VARIABLE> の値だけが返されます。
2224	2272
2225	2273	=begin original
2226	2274
2227	2275	Note that L<C<chop>\|/chop VARIABLE> returns the last character. To
2228	2276	return all but the last character, use C<substr($string, 0, -1)>.
2229	2277
2230	2278	=end original
2231	2279
2232	2280	L<C<chop>\|/chop VARIABLE> は最後の文字を返すことに注意してください。
2233	2281	最後以外の全ての文字を返すためには、C<substr($string, 0, -1)> を
2234	2282	使ってください。
2235	2283
2236	2284	=begin original
2237	2285
2238	2286	See also L<C<chomp>\|/chomp VARIABLE>.
2239	2287
2240	2288	=end original
2241	2289
2242	2290	L<C<chomp>\|/chomp VARIABLE> も参照してください。
2243	2291
2244	2292	=item chown LIST
2245	2293	X<chown> X<owner> X<user> X<group>
2246	2294
2247	2295	=for Pod::Functions change the ownership on a list of files
2248	2296
2249	2297	=begin original
2250	2298
2251	2299	Changes the owner (and group) of a list of files. The first two
2252	2300	elements of the list must be the I<numeric> uid and gid, in that
2253	2301	order. A value of -1 in either position is interpreted by most
2254	2302	systems to leave that value unchanged. Returns the number of files
2255	2303	successfully changed.
2256	2304
2257	2305	=end original
2258	2306
2259	2307	LIST に含まれるファイルの所有者 (とグループ) を変更します。
2260	2308	LIST の最初の二つの要素には、I<数値表現> の uid と gid を
2261	2309	この順序で与えなければなりません。
2262	2310	どちらかの値を -1 にすると、ほとんどのシステムではその値は
2263	2311	変更しないと解釈します。
2264	2312	変更に成功したファイルの数を返します。
2265	2313
2266	2314	my $cnt = chown $uid, $gid, 'foo', 'bar';
2267	2315	chown $uid, $gid, @filenames;
2268	2316
2269	2317	=begin original
2270	2318
2271	2319	On systems that support L<fchown(2)>, you may pass filehandles among the
2272	2320	files. On systems that don't support L<fchown(2)>, passing filehandles raises
2273	2321	an exception. Filehandles must be passed as globs or glob references to be
2274	2322	recognized; barewords are considered filenames.
2275	2323
2276	2324	=end original
2277	2325
2278	2326	L<fchown(2)> に対応しているシステムでは、ファイルハンドルを引数として渡せます。
2279	2327	L<fchown(2)> に対応していないシステムでは、ファイルハンドルを渡すと
2280	2328	例外が発生します。
2281	2329	ファイルハンドルを認識させるためには、グロブまたはリファレンスとして
2282	2330	渡されなければなりません; 裸の単語はファイル名として扱われます。
2283	2331
2284	2332	=begin original
2285	2333
2286	2334	Here's an example that looks up nonnumeric uids in the passwd file:
2287	2335
2288	2336	=end original
2289	2337
2290	2338	passwd ファイルから数値表現でない uid を検索する例を
2291	2339	示します:
2292	2340
2293	2341	print "User: ";
2294	2342	chomp(my $user = <STDIN>);
2295	2343	print "Files: ";
2296	2344	chomp(my $pattern = <STDIN>);
2297	2345
2298	2346	my ($login,$pass,$uid,$gid) = getpwnam($user)
2299	2347	or die "$user not in passwd file";
2300	2348
2301	2349	my @ary = glob($pattern); # expand filenames
2302	2350	chown $uid, $gid, @ary;
2303	2351
2304	2352	=begin original
2305	2353
2306	2354	On most systems, you are not allowed to change the ownership of the
2307	2355	file unless you're the superuser, although you should be able to change
2308	2356	the group to any of your secondary groups. On insecure systems, these
2309	2357	restrictions may be relaxed, but this is not a portable assumption.
2310	2358	On POSIX systems, you can detect this condition this way:
2311	2359
2312	2360	=end original
2313	2361
2314	2362	ほとんどのシステムでは、スーパーユーザーだけがファイルの所有者を
2315	2363	変更できますが、グループは実行者の副グループに変更できるべきです。
2316	2364	安全でないシステムでは、この制限はゆるめられています; しかしこれは
2317	2365	移植性のある仮定ではありません。
2318	2366	POSIX システムでは、以下のようにしてこの条件を検出できます:
2319	2367
2320	2368	use POSIX qw(sysconf _PC_CHOWN_RESTRICTED);
2321	2369	my $can_chown_giveaway = ! sysconf(_PC_CHOWN_RESTRICTED);
2322	2370
2323	2371	=begin original
2324	2372
2325	2373	Portability issues: L<perlport/chown>.
2326	2374
2327	2375	=end original
2328	2376
2329	2377	移植性の問題: L<perlport/chown>。
2330	2378
2331	2379	=item chr NUMBER
2332	2380	X<chr> X<character> X<ASCII> X<Unicode>
2333	2381
2334	2382	=item chr
2335	2383
2336	2384	=for Pod::Functions get character this number represents
2337	2385
2338	2386	=begin original
2339	2387
2340	2388	Returns the character represented by that NUMBER in the character set.
2341	2389	For example, C<chr(65)> is C<"A"> in either ASCII or Unicode, and
2342	2390	chr(0x263a) is a Unicode smiley face.
2343	2391
2344	2392	=end original
2345	2393
2346	2394	特定の文字セットでの NUMBER で表わされる文字を返します。
2347	2395	たとえば、C<chr(65)> は ASCII と Unicode の両方で C<"A"> となります;
2348	2396	chr(0x263a) は Unicode のスマイリーフェイスです。
2349	2397
2350	2398	=begin original
2351	2399
2352	2400	Negative values give the Unicode replacement character (chr(0xfffd)),
2353	2401	except under the L<bytes> pragma, where the low eight bits of the value
2354	2402	(truncated to an integer) are used.
2355	2403
2356	2404	=end original
2357	2405
2358	2406	負の数は Unicode の置換文字 (chr(0xfffd)) を与えますが、
2359	2407	L<bytes> プラグマの影響下では、(integer に切り詰められた)値の下位 8 ビットが
2360	2408	使われます。
2361	2409
2362	2410	=begin original
2363	2411
2364	2412	If NUMBER is omitted, uses L<C<$_>\|perlvar/$_>.
2365	2413
2366	2414	=end original
2367	2415
2368	2416	NUMBER が省略された場合、L<C<$_>\|perlvar/$_> を使います。
2369	2417
2370	2418	=begin original
2371	2419
2372	2420	For the reverse, use L<C<ord>\|/ord EXPR>.
2373	2421
2374	2422	=end original
2375	2423
2376	2424	逆を行うためには、L<C<ord>\|/ord EXPR> を参照してください。
2377	2425
2378	2426	=begin original
2379	2427
2380	2428	Note that characters from 128 to 255 (inclusive) are by default
2381	2429	internally not encoded as UTF-8 for backward compatibility reasons.
2382	2430
2383	2431	=end original
2384	2432
2385	2433	128 から 255 までの文字は過去との互換性のために
2386	2434	デフォルトでは UTF-8 Unicode にエンコードされません。
2387	2435
2388	2436	=begin original
2389	2437
2390	2438	See L<perlunicode> for more about Unicode.
2391	2439
2392	2440	=end original
2393	2441
2394	2442	Unicode については L<perlunicode> を参照してください。
2395	2443
2396	2444	=item chroot FILENAME
2397	2445	X<chroot> X<root>
2398	2446
2399	2447	=item chroot
2400	2448
2401	2449	=for Pod::Functions make directory new root for path lookups
2402	2450
2403	2451	=begin original
2404	2452
2405	2453	This function works like the system call by the same name: it makes the
2406	2454	named directory the new root directory for all further pathnames that
2407	2455	begin with a C</> by your process and all its children. (It doesn't
2408	2456	change your current working directory, which is unaffected.) For security
2409	2457	reasons, this call is restricted to the superuser. If FILENAME is
2410	2458	omitted, does a L<C<chroot>\|/chroot FILENAME> to L<C<$_>\|perlvar/$_>.
2411	2459
2412	2460	=end original
2413	2461
2414	2462	同じ名前のシステムコールと同じことをします: 現在のプロセス及び子プロセスに
2415	2463	対して、C</>で始まるパス名に関して指定されたディレクトリを新しい
2416	2464	ルートディレクトリとして扱います。
2417	2465	(これはカレントディレクトリを変更しません; カレントディレクトリは
2418	2466	そのままです。)
2419	2467	セキュリティ上の理由により、この呼び出しはスーパーユーザーしか行えません。
2420	2468	FILENAME を省略すると、L<C<$_>\|perlvar/$_> へ
2421	2469	L<C<chroot>\|/chroot FILENAME> します。
2422	2470
2423	2471	=begin original
2424	2472
2425	2473	B<NOTE:> It is mandatory for security to C<chdir("/")>
2426	2474	(L<C<chdir>\|/chdir EXPR> to the root directory) immediately after a
2427	2475	L<C<chroot>\|/chroot FILENAME>, otherwise the current working directory
2428	2476	may be outside of the new root.
2429	2477
2430	2478	=end original
2431	2479
2432	2480	B<注意:> L<C<chroot>\|/chroot FILENAME> の直後に (ルートディレクトリに
2433	2481	L<C<chdir>\|/chdir EXPR> する)
2434	2482	C<chdir("/")> するのはセキュリティ上必須です;
2435	2483	さもなければ現在の作業ディレクトリは新しいルートの外側かもしれません。
2436	2484
2437	2485	=begin original
2438	2486
2439	2487	Portability issues: L<perlport/chroot>.
2440	2488
2441	2489	=end original
2442	2490
2443	2491	移植性の問題: L<perlport/chroot>。
2444	2492
2445	2493	=item close FILEHANDLE
2446	2494	X<close>
2447	2495
2448	2496	=item close
2449	2497
2450	2498	=for Pod::Functions close file (or pipe or socket) handle
2451	2499
2452	2500	=begin original
2453	2501
2454	2502	Closes the file or pipe associated with the filehandle, flushes the IO
2455	2503	buffers, and closes the system file descriptor. Returns true if those
2456	2504	operations succeed and if no error was reported by any PerlIO
2457	2505	layer. Closes the currently selected filehandle if the argument is
2458	2506	omitted.
2459	2507
2460	2508	=end original
2461	2509
2462	2510	FILEHANDLE に対応したファイルまたはパイプをクローズして、
2463	2511	IO バッファをフラッシュし、システムファイル記述子をクローズします。
2464	2512	操作が成功し、PerlIO 層からエラーが報告されなかった場合に真を返します。
2465	2513	引数が省略された場合、現在選択されているファイルハンドルをクローズします。
2466	2514
2467	2515	=begin original
2468	2516
2469	2517	You don't have to close FILEHANDLE if you are immediately going to do
2470	2518	another L<C<open>\|/open FILEHANDLE,MODE,EXPR> on it, because
2471	2519	L<C<open>\|/open FILEHANDLE,MODE,EXPR> closes it for you. (See
2472	2520	L<C<open>\|/open FILEHANDLE,MODE,EXPR>.) However, an explicit
2473	2521	L<C<close>\|/close FILEHANDLE> on an input file resets the line counter
2474	2522	(L<C<$.>\|perlvar/$.>), while the implicit close done by
2475	2523	L<C<open>\|/open FILEHANDLE,MODE,EXPR> does not.
2476	2524
2477	2525	=end original
2478	2526
2479	2527	クローズしてすぐにまた、同じファイルハンドルに対してオープンを行なう
2480	2528	場合には、L<C<open>\|/open FILEHANDLE,MODE,EXPR> が自動的に
2481	2529	L<C<close>\|/close FILEHANDLE> を行ないますので、
2482	2530	close FILEHANDLE する必要はありません。
2483	2531	(L<C<open>\|/open FILEHANDLE,MODE,EXPR> を参照してください。)
2484	2532	ただし、明示的にクローズを行なったときにのみ入力ファイルの
2485	2533	行番号 (L<C<$.>\|perlvar/$.>) のリセットが行なわれ、
2486	2534	L<C<open>\|/open FILEHANDLE,MODE,EXPR> によって行なわれる
2487	2535	暗黙の L<C<close>\|/close FILEHANDLE> では行なわれません。
2488	2536
2489	2537	=begin original
2490	2538
2491	2539	If the filehandle came from a piped open, L<C<close>\|/close FILEHANDLE>
2492	2540	returns false if one of the other syscalls involved fails or if its
2493	2541	program exits with non-zero status. If the only problem was that the
2494	2542	program exited non-zero, L<C<$!>\|perlvar/$!> will be set to C<0>.
2495	2543	Closing a pipe also waits for the process executing on the pipe to
2496	2544	exit--in case you wish to look at the output of the pipe afterwards--and
2497	2545	implicitly puts the exit status value of that command into
2498	2546	L<C<$?>\|perlvar/$?> and
2499	2547	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}>.
2500	2548
2501	2549	=end original
2502	2550
2503	2551	ファイルハンドルがパイプつきオープンなら、L<C<close>\|/close FILEHANDLE> は
2504	2552	その他のシステムコールが失敗したりプログラムが非ゼロのステータスで終了した
2505	2553	場合にも偽を返します。
2506	2554	プログラムが非ゼロで終了しただけの場合は、L<C<$!>\|perlvar/$!> が C<0> に
2507	2555	セットされます。
2508	2556	後でパイプの出力を見たい場合のために、パイプのクローズでは、パイプ上で
2509	2557	実行されているプロセスの終了を待ち、また自動的にコマンドのステータス値を
2510	2558	L<C<$?>\|perlvar/$?> と
2511	2559	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}> に設定します。
2512	2560
2513	2561	=begin original
2514	2562
2515	2563	If there are multiple threads running, L<C<close>\|/close FILEHANDLE> on
2516	2564	a filehandle from a piped open returns true without waiting for the
2517	2565	child process to terminate, if the filehandle is still open in another
2518	2566	thread.
2519	2567
2520	2568	=end original
2521	2569
2522	2570	複数のスレッドがある場合、パイプで開かれたファイルハンドルに対する
2523	2571	L<C<close>\|/close FILEHANDLE> は、そのファイルハンドルが他のスレッドで
2524	2572	まだ開かれている場合、子プロセスの終了を待たずに真を返します。
2525	2573
2526	2574	=begin original
2527	2575
2528	2576	Closing the read end of a pipe before the process writing to it at the
2529	2577	other end is done writing results in the writer receiving a SIGPIPE. If
2530	2578	the other end can't handle that, be sure to read all the data before
2531	2579	closing the pipe.
2532	2580
2533	2581	=end original
2534	2582
2535	2583	書き込み側が閉じる前に途中でパイプの読み込み側が閉じた場合、
2536	2584	書き込み側に SIGPIPE が配送されます。
2537	2585	書き込み側がこれを扱えない場合、パイプを閉じる前に
2538	2586	確実に全てのデータが読み込まれるようにする必要があります。
2539	2587
2540	2588	=begin original
2541	2589
2542	2590	Example:
2543	2591
2544	2592	=end original
2545	2593
2546	2594	例:
2547	2595
2548	2596	open(OUTPUT, '\|sort >foo') # pipe to sort
2549	2597	or die "Can't start sort: $!";
2550	2598	#... # print stuff to output
2551	2599	close OUTPUT # wait for sort to finish
2552	2600	or warn $! ? "Error closing sort pipe: $!"
2553	2601	: "Exit status $? from sort";
2554	2602	open(INPUT, 'foo') # get sort's results
2555	2603	or die "Can't open 'foo' for input: $!";
2556	2604
2557	2605	=begin original
2558	2606
2559	2607	FILEHANDLE may be an expression whose value can be used as an indirect
2560	2608	filehandle, usually the real filehandle name or an autovivified handle.
2561	2609
2562	2610	=end original
2563	2611
2564	2612	FILEHANDLE は式でもかまいません; この場合、値は間接ファイルハンドルと
2565	2613	して扱われ、普通は実際のファイルハンドル名か自動有効化されたハンドルです。
2566	2614
2567	2615	=item closedir DIRHANDLE
2568	2616	X<closedir>
2569	2617
2570	2618	=for Pod::Functions close directory handle
2571	2619
2572	2620	=begin original
2573	2621
2574	2622	Closes a directory opened by L<C<opendir>\|/opendir DIRHANDLE,EXPR> and
2575	2623	returns the success of that system call.
2576	2624
2577	2625	=end original
2578	2626
2579	2627	L<C<opendir>\|/opendir DIRHANDLE,EXPR> でオープンしたディレクトリをクローズし、
2580	2628	システムコールの返り値を返します。
2581	2629
2582	2630	=item connect SOCKET,NAME
2583	2631	X<connect>
2584	2632
2585	2633	=for Pod::Functions connect to a remote socket
2586	2634
2587	2635	=begin original
2588	2636
2589	2637	Attempts to connect to a remote socket, just like L<connect(2)>.
2590	2638	Returns true if it succeeded, false otherwise. NAME should be a
2591	2639	packed address of the appropriate type for the socket. See the examples in
2592	2640	L<perlipc/"Sockets: Client/Server Communication">.
2593	2641
2594	2642	=end original
2595	2643
2596	2644	L<connect(2)> システムコールと同様に、リモートソケットへの接続を試みます。
2597	2645	成功時には真を、さもなければ偽を返します。
2598	2646	NAME は、ソケットに対する、適切な型のパックされた
2599	2647	アドレスでなければなりません。
2600	2648	L<perlipc/"Sockets: Client/Server Communication"> の例を参照してください。
2601	2649
2602	2650	=item continue BLOCK
2603	2651	X<continue>
2604	2652
2605	2653	=item continue
2606	2654
2607	2655	=for Pod::Functions optional trailing block in a while or foreach
2608	2656
2609	2657	=begin original
2610	2658
2611	2659	When followed by a BLOCK, L<C<continue>\|/continue BLOCK> is actually a
2612	2660	flow control statement rather than a function. If there is a
2613	2661	L<C<continue>\|/continue BLOCK> BLOCK attached to a BLOCK (typically in a
2614	2662	C<while> or C<foreach>), it is always executed just before the
2615	2663	conditional is about to be evaluated again, just like the third part of
2616	2664	a C<for> loop in C. Thus it can be used to increment a loop variable,
2617	2665	even when the loop has been continued via the L<C<next>\|/next LABEL>
2618	2666	statement (which is similar to the C L<C<continue>\|/continue BLOCK>
2619	2667	statement).
2620	2668
2621	2669	=end original
2622	2670
2623	2671	BLOCK が引き続く場合、L<C<continue>\|/continue BLOCK> は実際には関数ではなく、
2624	2672	実行制御文です。
2625	2673	L<C<continue>\|/continue BLOCK> BLOCK が BLOCK (典型的には C<while> または
2626	2674	C<foreach> の中)にあると、これは条件文が再評価される直前に常に実行されます;
2627	2675	これは C における C<for> ループの 3 番目の部分と同様です。
2628	2676	従って、これは L<C<next>\|/next LABEL> 文 (これは C の
2629	2677	L<C<continue>\|/continue BLOCK> 文と似ています) を使って
2630	2678	ループが繰り返されるときでもループ変数を増やしたいときに使えます。
2631	2679
2632	2680	=begin original
2633	2681
2634	2682	L<C<last>\|/last LABEL>, L<C<next>\|/next LABEL>, or
2635	2683	L<C<redo>\|/redo LABEL> may appear within a
2636	2684	L<C<continue>\|/continue BLOCK> block; L<C<last>\|/last LABEL> and
2637	2685	L<C<redo>\|/redo LABEL> behave as if they had been executed within the
2638	2686	main block. So will L<C<next>\|/next LABEL>, but since it will execute a
2639	2687	L<C<continue>\|/continue BLOCK> block, it may be more entertaining.
2640	2688
2641	2689	=end original
2642	2690
2643	2691	L<C<last>\|/last LABEL>, L<C<next>\|/next LABEL>, L<C<redo>\|/redo LABEL> が
2644	2692	L<C<continue>\|/continue BLOCK> ブロック内に現れる可能性があります;
2645	2693	L<C<last>\|/last LABEL> と L<C<redo>\|/redo LABEL> はメインブロックの中で
2646	2694	実行されたのと同じように振舞います。
2647	2695	L<C<next>\|/next LABEL> の場合は、L<C<continue>\|/continue BLOCK> ブロックを
2648	2696	実行することになるので、より面白いことになります。
2649	2697
2650	2698	while (EXPR) {
2651	2699	### redo always comes here
2652	2700	do_something;
2653	2701	} continue {
2654	2702	### next always comes here
2655	2703	do_something_else;
2656	2704	# then back the top to re-check EXPR
2657	2705	}
2658	2706	### last always comes here
2659	2707
2660	2708	=begin original
2661	2709
2662	2710	Omitting the L<C<continue>\|/continue BLOCK> section is equivalent to
2663	2711	using an empty one, logically enough, so L<C<next>\|/next LABEL> goes
2664	2712	directly back to check the condition at the top of the loop.
2665	2713
2666	2714	=end original
2667	2715
2668	2716	L<C<continue>\|/continue BLOCK> 節を省略するのは、空の節を指定したのと同じで、
2669	2717	論理的には十分なので、この場合、L<C<next>\|/next LABEL> は直接ループ先頭の
2670	2718	条件チェックに戻ります。
2671	2719
2672	2720	=begin original
2673	2721
2674	2722	When there is no BLOCK, L<C<continue>\|/continue BLOCK> is a function
2675	2723	that falls through the current C<when> or C<default> block instead of
2676	2724	iterating a dynamically enclosing C<foreach> or exiting a lexically
2677	2725	enclosing C<given>. In Perl 5.14 and earlier, this form of
2678	2726	L<C<continue>\|/continue BLOCK> was only available when the
2679	2727	L<C<"switch"> feature\|feature/The 'switch' feature> was enabled. See
2680	2728	L<feature> and L<perlsyn/"Switch Statements"> for more information.
2681	2729
2682	2730	=end original
2683	2731
2684	2732	BLOCK がなければ、L<C<continue>\|/continue BLOCK> は動的に囲まれた C<foreach> や
2685	2733	レキシカルに囲まれた C<given> で反復するのではなく、現在の C<when> または
2686	2734	C<default> のブロックを通り抜けるための文です。
2687	2735	Perl 5.14 以前では、この形式の L<C<continue>\|/continue BLOCK> は
2688	2736	L<C<"switch"> 機能\|feature/The 'switch' feature> が有効の場合にのみ
2689	2737	利用可能です。
2690	2738	さらなる情報については L<feature> と L<perlsyn/"Switch Statements"> を
2691	2739	参照してください。
2692	2740
2693	2741	=item cos EXPR
2694	2742	X<cos> X<cosine> X<acos> X<arccosine>
2695	2743
2696	2744	=item cos
2697	2745
2698	2746	=for Pod::Functions cosine function
2699	2747
2700	2748	=begin original
2701	2749
2702	2750	Returns the cosine of EXPR (expressed in radians). If EXPR is omitted,
2703	2751	takes the cosine of L<C<$_>\|perlvar/$_>.
2704	2752
2705	2753	=end original
2706	2754
2707	2755	(ラジアンで示した) EXPR の余弦を返します。
2708	2756	EXPR が省略されたときには、L<C<$_>\|perlvar/$_> の余弦を取ります。
2709	2757
2710	2758	=begin original
2711	2759
2712	2760	For the inverse cosine operation, you may use the
2713	2761	L<C<Math::Trig::acos>\|Math::Trig> function, or use this relation:
2714	2762
2715	2763	=end original
2716	2764
2717	2765	逆余弦を求めるためには、L<C<Math::Trig::acos>\|Math::Trig> 関数を使うか、
2718	2766	以下の関係を使ってください。
2719	2767
2720	2768	sub acos { atan2( sqrt(1 - $_[0] * $_[0]), $_[0] ) }
2721	2769
2722	2770	=item crypt PLAINTEXT,SALT
2723	2771	X<crypt> X<digest> X<hash> X<salt> X<plaintext> X<password>
2724	2772	X<decrypt> X<cryptography> X<passwd> X<encrypt>
2725	2773
2726	2774	=for Pod::Functions one-way passwd-style encryption
2727	2775
2728	2776	=begin original
2729	2777
2730	2778	Creates a digest string exactly like the L<crypt(3)> function in the C
2731	2779	library (assuming that you actually have a version there that has not
2732	2780	been extirpated as a potential munition).
2733	2781
2734	2782	=end original
2735	2783
2736	2784	C ライブラリの L<crypt(3)> 関数と全く同じように、ダイジェスト文字列を
2737	2785	作成します(一時的な必需品として、まだ絶滅していないバージョンを
2738	2786	持っていると仮定しています)。
2739	2787
2740	2788	=begin original
2741	2789
2742	2790	L<C<crypt>\|/crypt PLAINTEXT,SALT> is a one-way hash function. The
2743	2791	PLAINTEXT and SALT are turned
2744	2792	into a short string, called a digest, which is returned. The same
2745	2793	PLAINTEXT and SALT will always return the same string, but there is no
2746	2794	(known) way to get the original PLAINTEXT from the hash. Small
2747	2795	changes in the PLAINTEXT or SALT will result in large changes in the
2748	2796	digest.
2749	2797
2750	2798	=end original
2751	2799
2752	2800	L<C<crypt>\|/crypt PLAINTEXT,SALT> は一方向ハッシュ関数です。
2753	2801	PLAINTEXT と SALT はダイジェストと呼ばれる短い文字列に変えられて、
2754	2802	それが返されます。
2755	2803	PLAINTEXT と SALT が同じ場合は常に同じ文字列を返しますが、ハッシュから
2756	2804	元の PLAINTEXT を得る(既知の)方法はありません。
2757	2805	PLAINTEXT や SALT を少し変更してもダイジェストは大きく変更されます。
2758	2806
2759	2807	=begin original
2760	2808
2761	2809	There is no decrypt function. This function isn't all that useful for
2762	2810	cryptography (for that, look for F<Crypt> modules on your nearby CPAN
2763	2811	mirror) and the name "crypt" is a bit of a misnomer. Instead it is
2764	2812	primarily used to check if two pieces of text are the same without
2765	2813	having to transmit or store the text itself. An example is checking
2766	2814	if a correct password is given. The digest of the password is stored,
2767	2815	not the password itself. The user types in a password that is
2768	2816	L<C<crypt>\|/crypt PLAINTEXT,SALT>'d with the same salt as the stored
2769	2817	digest. If the two digests match, the password is correct.
2770	2818
2771	2819	=end original
2772	2820
2773	2821	復号化関数はありません。
2774	2822	この関数は暗号化のためにはまったく役に立ちません(このためには、
2775	2823	お近くの CPAN ミラーで F<Crypt> モジュールを探してください)ので、
2776	2824	"crypt" という名前は少し間違った名前です。
2777	2825	その代わりに、一般的には二つのテキスト片が同じかどうかをテキストそのものを
2778	2826	転送したり保管したりせずにチェックするために使います。
2779	2827	例としては、正しいパスワードが与えられたかどうかをチェックがあります。
2780	2828	パスワード自身ではなく、パスワードのダイジェストが保管されます。
2781	2829	ユーザーがパスワードを入力すると、保管されているダイジェストと同じ
2782	2830	salt で L<C<crypt>\|/crypt PLAINTEXT,SALT> します。
2783	2831	二つのダイジェストが同じなら、パスワードは正しいです。
2784	2832
2785	2833	=begin original
2786	2834
2787	2835	When verifying an existing digest string you should use the digest as
2788	2836	the salt (like C<crypt($plain, $digest) eq $digest>). The SALT used
2789	2837	to create the digest is visible as part of the digest. This ensures
2790	2838	L<C<crypt>\|/crypt PLAINTEXT,SALT> will hash the new string with the same
2791	2839	salt as the digest. This allows your code to work with the standard
2792	2840	L<C<crypt>\|/crypt PLAINTEXT,SALT> and with more exotic implementations.
2793	2841	In other words, assume nothing about the returned string itself nor
2794	2842	about how many bytes of SALT may matter.
2795	2843
2796	2844	=end original
2797	2845
2798	2846	すでにあるダイジェスト文字列を検証するには、ダイジェストを
2799	2847	(C<crypt($plain, $digest) eq $digest> のようにして)salt として使います。
2800	2848	ダイジェストを作るのに使われた SALT はダイジェストの一部として見えます。
2801	2849	これにより、L<C<crypt>\|/crypt PLAINTEXT,SALT> は同じ salt で新しい文字列を
2802	2850	ダイジェストとしてハッシュ化できるようにします。
2803	2851	これによって標準的な L<C<crypt>\|/crypt PLAINTEXT,SALT> や、より風変わりな
2804	2852	実装でも動作します。
2805	2853	言い換えると、返される文字列や、SALT が何バイトあるかといったことに対して、
2806	2854	どのような仮定もしてはいけません。
2807	2855
2808	2856	=begin original
2809	2857
2810	2858	Traditionally the result is a string of 13 bytes: two first bytes of
2811	2859	the salt, followed by 11 bytes from the set C<[./0-9A-Za-z]>, and only
2812	2860	the first eight bytes of PLAINTEXT mattered. But alternative
2813	2861	hashing schemes (like MD5), higher level security schemes (like C2),
2814	2862	and implementations on non-Unix platforms may produce different
2815	2863	strings.
2816	2864
2817	2865	=end original
2818	2866
2819	2867	伝統的には結果は 13 バイトの文字列です: 最初の 2 バイトは salt、引き続いて
2820	2868	集合 C<[./0-9A-Za-z]> からの 11 バイトで、PLAINTEXT の最初の
2821	2869	8 バイトだけが意味があります。
2822	2870	しかし、(MD5 のように) 異なったハッシュ手法、
2823	2871	(C2 のような) 高レベルセキュリティ手法、非 Unix プラットフォームでの
2824	2872	実装などでは異なった文字列が生成されることがあります。
2825	2873
2826	2874	=begin original
2827	2875
2828	2876	When choosing a new salt create a random two character string whose
2829	2877	characters come from the set C<[./0-9A-Za-z]> (like C<join '', ('.',
2830	2878	'/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]>). This set of
2831	2879	characters is just a recommendation; the characters allowed in
2832	2880	the salt depend solely on your system's crypt library, and Perl can't
2833	2881	restrict what salts L<C<crypt>\|/crypt PLAINTEXT,SALT> accepts.
2834	2882
2835	2883	=end original
2836	2884
2837	2885	新しい salt を選択する場合は、集合 C<[./0-9A-Za-z]> から
2838	2886	(C<join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]> の
2839	2887	ようにして)ランダムに2 つの文字を選びます。
2840	2888	この文字集合は単なる推薦です; salt として許される文字はシステムの暗号化
2841	2889	ライブラリだけに依存し、Perl は L<C<crypt>\|/crypt PLAINTEXT,SALT> が
2842	2890	どのような salt を受け付けるかについて制限しません。
2843	2891
2844	2892	=begin original
2845	2893
2846	2894	Here's an example that makes sure that whoever runs this program knows
2847	2895	their password:
2848	2896
2849	2897	=end original
2850	2898
2851	2899	プログラムを実行する人が、
2852	2900	自分のパスワードを知っていることを確認する例です:
2853	2901
2854	2902	my $pwd = (getpwuid($<))[1];
2855	2903
2856	2904	system "stty -echo";
2857	2905	print "Password: ";
2858	2906	chomp(my $word = <STDIN>);
2859	2907	print "\n";
2860	2908	system "stty echo";
2861	2909
2862	2910	if (crypt($word, $pwd) ne $pwd) {
2863	2911	die "Sorry...\n";
2864	2912	} else {
2865	2913	print "ok\n";
2866	2914	}
2867	2915
2868	2916	=begin original
2869	2917
2870	2918	Of course, typing in your own password to whoever asks you
2871	2919	for it is unwise.
2872	2920
2873	2921	=end original
2874	2922
2875	2923	もちろん、自分自身のパスワードを誰にでも入力するのは賢明ではありません。
2876	2924
2877	2925	=begin original
2878	2926
2879	2927	The L<C<crypt>\|/crypt PLAINTEXT,SALT> function is unsuitable for hashing
2880	2928	large quantities of data, not least of all because you can't get the
2881	2929	information back. Look at the L<Digest> module for more robust
2882	2930	algorithms.
2883	2931
2884	2932	=end original
2885	2933
2886	2934	L<C<crypt>\|/crypt PLAINTEXT,SALT> 関数は大量のデータのハッシュ化には
2887	2935	向いていません; これは情報を戻せないという理由だけではありません。
2888	2936	より頑強なアルゴリズムについては L<Digest> モジュールを参照してください。
2889	2937
2890	2938	=begin original
2891	2939
2892	2940	If using L<C<crypt>\|/crypt PLAINTEXT,SALT> on a Unicode string (which
2893	2941	I<potentially> has characters with codepoints above 255), Perl tries to
2894	2942	make sense of the situation by trying to downgrade (a copy of) the
2895	2943	string back to an eight-bit byte string before calling
2896	2944	L<C<crypt>\|/crypt PLAINTEXT,SALT> (on that copy). If that works, good.
2897	2945	If not, L<C<crypt>\|/crypt PLAINTEXT,SALT> dies with
2898	2946	L<C<Wide character in crypt>\|perldiag/Wide character in %s>.
2899	2947
2900	2948	=end original
2901	2949
2902	2950	Unicode 文字列(I<潜在的には> 255 を越えるコードポイントを持つ文字を
2903	2951	含みます)に L<C<crypt>\|/crypt PLAINTEXT,SALT> を使った場合、Perl は
2904	2952	L<C<crypt>\|/crypt PLAINTEXT,SALT> を呼び出す前に与えられた
2905	2953	文字列を8 ビットバイト文字列にダウングレードする(文字列のコピーを作る)
2906	2954	ことで状況のつじつまを合わせようとします。
2907	2955	うまく動けば、それでよし。
2908	2956	動かなければ、L<C<crypt>\|/crypt PLAINTEXT,SALT> は
2909	2957	L<C<Wide character in crypt>\|perldiag/Wide character in %s> という
2910	2958	メッセージと共に die します。
2911	2959
2912	2960	=begin original
2913	2961
2914	2962	Portability issues: L<perlport/crypt>.
2915	2963
2916	2964	=end original
2917	2965
2918	2966	移植性の問題: L<perlport/crypt>。
2919	2967
2920	2968	=item dbmclose HASH
2921	2969	X<dbmclose>
2922	2970
2923	2971	=for Pod::Functions breaks binding on a tied dbm file
2924	2972
2925	2973	=begin original
2926	2974
2927	2975	[This function has been largely superseded by the
2928	2976	L<C<untie>\|/untie VARIABLE> function.]
2929	2977
2930	2978	=end original
2931	2979
2932	2980	[この関数は、L<C<untie>\|/untie VARIABLE> 関数に大きくとって代わられました。]
2933	2981
2934	2982	=begin original
2935	2983
2936	2984	Breaks the binding between a DBM file and a hash.
2937	2985
2938	2986	=end original
2939	2987
2940	2988	DBM ファイルとハッシュの連結をはずします。
2941	2989
2942	2990	=begin original
2943	2991
2944	2992	Portability issues: L<perlport/dbmclose>.
2945	2993
2946	2994	=end original
2947	2995
2948	2996	移植性の問題: L<perlport/dbmclose>。
2949	2997
2950	2998	=item dbmopen HASH,DBNAME,MASK
2951	2999	X<dbmopen> X<dbm> X<ndbm> X<sdbm> X<gdbm>
2952	3000
2953	3001	=for Pod::Functions create binding on a tied dbm file
2954	3002
2955	3003	=begin original
2956	3004
2957	3005	[This function has been largely superseded by the
2958	3006	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> function.]
2959	3007
2960	3008	=end original
2961	3009
2962	3010	[この関数は、L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> 関数に
2963	3011	大きくとって代わられました。]
2964	3012
2965	3013	=begin original
2966	3014
2967	3015	This binds a L<dbm(3)>, L<ndbm(3)>, L<sdbm(3)>, L<gdbm(3)>, or Berkeley
2968	3016	DB file to a hash. HASH is the name of the hash. (Unlike normal
2969	3017	L<C<open>\|/open FILEHANDLE,MODE,EXPR>, the first argument is I<not> a
2970	3018	filehandle, even though it looks like one). DBNAME is the name of the
2971	3019	database (without the F<.dir> or F<.pag> extension if any). If the
2972	3020	database does not exist, it is created with protection specified by MASK
2973	3021	(as modified by the L<C<umask>\|/umask EXPR>). To prevent creation of
2974	3022	the database if it doesn't exist, you may specify a MODE of 0, and the
2975	3023	function will return a false value if it can't find an existing
2976	3024	database. If your system supports only the older DBM functions, you may
2977	3025	make only one L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK> call in your
2978	3026	program. In older versions of Perl, if your system had neither DBM nor
2979	3027	ndbm, calling L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK> produced a fatal
2980	3028	error; it now falls back to L<sdbm(3)>.
2981	3029
2982	3030	=end original
2983	3031
2984	3032	L<dbm(3)>, L<ndbm(3)>, L<sdbm(3)>, L<gdbm(3)> ファイルまたは
2985	3033	Berkeley DB ファイルを連想配列に結び付けます。
2986	3034	HASH は、その連想配列の名前です。
2987	3035	(普通の L<C<open>\|/open FILEHANDLE,MODE,EXPR> とは違って、最初の引数は
2988	3036	ファイルハンドル I<ではありません>; まあ、似たようなものですが)。
2989	3037	DBNAME は、データベースの名前です (拡張子の .dir や .pag はもしあっても
2990	3038	つけません)。
2991	3039	データベースが存在しなければ、MODE MASK (を L<C<umask>\|/umask EXPR> で
2992	3040	修正したもの) で指定されたモードで作られます。
2993	3041	存在しないときにデータベースを作成しないようにするには、MODE に 0 を
2994	3042	設定でき、データベースを見つけられなかった場合は関数は偽を返します。
2995	3043	古い DBM 関数のみをサポートしているシステムでは、プログラム中で 1 度だけ
2996	3044	L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK> を実行することができます。
2997	3045	昔のバージョンの Perl では、DBM も ndbm も持っていないシステムでは、
2998	3046	L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK> を呼び出すと致命的エラーになります;
2999	3047	現在では L<sdbm(3)> にフォールバックします。
3000	3048
3001	3049	=begin original
3002	3050
3003	3051	If you don't have write access to the DBM file, you can only read hash
3004	3052	variables, not set them. If you want to test whether you can write,
3005	3053	either use file tests or try setting a dummy hash entry inside an
3006	3054	L<C<eval>\|/eval EXPR> to trap the error.
3007	3055
3008	3056	=end original
3009	3057
3010	3058	DBM ファイルに対して、書き込み権が無いときには、ハッシュ
3011	3059	配列を読みだすことだけができ、設定することはできません。
3012	3060	書けるか否かを調べたい場合には、ファイルテスト
3013	3061	演算子を使うか、エラーをトラップするための L<C<eval>\|/eval EXPR> の中で、
3014	3062	ダミーのハッシュエントリを設定してみることになります。
3015	3063
3016	3064	=begin original
3017	3065
3018	3066	Note that functions such as L<C<keys>\|/keys HASH> and
3019	3067	L<C<values>\|/values HASH> may return huge lists when used on large DBM
3020	3068	files. You may prefer to use the L<C<each>\|/each HASH> function to
3021	3069	iterate over large DBM files. Example:
3022	3070
3023	3071	=end original
3024	3072
3025	3073	大きな DBM ファイルを扱うときには、L<C<keys>\|/keys HASH> や
3026	3074	L<C<values>\|/values HASH> のような関数は、巨大なリストを返します。
3027	3075	大きな DBM ファイルでは、L<C<each>\|/each HASH> 関数を使って繰り返しを
3028	3076	行なった方が良いかもしれません。
3029	3077	例:
3030	3078
3031	3079	# print out history file offsets
3032	3080	dbmopen(%HIST,'/usr/lib/news/history',0666);
3033	3081	while (($key,$val) = each %HIST) {
3034	3082	print $key, ' = ', unpack('L',$val), "\n";
3035	3083	}
3036	3084	dbmclose(%HIST);
3037	3085
3038	3086	=begin original
3039	3087
3040	3088	See also L<AnyDBM_File> for a more general description of the pros and
3041	3089	cons of the various dbm approaches, as well as L<DB_File> for a particularly
3042	3090	rich implementation.
3043	3091
3044	3092	=end original
3045	3093
3046	3094	様々な dbm 手法に対する利点欠点に関するより一般的な記述および
3047	3095	特にリッチな実装である L<DB_File> に関しては
3048	3096	L<AnyDBM_File> も参照してください。
3049	3097
3050	3098	=begin original
3051	3099
3052	3100	You can control which DBM library you use by loading that library
3053	3101	before you call L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK>:
3054	3102
3055	3103	=end original
3056	3104
3057	3105	L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK> を呼び出す前にライブラリを
3058	3106	読み込むことで、どの DBM ライブラリを使うかを制御できます:
3059	3107
3060	3108	use DB_File;
3061	3109	dbmopen(%NS_Hist, "$ENV{HOME}/.netscape/history.db")
3062	3110	or die "Can't open netscape history file: $!";
3063	3111
3064	3112	=begin original
3065	3113
3066	3114	Portability issues: L<perlport/dbmopen>.
3067	3115
3068	3116	=end original
3069	3117
3070	3118	移植性の問題: L<perlport/dbmopen>。
3071	3119
3072	3120	=item defined EXPR
3073	3121	X<defined> X<undef> X<undefined>
3074	3122
3075	3123	=item defined
3076	3124
3077	3125	=for Pod::Functions test whether a value, variable, or function is defined
3078	3126
3079	3127	=begin original
3080	3128
3081	3129	Returns a Boolean value telling whether EXPR has a value other than the
3082	3130	undefined value L<C<undef>\|/undef EXPR>. If EXPR is not present,
3083	3131	L<C<$_>\|perlvar/$_> is checked.
3084	3132
3085	3133	=end original
3086	3134
3087	3135	左辺値 EXPR が未定義値 L<C<undef>\|/undef EXPR> 以外の値を持つか否かを示す、
3088	3136	ブール値を返します。
3089	3137	EXPR がない場合は、L<C<$_>\|perlvar/$_> がチェックされます。
3090	3138
3091	3139	=begin original
3092	3140
3093	3141	Many operations return L<C<undef>\|/undef EXPR> to indicate failure, end
3094	3142	of file, system error, uninitialized variable, and other exceptional
3095	3143	conditions. This function allows you to distinguish
3096	3144	L<C<undef>\|/undef EXPR> from other values. (A simple Boolean test will
3097	3145	not distinguish among L<C<undef>\|/undef EXPR>, zero, the empty string,
3098	3146	and C<"0">, which are all equally false.) Note that since
3099	3147	L<C<undef>\|/undef EXPR> is a valid scalar, its presence doesn't
3100	3148	I<necessarily> indicate an exceptional condition: L<C<pop>\|/pop ARRAY>
3101	3149	returns L<C<undef>\|/undef EXPR> when its argument is an empty array,
3102	3150	I<or> when the element to return happens to be L<C<undef>\|/undef EXPR>.
3103	3151
3104	3152	=end original
3105	3153
3106	3154	多くの演算子が、EOF や未初期化変数、システムエラーといった、
3107	3155	例外的な条件で L<C<undef>\|/undef EXPR> を返すようになっています。
3108	3156	この関数は、他の値と L<C<undef>\|/undef EXPR> とを区別するために使えます。
3109	3157	(単純な真偽値テストでは、L<C<undef>\|/undef EXPR>、0、C<"0"> のいずれも偽を
3110	3158	返すので、区別することができません。)
3111	3159	L<C<undef>\|/undef EXPR> は有効なスカラ値なので、その存在が I<必ずしも>
3112	3160	例外的な状況を表すとは限らないということに注意してください:
3113	3161	L<C<pop>\|/pop ARRAY> は引数が空の配列だったときに L<C<undef>\|/undef EXPR> を
3114	3162	返しますが、I<あるいは> 返すべき要素がたまたま
3115	3163	L<C<undef>\|/undef EXPR> だったのかもしれません。
3116	3164
3117	3165	=begin original
3118	3166
3119	3167	You may also use C<defined(&func)> to check whether subroutine C<func>
3120	3168	has ever been defined. The return value is unaffected by any forward
3121	3169	declarations of C<func>. A subroutine that is not defined
3122	3170	may still be callable: its package may have an C<AUTOLOAD> method that
3123	3171	makes it spring into existence the first time that it is called; see
3124	3172	L<perlsub>.
3125	3173
3126	3174	=end original
3127	3175
3128	3176	C<defined(&func)> とすることでサブルーチン C<func> の存在を、
3129	3177	確かめることもできます。
3130	3178	返り値は C<func> の前方定義には影響されません。
3131	3179	定義されていないサブルーチンも呼び出し可能です:
3132	3180	最初に呼び出されたときに存在するようにするための
3133	3181	C<AUTOLOAD> メソッドを持ったパッケージかもしれません;
3134	3182	L<perlsub> を参照してください。
3135	3183
3136	3184	=begin original
3137	3185
3138	3186	Use of L<C<defined>\|/defined EXPR> on aggregates (hashes and arrays) is
3139	3187	no longer supported. It used to report whether memory for that
3140	3188	aggregate had ever been allocated. You should instead use a simple
3141	3189	test for size:
3142	3190
3143	3191	=end original
3144	3192
3145	3193	集合(ハッシュや配列)への L<C<defined>\|/defined EXPR> の使用は
3146	3194	もはや対応していません。
3147	3195	これはその集合にメモリが割り当てられたかを報告するのに用いられていました。
3148	3196	代わりにサイズに対する簡単なテストを使うべきです。
3149	3197
3150	3198	if (@an_array) { print "has array elements\n" }
3151	3199	if (%a_hash) { print "has hash members\n" }
3152	3200
3153	3201	=begin original
3154	3202
3155	3203	When used on a hash element, it tells you whether the value is defined,
3156	3204	not whether the key exists in the hash. Use L<C<exists>\|/exists EXPR>
3157	3205	for the latter purpose.
3158	3206
3159	3207	=end original
3160	3208
3161	3209	ハッシュの要素に対して用いると、value が定義されているか否かを
3162	3210	返すものであって、ハッシュに key が存在するか否かを返すのではありません。
3163	3211	この用途には、L<C<exists>\|/exists EXPR> を使ってください。
3164	3212
3165	3213	=begin original
3166	3214
3167	3215	Examples:
3168	3216
3169	3217	=end original
3170	3218
3171	3219	例:
3172	3220
3173	3221	print if defined $switch{D};
3174	3222	print "$val\n" while defined($val = pop(@ary));
3175	3223	die "Can't readlink $sym: $!"
3176	3224	unless defined($value = readlink $sym);
3177	3225	sub foo { defined &$bar ? $bar->(@_) : die "No bar"; }
3178	3226	$debugging = 0 unless defined $debugging;
3179	3227
3180	3228	=begin original
3181	3229
3182	3230	Note: Many folks tend to overuse L<C<defined>\|/defined EXPR> and are
3183	3231	then surprised to discover that the number C<0> and C<""> (the
3184	3232	zero-length string) are, in fact, defined values. For example, if you
3185	3233	say
3186	3234
3187	3235	=end original
3188	3236
3189	3237	注意: 多くの人々が L<C<defined>\|/defined EXPR> を使いすぎて、C<0> と
3190	3238	C<"">(空文字列) が実際のところ定義された値であることに驚くようです。
3191	3239	例えば、以下のように書くと:
3192	3240
3193	3241	"ab" =~ /a(.*)b/;
3194	3242
3195	3243	=begin original
3196	3244
3197	3245	The pattern match succeeds and C<$1> is defined, although it
3198	3246	matched "nothing". It didn't really fail to match anything. Rather, it
3199	3247	matched something that happened to be zero characters long. This is all
3200	3248	very above-board and honest. When a function returns an undefined value,
3201	3249	it's an admission that it couldn't give you an honest answer. So you
3202	3250	should use L<C<defined>\|/defined EXPR> only when questioning the
3203	3251	integrity of what you're trying to do. At other times, a simple
3204	3252	comparison to C<0> or C<""> is what you want.
3205	3253
3206	3254	=end original
3207	3255
3208	3256	パターンマッチングが成功し、C<$1> が定義されても、実際には
3209	3257	「なし」にマッチしています。
3210	3258	しかしこれは何にもマッチしていないわけではありません。
3211	3259	何かにはマッチしているのですが、たまたまそれが長さ 0 だっただけです。
3212	3260	これは非常に率直で正直なことです。
3213	3261	関数が未定義値を返すとき、正直な答えを返すことができないことを
3214	3262	告白しています。
3215	3263	ですので、あなたが自分がしようとしていることの完全性を確認するときにだけ
3216	3264	L<C<defined>\|/defined EXPR> を使うべきです。
3217	3265	その他の場合では、単に C<0> または C<""> と比較するというのがあなたの
3218	3266	求めているものです。
3219	3267
3220	3268	=begin original
3221	3269
3222	3270	See also L<C<undef>\|/undef EXPR>, L<C<exists>\|/exists EXPR>,
3223	3271	L<C<ref>\|/ref EXPR>.
3224	3272
3225	3273	=end original
3226	3274
3227	3275	L<C<undef>\|/undef EXPR>, L<C<exists>\|/exists EXPR>, L<C<ref>\|/ref EXPR> も
3228	3276	参照してください。
3229	3277
3230	3278	=item delete EXPR
3231	3279	X<delete>
3232	3280
3233	3281	=for Pod::Functions deletes a value from a hash
3234	3282
3235	3283	=begin original
3236	3284
3237	3285	Given an expression that specifies an element or slice of a hash,
3238	3286	L<C<delete>\|/delete EXPR> deletes the specified elements from that hash
3239	3287	so that L<C<exists>\|/exists EXPR> on that element no longer returns
3240	3288	true. Setting a hash element to the undefined value does not remove its
3241	3289	key, but deleting it does; see L<C<exists>\|/exists EXPR>.
3242	3290
3243	3291	=end original
3244	3292
3245	3293	ハッシュの要素やスライスを指定する式を取り、L<C<delete>\|/delete EXPR> は
3246	3294	指定された要素をハッシュから削除するので、
3247	3295	その要素に対する L<C<exists>\|/exists EXPR> はもはや真を返さなくなります。
3248	3296	ハッシュ要素に未定義値をセットしてもそのキーは削除されませんが、
3249	3297	delete では削除されます; L<C<exists>\|/exists EXPR> を参照してください。
3250	3298
3251	3299	=begin original
3252	3300
3253	3301	In list context, usually returns the value or values deleted, or the last such
3254	3302	element in scalar context. The return list's length corresponds to that of
3255	3303	the argument list: deleting non-existent elements returns the undefined value
3256		in their corresponding positions. ~~Whe~~n a
	3304	in their corresponding positions. Since Perl 5.28, a
3257		L<keyE<sol>value hash slice\|perldata/KeyE<sol>Value Hash Slices> is passed to
	3305	L<keyE<sol>value hash slice\|perldata/KeyE<sol>Value Hash Slices> can be passed
3258		C<delete>, the return value is a list of key/value pairs (two elements ~~for each~~
	3306	to C<delete>, and the return value is a list of key/value pairs (two elements
3259		item deleted from the hash).
	3307	for each item deleted from the hash).
3260	3308
3261	3309	=end original
3262	3310
3263	3311	リストコンテキストでは通常は削除された要素を返し、スカラコンテキストでは
3264	3312	削除された要素のうち最後のものを返します。
3265	3313	返されたリストの長さは常に引数リストの長さに対応します:
3266	3314	存在しない要素を削除すると、対応する位置に未定義値をセットして返します。
3267		~~L<キーE<sol>値ハッシュスライス\|p~~erl~~data/KeyE<sol>Value~~ ~~Hash~~ ~~Slices> が~~
	3315	Perl 5.28 から、
3268		C<delete> ~~に渡されると、返り値はキー/値の組(それぞれのアイテムについて~~
	3316	L<キーE<sol>値ハッシュスライス\|perldata/KeyE<sol>Value Hash Slices> を
	3317	C<delete> に渡すことができ、
	3318	そして返り値はキー/値の組(それぞれのアイテムについて
3269	3319	二つの要素が元のハッシュから削除されたもの)です。
3270	3320
3271	3321	=begin original
3272	3322
3273	3323	L<C<delete>\|/delete EXPR> may also be used on arrays and array slices,
3274	3324	but its behavior is less straightforward. Although
3275	3325	L<C<exists>\|/exists EXPR> will return false for deleted entries,
3276	3326	deleting array elements never changes indices of existing values; use
3277	3327	L<C<shift>\|/shift ARRAY> or L<C<splice>\|/splice
3278	3328	ARRAY,OFFSET,LENGTH,LIST> for that. However, if any deleted elements
3279	3329	fall at the end of an array, the array's size shrinks to the position of
3280	3330	the highest element that still tests true for L<C<exists>\|/exists EXPR>,
3281	3331	or to 0 if none do. In other words, an array won't have trailing
3282	3332	nonexistent elements after a delete.
3283	3333
3284	3334	=end original
3285	3335
3286	3336	L<C<delete>\|/delete EXPR> は配列や配列のスライスに対しても使えますが、その
3287	3337	振る舞いはあまり直感的ではありません。
3288	3338	削除されたエントリに対しては L<C<exists>\|/exists EXPR> は偽を返しますが、
3289	3339	配列要素を削除しても、存在する値の添え字は変わりません; このためには
3290	3340	L<C<shift>\|/shift ARRAY> や L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST> を
3291	3341	使ってください。
3292	3342	しかし、削除された要素が配列の末尾であった場合、配列のサイズは
3293	3343	L<C<exists>\|/exists EXPR> が真となる最大位置の要素(それがない場合は 0)に
3294	3344	切り詰められます。
3295	3345	言い換えると、delete の後には配列の末尾に値のない要素はありません。
3296	3346
3297	3347	=begin original
3298	3348
3299	3349	B<WARNING:> Calling L<C<delete>\|/delete EXPR> on array values is
3300	3350	strongly discouraged. The
3301	3351	notion of deleting or checking the existence of Perl array elements is not
3302	3352	conceptually coherent, and can lead to surprising behavior.
3303	3353
3304	3354	=end original
3305	3355
3306	3356	B<警告:> 配列の値に対して L<C<delete>\|/delete EXPR> を呼び出すことは強く
3307	3357	非推奨です。
3308	3358	Perl の配列要素を削除したり存在を調べたりする記法は概念的に一貫しておらず、
3309	3359	驚くべき振る舞いを引き起こすことがあります。
3310	3360
3311	3361	=begin original
3312	3362
3313	3363	Deleting from L<C<%ENV>\|perlvar/%ENV> modifies the environment.
3314	3364	Deleting from a hash tied to a DBM file deletes the entry from the DBM
3315	3365	file. Deleting from a L<C<tied>\|/tied VARIABLE> hash or array may not
3316	3366	necessarily return anything; it depends on the implementation of the
3317	3367	L<C<tied>\|/tied VARIABLE> package's DELETE method, which may do whatever
3318	3368	it pleases.
3319	3369
3320	3370	=end original
3321	3371
3322	3372	L<C<%ENV>\|perlvar/%ENV> から削除を行なうと、実際に環境変数を変更します。
3323	3373	DBM ファイルに tie された配列からの削除は、その DBM ファイルからエントリを
3324	3374	削除します。
3325	3375	しかし、L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> されたハッシュや配列からの
3326	3376	削除は、値を返すとは限りません; これは
3327	3377	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> されたパッケージの DELETE
3328	3378	メソッドの実装に依存するので、どんなことでも起こります。
3329	3379
3330	3380	=begin original
3331	3381
3332	3382	The C<delete local EXPR> construct localizes the deletion to the current
3333	3383	block at run time. Until the block exits, elements locally deleted
3334	3384	temporarily no longer exist. See L<perlsub/"Localized deletion of elements
3335	3385	of composite types">.
3336	3386
3337	3387	=end original
3338	3388
3339	3389	C<delete local EXPR> 構文は、現在のブロックの削除を実行時にローカル化します。
3340	3390	ブロックから出るまで、ローカルで削除された要素は存在しなくなります。
3341	3391	L<perlsub/"Localized deletion of elements of composite types"> を
3342	3392	参照してください。
3343	3393
3344	3394	my %hash = (foo => 11, bar => 22, baz => 33);
3345	3395	my $scalar = delete $hash{foo}; # $scalar is 11
3346	3396	$scalar = delete @hash{qw(foo bar)}; # $scalar is 22
3347	3397	my @array = delete @hash{qw(foo baz)}; # @array is (undef,33)
3348	3398
3349	3399	=begin original
3350	3400
3351	3401	The following (inefficiently) deletes all the values of %HASH and @ARRAY:
3352	3402
3353	3403	=end original
3354	3404
3355	3405	以下は、%HASH と @ARRAY のすべての値を(非効率的に)削除します:
3356	3406
3357	3407	foreach my $key (keys %HASH) {
3358	3408	delete $HASH{$key};
3359	3409	}
3360	3410
3361	3411	foreach my $index (0 .. $#ARRAY) {
3362	3412	delete $ARRAY[$index];
3363	3413	}
3364	3414
3365	3415	=begin original
3366	3416
3367	3417	And so do these:
3368	3418
3369	3419	=end original
3370	3420
3371	3421	そして以下のようにもできます:
3372	3422
3373	3423	delete @HASH{keys %HASH};
3374	3424
3375	3425	delete @ARRAY[0 .. $#ARRAY];
3376	3426
3377	3427	=begin original
3378	3428
3379	3429	But both are slower than assigning the empty list
3380	3430	or undefining %HASH or @ARRAY, which is the customary
3381	3431	way to empty out an aggregate:
3382	3432
3383	3433	=end original
3384	3434
3385	3435	しかし、これら二つは両方とも、構造を空にするための慣習的な方法である、
3386	3436	単に空リストを代入するか、%HASH や @ARRAY を
3387	3437	undef するより遅いです:
3388	3438
3389	3439	%HASH = (); # completely empty %HASH
3390	3440	undef %HASH; # forget %HASH ever existed
3391	3441
3392	3442	@ARRAY = (); # completely empty @ARRAY
3393	3443	undef @ARRAY; # forget @ARRAY ever existed
3394	3444
3395	3445	=begin original
3396	3446
3397	3447	The EXPR can be arbitrarily complicated provided its
3398	3448	final operation is an element or slice of an aggregate:
3399	3449
3400	3450	=end original
3401	3451
3402	3452	最終的な操作が集合の要素かスライスである限りは、
3403	3453	いずれかである限りは、EXPR には任意の複雑な式を置くことができます:
3404	3454
3405	3455	delete $ref->[$x][$y]{$key};
3406		delete @{$ref->[$x][$y]}{$key1, $key2, @morekeys};
	3456	delete $ref->[$x][$y]->@{$key1, $key2, @morekeys};
3407	3457
3408	3458	delete $ref->[$x][$y][$index];
3409		delete @{$ref->[$x][$y]}[$index1, $index2, @moreindices];
	3459	delete $ref->[$x][$y]->@[$index1, $index2, @moreindices];
3410	3460
3411	3461	=item die LIST
3412	3462	X<die> X<throw> X<exception> X<raise> X<$@> X<abort>
3413	3463
3414	3464	=for Pod::Functions raise an exception or bail out
3415	3465
3416	3466	=begin original
3417	3467
3418	3468	L<C<die>\|/die LIST> raises an exception. Inside an L<C<eval>\|/eval EXPR>
3419	3469	the exception is stuffed into L<C<$@>\|perlvar/$@> and the L<C<eval>\|/eval
3420	3470	EXPR> is terminated with the undefined value. If the exception is
3421	3471	outside of all enclosing L<C<eval>\|/eval EXPR>s, then the uncaught
3422	3472	exception is printed to C<STDERR> and perl exits with an exit code
3423	3473	indicating failure. If you need to exit the process with a specific
3424	3474	exit code, see L<C<exit>\|/exit EXPR>.
3425	3475
3426	3476	=end original
3427	3477
3428	3478	L<C<die>\|/die LIST> は例外を発生させます。
3429	3479	L<C<eval>\|/eval EXPR> の中で使用すると、例外が
3430	3480	L<C<$@>\|perlvar/$@> に入り、L<C<eval>\|/eval EXPR> は
3431	3481	未定義値を返して終了します。
3432	3482	例外が全ての L<C<eval>\|/eval EXPR> の外側の場合は、捕捉されなかった例外は
3433	3483	C<STDERR> に表示され、perl は失敗を示す終了コードで終了します。
3434	3484	特定の終了コードでプロセスを終了させる必要がある場合は、
3435	3485	L<C<exit>\|/exit EXPR> を参照してください。
3436	3486
3437	3487	=begin original
3438	3488
3439	3489	Equivalent examples:
3440	3490
3441	3491	=end original
3442	3492
3443	3493	等価な例:
3444	3494
3445	3495	die "Can't cd to spool: $!\n" unless chdir '/usr/spool/news';
3446	3496	chdir '/usr/spool/news' or die "Can't cd to spool: $!\n"
3447	3497
3448	3498	=begin original
3449	3499
3450	3500	Most of the time, C<die> is called with a string to use as the exception.
3451	3501	You may either give a single non-reference operand to serve as the
3452	3502	exception, or a list of two or more items, which will be stringified
3453	3503	and concatenated to make the exception.
3454	3504
3455	3505	=end original
3456	3506
3457	3507	ほとんどの場合、C<die> は例外として使うための文字列と共に呼び出されます。
3458	3508	例外として圧から割れる単一の非リファレンスオペランドか、
3459	3509	例外を作るために文字列化されて連結される、二つ以上のアイテムのリストを
3460	3510	指定することができます。
3461	3511
3462	3512	=begin original
3463	3513
3464	3514	If the string exception does not end in a newline, the current
3465	3515	script line number and input line number (if any) and a newline
3466	3516	are appended to it. Note that the "input line number" (also
3467	3517	known as "chunk") is subject to whatever notion of "line" happens to
3468	3518	be currently in effect, and is also available as the special variable
3469	3519	L<C<$.>\|perlvar/$.>. See L<perlvar/"$/"> and L<perlvar/"$.">.
3470	3520
3471	3521	=end original
3472	3522
3473	3523	文字列例外が改行で終わっていなければ、その時点のスクリプト名と
3474	3524	スクリプトの行番号、(もしあれば) 入力ファイルの行番号と改行文字が
3475	3525	それに追加されます。
3476	3526	「入力行番号」("chunk" とも呼ばれます)は「行」という概念が現在有効であると
3477	3527	仮定しています; また特殊変数 L<C<$.>\|perlvar/$.> でも利用可能です。
3478	3528	L<perlvar/"$/"> と L<perlvar/"$."> も参照してください。
3479	3529
3480	3530	=begin original
3481	3531
3482	3532	Hint: sometimes appending C<", stopped"> to your message will cause it
3483	3533	to make better sense when the string C<"at foo line 123"> is appended.
3484	3534	Suppose you are running script "canasta".
3485	3535
3486	3536	=end original
3487	3537
3488	3538	ヒント: メッセージの最後を C<", stopped"> のようなもので
3489	3539	終わるようにしておけば、C<"at foo line 123"> のように
3490	3540	追加されて、わかりやすくなります。
3491	3541	"canasta" というスクリプトを実行しているとします。
3492	3542
3493	3543	die "/etc/games is no good";
3494	3544	die "/etc/games is no good, stopped";
3495	3545
3496	3546	=begin original
3497	3547
3498	3548	produce, respectively
3499	3549
3500	3550	=end original
3501	3551
3502	3552	これは、それぞれ以下のように表示します。
3503	3553
3504	3554	/etc/games is no good at canasta line 123.
3505	3555	/etc/games is no good, stopped at canasta line 123.
3506	3556
3507	3557	=begin original
3508	3558
3509	3559	If LIST was empty or made an empty string, and L<C<$@>\|perlvar/$@>
3510	3560	already contains an exception value (typically from a previous
3511	3561	L<C<eval>\|/eval EXPR>), then that value is reused after
3512	3562	appending C<"\t...propagated">. This is useful for propagating exceptions:
3513	3563
3514	3564	=end original
3515	3565
3516	3566	出力が空か空文字列を作り、L<C<$@>\|perlvar/$@> が
3517	3567	(典型的には前回の L<C<eval>\|/eval EXPR> で)
3518	3568	既に例外値を持っている場合、
3519	3569	値は C<"\t...propagated"> を追加した後再利用されます。
3520	3570	これは例外を伝播させる場合に有効です:
3521	3571
3522	3572	eval { ... };
3523	3573	die unless $@ =~ /Expected exception/;
3524	3574
3525	3575	=begin original
3526	3576
3527	3577	If LIST was empty or made an empty string,
3528	3578	and L<C<$@>\|perlvar/$@> contains an object
3529	3579	reference that has a C<PROPAGATE> method, that method will be called
3530	3580	with additional file and line number parameters. The return value
3531	3581	replaces the value in L<C<$@>\|perlvar/$@>; i.e., as if
3532	3582	C<< $@ = eval { $@->PROPAGATE(__FILE__, __LINE__) }; >> were called.
3533	3583
3534	3584	=end original
3535	3585
3536	3586	出力が空か空文字列を作り、L<C<$@>\|perlvar/$@> が C<PROPAGATE> メソッドを
3537	3587	含むオブジェクトへのリファレンスを含む場合、
3538	3588	このメソッドが追加ファイルと行番号を引数として呼び出されます。
3539	3589	返り値は L<C<$@>\|perlvar/$@> の値を置き換えます;
3540	3590	つまり、C<< $@ = eval { $@->PROPAGATE(__FILE__, __LINE__) }; >> が
3541	3591	呼び出されたかのようになります。
3542	3592
3543	3593	=begin original
3544	3594
3545	3595	If LIST was empty or made an empty string, and L<C<$@>\|perlvar/$@>
3546	3596	is also empty, then the string C<"Died"> is used.
3547	3597
3548	3598	=end original
3549	3599
3550	3600	LIST が空か空文字列を作り、L<C<$@>\|perlvar/$@> も空の場合、
3551	3601	C<"Died"> が使われます。
3552	3602
3553	3603	=begin original
3554	3604
3555	3605	You can also call L<C<die>\|/die LIST> with a reference argument, and if
3556	3606	this is trapped within an L<C<eval>\|/eval EXPR>, L<C<$@>\|perlvar/$@>
3557	3607	contains that reference. This permits more elaborate exception handling
3558	3608	using objects that maintain arbitrary state about the exception. Such a
3559	3609	scheme is sometimes preferable to matching particular string values of
3560	3610	L<C<$@>\|perlvar/$@> with regular expressions.
3561	3611
3562	3612	=end original
3563	3613
3564	3614	L<C<die>\|/die LIST> はリファレンス引数と共に呼び出すこともでき、これが
3565	3615	L<C<eval>\|/eval EXPR> 内部でトラップされた場合、L<C<$@>\|perlvar/$@> は
3566	3616	そのリファレンスを持ちます。
3567	3617	これは、例外の性質について任意の状態を管理するオブジェクトを使った
3568	3618	より複雑な例外処理の実装を可能にします。
3569	3619	このようなスキームは L<C<$@>\|perlvar/$@> の特定の文字列値を正規表現を使って
3570	3620	マッチングするときに時々好まれます。
3571	3621
3572	3622	=begin original
3573	3623
3574	3624	Because Perl stringifies uncaught exception messages before display,
3575	3625	you'll probably want to overload stringification operations on
3576	3626	exception objects. See L<overload> for details about that.
3577	3627	The stringified message should be non-empty, and should end in a newline,
3578	3628	in order to fit in with the treatment of string exceptions.
3579	3629	Also, because an exception object reference cannot be stringified
3580	3630	without destroying it, Perl doesn't attempt to append location or other
3581	3631	information to a reference exception. If you want location information
3582	3632	with a complex exception object, you'll have to arrange to put the
3583	3633	location information into the object yourself.
3584	3634
3585	3635	=end original
3586	3636
3587	3637	perl は捕らえられなかった例外のメッセージを表示する前に文字列化するので、
3588	3638	このようなカスタム例外オブジェクトの文字列化をオーバーロードしたいと
3589	3639	思うかもしれません。
3590	3640	これに関する詳細は L<overload> を参照してください。
3591	3641	文字列化されたメッセージは、文字列例外の扱いに合わせるために、
3592	3642	空ではなく、末尾は改行であるべきです。
3593	3643	また、例外オブジェクトリファレンスはそれを破壊することなく
3594	3644	文字列化することができないので、Perl はリファレンス例外に位置や
3595	3645	その他の情報を追加しようとしません。
3596	3646	複雑な例外オブジェクトに位置情報が欲しい場合、
3597	3647	オブジェクト自身に位置情報を設定するように用意する必要があります。
3598	3648
3599	3649	=begin original
3600	3650
3601	3651	Because L<C<$@>\|perlvar/$@> is a global variable, be careful that
3602	3652	analyzing an exception caught by C<eval> doesn't replace the reference
3603	3653	in the global variable. It's
3604	3654	easiest to make a local copy of the reference before any manipulations.
3605	3655	Here's an example:
3606	3656
3607	3657	=end original
3608	3658
3609	3659	L<C<$@>\|perlvar/$@> はグローバル変数なので、
3610	3660	C<eval> により補足された例外の解析はグローバル変数の
3611	3661	リファレンスを置き換えないことに注意を払わなければなりません。
3612	3662	他の操作をする前にリファレンスのローカルコピーを
3613	3663	作るのが一番簡単です。
3614	3664	以下に例を示します:
3615	3665
3616	3666	use Scalar::Util "blessed";
3617	3667
3618	3668	eval { ... ; die Some::Module::Exception->new( FOO => "bar" ) };
3619	3669	if (my $ev_err = $@) {
3620	3670	if (blessed($ev_err)
3621	3671	&& $ev_err->isa("Some::Module::Exception")) {
3622	3672	# handle Some::Module::Exception
3623	3673	}
3624	3674	else {
3625	3675	# handle all other possible exceptions
3626	3676	}
3627	3677	}
3628	3678
3629	3679	=begin original
3630	3680
3631	3681	If an uncaught exception results in interpreter exit, the exit code is
3632	3682	determined from the values of L<C<$!>\|perlvar/$!> and
3633	3683	L<C<$?>\|perlvar/$?> with this pseudocode:
3634	3684
3635	3685	=end original
3636	3686
3637	3687	例外が捕捉されないとインタプリタは終了し、終了コードは以下の
3638	3688	擬似コードのように、L<C<$!>\|perlvar/$!> と L<C<$?>\|perlvar/$?> の値から
3639	3689	決定されます:
3640	3690
3641	3691	exit $! if $!; # errno
3642	3692	exit $? >> 8 if $? >> 8; # child exit status
3643	3693	exit 255; # last resort
3644	3694
3645	3695	=begin original
3646	3696
3647	3697	As with L<C<exit>\|/exit EXPR>, L<C<$?>\|perlvar/$?> is set prior to
3648	3698	unwinding the call stack; any C<DESTROY> or C<END> handlers can then
3649	3699	alter this value, and thus Perl's exit code.
3650	3700
3651	3701	=end original
3652	3702
3653	3703	L<C<exit>\|/exit EXPR> と同様に、コールスタックを巻き戻す前に
3654	3704	L<C<$?>\|perlvar/$?> が設定されます; C<DESTROY> と C<END> のハンドラが
3655	3705	それからこの値を変更して、これが Perl の終了コードになります。
3656	3706
3657	3707	=begin original
3658	3708
3659	3709	The intent is to squeeze as much possible information about the likely cause
3660	3710	into the limited space of the system exit code. However, as
3661	3711	L<C<$!>\|perlvar/$!> is the value of C's C<errno>, which can be set by
3662	3712	any system call, this means that the value of the exit code used by
3663	3713	L<C<die>\|/die LIST> can be non-predictable, so should not be relied
3664	3714	upon, other than to be non-zero.
3665	3715
3666	3716	=end original
3667	3717
3668	3718	この意図は、できるだけ多くの似たような原因に関する情報を、システム終了
3669	3719	コードという限られた領域に圧縮することです。
3670	3720	しかし、L<C<$!>\|perlvar/$!> はシステムコールによって設定される可能性がある C の
3671	3721	C<errno> の値であり、L<C<die>\|/die LIST> によって使われる終了コードの値は
3672	3722	予測不能であることを意味するので、非 0 ということ以上にこの値に
3673	3723	依存するべきではありません。
3674	3724
3675	3725	=begin original
3676	3726
3677	3727	You can arrange for a callback to be run just before the
3678	3728	L<C<die>\|/die LIST> does its deed, by setting the
3679	3729	L<C<$SIG{__DIE__}>\|perlvar/%SIG> hook. The associated handler is called
3680	3730	with the exception as an argument, and can change the exception,
3681	3731	if it sees fit, by
3682	3732	calling L<C<die>\|/die LIST> again. See L<perlvar/%SIG> for details on
3683	3733	setting L<C<%SIG>\|perlvar/%SIG> entries, and L<C<eval>\|/eval EXPR> for some
3684	3734	examples. Although this feature was to be run only right before your
3685	3735	program was to exit, this is not currently so: the
3686	3736	L<C<$SIG{__DIE__}>\|perlvar/%SIG> hook is currently called even inside
3687	3737	L<C<eval>\|/eval EXPR>ed blocks/strings! If one wants the hook to do
3688	3738	nothing in such situations, put
3689	3739
3690	3740	=end original
3691	3741
3692	3742	L<C<$SIG{__DIE__}>\|perlvar/%SIG> フックをセットすることで、
3693	3743	L<C<die>\|/die LIST> がその行動を行う
3694	3744	直前に実行されるコールバックを設定できます。
3695	3745	結び付けられたハンドラは例外を引数として呼び出され、
3696	3746	必要なら再び L<C<die>\|/die LIST> を呼び出すことで例外を変更できます。
3697	3747	L<C<%SIG>\|perlvar/%SIG> のエントリをセットする詳細については、
3698	3748	L<perlvar/%SIG> を、例については L<C<eval>\|/eval EXPR> を参照してください。
3699	3749	この機能はプログラムが終了しようとする前に 1 回だけ実行していましたが、
3700	3750	現在ではそうではありません:
3701	3751	L<C<$SIG{__DIE__}>\|perlvar/%SIG> フックは L<C<eval>\|/eval EXPR> された
3702	3752	ブロック/文字列の中でも呼ばれるのです!
3703	3753	もしそのような状況で何もしなくない時は:
3704	3754
3705	3755	die @_ if $^S;
3706	3756
3707	3757	=begin original
3708	3758
3709	3759	as the first line of the handler (see L<perlvar/$^S>). Because
3710	3760	this promotes strange action at a distance, this counterintuitive
3711	3761	behavior may be fixed in a future release.
3712	3762
3713	3763	=end original
3714	3764
3715	3765	をハンドラの最初の行に置いてください(L<perlvar/$^S> を参照してください)。
3716	3766	これは離れたところで不思議な行動を引き起こすので、
3717	3767	この直感的でない振る舞いは将来のリリースで修正されるかもしれません。
3718	3768
3719	3769	=begin original
3720	3770
3721	3771	See also L<C<exit>\|/exit EXPR>, L<C<warn>\|/warn LIST>, and the L<Carp>
3722	3772	module.
3723	3773
3724	3774	=end original
3725	3775
3726	3776	L<C<exit>\|/exit EXPR> と L<C<warn>\|/warn LIST> と L<Carp> モジュールも
3727	3777	参照してください。
3728	3778
3729	3779	=item do BLOCK
3730	3780	X<do> X<block>
3731	3781
3732	3782	=for Pod::Functions turn a BLOCK into a TERM
3733	3783
3734	3784	=begin original
3735	3785
3736	3786	Not really a function. Returns the value of the last command in the
3737	3787	sequence of commands indicated by BLOCK. When modified by the C<while> or
3738	3788	C<until> loop modifier, executes the BLOCK once before testing the loop
3739	3789	condition. (On other statements the loop modifiers test the conditional
3740	3790	first.)
3741	3791
3742	3792	=end original
3743	3793
3744	3794	実際は関数ではありません。
3745	3795	BLOCK で示されるコマンド列の最後の値を返します。
3746	3796	C<while> や C<until> ループ修飾子で修飾すると、
3747	3797	ループ条件を調べる前に 1 度、BLOCK を実行します。
3748	3798	(これ以外の実行文は、ループ修飾子により、条件が最初に
3749	3799	調べられます。)
3750	3800
3751	3801	=begin original
3752	3802
3753	3803	C<do BLOCK> does I<not> count as a loop, so the loop control statements
3754	3804	L<C<next>\|/next LABEL>, L<C<last>\|/last LABEL>, or
3755	3805	L<C<redo>\|/redo LABEL> cannot be used to leave or restart the block.
3756	3806	See L<perlsyn> for alternative strategies.
3757	3807
3758	3808	=end original
3759	3809
3760	3810	C<do BLOCK> はループとしては I<扱われません>; 従って、L<C<next>\|/next LABEL>,
3761	3811	L<C<last>\|/last LABEL>,L<C<redo>\|/redo LABEL> といったループ制御文は
3762	3812	ブロックから抜けたり再開することはできません。
3763	3813	その他の戦略については L<perlsyn> を参照してください。
3764	3814
3765	3815	=item do EXPR
3766	3816	X<do>
3767	3817
3768	3818	=begin original
3769	3819
3770	3820	Uses the value of EXPR as a filename and executes the contents of the
3771	3821	file as a Perl script:
3772	3822
3773	3823	=end original
3774	3824
3775	3825	EXPR の値をファイル名として用い、そのファイルの中身を
3776	3826	Perl のスクリプトとして実行します:
3777	3827
3778	3828	# load the exact specified file (./ and ../ special-cased)
3779	3829	do '/foo/stat.pl';
3780	3830	do './stat.pl';
3781	3831	do '../foo/stat.pl';
3782	3832
3783	3833	# search for the named file within @INC
3784	3834	do 'stat.pl';
3785	3835	do 'foo/stat.pl';
3786	3836
3787	3837	=begin original
3788	3838
3789	3839	C<do './stat.pl'> is largely like
3790	3840
3791	3841	=end original
3792	3842
3793	3843	C<do './stat.pl'> はだいたい以下のものと同じようなものですが、
3794	3844
3795	3845	eval `cat stat.pl`;
3796	3846
3797	3847	=begin original
3798	3848
3799	3849	except that it's more concise, runs no external processes, and keeps
3800	3850	track of the current filename for error messages. It also differs in that
3801	3851	code evaluated with C<do FILE> cannot see lexicals in the enclosing
3802	3852	scope; C<eval STRING> does. It's the same, however, in that it does
3803	3853	reparse the file every time you call it, so you probably don't want
3804	3854	to do this inside a loop.
3805	3855
3806	3856	=end original
3807	3857
3808	3858	より簡潔で、外部プログラムを起動せず、エラーメッセージでファイル名がわかる、
3809	3859	といったことがあります。
3810	3860	C<do FILE> で評価されたコードは、入れ子のスコープにある
3811	3861	レキシカル変数を見ることができないのに対し、C<eval STRING>ではできる、
3812	3862	という違いがあります。
3813	3863	しかし、呼び出すたびにファイルを解析し直すという点では同じですから、
3814	3864	ループ内でこれを使おうなどとは、間違っても思ったりしないように。
3815	3865
3816	3866	=begin original
3817	3867
3818	3868	Using C<do> with a relative path (except for F<./> and F<../>), like
3819	3869
3820	3870	=end original
3821	3871
3822	3872	次のように、C<do> に (F<./> と F<../> 以外の) 相対パスを使うと:
3823	3873
3824	3874	do 'foo/stat.pl';
3825	3875
3826	3876	=begin original
3827	3877
3828	3878	will search the L<C<@INC>\|perlvar/@INC> directories, and update
3829	3879	L<C<%INC>\|perlvar/%INC> if the file is found. See L<perlvar/@INC>
3830	3880	and L<perlvar/%INC> for these variables. In particular, note that
3831	3881	whilst historically L<C<@INC>\|perlvar/@INC> contained '.' (the
3832	3882	current directory) making these two cases equivalent, that is no
3833	3883	longer necessarily the case, as '.' is not included in C<@INC> by default
3834	3884	in perl versions 5.26.0 onwards. Instead, perl will now warn:
3835	3885
3836	3886	=end original
3837	3887
3838	3888	L<C<@INC>\|perlvar/@INC> ディレクトリを検索し、ファイルが見つかれば
3839	3889	L<C<%INC>\|perlvar/%INC> を更新します。
3840	3890	これらの変数については L<perlvar/@INC> と L<perlvar/%INC> を参照してください。
3841	3891	特に、歴史的には L<C<@INC>\|perlvar/@INC> に '.' (カレントディレクトリ) を
3842	3892	含んでいたのでこの二つの場合は等価でしたが、
3843	3893	perl バージョン 5.26.0 以降ではデフォルトでは C<@INC> に '.' を
3844	3894	含んでいないので、もはやそうではないことに注意してください。
3845	3895	代わりに、perl は次のような警告を出します:
3846	3896
3847	3897	do "stat.pl" failed, '.' is no longer in @INC;
3848	3898	did you mean do "./stat.pl"?
3849	3899
3850	3900	=begin original
3851	3901
3852	3902	If L<C<do>\|/do EXPR> can read the file but cannot compile it, it
3853	3903	returns L<C<undef>\|/undef EXPR> and sets an error message in
3854	3904	L<C<$@>\|perlvar/$@>. If L<C<do>\|/do EXPR> cannot read the file, it
3855	3905	returns undef and sets L<C<$!>\|perlvar/$!> to the error. Always check
3856	3906	L<C<$@>\|perlvar/$@> first, as compilation could fail in a way that also
3857	3907	sets L<C<$!>\|perlvar/$!>. If the file is successfully compiled,
3858	3908	L<C<do>\|/do EXPR> returns the value of the last expression evaluated.
3859	3909
3860	3910	=end original
3861	3911
3862	3912	L<C<do>\|/do EXPR> がファイルを読み込めたがコンパイルできなかった場合、
3863	3913	L<C<undef>\|/undef EXPR> を返して L<C<$@>\|perlvar/$@> にエラーメッセージを
3864	3914	設定します。
3865	3915	L<C<do>\|/do EXPR>がファイルを読み込めなかった場合、undef を返して
3866	3916	L<C<$!>\|perlvar/$!> にエラーを設定します。
3867	3917	コンパイルに失敗したときにも L<C<$!>\|perlvar/$!> が設定されるので、
3868	3918	常に L<C<$@>\|perlvar/$@> を先にチェックします。
3869	3919	ファイルのコンパイルに成功した場合、L<C<do>\|/do EXPR> は最後に評価した表現の
3870	3920	値を返します。
3871	3921
3872	3922	=begin original
3873	3923
3874	3924	Inclusion of library modules is better done with the
3875	3925	L<C<use>\|/use Module VERSION LIST> and L<C<require>\|/require VERSION>
3876	3926	operators, which also do automatic error checking and raise an exception
3877	3927	if there's a problem.
3878	3928
3879	3929	=end original
3880	3930
3881	3931	ライブラリモジュールのインクルードには、
3882	3932	L<C<use>\|/use Module VERSION LIST> 演算子や
3883	3933	L<C<require>\|/require VERSION> 演算子を使った方がよいです;
3884	3934	これらは自動的にエラーをチェックして、問題があれば例外を発生させます。
3885	3935
3886	3936	=begin original
3887	3937
3888	3938	You might like to use L<C<do>\|/do EXPR> to read in a program
3889	3939	configuration file. Manual error checking can be done this way:
3890	3940
3891	3941	=end original
3892	3942
3893	3943	L<C<do>\|/do EXPR> をプログラム設定ファイルを読み込むのに
3894	3944	使いたいかもしれません。
3895	3945	手動のエラーチェックは以下のようにして行えます:
3896	3946
3897	3947	# Read in config files: system first, then user.
3898	3948	# Beware of using relative pathnames here.
3899	3949	for $file ("/share/prog/defaults.rc",
3900	3950	"$ENV{HOME}/.someprogrc")
3901	3951	{
3902	3952	unless ($return = do $file) {
3903	3953	warn "couldn't parse $file: $@" if $@;
3904	3954	warn "couldn't do $file: $!" unless defined $return;
3905	3955	warn "couldn't run $file" unless $return;
3906	3956	}
3907	3957	}
3908	3958
3909	3959	=item dump LABEL
3910	3960	X<dump> X<core> X<undump>
3911	3961
3912	3962	=item dump EXPR
3913	3963
3914	3964	=item dump
3915	3965
3916	3966	=for Pod::Functions create an immediate core dump
3917	3967
3918	3968	=begin original
3919	3969
3920	3970	This function causes an immediate core dump. See also the B<-u>
3921	3971	command-line switch in L<perlrun\|perlrun/-u>, which does the same thing.
3922	3972	Primarily this is so that you can use the B<undump> program (not
3923	3973	supplied) to turn your core dump into an executable binary after
3924	3974	having initialized all your variables at the beginning of the
3925	3975	program. When the new binary is executed it will begin by executing
3926	3976	a C<goto LABEL> (with all the restrictions that L<C<goto>\|/goto LABEL>
3927	3977	suffers).
3928	3978	Think of it as a goto with an intervening core dump and reincarnation.
3929	3979	If C<LABEL> is omitted, restarts the program from the top. The
3930	3980	C<dump EXPR> form, available starting in Perl 5.18.0, allows a name to be
3931	3981	computed at run time, being otherwise identical to C<dump LABEL>.
3932	3982
3933	3983	=end original
3934	3984
3935	3985	この関数は即座にコアダンプを行ないます。
3936	3986	同様のことを行う <perlrun\|perlrun/-u> の B<-u> オプションも参照してください。
3937	3987	プログラムの先頭で、
3938	3988	すべての変数を初期化したあとのコアダンプを B<undump>
3939	3989	プログラム(提供していません)を使って実行ファイルに返ることができます。
3940	3990	この新しいバイナリが実行されると、C<goto LABEL> から始めます
3941	3991	(L<C<goto>\|/goto LABEL> に関する制限はすべて適用されます)。
3942	3992	コアダンプをはさんで再生する goto と考えてください。
3943	3993	C<LABEL> が省略されると、プログラムを先頭から再開します。
3944	3994	Perl 5.18.0 から利用可能な C<dump EXPR> 形式では、実行時に計算される
3945	3995	名前が使えます; その他は C<dump LABEL> と同一です。
3946	3996
3947	3997	=begin original
3948	3998
3949	3999	B<WARNING>: Any files opened at the time of the dump will I<not>
3950	4000	be open any more when the program is reincarnated, with possible
3951	4001	resulting confusion by Perl.
3952	4002
3953	4003	=end original
3954	4004
3955	4005	B<警告>: dump 時点でオープンされていたファイルは、プログラムが
3956	4006	再生されたときには、もはやオープンされて I<いません>; Perl を
3957	4007	混乱させる可能性があります。
3958	4008
3959	4009	=begin original
3960	4010
3961	4011	This function is now largely obsolete, mostly because it's very hard to
3962	4012	convert a core file into an executable. As of Perl 5.30, it must be invoked
3963	4013	as C<CORE::dump()>.
3964	4014
3965	4015	=end original
3966	4016
3967	4017	この関数は大幅に時代遅れのものです; 主な理由としては、コアファイルを
3968	4018	実行形式に変換するのが非常に困難であることです。
3969	4019	Perl 5.30 から、これは C<CORE::dump()> として起動しなければなりません。
3970	4020
3971	4021	=begin original
3972	4022
3973	4023	Unlike most named operators, this has the same precedence as assignment.
3974	4024	It is also exempt from the looks-like-a-function rule, so
3975	4025	C<dump ("foo")."bar"> will cause "bar" to be part of the argument to
3976	4026	L<C<dump>\|/dump LABEL>.
3977	4027
3978	4028	=end original
3979	4029
3980	4030	ほとんどの名前付き演算子と異なり、これは代入と同じ優先順位を持ちます。
3981	4031	また、関数のように見えるものの規則からも免れるので、C<dump ("foo")."bar"> と
3982	4032	すると "bar" は L<C<dump>\|/dump LABEL> への引数の一部になります。
3983	4033
3984	4034	=begin original
3985	4035
3986	4036	Portability issues: L<perlport/dump>.
3987	4037
3988	4038	=end original
3989	4039
3990	4040	移植性の問題: L<perlport/dump>。
3991	4041
3992	4042	=item each HASH
3993	4043	X<each> X<hash, iterator>
3994	4044
3995	4045	=item each ARRAY
3996	4046	X<array, iterator>
3997	4047
3998	4048	=for Pod::Functions retrieve the next key/value pair from a hash
3999	4049
4000	4050	=begin original
4001	4051
4002	4052	When called on a hash in list context, returns a 2-element list
4003	4053	consisting of the key and value for the next element of a hash. In Perl
4004	4054	5.12 and later only, it will also return the index and value for the next
4005	4055	element of an array so that you can iterate over it; older Perls consider
4006	4056	this a syntax error. When called in scalar context, returns only the key
4007	4057	(not the value) in a hash, or the index in an array.
4008	4058
4009	4059	=end original
4010	4060
4011	4061	ハッシュに対してリストコンテキストで呼び出した場合は、次の要素に対する、
4012	4062	ハッシュのキーと値を返します。
4013	4063	Perl 5.12 以降でのみ、配列のインデックスと値からなる
4014	4064	2 要素のリストを返すので、反復を行えます; より古い Perl ではこれは
4015	4065	文法エラーと考えられます。
4016	4066	スカラコンテキストで呼び出した場合は、
4017	4067	ハッシュの場合は(値ではなく)キー、配列の場合はインデックスを返します。
4018	4068
4019	4069	=begin original
4020	4070
4021	4071	Hash entries are returned in an apparently random order. The actual random
4022	4072	order is specific to a given hash; the exact same series of operations
4023	4073	on two hashes may result in a different order for each hash. Any insertion
4024	4074	into the hash may change the order, as will any deletion, with the exception
4025	4075	that the most recent key returned by L<C<each>\|/each HASH> or
4026	4076	L<C<keys>\|/keys HASH> may be deleted without changing the order. So
4027	4077	long as a given hash is unmodified you may rely on
4028	4078	L<C<keys>\|/keys HASH>, L<C<values>\|/values HASH> and
4029	4079	L<C<each>\|/each HASH> to repeatedly return the same order
4030	4080	as each other. See L<perlsec/"Algorithmic Complexity Attacks"> for
4031	4081	details on why hash order is randomized. Aside from the guarantees
4032	4082	provided here the exact details of Perl's hash algorithm and the hash
4033	4083	traversal order are subject to change in any release of Perl.
4034	4084
4035	4085	=end original
4036	4086
4037	4087	ハッシュ要素は見かけ上、ランダムな順序で返されます。
4038	4088	実際のランダムな順序はハッシュに固有です; 二つのハッシュに全く同じ一連の
4039	4089	操作を行っても、ハッシュによって異なった順序になります。
4040	4090	ハッシュへの挿入によって順序が変わることがあります; 削除も同様ですが、
4041	4091	L<C<each>\|/each HASH> または L<C<keys>\|/keys HASH> によって返されたもっとも
4042	4092	最近のキーは順序を変えることなく削除できます。
4043	4093	ハッシュが変更されない限り、L<C<keys>\|/keys HASH>, L<C<values>\|/values HASH>,
4044		L<C<each>\|/each HASH> が繰り返し同じ順序で
	4094	L<C<each>\|/each HASH> が繰り返し同じ順序で返すことに依存してもかまいません。
4045		返すことに依存してもかまいません。
4046	4095	なぜハッシュの順序がランダム化されているかの詳細については
4047	4096	L<perlsec/"Algorithmic Complexity Attacks"> を参照してください。
4048	4097	ここで保証したことを除いて、Perl のハッシュアルゴリズムとハッシュ横断順序の
4049	4098	正確な詳細は Perl のリリースによって変更される可能性があります。
4050	4099
4051	4100	=begin original
4052	4101
4053	4102	After L<C<each>\|/each HASH> has returned all entries from the hash or
4054	4103	array, the next call to L<C<each>\|/each HASH> returns the empty list in
4055	4104	list context and L<C<undef>\|/undef EXPR> in scalar context; the next
4056	4105	call following I<that> one restarts iteration. Each hash or array has
4057	4106	its own internal iterator, accessed by L<C<each>\|/each HASH>,
4058	4107	L<C<keys>\|/keys HASH>, and L<C<values>\|/values HASH>. The iterator is
4059	4108	implicitly reset when L<C<each>\|/each HASH> has reached the end as just
4060	4109	described; it can be explicitly reset by calling L<C<keys>\|/keys HASH>
4061	4110	or L<C<values>\|/values HASH> on the hash or array, or by referencing
4062	4111	the hash (but not array) in list context. If you add or delete
4063	4112	a hash's elements while iterating over it, the effect on the iterator is
4064	4113	unspecified; for example, entries may be skipped or duplicated--so don't
4065	4114	do that. Exception: It is always safe to delete the item most recently
4066	4115	returned by L<C<each>\|/each HASH>, so the following code works properly:
4067	4116
4068	4117	=end original
4069	4118
4070	4119	L<C<each>\|/each HASH> がハッシュをすべて読み込んでしまった後、
4071	4120	次の L<C<each>\|/each HASH> 呼び出しでは、リストコンテキストでは空リストが
4072	4121	返され、スカラコンテキストでは L<C<undef>\|/undef EXPR> が返されます;
4073	4122	I<そのあと> もう一度呼び出すと、再び反復を始めます。
4074	4123	ハッシュや配列毎にそれぞれ反復子があり、L<C<each>\|/each HASH>、
4075	4124	L<C<keys>\|/keys HASH>、L<C<values>\|/values HASH> でアクセスされます。
4076	4125	反復子は、前述したように L<C<each>\|/each HASH> が要素をすべて読むことによって
4077	4126	暗黙にリセットされます; また、ハッシュや配列に対して L<C<keys>\|/keys HASH>,
4078	4127	L<C<values>\|/values HASH> を呼び出すか、リストコンテキストで
4079	4128	(配列ではなく)ハッシュを参照ことで明示的にリセットできます。
4080	4129	繰り返しを行なっている間に、ハッシュに要素を追加したり削除したりすると、
4081	4130	反復子の動作は未定義です; 例えば、要素が飛ばされたり重複したりします--
4082	4131	従って、してはいけません。
4083	4132	例外: 一番最近に L<C<each>\|/each HASH> から返されたものを削除するのは常に
4084	4133	安全です; これは以下のようなコードが正しく動くことを意味します:
4085	4134
4086	4135	while (my ($key, $value) = each %hash) {
4087	4136	print $key, "\n";
4088	4137	delete $hash{$key}; # This is safe
4089	4138	}
4090	4139
4091	4140	=begin original
4092	4141
4093	4142	Tied hashes may have a different ordering behaviour to perl's hash
4094	4143	implementation.
4095	4144
4096	4145	=end original
4097	4146
4098	4147	tie されたハッシュは、順序に関して Perl のハッシュと異なった振る舞いをします。
4099	4148
4100	4149	=begin original
4101	4150
4102	4151	The iterator used by C<each> is attached to the hash or array, and is
4103	4152	shared between all iteration operations applied to the same hash or array.
4104	4153	Thus all uses of C<each> on a single hash or array advance the same
4105	4154	iterator location. All uses of C<each> are also subject to having the
4106	4155	iterator reset by any use of C<keys> or C<values> on the same hash or
4107	4156	array, or by the hash (but not array) being referenced in list context.
4108	4157	This makes C<each>-based loops quite fragile: it is easy to arrive at
4109	4158	such a loop with the iterator already part way through the object, or to
4110	4159	accidentally clobber the iterator state during execution of the loop body.
4111	4160	It's easy enough to explicitly reset the iterator before starting a loop,
4112	4161	but there is no way to insulate the iterator state used by a loop from
4113	4162	the iterator state used by anything else that might execute during the
4114	4163	loop body. To avoid these problems, use a C<foreach> loop rather than
4115	4164	C<while>-C<each>.
4116	4165
4117	4166	=end original
4118	4167
4119	4168	C<each> で使われる反復子はハッシュや配列に付随し、
4120	4169	同じハッシュや配列に適用される全ての反復操作の間で共有されます。
4121	4170	従って、一つのハッシュや配列での C<each> の全ての使用は同じ反復位置を
4122	4171	進めます。
4123	4172	また、全ての C<each> は、同じハッシュまたはキーに対する
4124	4173	C<keys> や C<values> の使用によって、または
4125	4174	(リストではなく)ハッシュがリストコンテキストで参照されることによって、
4126	4175	反復子がリセットされることになります。
4127	4176	これは、C<each> を基にしたループをかなり不安定にします:
4128	4177	そのようなループが既にオブジェクトを部分的に通りぬけた反復子で行われたり、
4129	4178	ループ本体の実行中に誤って反復子の状態を壊すことは容易です。
4130	4179	ループを始める前に反復子を明示的にリセットするのは十分容易ですが、
4131	4180	ループ本体の間に実行しているかもしれない他の何かによって使われている
4132	4181	反復子の状態から、
4133	4182	ループによって使われている反復子の状態を分離する方法はありません。
4134	4183	これらの問題を避けるには、C<while>-C<each> ではなく
4135	4184	C<foreach> ループを使ってください。
4136	4185
4137	4186	=begin original
4138	4187
	4188	This extends to using C<each> on the result of an anonymous hash or
	4189	array constructor. A new underlying array or hash is created each
	4190	time so each will always start iterating from scratch, eg:
	4191
	4192	=end original
	4193
	4194	これは、無名ハッシュや配列のコンストラクタの結果に
	4195	C<each> を使うように拡張します。
	4196	新しい基となる配列やハッシュは毎回作られるので、
	4197	それぞれは常に最初から反復します; 例:
	4198
	4199	# loops forever
	4200	while (my ($key, $value) = each @{ +{ a => 1 } }) {
	4201	print "$key=$value\n";
	4202	}
	4203
	4204	=begin original
	4205
4139	4206	This prints out your environment like the L<printenv(1)> program,
4140	4207	but in a different order:
4141	4208
4142	4209	=end original
4143	4210
4144	4211	これは、L<printenv(1)> プログラムのように環境変数を表示しますが、
4145	4212	順序は異なっています:
4146	4213
4147	4214	while (my ($key,$value) = each %ENV) {
4148	4215	print "$key=$value\n";
4149	4216	}
4150	4217
4151	4218	=begin original
4152	4219
4153	4220	Starting with Perl 5.14, an experimental feature allowed
4154	4221	L<C<each>\|/each HASH> to take a scalar expression. This experiment has
4155	4222	been deemed unsuccessful, and was removed as of Perl 5.24.
4156	4223
4157	4224	=end original
4158	4225
4159	4226	Perl 5.14 から、L<C<each>\|/each HASH> がスカラ式を取ることが出来るという
4160	4227	実験的機能がありました。
4161	4228	この実験は失敗と見なされ、Perl 5.24 で削除されました。
4162	4229
4163	4230	=begin original
4164	4231
4165	4232	As of Perl 5.18 you can use a bare L<C<each>\|/each HASH> in a C<while>
4166	4233	loop, which will set L<C<$_>\|perlvar/$_> on every iteration.
4167	4234	If either an C<each> expression or an explicit assignment of an C<each>
4168	4235	expression to a scalar is used as a C<while>/C<for> condition, then
4169	4236	the condition actually tests for definedness of the expression's value,
4170	4237	not for its regular truth value.
4171	4238
4172	4239	=end original
4173	4240
4174	4241	Perl 5.18 から C<while> ループの中に裸の L<C<each>\|/each HASH> を書けます;
4175	4242	これは繰り返し毎に L<C<$_>\|perlvar/$_> を設定します。
4176	4243	C<each> 式または C<each> 式からスカラへの明示的な代入が
4177	4244	C<while>/C<for> の条件部として使われた場合、
4178	4245	条件は通常の真の値かどうかではなく、式の値が定義されているかどうかを
4179	4246	テストします。
4180	4247
4181	4248	while (each %ENV) {
4182	4249	print "$_=$ENV{$_}\n";
4183	4250	}
4184	4251
4185	4252	=begin original
4186	4253
4187	4254	To avoid confusing would-be users of your code who are running earlier
4188	4255	versions of Perl with mysterious syntax errors, put this sort of thing at
4189	4256	the top of your file to signal that your code will work I<only> on Perls of
4190	4257	a recent vintage:
4191	4258
4192	4259	=end original
4193	4260
4194	4261	あなたのコードを以前のバージョンの Perl で実行したユーザーが不思議な
4195	4262	文法エラーで混乱することを避けるために、コードが最近のバージョンの Perl で
4196	4263	I<のみ> 動作することを示すためにファイルの先頭に以下のようなことを
4197	4264	書いてください:
4198	4265
4199		use 5.012; # so keys/values/each work on arrays
	4266	use v5.12; # so keys/values/each work on arrays
4200		use 5.018; # so each assigns to $_ in a lone while test
	4267	use v5.18; # so each assigns to $_ in a lone while test
4201	4268
4202	4269	=begin original
4203	4270
4204	4271	See also L<C<keys>\|/keys HASH>, L<C<values>\|/values HASH>, and
4205	4272	L<C<sort>\|/sort SUBNAME LIST>.
4206	4273
4207	4274	=end original
4208	4275
4209	4276	L<C<keys>\|/keys HASH> や L<C<values>\|/values HASH> や
4210	4277	L<C<sort>\|/sort SUBNAME LIST> も参照してください。
4211	4278
4212	4279	=item eof FILEHANDLE
4213	4280	X<eof>
4214	4281	X<end of file>
4215	4282	X<end-of-file>
4216	4283
4217	4284	=item eof ()
4218	4285
4219	4286	=item eof
4220	4287
4221	4288	=for Pod::Functions test a filehandle for its end
4222	4289
4223	4290	=begin original
4224	4291
4225	4292	Returns 1 if the next read on FILEHANDLE will return end of file I<or> if
4226	4293	FILEHANDLE is not open. FILEHANDLE may be an expression whose value
4227	4294	gives the real filehandle. (Note that this function actually
4228	4295	reads a character and then C<ungetc>s it, so isn't useful in an
4229	4296	interactive context.) Do not read from a terminal file (or call
4230	4297	C<eof(FILEHANDLE)> on it) after end-of-file is reached. File types such
4231	4298	as terminals may lose the end-of-file condition if you do.
4232	4299
4233	4300	=end original
4234	4301
4235	4302	次に FILEHANDLE 上で読み込みを行なったときに、EOF が返されるときか、
4236	4303	I<または> FILEHANDLE がオープンされていないと、1 を返します。
4237	4304	FILEHANDLE は、値が実際のファイルハンドルを示す式であってもかまいません。
4238	4305	(この関数は、実際に文字を読み、C<ungetc> を行ないますので、
4239	4306	対話型の場合には有用ではありません。)
4240	4307	端末ファイルは EOF に達した後にさらに読み込んだり C<eof(FILEHANDLE)> を
4241	4308	呼び出したりしてはいけません。
4242	4309	そのようなことをすると、端末のようなファイルタイプは
4243	4310	EOF 状態を失ってしまうかもしれません。
4244	4311
4245	4312	=begin original
4246	4313
4247	4314	An L<C<eof>\|/eof FILEHANDLE> without an argument uses the last file
4248	4315	read. Using L<C<eof()>\|/eof FILEHANDLE> with empty parentheses is
4249	4316	different. It refers to the pseudo file formed from the files listed on
4250	4317	the command line and accessed via the C<< <> >> operator. Since
4251	4318	C<< <> >> isn't explicitly opened, as a normal filehandle is, an
4252	4319	L<C<eof()>\|/eof FILEHANDLE> before C<< <> >> has been used will cause
4253	4320	L<C<@ARGV>\|perlvar/@ARGV> to be examined to determine if input is
4254	4321	available. Similarly, an L<C<eof()>\|/eof FILEHANDLE> after C<< <> >>
4255	4322	has returned end-of-file will assume you are processing another
4256	4323	L<C<@ARGV>\|perlvar/@ARGV> list, and if you haven't set
4257	4324	L<C<@ARGV>\|perlvar/@ARGV>, will read input from C<STDIN>; see
4258	4325	L<perlop/"I/O Operators">.
4259	4326
4260	4327	=end original
4261	4328
4262	4329	引数を省略した L<C<eof>\|/eof FILEHANDLE> は、最後に読み込みを行なった
4263	4330	ファイルを使います。
4264	4331	空の括弧をつけた L<C<eof()>\|/eof FILEHANDLE> は異なります。
4265	4332	これはコマンドラインのファイルリストで構成され、C<< <> >> 演算子経由で
4266	4333	アクセスされる擬似ファイルを示すために用いられます。
4267	4334	通常のファイルハンドルと違って C<< <> >> は明示的にオープンされないので、
4268	4335	C<< <> >> を使う前に L<C<eof()>\|/eof FILEHANDLE> を使うと、
4269	4336	入力が正常か確認するために L<C<@ARGV>\|perlvar/@ARGV> がテストされます。
4270	4337	同様に、C<< <> >> が EOF を返した後の L<C<eof()>\|/eof FILEHANDLE> は、
4271	4338	他の L<C<@ARGV>\|perlvar/@ARGV> リストを処理していると仮定し、もし
4272	4339	L<C<@ARGV>\|perlvar/@ARGV> をセットしていないときは C<STDIN> から読み込みます;
4273	4340	L<perlop/"I/O Operators"> を参照してください。
4274	4341
4275	4342	=begin original
4276	4343
4277	4344	In a C<< while (<>) >> loop, L<C<eof>\|/eof FILEHANDLE> or C<eof(ARGV)>
4278	4345	can be used to detect the end of each file, whereas
4279	4346	L<C<eof()>\|/eof FILEHANDLE> will detect the end of the very last file
4280	4347	only. Examples:
4281	4348
4282	4349	=end original
4283	4350
4284	4351	C<< while (<>) >> ループの中では、個々のファイルの終わりを調べるには、
4285	4352	L<C<eof>\|/eof FILEHANDLE> か C<eof(ARGV)> を用いるのに対して
4286	4353	L<C<eof()>\|/eof FILEHANDLE> は最後のファイルの終わりのみを調べます。
4287	4354	例:
4288	4355
4289	4356	# reset line numbering on each input file
4290	4357	while (<>) {
4291	4358	next if /^\s*#/; # skip comments
4292	4359	print "$.\t$_";
4293	4360	} continue {
4294	4361	close ARGV if eof; # Not eof()!
4295	4362	}
4296	4363
4297	4364	# insert dashes just before last line of last file
4298	4365	while (<>) {
4299	4366	if (eof()) { # check for end of last file
4300	4367	print "--------------\n";
4301	4368	}
4302	4369	print;
4303	4370	last if eof(); # needed if we're reading from a terminal
4304	4371	}
4305	4372
4306	4373	=begin original
4307	4374
4308	4375	Practical hint: you almost never need to use L<C<eof>\|/eof FILEHANDLE>
4309	4376	in Perl, because the input operators typically return L<C<undef>\|/undef
4310	4377	EXPR> when they run out of data or encounter an error.
4311	4378
4312	4379	=end original
4313	4380
4314	4381	現実的なヒント: Perl で L<C<eof>\|/eof FILEHANDLE> が必要となることは、
4315	4382	ほとんどありません;
4316	4383	基本的には、データがなくなったときやエラーがあったときに、入力演算子が
4317	4384	L<C<undef>\|/undef EXPR> を返してくれるからです。
4318	4385
4319	4386	=item eval EXPR
4320	4387	X<eval> X<try> X<catch> X<evaluate> X<parse> X<execute>
4321	4388	X<error, handling> X<exception, handling>
4322	4389
4323	4390	=item eval BLOCK
4324	4391
4325	4392	=item eval
4326	4393
4327	4394	=for Pod::Functions catch exceptions or compile and run code
4328	4395
4329	4396	=begin original
4330	4397
4331	4398	C<eval> in all its forms is used to execute a little Perl program,
4332	4399	trapping any errors encountered so they don't crash the calling program.
4333	4400
4334	4401	=end original
4335	4402
4336	4403	どの型式の C<eval> も、小さな Perl のプログラムであるかのように実行され、
4337	4404	遭遇した全てのエラーをトラップするので、呼び出したプログラムが
4338	4405	クラッシュすることはありません。
4339	4406
4340	4407	=begin original
4341	4408
4342	4409	Plain C<eval> with no argument is just C<eval EXPR>, where the
4343	4410	expression is understood to be contained in L<C<$_>\|perlvar/$_>. Thus
4344	4411	there are only two real C<eval> forms; the one with an EXPR is often
4345	4412	called "string eval". In a string eval, the value of the expression
4346	4413	(which is itself determined within scalar context) is first parsed, and
4347	4414	if there were no errors, executed as a block within the lexical context
4348	4415	of the current Perl program. This form is typically used to delay
4349	4416	parsing and subsequent execution of the text of EXPR until run time.
4350	4417	Note that the value is parsed every time the C<eval> executes.
4351	4418
4352	4419	=end original
4353	4420
4354	4421	引数なしの C<eval> は単に C<eval EXPR> で、式は L<C<$_>\|perlvar/$_> に
4355	4422	含まれているものとして考えられます。
4356	4423	従って実際には二つだけの C<eval> 形式があります:
4357	4424	EXPR のものはしばしば「文字列 eval」(string eval) と呼ばれます。
4358	4425	「文字列 eval」では、
4359	4426	式の値(それ自身スカラコンテキストの中で決定されます)はまずパースされ、
4360	4427	エラーがなければ Perl プログラムのレキシカルコンテキストの中のブロックとして
4361	4428	実行されます。
4362	4429	この形は主に EXPR のテキストのパースと実行を実行時にまで
4363	4430	遅延させるのに用います。
4364	4431	返される値は C<eval> が実行されるごとにパースされることに注意してください。
4365	4432
4366	4433	=begin original
4367	4434
4368	4435	The other form is called "block eval". It is less general than string
4369	4436	eval, but the code within the BLOCK is parsed only once (at the same
4370	4437	time the code surrounding the C<eval> itself was parsed) and executed
4371	4438	within the context of the current Perl program. This form is typically
4372	4439	used to trap exceptions more efficiently than the first, while also
4373	4440	providing the benefit of checking the code within BLOCK at compile time.
4374	4441	BLOCK is parsed and compiled just once. Since errors are trapped, it
4375	4442	often is used to check if a given feature is available.
4376	4443
4377	4444	=end original
4378	4445
4379	4446	もう一つの型式は「ブロック eval」と呼ばれます。
4380	4447	これは文字列 eval ほど一般的ではありませんが、
4381	4448	BLOCK 内部のコードは一度だけパースされ (コードを
4382	4449	囲む C<eval> 自身がパースされるのと同じ時点です) 現在の
4383	4450	Perl プログラムのコンテキストで実行されます。
4384	4451	この形式は典型的には第一の形式より効率的に例外をトラップします;
4385	4452	また BLOCK 内部のコードはコンパイル時にチェックされるという利点を提供します。
4386	4453	BLOCK は一度だけパース及びコンパイルされます。
4387	4454	エラーはトラップされてるので、しばしば与えられた機能が利用可能かを
4388	4455	チェックするために使われます。
4389	4456
4390	4457	=begin original
4391	4458
4392	4459	In both forms, the value returned is the value of the last expression
4393	4460	evaluated inside the mini-program; a return statement may also be used, just
4394	4461	as with subroutines. The expression providing the return value is evaluated
4395	4462	in void, scalar, or list context, depending on the context of the
4396	4463	C<eval> itself. See L<C<wantarray>\|/wantarray> for more
4397	4464	on how the evaluation context can be determined.
4398	4465
4399	4466	=end original
4400	4467
4401	4468	どちらの形式でも、返される値はミニプログラムの内部で最後に評価された
4402	4469	表現の値です; サブルーチンと同様、return 文も使えます。
4403	4470	返り値として提供される表現は、C<eval> 自身のコンテキストに
4404	4471	依存して無効・スカラ・リストのいずれかのコンテキストで評価されます。
4405	4472	評価コンテキストの決定方法についての詳細は L<C<wantarray>\|/wantarray> を
4406	4473	参照してください。
4407	4474
4408	4475	=begin original
4409	4476
4410	4477	If there is a syntax error or runtime error, or a L<C<die>\|/die LIST>
4411	4478	statement is executed, C<eval> returns
4412	4479	L<C<undef>\|/undef EXPR> in scalar context, or an empty list in list
4413	4480	context, and L<C<$@>\|perlvar/$@> is set to the error message. (Prior to
4414	4481	5.16, a bug caused L<C<undef>\|/undef EXPR> to be returned in list
4415	4482	context for syntax errors, but not for runtime errors.) If there was no
4416	4483	error, L<C<$@>\|perlvar/$@> is set to the empty string. A control flow
4417	4484	operator like L<C<last>\|/last LABEL> or L<C<goto>\|/goto LABEL> can
4418	4485	bypass the setting of L<C<$@>\|perlvar/$@>. Beware that using
4419	4486	C<eval> neither silences Perl from printing warnings to
4420	4487	STDERR, nor does it stuff the text of warning messages into
4421	4488	L<C<$@>\|perlvar/$@>. To do either of those, you have to use the
4422	4489	L<C<$SIG{__WARN__}>\|perlvar/%SIG> facility, or turn off warnings inside
4423	4490	the BLOCK or EXPR using S<C<no warnings 'all'>>. See
4424	4491	L<C<warn>\|/warn LIST>, L<perlvar>, and L<warnings>.
4425	4492
4426	4493	=end original
4427	4494
4428	4495	構文エラーや実行エラーが発生するか、L<C<die>\|/die LIST> 文が実行されると、
4429	4496	C<eval> はスカラコンテキストでは L<C<undef>\|/undef EXPR> が、
4430	4497	リストコンテキストでは空リストが設定され、
4431	4498	L<C<$@>\|perlvar/$@> にエラーメッセージが設定されます。
4432	4499	(5.16 以前では、バグによって、リストコンテキストで構文エラーの時には
4433	4500	L<C<undef>\|/undef EXPR> を返していましたが、実行エラーの時には
4434	4501	返していませんでした。)
4435	4502	エラーがなければ、L<C<$@>\|perlvar/$@> は空文字列に設定されます。
4436	4503	L<C<last>\|/last LABEL> や L<C<goto>\|/goto LABEL> のようなフロー制御演算子は
4437	4504	L<C<$@>\|perlvar/$@> の設定を回避できます。
4438	4505	C<eval> を、STDERR に警告メッセージを表示させない目的や、
4439	4506	警告メッセージを L<C<$@>\|perlvar/$@> に格納する目的では使わないでください。
4440	4507	そのような用途では、L<C<$SIG{__WARN__}>\|perlvar/%SIG> 機能を使うか、
4441	4508	S<C<no warnings 'all'>> を使って BLOCK か EXPR の内部での警告を
4442	4509	オフにする必要があります。
4443	4510	L<C<warn>\|/warn LIST>, L<perlvar>, L<warnings> を参照してください。
4444	4511
4445	4512	=begin original
4446	4513
4447	4514	Note that, because C<eval> traps otherwise-fatal errors,
4448	4515	it is useful for determining whether a particular feature (such as
4449	4516	L<C<socket>\|/socket SOCKET,DOMAIN,TYPE,PROTOCOL> or
4450	4517	L<C<symlink>\|/symlink OLDFILE,NEWFILE>) is implemented. It is also
4451	4518	Perl's exception-trapping mechanism, where the L<C<die>\|/die LIST>
4452	4519	operator is used to raise exceptions.
4453	4520
4454	4521	=end original
4455	4522
4456	4523	C<eval> は、致命的エラーとなるようなものを
4457	4524	トラップすることができるので、
4458	4525	(L<C<socket>\|/socket SOCKET,DOMAIN,TYPE,PROTOCOL> や
4459	4526	L<C<symlink>\|/symlink OLDFILE,NEWFILE> といった) 特定の機能が
4460	4527	実装されているかを、
4461	4528	調べるために使うことができることに注意してください。
4462	4529	L<C<die>\|/die LIST> 演算子が例外を発生させるものとすれば、これはまた、
4463	4530	Perl の例外捕捉機能と捉えることもできます。
4464	4531
4465	4532	=begin original
4466	4533
4467	4534	Before Perl 5.14, the assignment to L<C<$@>\|perlvar/$@> occurred before
4468	4535	restoration
4469	4536	of localized variables, which means that for your code to run on older
4470	4537	versions, a temporary is required if you want to mask some, but not all
4471	4538	errors:
4472	4539
4473	4540	=end original
4474	4541
4475	4542	Perl 5.14 より前では、L<C<$@>\|perlvar/$@> への代入はローカル化された変数の
4476	4543	復帰の前に起きるので、古いバージョンで実行される場合は、全てではなく一部だけの
4477	4544	エラーをマスクしたい場合には一時変数が必要です:
4478	4545
4479	4546	# alter $@ on nefarious repugnancy only
4480	4547	{
4481	4548	my $e;
4482	4549	{
4483	4550	local $@; # protect existing $@
4484	4551	eval { test_repugnancy() };
4485	4552	# $@ =~ /nefarious/ and die $@; # Perl 5.14 and higher only
4486	4553	$@ =~ /nefarious/ and $e = $@;
4487	4554	}
4488	4555	die $e if defined $e
4489	4556	}
4490	4557
4491	4558	=begin original
4492	4559
4493	4560	There are some different considerations for each form:
4494	4561
4495	4562	=end original
4496	4563
4497	4564	それぞれの型式について、異なった考慮事項があります:
4498	4565
4499	4566	=over 4
4500	4567
4501	4568	=item String eval
4502	4569
4503	4570	(文字列 eval)
4504	4571
4505	4572	=begin original
4506	4573
4507	4574	Since the return value of EXPR is executed as a block within the lexical
4508	4575	context of the current Perl program, any outer lexical variables are
4509	4576	visible to it, and any package variable settings or subroutine and
4510	4577	format definitions remain afterwards.
4511	4578
4512	4579	=end original
4513	4580
4514	4581	EXPR の返り値は現在の Perl プログラムのレキシカルコンテキストの中で
4515	4582	実行されるので、外側のレキシカルスコープはそこから見え、
4516	4583	パッケージ変数設定やサブルーチンとフォーマット設定は後に残ります。
4517	4584
4518	4585	=over 4
4519	4586
4520	4587	=item Under the L<C<"unicode_eval"> feature\|feature/The 'unicode_eval' and 'evalbytes' features>
4521	4588
4522	4589	=begin original
4523	4590
4524	4591	If this feature is enabled (which is the default under a C<use 5.16> or
4525		higher declaration), EXPR is c~~onside~~red t~~o be~~
	4592	higher declaration), Perl assumes that EXPR is a character string.
4526		in ~~the~~ same ~~encoding as~~ the surrou~~nding~~ pr~~ogr~~a~~m. Thu~~s if
	4593	Any S<C<use utf8>> or S<C<no utf8>> declarations within
4527		~~S<L<C<us~~e ut~~f8>\|utf8>>~~ is in effect, the ~~str~~i~~ng wi~~l~~l b~~e tre~~ate~~d as be~~ing~~
	4594	the string thus have no effect. Source filters are forbidden as well.
4528		~~UTF-8 e~~ncode~~d. O~~therwise, the str~~ing~~ is con~~sid~~ered to be a s~~eque~~n~~ce of~~
	4595	(C<unicode_strings>, however, can appear within the string.)
4529		independent bytes. Bytes that correspond to ASCII-range code points
4530		will have their normal meanings for operators in the string. The
4531		treatment of the other bytes depends on if the
4532		L<C<'unicode_strings"> feature\|feature/The 'unicode_strings' feature> is
4533		in effect.
4534	4596
4535	4597	=end original
4536	4598
4537	4599	この機能が有効の場合(これは C<use 5.16> またはそれ以上が
4538	4600	宣言されている場合はデフォルトです)、
4539		EXPR ~~は周り~~の~~プログラムと同じエンコーディング~~であるとし~~て扱われ~~ます。
	4601	Perl は EXPR が文字の文字列であると仮定します。
4540		従って、S<L<C<use utf8>\|utf8>> が有効~~の場合、~~
	4602	従って文字列中の S<C<use utf8>> や S<C<no utf8>> 宣言は無効です。
4541		~~文字列は UTF-8 エンコ~~ー~~ドされている~~も~~のとして扱わ~~れます。
	4603	ソースフィルタも禁止されます。
4542		~~さもなければ~~、この文字列~~は個々~~の~~バイト列として扱わ~~れます。
	4604	(しかし、C<unicode_strings> は文字列の中に現れます。)
4543		ASCII の範囲の符号位置に対応するバイトは、
4544		文字列の操作に関して通常の意味を持ちます。
4545		その他のバイトの扱いは、
4546		<C<'unicode_strings"> feature\|feature/'unicode_strings' 機能> が有効の場合か
4547		どうかに依存します。
4548	4605
4549	4606	=begin original
4550	4607
4551		In a pl~~ain~~ C<eval> wit~~hout~~ an EXPR ~~argum~~ent, being ~~in S<C<u~~se ~~utf8>>~~ or
	4608	See also the L<C<evalbytes>\|/evalbytes EXPR> operator, which works properly
4552		~~not~~ i~~s irrelevan~~t~~; t~~he ~~UTF-8ne~~ss of ~~C<$_>~~ i~~tse~~l~~f de~~ter~~mine~~s ~~the~~
	4609	with source filters.
4553		behavior.
4554	4610
4555	4611	=end original
4556	4612
4557		EXPR 引数のない単なる C<eval> の場合、S<C<use utf8>> の有無は無関係です;
4558		C<$_> 自身の UTF-8 性が振る舞いを決定します。
4559
4560		=begin original
4561
4562		Any S<C<use utf8>> or S<C<no utf8>> declarations within the string have
4563		no effect, and source filters are forbidden. (C<unicode_strings>,
4564		however, can appear within the string.) See also the
4565		L<C<evalbytes>\|/evalbytes EXPR> operator, which works properly with
4566		source filters.
4567
4568		=end original
4569
4570		文字列中の S<C<use utf8>> や S<C<no utf8>> 宣言は無効で、ソースフィルタは
4571		禁止されます。
4572		(しかし、C<unicode_strings> は文字列の中に現れます。)
4573	4613	ソースフィルタが適切に動作する
4574	4614	L<C<evalbytes>\|/evalbytes EXPR> 演算子も参照してください。
4575	4615
4576		=begin original
4577
4578		Variables defined outside the C<eval> and used inside it retain their
4579		original UTF-8ness. Everything inside the string follows the normal
4580		rules for a Perl program with the given state of S<C<use utf8>>.
4581
4582		=end original
4583
4584		Variables defined outside the
4585		C<eval> の外側で定義され、内側で使われた変数は、
4586		元の UTF-8 性を維持します。
4587		内側の文字列は、S<C<use utf8>> の状態によって Perl プログラムに適用される
4588		通常の規則に従います。
4589
4590	4616	=item Outside the C<"unicode_eval"> feature
4591	4617
4592	4618	=begin original
4593	4619
4594	4620	In this case, the behavior is problematic and is not so easily
4595	4621	described. Here are two bugs that cannot easily be fixed without
4596	4622	breaking existing programs:
4597	4623
4598	4624	=end original
4599	4625
4600	4626	この場合、振る舞いには問題があり、それほど簡単には説明できません。
4601	4627	既存のプログラムを壊さずに簡単に修正することが出来ない二つのバグがあります:
4602	4628
4603	4629	=over 4
4604	4630
4605	4631	=item *
4606	4632
4607	4633	=begin original
4608	4634
4609		~~It can~~ lose track of whether ~~som~~ething sho~~uld~~ be encoded ~~as UTF-8~~ or
	4635	Perl's internal storage of EXPR affects the behavior of the executed code.
4610		not.
	4636	For example:
4611	4637
4612	4638	=end original
4613	4639
4614		~~あるものが~~ ~~UTF-8~~ ~~でエンコードされているかどうかを見失うことがあります。~~
	4640	Perl's internal storage of
	4641	EXPR の Perl の内部ストーレージは実行されるコードの振る舞いに影響を与えます。
	4642	例えば:
4615	4643
	4644	my $v = eval "use utf8; '$expr'";
	4645
	4646	=begin original
	4647
	4648	If $expr is C<"\xc4\x80"> (U+0100 in UTF-8), then the value stored in C<$v>
	4649	will depend on whether Perl stores $expr "upgraded" (cf. L<utf8>) or
	4650	not:
	4651
	4652	=end original
	4653
	4654	$expr が C<"\xc4\x80"> (U+0100 in UTF-8) の場合、C<$v> に保管される値は、
	4655	Perl が $expr を「昇格」(L<utf8> 参照)して保管するかどうかによります:
	4656
	4657	=over
	4658
	4659	=item * If upgraded, C<$v> will be C<"\xc4\x80"> (i.e., the
	4660	C<use utf8> has no effect.)
	4661
	4662	(昇格されると、C<$v> will be C<"\xc4\x80"> になります
	4663	(つまり、C<use utf8> は無効です。))
	4664
	4665	=item * If non-upgraded, C<$v> will be C<"\x{100}">.
	4666
	4667	(昇格されないと、C<$v> は C<"\x{100}">です。)
	4668
	4669	=back
	4670
	4671	This is undesirable since being
	4672	upgraded or not should not affect a string's behavior.
	4673
4616	4674	=item *
4617	4675
4618	4676	=begin original
4619	4677
4620	4678	Source filters activated within C<eval> leak out into whichever file
4621	4679	scope is currently being compiled. To give an example with the CPAN module
4622	4680	L<Semi::Semicolons>:
4623	4681
4624	4682	=end original
4625	4683
4626	4684	C<eval> の中で有効にされたソースフィルタは、現在どちらのファイルスコープで
4627	4685	コンパイルされているかをリークさせます。
4628	4686	CPAN モジュール L<Semi::Semicolons> を使った例は:
4629	4687
4630	4688	BEGIN { eval "use Semi::Semicolons; # not filtered" }
4631	4689	# filtered here!
4632	4690
4633	4691	=begin original
4634	4692
4635	4693	L<C<evalbytes>\|/evalbytes EXPR> fixes that to work the way one would
4636	4694	expect:
4637	4695
4638	4696	=end original
4639	4697
4640	4698	L<C<evalbytes>\|/evalbytes EXPR> は、人が想定するだろう手法で動作するように
4641	4699	これを修正します:
4642	4700
4643	4701	use feature "evalbytes";
4644	4702	BEGIN { evalbytes "use Semi::Semicolons; # filtered" }
4645	4703	# not filtered
4646	4704
4647	4705	=back
4648	4706
4649	4707	=back
4650	4708
4651	4709	=begin original
4652	4710
4653	4711	Problems can arise if the string expands a scalar containing a floating
4654	4712	point number. That scalar can expand to letters, such as C<"NaN"> or
4655	4713	C<"Infinity">; or, within the scope of a L<C<use locale>\|locale>, the
4656	4714	decimal point character may be something other than a dot (such as a
4657	4715	comma). None of these are likely to parse as you are likely expecting.
4658	4716
4659	4717	=end original
4660	4718
4661	4719	文字列をが小数点を含むスカラを展開するときに問題が起こることがあります。
4662	4720	そのようなスカラは C<"NaN"> や C<"Infinity"> のような文字に
4663	4721	展開されることがあります; または、L<C<use locale>\|locale> のスコープの中では、
4664	4722	小数点文字は (カンマのような) ドット以外の文字かもしれません。
4665	4723	これらはどれもあなたがおそらく予測しているようにはパースされません。
4666	4724
4667	4725	=begin original
4668	4726
4669	4727	You should be especially careful to remember what's being looked at
4670	4728	when:
4671	4729
4672	4730	=end original
4673	4731
4674	4732	以下のような場合に、何が調べられるかに特に注意しておくことが必要です:
4675	4733
4676	4734	eval $x; # CASE 1
4677	4735	eval "$x"; # CASE 2
4678	4736
4679	4737	eval '$x'; # CASE 3
4680	4738	eval { $x }; # CASE 4
4681	4739
4682	4740	eval "\$$x++"; # CASE 5
4683	4741	$$x++; # CASE 6
4684	4742
4685	4743	=begin original
4686	4744
4687	4745	Cases 1 and 2 above behave identically: they run the code contained in
4688	4746	the variable $x. (Although case 2 has misleading double quotes making
4689	4747	the reader wonder what else might be happening (nothing is).) Cases 3
4690	4748	and 4 likewise behave in the same way: they run the code C<'$x'>, which
4691	4749	does nothing but return the value of $x. (Case 4 is preferred for
4692	4750	purely visual reasons, but it also has the advantage of compiling at
4693	4751	compile-time instead of at run-time.) Case 5 is a place where
4694	4752	normally you I<would> like to use double quotes, except that in this
4695	4753	particular situation, you can just use symbolic references instead, as
4696	4754	in case 6.
4697	4755
4698	4756	=end original
4699	4757
4700	4758	上記の CASE 1 と CASE 2 の動作は同一で、変数 $x 内の
4701	4759	コードを実行します。
4702	4760	(ただし、CASE 2 では、必要のないダブルクォートによって、
4703	4761	読む人が何が起こるか混乱することでしょう (何も起こりませんが)。)
4704	4762	同様に CASE 3 と CASE 4 の動作も等しく、$x の値を返す以外に
4705		何もしない C<$x> というコードを実行します
	4763	何もしない C<$x> というコードを実行します。
4706	4764	(純粋に見た目の問題で、CASE 4 が好まれますが、
4707	4765	実行時でなくコンパイル時にコンパイルされるという利点もあります)。
4708	4766	CASE 5 の場合は、通常ダブルクォートを使用 I<します>;
4709	4767	この状況を除けば、CASE 6 のように、単に
4710	4768	シンボリックリファレンスを使えば良いでしょう。
4711	4769
4712	4770	=begin original
4713	4771
4714	4772	An C<eval ''> executed within a subroutine defined
4715	4773	in the C<DB> package doesn't see the usual
4716	4774	surrounding lexical scope, but rather the scope of the first non-DB piece
4717	4775	of code that called it. You don't normally need to worry about this unless
4718	4776	you are writing a Perl debugger.
4719	4777
4720	4778	=end original
4721	4779
4722	4780	C<DB> パッケージで定義されたサブルーチン内で C<eval ''> を実行すると、通常の
4723	4781	レキシカルスコープではなく、これを呼び出した最初の非 DB コード片の
4724	4782	スコープになります。
4725	4783	Perl デバッガを書いているのでない限り、普通はこれについて心配する必要は
4726	4784	ありません。
4727	4785
4728	4786	=begin original
4729	4787
4730	4788	The final semicolon, if any, may be omitted from the value of EXPR.
4731	4789
4732	4790	=end original
4733	4791
4734	4792	最後のセミコロンは、もしあれば、EXPR の値から省くことができます。
4735	4793
4736	4794	=item Block eval
4737	4795
4738	4796	=begin original
4739	4797
4740	4798	If the code to be executed doesn't vary, you may use the eval-BLOCK
4741	4799	form to trap run-time errors without incurring the penalty of
4742	4800	recompiling each time. The error, if any, is still returned in
4743	4801	L<C<$@>\|perlvar/$@>.
4744	4802	Examples:
4745	4803
4746	4804	=end original
4747	4805
4748	4806	実行するコードが変わらないのであれば、毎回多量の再コンパイルすることなしに、
4749	4807	実行時エラーのトラップを行なうために、
4750	4808	eval-BLOCK 形式を使うことができます。
4751	4809	エラーがあれば、やはり L<C<$@>\|perlvar/$@> に返されます。
4752	4810	例:
4753	4811
4754	4812	# make divide-by-zero nonfatal
4755	4813	eval { $answer = $a / $b; }; warn $@ if $@;
4756	4814
4757	4815	# same thing, but less efficient
4758	4816	eval '$answer = $a / $b'; warn $@ if $@;
4759	4817
4760	4818	# a compile-time error
4761	4819	eval { $answer = }; # WRONG
4762	4820
4763	4821	# a run-time error
4764	4822	eval '$answer ='; # sets $@
4765	4823
4766	4824	=begin original
4767	4825
4768	4826	If you want to trap errors when loading an XS module, some problems with
4769	4827	the binary interface (such as Perl version skew) may be fatal even with
4770	4828	C<eval> unless C<$ENV{PERL_DL_NONLAZY}> is set. See
4771	4829	L<perlrun\|perlrun/PERL_DL_NONLAZY>.
4772	4830
4773	4831	=end original
4774	4832
4775	4833	XS モジュールのロード中のエラーをトラップしたいなら、
4776	4834	(Perl バージョンの違いのような) バイナリインターフェースに関する問題に
4777	4835	ついては C<$ENV{PERL_DL_NONLAZY}> がセットされていない
4778	4836	C<eval> でも致命的エラーになるかもしれません。
4779	4837	L<perlrun\|perlrun/PERL_DL_NONLAZY> を参照してください。
4780	4838
4781	4839	=begin original
4782	4840
4783	4841	Using the C<eval {}> form as an exception trap in libraries does have some
4784	4842	issues. Due to the current arguably broken state of C<__DIE__> hooks, you
4785	4843	may wish not to trigger any C<__DIE__> hooks that user code may have installed.
4786	4844	You can use the C<local $SIG{__DIE__}> construct for this purpose,
4787	4845	as this example shows:
4788	4846
4789	4847	=end original
4790	4848
4791	4849	C<eval{}> 形式をライブラリの例外を捕捉するために使うときには
4792	4850	問題があります。
4793	4851	現在の C<__DIE__> フックの状態はほぼ確実に壊れているという理由で、
4794	4852	ユーザーのコードが設定した C<__DIE__> フックを実行したくないかもしれません。
4795	4853	この目的には以下の例のように、C<local $SIG{__DIE__}> 構造が使えます。
4796	4854
4797	4855	# a private exception trap for divide-by-zero
4798	4856	eval { local $SIG{'__DIE__'}; $answer = $a / $b; };
4799	4857	warn $@ if $@;
4800	4858
4801	4859	=begin original
4802	4860
4803	4861	This is especially significant, given that C<__DIE__> hooks can call
4804	4862	L<C<die>\|/die LIST> again, which has the effect of changing their error
4805	4863	messages:
4806	4864
4807	4865	=end original
4808	4866
4809	4867	これは特に顕著です; 与えられた C<__DIE__> フックは L<C<die>\|/die LIST> を
4810	4868	もう一度呼び出すことができ、これによってエラーメッセージを変える
4811	4869	効果があります:
4812	4870
4813	4871	# __DIE__ hooks may modify error messages
4814	4872	{
4815	4873	local $SIG{'__DIE__'} =
4816	4874	sub { (my $x = $_[0]) =~ s/foo/bar/g; die $x };
4817	4875	eval { die "foo lives here" };
4818	4876	print $@ if $@; # prints "bar lives here"
4819	4877	}
4820	4878
4821	4879	=begin original
4822	4880
4823	4881	Because this promotes action at a distance, this counterintuitive behavior
4824	4882	may be fixed in a future release.
4825	4883
4826	4884	=end original
4827	4885
4828	4886	これは距離の離れた行動であるため、この直感的でない振る舞いは
4829	4887	将来のリリースでは修正されるかもしれません。
4830	4888
4831	4889	=begin original
4832	4890
4833	4891	C<eval BLOCK> does I<not> count as a loop, so the loop control statements
4834	4892	L<C<next>\|/next LABEL>, L<C<last>\|/last LABEL>, or
4835	4893	L<C<redo>\|/redo LABEL> cannot be used to leave or restart the block.
4836	4894
4837	4895	=end original
4838	4896
4839	4897	C<eval BLOCK> はループとして I<扱われません>; 従って、L<C<next>\|/next LABEL>,
4840	4898	L<C<last>\|/last LABEL>, L<C<redo>\|/redo LABEL> といったループ制御文で
4841	4899	ブロックから離れたり再実行したりはできません。
4842	4900
4843	4901	=begin original
4844	4902
4845	4903	The final semicolon, if any, may be omitted from within the BLOCK.
4846	4904
4847	4905	=end original
4848	4906
4849	4907	最後のセミコロンは、もしあれば、BLOCK の中から削除されます。
4850	4908
4851	4909	=back
4852	4910
4853	4911	=item evalbytes EXPR
4854	4912	X<evalbytes>
4855	4913
4856	4914	=item evalbytes
4857	4915
4858	4916	=for Pod::Functions +evalbytes similar to string eval, but intend to parse a bytestream
4859	4917
4860	4918	=begin original
4861	4919
4862	4920	This function is similar to a L<string eval\|/eval EXPR>, except it
4863	4921	always parses its argument (or L<C<$_>\|perlvar/$_> if EXPR is omitted)
4864		as a string of indepen~~den~~t bytes.
	4922	as a byte string. If the string contains any code points above 255, then
	4923	it cannot be a byte string, and the C<evalbytes> will fail with the error
	4924	stored in C<$@>.
4865	4925
4866	4926	=end original
4867	4927
4868	4928	この関数は L<文字列 eval\|/eval EXPR> に似ていますが、引数(EXPR が
4869	4929	省略された場合はL<C<$_>\|perlvar/$_>) を常にバイト単位のの文字列として
4870	4930	扱います。
	4931	文字列に 255 を超える符号位置が含まれている場合、バイト単位文字列に
4872		~~=begin original~~
	4932	することができないので、
4873
4874		If called when S<C<use utf8>> is in effect, the string will be assumed
4875		to be encoded in UTF-8, and C<evalbytes> will make a temporary copy to
4876		work from, downgraded to non-UTF-8. If this is not possible
4877		(because one or more characters in it require UTF-8), the C<evalbytes>
4878		will fail with the error stored in C<$@>.
4879
4880		=end original
4881
4882		S<C<use utf8>> が有効のときに呼び出されると、
4883		文字列は UTF-8 でエンコードされていると仮定され、
4884		C<evalbytes> は、非 UTF-8 にダウングレードした一時的なコピーを作ります。
4885		(UTF-8 が必要な文字があるために) これが不可能な場合、
4886	4933	C<evalbytes> は失敗し、エラーは C<$@> に保管されます。
4887	4934
4888	4935	=begin original
4889	4936
4890		~~Byte~~s t~~hat~~ ~~correspo~~nd ~~to AS~~C~~II-ra~~n~~ge c~~ode points will have their ~~norm~~al
	4937	C<use utf8> and C<no utf8> within the string have their usual effect.
4891		meanings for operators in the string. The treatment of the other bytes
4892		depends on if the L<C<'unicode_strings"> feature\|feature/The
4893		'unicode_strings' feature> is in effect.
4894	4938
4895	4939	=end original
4896	4940
4897		ASCII の~~範囲の符号位置に対応~~す~~るバイトは、~~
	4941	文字列中の C<use utf8> と C<no utf8> は通常の効果を持ちます。
4898		文字列の操作に関して通常の意味を持ちます。
4899		その他のバイトの扱いは、
4900		<C<'unicode_strings"> feature\|feature/'unicode_strings' 機能> が有効の場合か
4901		どうかに依存します。
4902	4942
4903	4943	=begin original
4904	4944
4905		Of course, variables that are UTF-8 and are referred to in the string
4906		retain that:
4907
4908		=end original
4909
4910		もちろん、UTF-8 で文字列の中で参照されている変数はそのままです:
4911
4912		my $a = "\x{100}";
4913		evalbytes 'print ord $a, "\n"';
4914
4915		=begin original
4916
4917		prints
4918
4919		=end original
4920
4921		というのは、次を表示し、
4922
4923		256
4924
4925		=begin original
4926
4927		and C<$@> is empty.
4928
4929		=end original
4930
4931		C<$@> は空になります。
4932
4933		=begin original
4934
4935	4945	Source filters activated within the evaluated code apply to the code
4936	4946	itself.
4937	4947
4938	4948	=end original
4939	4949
4940	4950	eval されたコード内で有効になったソースフィルタはコード自体に適用されます。
4941	4951
4942	4952	=begin original
4943	4953
4944	4954	L<C<evalbytes>\|/evalbytes EXPR> is available starting in Perl v5.16. To
4945	4955	access it, you must say C<CORE::evalbytes>, but you can omit the
4946	4956	C<CORE::> if the
4947	4957	L<C<"evalbytes"> feature\|feature/The 'unicode_eval' and 'evalbytes' features>
4948	4958	is enabled. This is enabled automatically with a C<use v5.16> (or
4949	4959	higher) declaration in the current scope.
4950	4960
4951	4961	=end original
4952	4962
4953	4963	L<C<evalbytes>\|/evalbytes EXPR> は Perl v5.16 から利用可能です。
4954	4964	これにアクセスするには C<CORE::evalbytes> とする必要がありますが、
4955	4965	L<C<"evalbytes"> 機能\|feature/The 'unicode_eval' and 'evalbytes' features> が
4956	4966	有効なら C<CORE::> を省略できます。
4957	4967	これは現在のスコープで C<use v5.16> (またはそれ以上) 宣言があると
4958	4968	自動的に有効になります。
4959	4969
4960	4970	=item exec LIST
4961	4971	X<exec> X<execute>
4962	4972
4963	4973	=item exec PROGRAM LIST
4964	4974
4965	4975	=for Pod::Functions abandon this program to run another
4966	4976
4967	4977	=begin original
4968	4978
4969	4979	The L<C<exec>\|/exec LIST> function executes a system command I<and never
4970	4980	returns>; use L<C<system>\|/system LIST> instead of L<C<exec>\|/exec LIST>
4971	4981	if you want it to return. It fails and
4972	4982	returns false only if the command does not exist I<and> it is executed
4973	4983	directly instead of via your system's command shell (see below).
4974	4984
4975	4985	=end original
4976	4986
4977	4987	L<C<exec>\|/exec LIST> 関数は、システムのコマンドを実行し、I<戻ってはきません>;
4978	4988	戻って欲しい場合には、L<C<exec>\|/exec LIST>ではなく
4979	4989	L<C<system>\|/system LIST> 関数を使ってください。
4980	4990	コマンドが存在せず、I<しかも> システムのコマンドシェル経由でなく
4981	4991	直接コマンドを実行しようとした場合にのみこの関数は失敗して偽を返します。
4982	4992
4983	4993	=begin original
4984	4994
4985	4995	Since it's a common mistake to use L<C<exec>\|/exec LIST> instead of
4986	4996	L<C<system>\|/system LIST>, Perl warns you if L<C<exec>\|/exec LIST> is
4987	4997	called in void context and if there is a following statement that isn't
4988	4998	L<C<die>\|/die LIST>, L<C<warn>\|/warn LIST>, or L<C<exit>\|/exit EXPR> (if
4989	4999	L<warnings> are enabled--but you always do that, right?). If you
4990	5000	I<really> want to follow an L<C<exec>\|/exec LIST> with some other
4991	5001	statement, you can use one of these styles to avoid the warning:
4992	5002
4993	5003	=end original
4994	5004
4995	5005	L<C<system>\|/system LIST> の代わりに L<C<exec>\|/exec LIST> を使うという
4996	5006	よくある間違いを防ぐために、L<C<exec>\|/exec LIST> が無効コンテキストで
4997	5007	呼び出されて、引き続く文が L<C<die>\|/die LIST>, L<C<warn>\|/warn LIST>,
4998	5008	L<C<exit>\|/exit EXPR> 以外の場合、Perl は警告を出します(L<warnings> が
4999	5009	有効の場合 -- でもいつもセットしてますよね?)。
5000	5010	もし I<本当に> L<C<exec>\|/exec LIST> の後に他の文を書きたい場合、以下の
5001	5011	どちらかのスタイルを使うことで警告を回避できます:
5002	5012
5003	5013	exec ('foo') or print STDERR "couldn't exec foo: $!";
5004	5014	{ exec ('foo') }; print STDERR "couldn't exec foo: $!";
5005	5015
5006	5016	=begin original
5007	5017
5008	5018	If there is more than one argument in LIST, this calls L<execvp(3)> with the
5009	5019	arguments in LIST. If there is only one element in LIST, the argument is
5010	5020	checked for shell metacharacters, and if there are any, the entire
5011	5021	argument is passed to the system's command shell for parsing (this is
5012	5022	C</bin/sh -c> on Unix platforms, but varies on other platforms). If
5013	5023	there are no shell metacharacters in the argument, it is split into words
5014	5024	and passed directly to C<execvp>, which is more efficient. Examples:
5015	5025
5016	5026	=end original
5017	5027
5018	5028	LIST に複数の引数がある場合は、LIST の引数を使って L<execvp(3)> を
5019	5029	呼び出します。
5020	5030	LIST に要素が一つのみの場合には、その引数からシェルのメタ文字をチェックし、
5021	5031	もしメタ文字があれば、引数全体をシステムのコマンドシェル(これはUnix では
5022	5032	C</bin/sh -c> ですが、システムによって異なります)に渡して解析させます。
5023	5033	シェルのメタ文字がなかった場合、引数は単語に分解されて直接 C<execvp> に
5024	5034	渡されます; この方がより効率的です。
5025	5035	例:
5026	5036
5027	5037	exec '/bin/echo', 'Your arguments are: ', @ARGV;
5028	5038	exec "sort $outfile \| uniq";
5029	5039
5030	5040	=begin original
5031	5041
5032	5042	If you don't really want to execute the first argument, but want to lie
5033	5043	to the program you are executing about its own name, you can specify
5034	5044	the program you actually want to run as an "indirect object" (without a
5035	5045	comma) in front of the LIST, as in C<exec PROGRAM LIST>. (This always
5036	5046	forces interpretation of the LIST as a multivalued list, even if there
5037	5047	is only a single scalar in the list.) Example:
5038	5048
5039	5049	=end original
5040	5050
5041	5051	第一引数に指定するものを本当に実行したいが、実行するプログラムに対して別の
5042	5052	名前を教えたい場合には、C<exec PROGRAM LIST> のように、LIST の前に
5043	5053	「間接オブジェクト」(コンマなし) として実際に実行したいプログラムを
5044	5054	指定することができます。
5045	5055	(これによって、LIST に単一のスカラしかなくても、複数値のリストであるように、
5046	5056	LIST の解釈を行ないます。)
5047	5057	例:
5048	5058
5049	5059	my $shell = '/bin/csh';
5050	5060	exec $shell '-sh'; # pretend it's a login shell
5051	5061
5052	5062	=begin original
5053	5063
5054	5064	or, more directly,
5055	5065
5056	5066	=end original
5057	5067
5058	5068	あるいは、より直接的に、
5059	5069
5060	5070	exec {'/bin/csh'} '-sh'; # pretend it's a login shell
5061	5071
5062	5072	=begin original
5063	5073
5064	5074	When the arguments get executed via the system shell, results are
5065	5075	subject to its quirks and capabilities. See L<perlop/"`STRING`">
5066	5076	for details.
5067	5077
5068	5078	=end original
5069	5079
5070	5080	引数がシステムシェルで実行されるとき、結果はシェルの奇癖と能力によって
5071	5081	変わります。
5072	5082	詳細については L<perlop/"`STRING`"> を参照してください。
5073	5083
5074	5084	=begin original
5075	5085
5076	5086	Using an indirect object with L<C<exec>\|/exec LIST> or
5077	5087	L<C<system>\|/system LIST> is also more secure. This usage (which also
5078	5088	works fine with L<C<system>\|/system LIST>) forces
5079	5089	interpretation of the arguments as a multivalued list, even if the
5080	5090	list had just one argument. That way you're safe from the shell
5081	5091	expanding wildcards or splitting up words with whitespace in them.
5082	5092
5083	5093	=end original
5084	5094
5085	5095	L<C<exec>\|/exec LIST> や L<C<system>\|/system LIST> で間接オブジェクトを
5086	5096	使うのもより安全です。
5087	5097	この使い方(L<C<system>\|/system LIST> でも同様にうまく動きます)は、たとえ
5088	5098	引数が一つだけの場合も、複数の値を持つリストとして引数を解釈することを
5089	5099	強制します。
5090	5100	この方法で、シェルによるワイルドカード展開や、空白による単語の分割から
5091	5101	守られます。
5092	5102
5093	5103	my @args = ( "echo surprise" );
5094	5104
5095	5105	exec @args; # subject to shell escapes
5096	5106	# if @args == 1
5097	5107	exec { $args[0] } @args; # safe even with one-arg list
5098	5108
5099	5109	=begin original
5100	5110
5101	5111	The first version, the one without the indirect object, ran the I<echo>
5102	5112	program, passing it C<"surprise"> an argument. The second version didn't;
5103	5113	it tried to run a program named I<"echo surprise">, didn't find it, and set
5104	5114	L<C<$?>\|perlvar/$?> to a non-zero value indicating failure.
5105	5115
5106	5116	=end original
5107	5117
5108	5118	間接オブジェクトなしの一つ目のバージョンでは、I<echo> プログラムが実行され、
5109	5119	C<"surprise"> が引数として渡されます。
5110	5120	二つ目のバージョンでは違います; I<"echo surprise"> という名前の
5111	5121	プログラムを実行しようとして、見つからないので、失敗したことを示すために
5112	5122	L<C<$?>\|perlvar/$?> に非 0 がセットされます。
5113	5123
5114	5124	=begin original
5115	5125
5116	5126	On Windows, only the C<exec PROGRAM LIST> indirect object syntax will
5117	5127	reliably avoid using the shell; C<exec LIST>, even with more than one
5118	5128	element, will fall back to the shell if the first spawn fails.
5119	5129
5120	5130	=end original
5121	5131
5122	5132	Windows では、C<exec PROGRAM LIST> 間接オブジェクト構文のみが、シェルを
5123	5133	使うのを回避するための信頼できる方法です; C<exec LIST> は、複数の要素が
5124	5134	あっても、最初の spawn が失敗したときにシェルに
5125	5135	フォールバックすることがあります。
5126	5136
5127	5137	=begin original
5128	5138
5129	5139	Perl attempts to flush all files opened for output before the exec,
5130	5140	but this may not be supported on some platforms (see L<perlport>).
5131	5141	To be safe, you may need to set L<C<$E<verbar>>\|perlvar/$E<verbar>>
5132	5142	(C<$AUTOFLUSH> in L<English>) or call the C<autoflush> method of
5133	5143	L<C<IO::Handle>\|IO::Handle/METHODS> on any open handles to avoid lost
5134	5144	output.
5135	5145
5136	5146	=end original
5137	5147
5138		~~v5.6.0 から、~~Perl は exec の前に出力用に開かれている全てのファイルを
	5148	Perl は exec の前に出力用に開かれている全てのファイルを
5139	5149	フラッシュしようとしますが、これに対応していないプラットフォームもあります
5140	5150	(L<perlport> を参照してください)。
5141	5151	安全のためには、出力が重複するのを避けるために、全てのオープンしている
5142	5152	ハンドルに対して L<C<$E<verbar>>\|perlvar/$E<verbar>>
5143	5153	(L<English> モジュールでは C<$AUTOFLUSH>) を設定するか、
5144	5154	L<C<IO::Handle>\|IO::Handle/METHODS> モジュールの C<autoflush> メソッドを
5145	5155	呼ぶ必要があるかもしれません。
5146	5156
5147	5157	=begin original
5148	5158
5149	5159	Note that L<C<exec>\|/exec LIST> will not call your C<END> blocks, nor
5150	5160	will it invoke C<DESTROY> methods on your objects.
5151	5161
5152	5162	=end original
5153	5163
5154	5164	L<C<exec>\|/exec LIST> は C<END> ブロックや、オブジェクトの
5155	5165	C<DESTROY> メソッドを起動しないことに注意してください。
5156	5166
5157	5167	=begin original
5158	5168
5159	5169	Portability issues: L<perlport/exec>.
5160	5170
5161	5171	=end original
5162	5172
5163	5173	移植性の問題: L<perlport/exec>。
5164	5174
5165	5175	=item exists EXPR
5166	5176	X<exists> X<autovivification>
5167	5177
5168	5178	=for Pod::Functions test whether a hash key is present
5169	5179
5170	5180	=begin original
5171	5181
5172	5182	Given an expression that specifies an element of a hash, returns true if the
5173	5183	specified element in the hash has ever been initialized, even if the
5174	5184	corresponding value is undefined.
5175	5185
5176	5186	=end original
5177	5187
5178	5188	ハッシュ要素を示す表現が与えられ、指定された要素が、ハッシュに存在すれば、
5179	5189	たとえ対応する値が未定義でも真を返します。
5180	5190
5181	5191	print "Exists\n" if exists $hash{$key};
5182	5192	print "Defined\n" if defined $hash{$key};
5183	5193	print "True\n" if $hash{$key};
5184	5194
5185	5195	=begin original
5186	5196
5187	5197	exists may also be called on array elements, but its behavior is much less
5188	5198	obvious and is strongly tied to the use of L<C<delete>\|/delete EXPR> on
5189	5199	arrays.
5190	5200
5191	5201	=end original
5192	5202
5193	5203	exists は配列の要素に対しても呼び出せますが、その振る舞いははるかに
5194	5204	不明確で、配列に対する L<C<delete>\|/delete EXPR> の使用と強く
5195	5205	結びついています。
5196	5206
5197	5207	=begin original
5198	5208
5199	5209	B<WARNING:> Calling L<C<exists>\|/exists EXPR> on array values is
5200	5210	strongly discouraged. The
5201	5211	notion of deleting or checking the existence of Perl array elements is not
5202	5212	conceptually coherent, and can lead to surprising behavior.
5203	5213
5204	5214	=end original
5205	5215
5206	5216	B<警告:> 配列の値に対して L<C<exists>\|/exists EXPR> を呼び出すことは強く
5207	5217	非推奨です。
5208	5218	Perl の配列要素を削除したり存在を調べたりする記法は概念的に一貫しておらず、
5209	5219	驚くべき振る舞いを引き起こすことがあります。
5210	5220
5211	5221	print "Exists\n" if exists $array[$index];
5212	5222	print "Defined\n" if defined $array[$index];
5213	5223	print "True\n" if $array[$index];
5214	5224
5215	5225	=begin original
5216	5226
5217	5227	A hash or array element can be true only if it's defined and defined only if
5218	5228	it exists, but the reverse doesn't necessarily hold true.
5219	5229
5220	5230	=end original
5221	5231
5222	5232	ハッシュまたは配列要素は、定義されているときにのみ真となり、
5223	5233	存在しているときにのみ定義されますが、逆は必ずしも真ではありません。
5224	5234
5225	5235	=begin original
5226	5236
5227	5237	Given an expression that specifies the name of a subroutine,
5228	5238	returns true if the specified subroutine has ever been declared, even
5229	5239	if it is undefined. Mentioning a subroutine name for exists or defined
5230	5240	does not count as declaring it. Note that a subroutine that does not
5231	5241	exist may still be callable: its package may have an C<AUTOLOAD>
5232	5242	method that makes it spring into existence the first time that it is
5233	5243	called; see L<perlsub>.
5234	5244
5235	5245	=end original
5236	5246
5237	5247	引数としてサブルーチンの名前が指定された場合、
5238	5248	指定されたサブルーチンが宣言されていれば(たとえ未定義でも)
5239	5249	真を返します。
5240	5250	exists や defined のために言及されているサブルーチン名は
5241	5251	宣言としてのカウントに入りません。
5242	5252	存在しないサブルーチンでも呼び出し可能かもしれないことに注意してください:
5243	5253	パッケージが C<AUTOLOAD> メソッドを持っていて、最初に呼び出された時に
5244	5254	存在を作り出すかもしれません; L<perlsub> を参照してください。
5245	5255
5246	5256	print "Exists\n" if exists &subroutine;
5247	5257	print "Defined\n" if defined &subroutine;
5248	5258
5249	5259	=begin original
5250	5260
5251	5261	Note that the EXPR can be arbitrarily complicated as long as the final
5252	5262	operation is a hash or array key lookup or subroutine name:
5253	5263
5254	5264	=end original
5255	5265
5256	5266	最終的な操作がハッシュや配列の key による検索または
5257	5267	サブルーチン名である限りは、EXPR には任意の複雑な式を置くことができます:
5258	5268
5259	5269	if (exists $ref->{A}->{B}->{$key}) { }
5260	5270	if (exists $hash{A}{B}{$key}) { }
5261	5271
5262	5272	if (exists $ref->{A}->{B}->[$ix]) { }
5263	5273	if (exists $hash{A}{B}[$ix]) { }
5264	5274
5265	5275	if (exists &{$ref->{A}{B}{$key}}) { }
5266	5276
5267	5277	=begin original
5268	5278
5269	5279	Although the most deeply nested array or hash element will not spring into
5270	5280	existence just because its existence was tested, any intervening ones will.
5271	5281	Thus C<< $ref->{"A"} >> and C<< $ref->{"A"}->{"B"} >> will spring
5272	5282	into existence due to the existence test for the C<$key> element above.
5273	5283	This happens anywhere the arrow operator is used, including even here:
5274	5284
5275	5285	=end original
5276	5286
5277	5287	最も深くネストした配列やハッシュの要素は、その存在をテストしただけでは
5278	5288	存在するようにはなりませんが、途中のものは存在するようになります。
5279	5289	従って C<< $ref->{"A"} >> と C<< $ref->{"A"}->{"B"} >> は上記の C<$key> の
5280	5290	存在をテストしたことによって存在するようになります。
5281	5291	これは、矢印演算子が使われるところでは、以下のようなものを含むどこででも
5282	5292	起こります。
5283	5293
5284	5294	undef $ref;
5285	5295	if (exists $ref->{"Some key"}) { }
5286	5296	print $ref; # prints HASH(0x80d3d5c)
5287	5297
5288	5298	=begin original
5289	5299
5290	5300	Use of a subroutine call, rather than a subroutine name, as an argument
5291	5301	to L<C<exists>\|/exists EXPR> is an error.
5292	5302
5293	5303	=end original
5294	5304
5295	5305	L<C<exists>\|/exists EXPR> の引数としてサブルーチン名でなくサブルーチン
5296	5306	呼び出しを使うと、エラーになります。
5297	5307
5298	5308	exists ⊂ # OK
5299	5309	exists &sub(); # Error
5300	5310
5301	5311	=item exit EXPR
5302	5312	X<exit> X<terminate> X<abort>
5303	5313
5304	5314	=item exit
5305	5315
5306	5316	=for Pod::Functions terminate this program
5307	5317
5308	5318	=begin original
5309	5319
5310	5320	Evaluates EXPR and exits immediately with that value. Example:
5311	5321
5312	5322	=end original
5313	5323
5314	5324	EXPR を評価し、即座にその値を持って終了します。
5315	5325	例:
5316	5326
5317	5327	my $ans = <STDIN>;
5318	5328	exit 0 if $ans =~ /^[Xx]/;
5319	5329
5320	5330	=begin original
5321	5331
5322	5332	See also L<C<die>\|/die LIST>. If EXPR is omitted, exits with C<0>
5323	5333	status. The only
5324	5334	universally recognized values for EXPR are C<0> for success and C<1>
5325	5335	for error; other values are subject to interpretation depending on the
5326	5336	environment in which the Perl program is running. For example, exiting
5327	5337	69 (EX_UNAVAILABLE) from a I<sendmail> incoming-mail filter will cause
5328	5338	the mailer to return the item undelivered, but that's not true everywhere.
5329	5339
5330	5340	=end original
5331	5341
5332	5342	L<C<die>\|/die LIST> も参照してください。
5333	5343	EXPR が省略された場合には、ステータスを C<0> として終了します。
5334	5344	EXPR の値として広く利用可能なのは C<0> が成功で C<1> が
5335	5345	エラーということだけです; その他の値は、 Perl が実行される環境によって異なる
5336	5346	解釈がされる可能性があります。
5337	5347	例えば、I<sendmail> 到着メールフィルタから 69 (EX_UNAVAILABLE) で終了すると
5338	5348	メーラーはアイテムを配達せずに差し戻しますが、
5339	5349	これはいつでも真ではありません。
5340	5350
5341	5351	=begin original
5342	5352
5343	5353	Don't use L<C<exit>\|/exit EXPR> to abort a subroutine if there's any
5344	5354	chance that someone might want to trap whatever error happened. Use
5345	5355	L<C<die>\|/die LIST> instead, which can be trapped by an
5346	5356	L<C<eval>\|/eval EXPR>.
5347	5357
5348	5358	=end original
5349	5359
5350	5360	誰かが発生したエラーをトラップしようと考えている可能性がある場合は、
5351	5361	サブルーチンの中断に L<C<exit>\|/exit EXPR> を使わないでください。
5352	5362	代わりに L<C<eval>\|/eval EXPR> でトラップできる L<C<die>\|/die LIST> を
5353	5363	使ってください。
5354	5364
5355	5365	=begin original
5356	5366
5357	5367	The L<C<exit>\|/exit EXPR> function does not always exit immediately. It
5358	5368	calls any defined C<END> routines first, but these C<END> routines may
5359	5369	not themselves abort the exit. Likewise any object destructors that
5360	5370	need to be called are called before the real exit. C<END> routines and
5361	5371	destructors can change the exit status by modifying L<C<$?>\|perlvar/$?>.
5362	5372	If this is a problem, you can call
5363	5373	L<C<POSIX::_exit($status)>\|POSIX/C<_exit>> to avoid C<END> and destructor
5364	5374	processing. See L<perlmod> for details.
5365	5375
5366	5376	=end original
5367	5377
5368	5378	L<C<exit>\|/exit EXPR> 関数は常に直ちに終了するわけではありません。
5369	5379	まず、定義されている C<END> ルーチンを呼び出しますが、
5370	5380	C<END> ルーチン自身は exit を止められません。
5371	5381	同様に、呼び出す必要のあるオブジェクトデストラクタは
5372	5382	すべて、実際の終了前に呼び出されます。
5373	5383	C<END> ルーチンとデストラクタは L<C<$?>\|perlvar/$?> を修正することで
5374	5384	終了コードを変更できます。
5375	5385	これが問題になる場合は、C<END> やデストラクタが実行されることを
5376	5386	防ぐために L<C<POSIX::_exit($status)>\|POSIX/C<_exit>> を呼び出してください。
5377	5387	詳しくは L<perlmod> を参照してください。
5378	5388
5379	5389	=begin original
5380	5390
5381	5391	Portability issues: L<perlport/exit>.
5382	5392
5383	5393	=end original
5384	5394
5385	5395	移植性の問題: L<perlport/exit>。
5386	5396
5387	5397	=item exp EXPR
5388	5398	X<exp> X<exponential> X<antilog> X<antilogarithm> X<e>
5389	5399
5390	5400	=item exp
5391	5401
5392	5402	=for Pod::Functions raise I<e> to a power
5393	5403
5394	5404	=begin original
5395	5405
5396	5406	Returns I<e> (the natural logarithm base) to the power of EXPR.
5397	5407	If EXPR is omitted, gives C<exp($_)>.
5398	5408
5399	5409	=end original
5400	5410
5401	5411	I<e> (自然対数の底) の EXPR 乗を返します。
5402	5412	EXPR を省略した場合には、C<exp($_)> を返します。
5403	5413
5404	5414	=item fc EXPR
5405	5415	X<fc> X<foldcase> X<casefold> X<fold-case> X<case-fold>
5406	5416
5407	5417	=item fc
5408	5418
5409	5419	=for Pod::Functions +fc return casefolded version of a string
5410	5420
5411	5421	=begin original
5412	5422
5413	5423	Returns the casefolded version of EXPR. This is the internal function
5414	5424	implementing the C<\F> escape in double-quoted strings.
5415	5425
5416	5426	=end original
5417	5427
5418	5428	EXPR の畳み込み版を返します。
5419	5429	これは、ダブルクォート文字列における、C<\F> エスケープを
5420	5430	実装する内部関数です。
5421	5431
5422	5432	=begin original
5423	5433
5424	5434	Casefolding is the process of mapping strings to a form where case
5425	5435	differences are erased; comparing two strings in their casefolded
5426	5436	form is effectively a way of asking if two strings are equal,
5427	5437	regardless of case.
5428	5438
5429	5439	=end original
5430	5440
5431	5441	畳み込みは大文字小文字の違いを消した形式に文字列をマッピングする処理です;
5432	5442	畳み込み形式で二つの文字列を比較するのは二つの文字列が大文字小文字に
5433	5443	関わらず等しいかどうかを比較する効率的な方法です。
5434	5444
5435	5445	=begin original
5436	5446
5437	5447	Roughly, if you ever found yourself writing this
5438	5448
5439	5449	=end original
5440	5450
5441	5451	おおよそ、自分自身で以下のように書いていたとしても
5442	5452
5443	5453	lc($this) eq lc($that) # Wrong!
5444	5454	# or
5445	5455	uc($this) eq uc($that) # Also wrong!
5446	5456	# or
5447	5457	$this =~ /^\Q$that\E\z/i # Right!
5448	5458
5449	5459	=begin original
5450	5460
5451	5461	Now you can write
5452	5462
5453	5463	=end original
5454	5464
5455	5465	今では以下のように書けます
5456	5466
5457	5467	fc($this) eq fc($that)
5458	5468
5459	5469	=begin original
5460	5470
5461	5471	And get the correct results.
5462	5472
5463	5473	=end original
5464	5474
5465	5475	そして正しい結果を得られます。
5466	5476
5467	5477	=begin original
5468	5478
5469	5479	Perl only implements the full form of casefolding, but you can access
5470	5480	the simple folds using L<Unicode::UCD/B<casefold()>> and
5471	5481	L<Unicode::UCD/B<prop_invmap()>>.
5472	5482	For further information on casefolding, refer to
5473	5483	the Unicode Standard, specifically sections 3.13 C<Default Case Operations>,
5474	5484	4.2 C<Case-Normative>, and 5.18 C<Case Mappings>,
5475	5485	available at L<https://www.unicode.org/versions/latest/>, as well as the
5476	5486	Case Charts available at L<https://www.unicode.org/charts/case/>.
5477	5487
5478	5488	=end original
5479	5489
5480	5490	Perl は完全な形式の畳み込みのみを実装していますが、
5481	5491	L<Unicode::UCD/B<casefold()>> と L<Unicode::UCD/B<prop_invmap()>> を使って
5482	5492	単純なたたみ込みにアクセスできます。
5483	5493	畳み込みに関するさらなる情報については、
5484	5494	L<https://www.unicode.org/versions/latest/> で利用可能な Unicode 標準、特に
5485	5495	3.13 C<Default Case Operations>, 4.2 C<Case-Normative>, 5.18
5486	5496	C<Case Mappings> および、L<https://www.unicode.org/charts/case/> で
5487	5497	利用可能なケース表を参照してください。
5488	5498
5489	5499	=begin original
5490	5500
5491	5501	If EXPR is omitted, uses L<C<$_>\|perlvar/$_>.
5492	5502
5493	5503	=end original
5494	5504
5495	5505	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
5496	5506
5497	5507	=begin original
5498	5508
5499	5509	This function behaves the same way under various pragmas, such as within
5500	5510	L<S<C<"use feature 'unicode_strings">>\|feature/The 'unicode_strings' feature>,
5501	5511	as L<C<lc>\|/lc EXPR> does, with the single exception of
5502	5512	L<C<fc>\|/fc EXPR> of I<LATIN CAPITAL LETTER SHARP S> (U+1E9E) within the
5503	5513	scope of L<S<C<use locale>>\|locale>. The foldcase of this character
5504	5514	would normally be C<"ss">, but as explained in the L<C<lc>\|/lc EXPR>
5505	5515	section, case
5506	5516	changes that cross the 255/256 boundary are problematic under locales,
5507	5517	and are hence prohibited. Therefore, this function under locale returns
5508	5518	instead the string C<"\x{17F}\x{17F}">, which is the I<LATIN SMALL LETTER
5509	5519	LONG S>. Since that character itself folds to C<"s">, the string of two
5510	5520	of them together should be equivalent to a single U+1E9E when foldcased.
5511	5521
5512	5522	=end original
5513	5523
5514	5524	この関数は、
5515	5525	L<S<C<"use feature 'unicode_strings">>\|feature/The 'unicode_strings' feature>
5516	5526	のようなさまざまなプラグマの影響下では、L<C<lc>\|/lc EXPR> と同様に
5517	5527	振る舞います;
5518	5528	但し、L<S<C<use locale>>\|locale> のスコープ内での
5519	5529	I<LATIN CAPITAL LETTER SHARP S> (U+1E9E) の L<C<fc>\|/fc EXPR> は例外です。
5520	5530	この文字の畳み込み文字は普通は C<"ss"> ですが、L<C<lc>\|/lc EXPR> の節で
5521	5531	説明しているように、ロケールの基での255/256 境界をまたぐ大文字小文字の変更は
5522	5532	問題があるので、禁止されています。
5523	5533	従って、ロケールの基ではこの関数は代わりに I<LATIN SMALL LETTER LONG S> である
5524	5534	C<"\x{17F}\x{17F}"> を返します。
5525	5535	この文字自体は C<"s"> の畳み込みなので、これら二つを合わせた文字列は
5526	5536	畳み込まれた場合は単一の U+1E9E と等価になります。
5527	5537
5528	5538	=begin original
5529	5539
5530	5540	While the Unicode Standard defines two additional forms of casefolding,
5531	5541	one for Turkic languages and one that never maps one character into multiple
5532	5542	characters, these are not provided by the Perl core. However, the CPAN module
5533	5543	L<C<Unicode::Casing>\|Unicode::Casing> may be used to provide an implementation.
5534	5544
5535	5545	=end original
5536	5546
5537	5547	Unicode 標準はさらに二つの畳み込み形式、一つはツルキ語、もう一つは決して
5538	5548	一つの文字が複数の文字にマッピングされないもの、を定義していますが、
5539	5549	これらは Perl コアでは提供されません。
5540	5550	しかし、CPAN モジュール L<C<Unicode::Casing>\|Unicode::Casing> が実装を
5541	5551	提供しています。
5542	5552
5543	5553	=begin original
5544	5554
5545	5555	L<C<fc>\|/fc EXPR> is available only if the
5546	5556	L<C<"fc"> feature\|feature/The 'fc' feature> is enabled or if it is
5547	5557	prefixed with C<CORE::>. The
5548	5558	L<C<"fc"> feature\|feature/The 'fc' feature> is enabled automatically
5549	5559	with a C<use v5.16> (or higher) declaration in the current scope.
5550	5560
5551	5561	=end original
5552	5562
5553	5563	L<C<fc>\|/fc EXPR> は L<C<"fc"> 機能\|feature/The 'fc' feature> が有効か
5554	5564	C<CORE::> が前置されたときにのみ利用可能です。
5555	5565	L<C<"fc"> 機能\|feature/The 'fc' feature> は現在のスコープで
5556	5566	C<use v5.16> (またはそれ以上) が宣言されると自動的に有効になります。
5557	5567
5558	5568	=item fcntl FILEHANDLE,FUNCTION,SCALAR
5559	5569	X<fcntl>
5560	5570
5561	5571	=for Pod::Functions file control system call
5562	5572
5563	5573	=begin original
5564	5574
5565	5575	Implements the L<fcntl(2)> function. You'll probably have to say
5566	5576
5567	5577	=end original
5568	5578
5569	5579	L<fcntl(2)> 関数を実装します。
5570	5580	正しい定数定義を得るために、まず
5571	5581
5572	5582	use Fcntl;
5573	5583
5574	5584	=begin original
5575	5585
5576	5586	first to get the correct constant definitions. Argument processing and
5577	5587	value returned work just like L<C<ioctl>\|/ioctl
5578	5588	FILEHANDLE,FUNCTION,SCALAR> below. For example:
5579	5589
5580	5590	=end original
5581	5591
5582	5592	と書くことが必要でしょう。
5583	5593	引数の処理と返り値については、下記の
5584	5594	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR> と同様に動作します。
5585	5595	例えば:
5586	5596
5587	5597	use Fcntl;
5588	5598	my $flags = fcntl($filehandle, F_GETFL, 0)
5589	5599	or die "Can't fcntl F_GETFL: $!";
5590	5600
5591	5601	=begin original
5592	5602
5593	5603	You don't have to check for L<C<defined>\|/defined EXPR> on the return
5594	5604	from L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR>. Like
5595	5605	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR>, it maps a C<0> return
5596	5606	from the system call into C<"0 but true"> in Perl. This string is true
5597	5607	in boolean context and C<0> in numeric context. It is also exempt from
5598	5608	the normal
5599	5609	L<C<Argument "..." isn't numeric>\|perldiag/Argument "%s" isn't numeric%s>
5600	5610	L<warnings> on improper numeric conversions.
5601	5611
5602	5612	=end original
5603	5613
5604	5614	L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR> からの返り値のチェックに
5605	5615	L<C<defined>\|/defined EXPR> を使う必要はありません。
5606	5616	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR> と違って、これは
5607	5617	システムコールの結果が C<0> だった場合は C<"0 だが真"> を返します。
5608	5618	この文字列は真偽値コンテキストでは真となり、
5609	5619	数値コンテキストでは C<0> になります。
5610	5620	これはまた、不適切な数値変換に関する通常の
5611	5621	L<C<Argument "..." isn't numeric>\|perldiag/Argument "%s" isn't numeric%s>
5612	5622	L<warnings> を回避します。
5613	5623
5614	5624	=begin original
5615	5625
5616	5626	Note that L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR> raises an
5617	5627	exception if used on a machine that doesn't implement L<fcntl(2)>. See
5618	5628	the L<Fcntl> module or your L<fcntl(2)> manpage to learn what functions
5619	5629	are available on your system.
5620	5630
5621	5631	=end original
5622	5632
5623	5633	L<fcntl(2)> が実装されていないマシンでは、
5624	5634	L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR> は例外を
5625	5635	引き起こすことに注意してください。
5626	5636	システムでどの関数が利用可能かについては L<Fcntl> モジュールや
5627	5637	L<fcntl(2)> man ページを参照してください。
5628	5638
5629	5639	=begin original
5630	5640
5631	5641	Here's an example of setting a filehandle named C<$REMOTE> to be
5632	5642	non-blocking at the system level. You'll have to negotiate
5633	5643	L<C<$E<verbar>>\|perlvar/$E<verbar>> on your own, though.
5634	5644
5635	5645	=end original
5636	5646
5637	5647	これは C<$REMOTE> というファイルハンドルをシステムレベルで
5638	5648	非ブロックモードにセットする例です。
5639	5649	ただし、 L<C<$E<verbar>>\|perlvar/$E<verbar>> を自分で管理しなければなりません。
5640	5650
5641	5651	use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
5642	5652
5643	5653	my $flags = fcntl($REMOTE, F_GETFL, 0)
5644	5654	or die "Can't get flags for the socket: $!\n";
5645	5655
5646	5656	fcntl($REMOTE, F_SETFL, $flags \| O_NONBLOCK)
5647	5657	or die "Can't set flags for the socket: $!\n";
5648	5658
5649	5659	=begin original
5650	5660
5651	5661	Portability issues: L<perlport/fcntl>.
5652	5662
5653	5663	=end original
5654	5664
5655	5665	移植性の問題: L<perlport/fcntl>。
5656	5666
5657	5667	=item __FILE__
5658	5668	X<__FILE__>
5659	5669
5660	5670	=for Pod::Functions the name of the current source file
5661	5671
5662	5672	=begin original
5663	5673
5664	5674	A special token that returns the name of the file in which it occurs.
5665	5675	It can be altered by the mechanism described at
5666	5676	L<perlsyn/"Plain Old Comments (Not!)">.
5667	5677
5668	5678	=end original
5669	5679
5670	5680	これが書いてあるファイルの名前を返す特殊トークン。
5671	5681	L<perlsyn/"Plain Old Comments (Not!)"> で記述されている機構を使って
5672	5682	置き換えられます。
5673	5683
5674	5684	=item fileno FILEHANDLE
5675	5685	X<fileno>
5676	5686
5677	5687	=item fileno DIRHANDLE
5678	5688
5679	5689	=for Pod::Functions return file descriptor from filehandle
5680	5690
5681	5691	=begin original
5682	5692
5683	5693	Returns the file descriptor for a filehandle or directory handle,
5684	5694	or undefined if the
5685	5695	filehandle is not open. If there is no real file descriptor at the OS
5686	5696	level, as can happen with filehandles connected to memory objects via
5687	5697	L<C<open>\|/open FILEHANDLE,MODE,EXPR> with a reference for the third
5688	5698	argument, -1 is returned.
5689	5699
5690	5700	=end original
5691	5701
5692	5702	ファイルハンドルやディレクトリハンドルに対するファイル記述子を返します;
5693	5703	ファイルハンドルがオープンしていない場合は未定義値を返します。
5694	5704	OS レベルで実際のファイル記述子がない(
5695	5705	L<C<open>\|/open FILEHANDLE,MODE,EXPR> の第 3 引数にリファレンスを
5696	5706	指定してファイルハンドルがメモリオブジェクトと結びつけられたときに
5697	5707	起こります)場合、-1 が返されます。
5698	5708
5699	5709	=begin original
5700	5710
5701	5711	This is mainly useful for constructing bitmaps for
5702	5712	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> and low-level POSIX
5703	5713	tty-handling operations.
5704	5714	If FILEHANDLE is an expression, the value is taken as an indirect
5705	5715	filehandle, generally its name.
5706	5716
5707	5717	=end original
5708	5718
5709	5719	これは主に L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> や低レベル
5710	5720	POSIX tty 操作に対する、ビットマップを構成するときに便利です。
5711	5721	FILEHANDLE が式であれば、
5712	5722	その値が間接ファイルハンドル(普通は名前)として使われます。
5713	5723
5714	5724	=begin original
5715	5725
5716	5726	You can use this to find out whether two handles refer to the
5717	5727	same underlying descriptor:
5718	5728
5719	5729	=end original
5720	5730
5721	5731	これを、二つのハンドルが同じ識別子を参照しているかどうかを見つけるのに
5722	5732	使えます:
5723	5733
5724	5734	if (fileno($this) != -1 && fileno($this) == fileno($that)) {
5725	5735	print "\$this and \$that are dups\n";
5726	5736	} elsif (fileno($this) != -1 && fileno($that) != -1) {
5727	5737	print "\$this and \$that have different " .
5728	5738	"underlying file descriptors\n";
5729	5739	} else {
5730	5740	print "At least one of \$this and \$that does " .
5731	5741	"not have a real file descriptor\n";
5732	5742	}
5733	5743
5734	5744	=begin original
5735	5745
5736	5746	The behavior of L<C<fileno>\|/fileno FILEHANDLE> on a directory handle
5737	5747	depends on the operating system. On a system with L<dirfd(3)> or
5738	5748	similar, L<C<fileno>\|/fileno FILEHANDLE> on a directory
5739	5749	handle returns the underlying file descriptor associated with the
5740	5750	handle; on systems with no such support, it returns the undefined value,
5741	5751	and sets L<C<$!>\|perlvar/$!> (errno).
5742	5752
5743	5753	=end original
5744	5754
5745	5755	ディレクトリハンドルに対する L<C<fileno>\|/fileno FILEHANDLE> の振る舞いは
5746	5756	オペレーティングシステムに依存します。
5747	5757	L<dirfd(3)> のようなものがあるシステムでは、ディレクトリハンドルに対する
5748	5758	L<C<fileno>\|/fileno FILEHANDLE> はハンドルに関連付けられた基となる
5749	5759	ファイル記述子を返します;
5750	5760	そのような対応がないシステムでは、未定義値を返し、
5751	5761	L<C<$!>\|perlvar/$!> (errno) を設定します。
5752	5762
5753	5763	=item flock FILEHANDLE,OPERATION
5754	5764	X<flock> X<lock> X<locking>
5755	5765
5756	5766	=for Pod::Functions lock an entire file with an advisory lock
5757	5767
5758	5768	=begin original
5759	5769
5760	5770	Calls L<flock(2)>, or an emulation of it, on FILEHANDLE. Returns true
5761	5771	for success, false on failure. Produces a fatal error if used on a
5762	5772	machine that doesn't implement L<flock(2)>, L<fcntl(2)> locking, or
5763	5773	L<lockf(3)>. L<C<flock>\|/flock FILEHANDLE,OPERATION> is Perl's portable
5764	5774	file-locking interface, although it locks entire files only, not
5765	5775	records.
5766	5776
5767	5777	=end original
5768	5778
5769	5779	FILEHANDLE に対して L<flock(2)>、またはそのエミュレーションを呼び出します。
5770	5780	成功時には真を、失敗時には偽を返します。
5771	5781	L<flock(2)>, L<fcntl(2)> ロック, L<lockf(3)> のいずれかを実装していない
5772	5782	マシンで使うと、致命的エラーが発生します。
5773	5783	L<C<flock>\|/flock FILEHANDLE,OPERATION> は Perl の移植性のある
5774	5784	ファイルロックインターフェースです;
5775	5785	しかしレコードではなく、ファイル全体のみをロックします。
5776	5786
5777	5787	=begin original
5778	5788
5779	5789	Two potentially non-obvious but traditional L<C<flock>\|/flock
5780	5790	FILEHANDLE,OPERATION> semantics are
5781	5791	that it waits indefinitely until the lock is granted, and that its locks
5782	5792	are B<merely advisory>. Such discretionary locks are more flexible, but
5783	5793	offer fewer guarantees. This means that programs that do not also use
5784	5794	L<C<flock>\|/flock FILEHANDLE,OPERATION> may modify files locked with
5785	5795	L<C<flock>\|/flock FILEHANDLE,OPERATION>. See L<perlport>,
5786	5796	your port's specific documentation, and your system-specific local manpages
5787	5797	for details. It's best to assume traditional behavior if you're writing
5788	5798	portable programs. (But if you're not, you should as always feel perfectly
5789	5799	free to write for your own system's idiosyncrasies (sometimes called
5790	5800	"features"). Slavish adherence to portability concerns shouldn't get
5791	5801	in the way of your getting your job done.)
5792	5802
5793	5803	=end original
5794	5804
5795	5805	明白ではないものの、伝統的な L<C<flock>\|/flock FILEHANDLE,OPERATION> の
5796	5806	動作としては、ロックが得られるまで
5797	5807	無限に待ち続けるものと、B<単に勧告的に> ロックするものの二つがあります。
5798	5808	このような自由裁量のロックはより柔軟ですが、保障されるものはより少ないです。
5799	5809	これは、L<C<flock>\|/flock FILEHANDLE,OPERATION> を使わないプログラムが
5800	5810	L<C<flock>\|/flock FILEHANDLE,OPERATION> でロックされたファイルを
5801	5811	書き換えるかもしれないことを意味します。
5802	5812	詳細については、L<perlport>、システム固有のドキュメント、システム固有の
5803	5813	ローカルの man ページを参照してください。
5804	5814	移植性のあるプログラムを書く場合は、伝統的な振る舞いを仮定するのが
5805	5815	ベストです。
5806	5816	(しかし移植性のないプログラムを書く場合は、自身のシステムの性癖(しばしば
5807	5817	「仕様」と呼ばれます)に合わせて書くことも完全に自由です。
5808	5818	盲目的に移植性に固執することで、あなたの作業を仕上げるのを邪魔するべきでは
5809	5819	ありません。)
5810	5820
5811	5821	=begin original
5812	5822
5813	5823	OPERATION is one of LOCK_SH, LOCK_EX, or LOCK_UN, possibly combined with
5814	5824	LOCK_NB. These constants are traditionally valued 1, 2, 8 and 4, but
5815	5825	you can use the symbolic names if you import them from the L<Fcntl> module,
5816	5826	either individually, or as a group using the C<:flock> tag. LOCK_SH
5817	5827	requests a shared lock, LOCK_EX requests an exclusive lock, and LOCK_UN
5818	5828	releases a previously requested lock. If LOCK_NB is bitwise-or'ed with
5819	5829	LOCK_SH or LOCK_EX, then L<C<flock>\|/flock FILEHANDLE,OPERATION> returns
5820	5830	immediately rather than blocking waiting for the lock; check the return
5821	5831	status to see if you got it.
5822	5832
5823	5833	=end original
5824	5834
5825	5835	OPERATION は LOCK_SH, LOCK_EX, LOCK_UN のいずれかで、LOCK_NB と
5826	5836	組み合わされることもあります。
5827	5837	これらの定数は伝統的には 1, 2, 8, 4 の値を持ちますが、L<Fcntl> モジュールから
5828	5838	シンボル名を独立してインポートするか、C<:flock> タグを使うグループとして、
5829	5839	シンボル名をを使うことができます。
5830	5840	LOCK_SH は共有ロックを要求し、LOCK_EX は排他ロックを要求し、LOCK_UN は
5831	5841	前回要求したロックを開放します。
5832	5842	LOCK_NB と LOCK_SH か LOCK_EX がビット単位の論理和されると、
5833	5843	L<C<flock>\|/flock FILEHANDLE,OPERATION> は
5834	5844	ロックを取得するまで待つのではなく、すぐに返ります;
5835	5845	ロックが取得できたかどうかは返り値を調べます。
5836	5846
5837	5847	=begin original
5838	5848
5839	5849	To avoid the possibility of miscoordination, Perl now flushes FILEHANDLE
5840	5850	before locking or unlocking it.
5841	5851
5842	5852	=end original
5843	5853
5844	5854	不一致の可能性を避けるために、Perl はファイルをロック、アンロックする前に
5845	5855	FILEHANDLE をフラッシュします。
5846	5856
5847	5857	=begin original
5848	5858
5849	5859	Note that the emulation built with L<lockf(3)> doesn't provide shared
5850	5860	locks, and it requires that FILEHANDLE be open with write intent. These
5851	5861	are the semantics that L<lockf(3)> implements. Most if not all systems
5852	5862	implement L<lockf(3)> in terms of L<fcntl(2)> locking, though, so the
5853	5863	differing semantics shouldn't bite too many people.
5854	5864
5855	5865	=end original
5856	5866
5857	5867	L<lockf(3)> で作成されたエミュレーションは共有ロックを提供せず、
5858	5868	FILEHANDLE が書き込みモードで開いていることを必要とすることに
5859	5869	注意してください。
5860	5870	これは L<lockf(3)> が実装している動作です。
5861	5871	しかし、全てではないにしてもほとんどのシステムでは L<fcntl(2)> を使って
5862	5872	L<lockf(3)> を実装しているので、異なった動作で多くの人々を混乱させることは
5863	5873	ないはずです。
5864	5874
5865	5875	=begin original
5866	5876
5867	5877	Note that the L<fcntl(2)> emulation of L<flock(3)> requires that FILEHANDLE
5868	5878	be open with read intent to use LOCK_SH and requires that it be open
5869	5879	with write intent to use LOCK_EX.
5870	5880
5871	5881	=end original
5872	5882
5873	5883	L<flock(3)> の L<fcntl(2)> エミュレーションは、 LOCK_SH を使うためには
5874	5884	FILEHANDLE を読み込みで開いている必要があり、LOCK_EX を使うためには
5875	5885	書き込みで開いている必要があることに注意してください。
5876	5886
5877	5887	=begin original
5878	5888
5879	5889	Note also that some versions of L<C<flock>\|/flock FILEHANDLE,OPERATION>
5880	5890	cannot lock things over the network; you would need to use the more
5881	5891	system-specific L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR> for
5882	5892	that. If you like you can force Perl to ignore your system's L<flock(2)>
5883	5893	function, and so provide its own L<fcntl(2)>-based emulation, by passing
5884	5894	the switch C<-Ud_flock> to the F<Configure> program when you configure
5885	5895	and build a new Perl.
5886	5896
5887	5897	=end original
5888	5898
5889	5899	ネットワーク越しにはロックできない L<C<flock>\|/flock FILEHANDLE,OPERATION> も
5890	5900	あることに注意してください;
5891	5901	このためには、よりシステム依存な
5892	5902	L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR> を使う必要があります。
5893	5903	Perl にシステムの L<flock(2)> 関数を無視させ、自身の L<fcntl(2)> ベースの
5894	5904	エミュレーションを使う場合は、新しい Perl を設定およびビルドするときに
5895	5905	F<Configure> プログラムに C<-Ud_flock> オプションを渡してください。
5896	5906
5897	5907	=begin original
5898	5908
5899	5909	Here's a mailbox appender for BSD systems.
5900	5910
5901	5911	=end original
5902	5912
5903	5913	BSD システムでのメールボックスへの追加処理の例を示します。
5904	5914
5905	5915	# import LOCK_* and SEEK_END constants
5906	5916	use Fcntl qw(:flock SEEK_END);
5907	5917
5908	5918	sub lock {
5909	5919	my ($fh) = @_;
5910	5920	flock($fh, LOCK_EX) or die "Cannot lock mailbox - $!\n";
5911	5921	# and, in case we're running on a very old UNIX
5912	5922	# variant without the modern O_APPEND semantics...
5913	5923	seek($fh, 0, SEEK_END) or die "Cannot seek - $!\n";
5914	5924	}
5915	5925
5916	5926	sub unlock {
5917	5927	my ($fh) = @_;
5918	5928	flock($fh, LOCK_UN) or die "Cannot unlock mailbox - $!\n";
5919	5929	}
5920	5930
5921	5931	open(my $mbox, ">>", "/usr/spool/mail/$ENV{'USER'}")
5922	5932	or die "Can't open mailbox: $!";
5923	5933
5924	5934	lock($mbox);
5925	5935	print $mbox $msg,"\n\n";
5926	5936	unlock($mbox);
5927	5937
5928	5938	=begin original
5929	5939
5930	5940	On systems that support a real L<flock(2)>, locks are inherited across
5931	5941	L<C<fork>\|/fork> calls, whereas those that must resort to the more
5932	5942	capricious L<fcntl(2)> function lose their locks, making it seriously
5933	5943	harder to write servers.
5934	5944
5935	5945	=end original
5936	5946
5937	5947	真の L<flock(2)> に対応しているシステムではロックは L<C<fork>\|/fork> を通して
5938	5948	継承されるのに対して、より不安定な L<fcntl(2)> に頼らなければならない場合、
5939	5949	サーバを書くのは本当により難しくなります。
5940	5950
5941	5951	=begin original
5942	5952
5943	5953	See also L<DB_File> for other L<C<flock>\|/flock FILEHANDLE,OPERATION>
5944	5954	examples.
5945	5955
5946	5956	=end original
5947	5957
5948	5958	その他の L<C<flock>\|/flock FILEHANDLE,OPERATION> の例としては L<DB_File> も
5949	5959	参照してください。
5950	5960
5951	5961	=begin original
5952	5962
5953	5963	Portability issues: L<perlport/flock>.
5954	5964
5955	5965	=end original
5956	5966
5957	5967	移植性の問題: L<perlport/flock>。
5958	5968
5959	5969	=item fork
5960	5970	X<fork> X<child> X<parent>
5961	5971
5962	5972	=for Pod::Functions create a new process just like this one
5963	5973
5964	5974	=begin original
5965	5975
5966	5976	Does a L<fork(2)> system call to create a new process running the
5967	5977	same program at the same point. It returns the child pid to the
5968	5978	parent process, C<0> to the child process, or L<C<undef>\|/undef EXPR> if
5969	5979	the fork is
5970	5980	unsuccessful. File descriptors (and sometimes locks on those descriptors)
5971	5981	are shared, while everything else is copied. On most systems supporting
5972	5982	L<fork(2)>, great care has gone into making it extremely efficient (for
5973	5983	example, using copy-on-write technology on data pages), making it the
5974	5984	dominant paradigm for multitasking over the last few decades.
5975	5985
5976	5986	=end original
5977	5987
5978	5988	同じプログラムの同じ地点から開始する新しいプロセスを作成するために
5979	5989	システムコール L<fork(2)> を行ないます。
5980	5990	親プロセスには、チャイルドプロセスの pid を、
5981	5991	チャイルドプロセスに C<0> を返しますが、
5982	5992	fork に失敗したときには、L<C<undef>\|/undef EXPR>を返します。
5983	5993	ファイル記述子(および記述子に関連するロック)は共有され、
5984	5994	その他の全てはコピーされます。
5985	5995	L<fork(2)> に対応するほとんどのシステムでは、
5986	5996	これを極めて効率的にするために多大な努力が払われてきました
5987	5997	(例えば、データページへの copy-on-write テクノロジーなどです);
5988	5998	これはここ 20 年にわたるマルチタスクに関する主要なパラダイムとなっています。
5989	5999
5990	6000	=begin original
5991	6001
5992	6002	Perl attempts to flush all files opened for output before forking the
5993	6003	child process, but this may not be supported on some platforms (see
5994	6004	L<perlport>). To be safe, you may need to set
5995	6005	L<C<$E<verbar>>\|perlvar/$E<verbar>> (C<$AUTOFLUSH> in L<English>) or
5996	6006	call the C<autoflush> method of L<C<IO::Handle>\|IO::Handle/METHODS> on
5997	6007	any open handles to avoid duplicate output.
5998	6008
5999	6009	=end original
6000	6010
6001		~~v5.6.0 から、~~Perl は子プロセスを fork する前に出力用にオープンしている全ての
	6011	Perl は子プロセスを fork する前に出力用にオープンしている全ての
6002	6012	ファイルをフラッシュしようとしますが、これに対応していないプラットフォームも
6003	6013	あります(L<perlport> を参照してください)。
6004	6014	安全のためには、出力が重複するのを避けるために、
6005	6015	全てのオープンしているハンドルに対して L<C<$E<verbar>>\|perlvar/$E<verbar>>
6006	6016	(L<English> モジュールでは C<$AUTOFLUSH>) を設定するか、
6007	6017	L<C<IO::Handle>\|IO::Handle/METHODS> モジュールの C<autoflush> メソッドを
6008	6018	呼ぶ必要があるかもしれません。
6009	6019
6010	6020	=begin original
6011	6021
6012	6022	If you L<C<fork>\|/fork> without ever waiting on your children, you will
6013	6023	accumulate zombies. On some systems, you can avoid this by setting
6014	6024	L<C<$SIG{CHLD}>\|perlvar/%SIG> to C<"IGNORE">. See also L<perlipc> for
6015	6025	more examples of forking and reaping moribund children.
6016	6026
6017	6027	=end original
6018	6028
6019	6029	チャイルドプロセスの終了を待たずに、L<C<fork>\|/fork> を繰り返せば、
6020	6030	ゾンビをためこむことになります。
6021	6031	L<C<$SIG{CHLD}>\|perlvar/%SIG> に C<"IGNORE"> を指定することでこれを
6022	6032	回避できるシステムもあります。
6023	6033	fork と消滅しかけている子プロセスを回収するための更なる例については
6024	6034	L<perlipc> も参照してください。
6025	6035
6026	6036	=begin original
6027	6037
6028	6038	Note that if your forked child inherits system file descriptors like
6029	6039	STDIN and STDOUT that are actually connected by a pipe or socket, even
6030	6040	if you exit, then the remote server (such as, say, a CGI script or a
6031	6041	backgrounded job launched from a remote shell) won't think you're done.
6032	6042	You should reopen those to F</dev/null> if it's any issue.
6033	6043
6034	6044	=end original
6035	6045
6036	6046	fork した子プロセスが STDIN や STDOUT といったシステムファイル記述子を
6037	6047	継承する場合、(CGI スクリプトやリモートシェルといった
6038	6048	バックグラウンドジョブのような)リモートサーバは考え通りに
6039	6049	動かないであろうことに注意してください。
6040	6050	このような場合ではこれらを F</dev/null> として再オープンするべきです。
6041	6051
6042	6052	=begin original
6043	6053
6044	6054	On some platforms such as Windows, where the L<fork(2)> system call is
6045	6055	not available, Perl can be built to emulate L<C<fork>\|/fork> in the Perl
6046	6056	interpreter. The emulation is designed, at the level of the Perl
6047	6057	program, to be as compatible as possible with the "Unix" L<fork(2)>.
6048	6058	However it has limitations that have to be considered in code intended
6049	6059	to be portable. See L<perlfork> for more details.
6050	6060
6051	6061	=end original
6052	6062
6053	6063	Windows のような L<fork(2)> が利用不能なシステムでは、Perl は
6054	6064	L<C<fork>\|/fork> を Perl インタプリタでエミュレートします。
6055	6065	エミュレーションは Perl プログラムのレベルではできるだけ "Unix" L<fork(2)> と
6056	6066	互換性があるように設計されています。
6057	6067	しかしコードが移植性があると考えられるように制限があります。
6058	6068	さらなる詳細については L<perlfork> を参照してください。
6059	6069
6060	6070	=begin original
6061	6071
6062	6072	Portability issues: L<perlport/fork>.
6063	6073
6064	6074	=end original
6065	6075
6066	6076	移植性の問題: L<perlport/fork>。
6067	6077
6068	6078	=item format
6069	6079	X<format>
6070	6080
6071	6081	=for Pod::Functions declare a picture format with use by the write() function
6072	6082
6073	6083	=begin original
6074	6084
6075	6085	Declare a picture format for use by the L<C<write>\|/write FILEHANDLE>
6076	6086	function. For example:
6077	6087
6078	6088	=end original
6079	6089
6080	6090	L<C<write>\|/write FILEHANDLE> 関数で使うピクチャーフォーマットを宣言します。
6081	6091	例えば:
6082	6092
6083	6093	format Something =
6084	6094	Test: @<<<<<<<< @\|\|\|\|\| @>>>>>
6085	6095	$str, $%, '$' . int($num)
6086	6096	.
6087	6097
6088	6098	$str = "widget";
6089	6099	$num = $cost/$quantity;
6090	6100	$~ = 'Something';
6091	6101	write;
6092	6102
6093	6103	=begin original
6094	6104
6095	6105	See L<perlform> for many details and examples.
6096	6106
6097	6107	=end original
6098	6108
6099	6109	詳細と例については L<perlform> を参照してください。
6100	6110
6101	6111	=item formline PICTURE,LIST
6102	6112	X<formline>
6103	6113
6104	6114	=for Pod::Functions internal function used for formats
6105	6115
6106	6116	=begin original
6107	6117
6108	6118	This is an internal function used by L<C<format>\|/format>s, though you
6109	6119	may call it, too. It formats (see L<perlform>) a list of values
6110	6120	according to the contents of PICTURE, placing the output into the format
6111	6121	output accumulator, L<C<$^A>\|perlvar/$^A> (or C<$ACCUMULATOR> in
6112	6122	L<English>). Eventually, when a L<C<write>\|/write FILEHANDLE> is done,
6113	6123	the contents of L<C<$^A>\|perlvar/$^A> are written to some filehandle.
6114	6124	You could also read L<C<$^A>\|perlvar/$^A> and then set
6115	6125	L<C<$^A>\|perlvar/$^A> back to C<"">. Note that a format typically does
6116	6126	one L<C<formline>\|/formline PICTURE,LIST> per line of form, but the
6117	6127	L<C<formline>\|/formline PICTURE,LIST> function itself doesn't care how
6118	6128	many newlines are embedded in the PICTURE. This means that the C<~> and
6119	6129	C<~~> tokens treat the entire PICTURE as a single line. You may
6120	6130	therefore need to use multiple formlines to implement a single record
6121	6131	format, just like the L<C<format>\|/format> compiler.
6122	6132
6123	6133	=end original
6124	6134
6125	6135	これは、L<C<format>\|/format> が使用する内部関数ですが、直接呼び出すことも
6126	6136	できます。
6127	6137	これは、PICTURE の内容にしたがって、LIST の値を整形し (L<perlform> を
6128	6138	参照してください)、結果をフォーマット出力アキュムレータL<C<$^A>\|perlvar/$^A>
6129	6139	(L<English> モジュールでは C<$ACCUMULATOR>) に納めます。
6130	6140	最終的に、L<C<write>\|/write FILEHANDLE> が実行されると、
6131	6141	L<C<$^A>\|perlvar/$^A> の中身が、何らかのファイルハンドルに書き出されます。
6132	6142	また、自分で L<C<$^A>\|perlvar/$^A> を読んで、L<C<$^A>\|perlvar/$^A> の内容を
6133	6143	C<""> に戻してもかまいません。
6134	6144	format は通常、1 行ごとに L<C<formline>\|/formline PICTURE,LIST> を
6135	6145	行ないますが、L<C<formline>\|/formline PICTURE,LIST> 関数自身は、PICTURE の中に
6136	6146	いくつの改行が入っているかは、関係がありません。
6137	6147	これは、C<~> と C<~~>トークンは PICTURE 全体を一行として扱うことを意味します。
6138	6148	従って、1 レコードフォーマットを実装するためには
6139	6149	L<C<format>\|/format> コンパイラのような複数 formline を使う必要があります。
6140	6150
6141	6151	=begin original
6142	6152
6143	6153	Be careful if you put double quotes around the picture, because an C<@>
6144	6154	character may be taken to mean the beginning of an array name.
6145	6155	L<C<formline>\|/formline PICTURE,LIST> always returns true. See
6146	6156	L<perlform> for other examples.
6147	6157
6148	6158	=end original
6149	6159
6150	6160	ダブルクォートで PICTURE を囲む場合には、C<@> という文字が
6151	6161	配列名の始まりと解釈されますので、注意してください。
6152	6162	L<C<formline>\|/formline PICTURE,LIST> は常に真を返します。
6153	6163	その他の例については L<perlform> を参照してください。
6154	6164
6155	6165	=begin original
6156	6166
6157	6167	If you are trying to use this instead of L<C<write>\|/write FILEHANDLE>
6158	6168	to capture the output, you may find it easier to open a filehandle to a
6159	6169	scalar (C<< open my $fh, ">", \$output >>) and write to that instead.
6160	6170
6161	6171	=end original
6162	6172
6163	6173	出力を捕捉するために L<C<write>\|/write FILEHANDLE> の代わりにこれを
6164	6174	使おうとした場合、スカラにファイルハンドルを開いて
6165	6175	(C<< open my $fh, ">", \$output >>)、
6166	6176	代わりにここに出力する方が簡単であることに気付くでしょう。
6167	6177
6168	6178	=item getc FILEHANDLE
6169	6179	X<getc> X<getchar> X<character> X<file, read>
6170	6180
6171	6181	=item getc
6172	6182
6173	6183	=for Pod::Functions get the next character from the filehandle
6174	6184
6175	6185	=begin original
6176	6186
6177	6187	Returns the next character from the input file attached to FILEHANDLE,
6178	6188	or the undefined value at end of file or if there was an error (in
6179	6189	the latter case L<C<$!>\|perlvar/$!> is set). If FILEHANDLE is omitted,
6180	6190	reads from
6181	6191	STDIN. This is not particularly efficient. However, it cannot be
6182	6192	used by itself to fetch single characters without waiting for the user
6183	6193	to hit enter. For that, try something more like:
6184	6194
6185	6195	=end original
6186	6196
6187	6197	FILEHANDLE につながれている入力ファイルから、次の一文字を返します;
6188	6198	ファイルの最後、またはエラーが発生した場合は、未定義値を返します
6189	6199	(後者の場合は L<C<$!>\|perlvar/$!> がセットされます)。
6190	6200	FILEHANDLE が省略された場合には、STDIN から読み込みを行ないます。
6191	6201	これは特に効率的ではありません。
6192	6202	しかし、これはユーザーがリターンキーを押すのを待つことなく
6193	6203	一文字を読み込む用途には使えません。
6194	6204	そのような場合には、以下のようなものを試して見てください:
6195	6205
6196	6206	if ($BSD_STYLE) {
6197	6207	system "stty cbreak </dev/tty >/dev/tty 2>&1";
6198	6208	}
6199	6209	else {
6200	6210	system "stty", '-icanon', 'eol', "\001";
6201	6211	}
6202	6212
6203	6213	my $key = getc(STDIN);
6204	6214
6205	6215	if ($BSD_STYLE) {
6206	6216	system "stty -cbreak </dev/tty >/dev/tty 2>&1";
6207	6217	}
6208	6218	else {
6209	6219	system 'stty', 'icanon', 'eol', '^@'; # ASCII NUL
6210	6220	}
6211	6221	print "\n";
6212	6222
6213	6223	=begin original
6214	6224
6215	6225	Determination of whether C<$BSD_STYLE> should be set is left as an
6216	6226	exercise to the reader.
6217	6227
6218	6228	=end original
6219	6229
6220	6230	C<$BSD_STYLE> をセットするべきかどうかを決定する方法については
6221	6231	読者への宿題として残しておきます。
6222	6232
6223	6233	=begin original
6224	6234
6225	6235	The L<C<POSIX::getattr>\|POSIX/C<getattr>> function can do this more
6226	6236	portably on systems purporting POSIX compliance. See also the
6227	6237	L<C<Term::ReadKey>\|Term::ReadKey> module on CPAN.
6228	6238
6229	6239	=end original
6230	6240
6231	6241	L<C<POSIX::getattr>\|POSIX/C<getattr>> 関数は POSIX 準拠を主張するシステムで
6232	6242	これをより移植性のある形で行います。
6233	6243	CPAN にある L<C<Term::ReadKey>\|Term::ReadKey> モジュールも
6234	6244	参照してください。
6235	6245
6236	6246	=item getlogin
6237	6247	X<getlogin> X<login>
6238	6248
6239	6249	=for Pod::Functions return who logged in at this tty
6240	6250
6241	6251	=begin original
6242	6252
6243	6253	This implements the C library function of the same name, which on most
6244	6254	systems returns the current login from F</etc/utmp>, if any. If it
6245	6255	returns the empty string, use L<C<getpwuid>\|/getpwuid UID>.
6246	6256
6247	6257	=end original
6248	6258
6249	6259	これは同じ名前の C ライブラリ関数を実装していて、
6250	6260	多くのシステムでは、もしあれば、F</etc/utmp> から現在のログイン名を返します。
6251	6261	もし空文字列が返ってきた場合は、L<C<getpwuid>\|/getpwuid UID> を
6252	6262	使ってください。
6253	6263
6254	6264	my $login = getlogin \|\| getpwuid($<) \|\| "Kilroy";
6255	6265
6256	6266	=begin original
6257	6267
6258	6268	Do not consider L<C<getlogin>\|/getlogin> for authentication: it is not
6259	6269	as secure as L<C<getpwuid>\|/getpwuid UID>.
6260	6270
6261	6271	=end original
6262	6272
6263	6273	L<C<getlogin>\|/getlogin> を認証に使ってはいけません: これは
6264	6274	L<C<getpwuid>\|/getpwuid UID> のように安全ではありません。
6265	6275
6266	6276	=begin original
6267	6277
6268	6278	Portability issues: L<perlport/getlogin>.
6269	6279
6270	6280	=end original
6271	6281
6272	6282	移植性の問題: L<perlport/getlogin>。
6273	6283
6274	6284	=item getpeername SOCKET
6275	6285	X<getpeername> X<peer>
6276	6286
6277	6287	=for Pod::Functions find the other end of a socket connection
6278	6288
6279	6289	=begin original
6280	6290
6281	6291	Returns the packed sockaddr address of the other end of the SOCKET
6282	6292	connection.
6283	6293
6284	6294	=end original
6285	6295
6286	6296	SOCKET コネクションの向こう側のパックされた aockaddr アドレスを返します。
6287	6297
6288	6298	use Socket;
6289	6299	my $hersockaddr = getpeername($sock);
6290	6300	my ($port, $iaddr) = sockaddr_in($hersockaddr);
6291	6301	my $herhostname = gethostbyaddr($iaddr, AF_INET);
6292	6302	my $herstraddr = inet_ntoa($iaddr);
6293	6303
6294	6304	=item getpgrp PID
6295	6305	X<getpgrp> X<group>
6296	6306
6297	6307	=for Pod::Functions get process group
6298	6308
6299	6309	=begin original
6300	6310
6301	6311	Returns the current process group for the specified PID. Use
6302	6312	a PID of C<0> to get the current process group for the
6303	6313	current process. Will raise an exception if used on a machine that
6304	6314	doesn't implement L<getpgrp(2)>. If PID is omitted, returns the process
6305	6315	group of the current process. Note that the POSIX version of
6306	6316	L<C<getpgrp>\|/getpgrp PID> does not accept a PID argument, so only
6307	6317	C<PID==0> is truly portable.
6308	6318
6309	6319	=end original
6310	6320
6311	6321	指定された PID の現在のプロセスグループを返します。
6312	6322	PID に C<0> を与えるとカレントプロセスの指定となります。
6313	6323	L<getpgrp(2)> を実装していないマシンで実行した場合には、例外が発生します。
6314	6324	PID を省略するとカレントプロセスのプロセスグループを返します。
6315	6325	POSIX 版の L<C<getpgrp>\|/getpgrp PID> は PID 引数を受け付けないので、
6316	6326	C<PID==0> のみが完全に移植性があります。
6317	6327
6318	6328	=begin original
6319	6329
6320	6330	Portability issues: L<perlport/getpgrp>.
6321	6331
6322	6332	=end original
6323	6333
6324	6334	移植性の問題: L<perlport/getpgrp>。
6325	6335
6326	6336	=item getppid
6327	6337	X<getppid> X<parent> X<pid>
6328	6338
6329	6339	=for Pod::Functions get parent process ID
6330	6340
6331	6341	=begin original
6332	6342
6333	6343	Returns the process id of the parent process.
6334	6344
6335	6345	=end original
6336	6346
6337	6347	親プロセスのプロセス id を返します。
6338	6348
6339	6349	=begin original
6340	6350
6341	6351	Note for Linux users: Between v5.8.1 and v5.16.0 Perl would work
6342	6352	around non-POSIX thread semantics the minority of Linux systems (and
6343	6353	Debian GNU/kFreeBSD systems) that used LinuxThreads, this emulation
6344	6354	has since been removed. See the documentation for L<$$\|perlvar/$$> for
6345	6355	details.
6346	6356
6347	6357	=end original
6348	6358
6349	6359	Linux ユーザーへの注意: v5.8.1 から v5.16.0 の間 Perl は
6350	6360	LinuxThreads という非 POSIX なスレッド文法を使っているマイナーな
6351	6361	Linux システム (および Debian GNU/kFreeBSD システム) に対応していました。
6352	6362	このエミュレーションは削除されました;
6353	6363	詳しくは L<$$\|perlvar/$$> の文書を参照してください。
6354	6364
6355	6365	=begin original
6356	6366
6357	6367	Portability issues: L<perlport/getppid>.
6358	6368
6359	6369	=end original
6360	6370
6361	6371	移植性の問題: L<perlport/getppid>。
6362	6372
6363	6373	=item getpriority WHICH,WHO
6364	6374	X<getpriority> X<priority> X<nice>
6365	6375
6366	6376	=for Pod::Functions get current nice value
6367	6377
6368	6378	=begin original
6369	6379
6370	6380	Returns the current priority for a process, a process group, or a user.
6371	6381	(See L<getpriority(2)>.) Will raise a fatal exception if used on a
6372	6382	machine that doesn't implement L<getpriority(2)>.
6373	6383
6374	6384	=end original
6375	6385
6376	6386	プロセス、プロセスグループ、ユーザに対する現在の優先度を返します。
6377	6387	(L<getpriority(2)> を参照してください。)
6378	6388	L<getpriority(2)> を実装していない
6379	6389	マシンで実行した場合には、致命的例外が発生します。
6380	6390
6381	6391	=begin original
6382	6392
6383	6393	C<WHICH> can be any of C<PRIO_PROCESS>, C<PRIO_PGRP> or C<PRIO_USER>
6384	6394	imported from L<POSIX/RESOURCE CONSTANTS>.
6385	6395
6386	6396	=end original
6387	6397
6388		C<WHICH> は L<POSIX/RESOURCE CONSTANTS> からインポートされた
	6398	C<WHICH> は、L<POSIX/RESOURCE CONSTANTS> からインポートされた
6389	6399	C<PRIO_PROCESS>, C<PRIO_PGRP>, C<PRIO_USER> のいずれかです。
6390	6400
6391	6401	=begin original
6392	6402
6393	6403	Portability issues: L<perlport/getpriority>.
6394	6404
6395	6405	=end original
6396	6406
6397	6407	移植性の問題: L<perlport/getpriority>。
6398	6408
6399	6409	=item getpwnam NAME
6400	6410	X<getpwnam> X<getgrnam> X<gethostbyname> X<getnetbyname> X<getprotobyname>
6401	6411	X<getpwuid> X<getgrgid> X<getservbyname> X<gethostbyaddr> X<getnetbyaddr>
6402	6412	X<getprotobynumber> X<getservbyport> X<getpwent> X<getgrent> X<gethostent>
6403	6413	X<getnetent> X<getprotoent> X<getservent> X<setpwent> X<setgrent> X<sethostent>
6404	6414	X<setnetent> X<setprotoent> X<setservent> X<endpwent> X<endgrent> X<endhostent>
6405	6415	X<endnetent> X<endprotoent> X<endservent>
6406	6416
6407	6417	=for Pod::Functions get passwd record given user login name
6408	6418
6409	6419	=item getgrnam NAME
6410	6420
6411	6421	=for Pod::Functions get group record given group name
6412	6422
6413	6423	=item gethostbyname NAME
6414	6424
6415	6425	=for Pod::Functions get host record given name
6416	6426
6417	6427	=item getnetbyname NAME
6418	6428
6419	6429	=for Pod::Functions get networks record given name
6420	6430
6421	6431	=item getprotobyname NAME
6422	6432
6423	6433	=for Pod::Functions get protocol record given name
6424	6434
6425	6435	=item getpwuid UID
6426	6436
6427	6437	=for Pod::Functions get passwd record given user ID
6428	6438
6429	6439	=item getgrgid GID
6430	6440
6431	6441	=for Pod::Functions get group record given group user ID
6432	6442
6433	6443	=item getservbyname NAME,PROTO
6434	6444
6435	6445	=for Pod::Functions get services record given its name
6436	6446
6437	6447	=item gethostbyaddr ADDR,ADDRTYPE
6438	6448
6439	6449	=for Pod::Functions get host record given its address
6440	6450
6441	6451	=item getnetbyaddr ADDR,ADDRTYPE
6442	6452
6443	6453	=for Pod::Functions get network record given its address
6444	6454
6445	6455	=item getprotobynumber NUMBER
6446	6456
6447	6457	=for Pod::Functions get protocol record numeric protocol
6448	6458
6449	6459	=item getservbyport PORT,PROTO
6450	6460
6451	6461	=for Pod::Functions get services record given numeric port
6452	6462
6453	6463	=item getpwent
6454	6464
6455	6465	=for Pod::Functions get next passwd record
6456	6466
6457	6467	=item getgrent
6458	6468
6459	6469	=for Pod::Functions get next group record
6460	6470
6461	6471	=item gethostent
6462	6472
6463	6473	=for Pod::Functions get next hosts record
6464	6474
6465	6475	=item getnetent
6466	6476
6467	6477	=for Pod::Functions get next networks record
6468	6478
6469	6479	=item getprotoent
6470	6480
6471	6481	=for Pod::Functions get next protocols record
6472	6482
6473	6483	=item getservent
6474	6484
6475	6485	=for Pod::Functions get next services record
6476	6486
6477	6487	=item setpwent
6478	6488
6479	6489	=for Pod::Functions prepare passwd file for use
6480	6490
6481	6491	=item setgrent
6482	6492
6483	6493	=for Pod::Functions prepare group file for use
6484	6494
6485	6495	=item sethostent STAYOPEN
6486	6496
6487	6497	=for Pod::Functions prepare hosts file for use
6488	6498
6489	6499	=item setnetent STAYOPEN
6490	6500
6491	6501	=for Pod::Functions prepare networks file for use
6492	6502
6493	6503	=item setprotoent STAYOPEN
6494	6504
6495	6505	=for Pod::Functions prepare protocols file for use
6496	6506
6497	6507	=item setservent STAYOPEN
6498	6508
6499	6509	=for Pod::Functions prepare services file for use
6500	6510
6501	6511	=item endpwent
6502	6512
6503	6513	=for Pod::Functions be done using passwd file
6504	6514
6505	6515	=item endgrent
6506	6516
6507	6517	=for Pod::Functions be done using group file
6508	6518
6509	6519	=item endhostent
6510	6520
6511	6521	=for Pod::Functions be done using hosts file
6512	6522
6513	6523	=item endnetent
6514	6524
6515	6525	=for Pod::Functions be done using networks file
6516	6526
6517	6527	=item endprotoent
6518	6528
6519	6529	=for Pod::Functions be done using protocols file
6520	6530
6521	6531	=item endservent
6522	6532
6523	6533	=for Pod::Functions be done using services file
6524	6534
6525	6535	=begin original
6526	6536
6527	6537	These routines are the same as their counterparts in the
6528	6538	system C library. In list context, the return values from the
6529	6539	various get routines are as follows:
6530	6540
6531	6541	=end original
6532	6542
6533	6543	これらのルーチンは、システムの C ライブラリの同名の関数と同じです。
6534	6544	リストコンテキストでは、さまざまな
6535	6545	get ルーチンからの返り値は、次のようになります:
6536	6546
6537	6547	# 0 1 2 3 4
6538	6548	my ( $name, $passwd, $gid, $members ) = getgr*
6539	6549	my ( $name, $aliases, $addrtype, $net ) = getnet*
6540	6550	my ( $name, $aliases, $port, $proto ) = getserv*
6541	6551	my ( $name, $aliases, $proto ) = getproto*
6542	6552	my ( $name, $aliases, $addrtype, $length, @addrs ) = gethost*
6543	6553	my ( $name, $passwd, $uid, $gid, $quota,
6544	6554	$comment, $gcos, $dir, $shell, $expire ) = getpw*
6545	6555	# 5 6 7 8 9
6546	6556
6547	6557	=begin original
6548	6558
6549	6559	(If the entry doesn't exist, the return value is a single meaningless true
6550	6560	value.)
6551	6561
6552	6562	=end original
6553	6563
6554	6564	(エントリが存在しなければ、返り値は単一の意味のない真の値です。)
6555	6565
6556	6566	=begin original
6557	6567
6558	6568	The exact meaning of the $gcos field varies but it usually contains
6559	6569	the real name of the user (as opposed to the login name) and other
6560	6570	information pertaining to the user. Beware, however, that in many
6561	6571	system users are able to change this information and therefore it
6562	6572	cannot be trusted and therefore the $gcos is tainted (see
6563	6573	L<perlsec>). The $passwd and $shell, user's encrypted password and
6564	6574	login shell, are also tainted, for the same reason.
6565	6575
6566	6576	=end original
6567	6577
6568	6578	$gcos フィールドの正確な意味はさまざまですが、通常は(ログイン名ではなく)
6569	6579	ユーザーの実際の名前とユーザーに付随する情報を含みます。
6570	6580	但し、多くのシステムではユーザーがこの情報を変更できるので、この情報は
6571	6581	信頼できず、従って $gcos は汚染されます(L<perlsec> を参照してください)。
6572	6582	ユーザーの暗号化されたパスワードとログインシェルである $passwd と
6573	6583	$shell も、同様の理由で汚染されます。
6574	6584
6575	6585	=begin original
6576	6586
6577	6587	In scalar context, you get the name, unless the function was a
6578	6588	lookup by name, in which case you get the other thing, whatever it is.
6579	6589	(If the entry doesn't exist you get the undefined value.) For example:
6580	6590
6581	6591	=end original
6582	6592
6583	6593	スカラコンテキストでは、nam、byname といった NAME で検索するもの以外は、
6584	6594	name を返し、NAME で検索するものは、何か別のものを返します。
6585	6595	(エントリが存在しなければ、未定義値が返ります。)
6586	6596	例えば:
6587	6597
6588	6598	my $uid = getpwnam($name);
6589	6599	my $name = getpwuid($num);
6590	6600	my $name = getpwent();
6591	6601	my $gid = getgrnam($name);
6592	6602	my $name = getgrgid($num);
6593	6603	my $name = getgrent();
6594	6604	# etc.
6595	6605
6596	6606	=begin original
6597	6607
6598	6608	In I<getpw*()> the fields $quota, $comment, and $expire are special
6599	6609	in that they are unsupported on many systems. If the
6600	6610	$quota is unsupported, it is an empty scalar. If it is supported, it
6601	6611	usually encodes the disk quota. If the $comment field is unsupported,
6602	6612	it is an empty scalar. If it is supported it usually encodes some
6603	6613	administrative comment about the user. In some systems the $quota
6604	6614	field may be $change or $age, fields that have to do with password
6605	6615	aging. In some systems the $comment field may be $class. The $expire
6606	6616	field, if present, encodes the expiration period of the account or the
6607	6617	password. For the availability and the exact meaning of these fields
6608	6618	in your system, please consult L<getpwnam(3)> and your system's
6609	6619	F<pwd.h> file. You can also find out from within Perl what your
6610	6620	$quota and $comment fields mean and whether you have the $expire field
6611	6621	by using the L<C<Config>\|Config> module and the values C<d_pwquota>, C<d_pwage>,
6612	6622	C<d_pwchange>, C<d_pwcomment>, and C<d_pwexpire>. Shadow password
6613	6623	files are supported only if your vendor has implemented them in the
6614	6624	intuitive fashion that calling the regular C library routines gets the
6615	6625	shadow versions if you're running under privilege or if there exists
6616	6626	the L<shadow(3)> functions as found in System V (this includes Solaris
6617	6627	and Linux). Those systems that implement a proprietary shadow password
6618	6628	facility are unlikely to be supported.
6619	6629
6620	6630	=end original
6621	6631
6622	6632	I<getpw*()> では、$quota, $comment, $expire フィールドは、
6623	6633	多くのシステムでは対応していないので特別な処理がされます。
6624	6634	$quota が非対応の場合、空のスカラになります。
6625	6635	対応している場合、通常はディスククォータの値が入ります。
6626	6636	$comment フィールドが非対応の場合、空のスカラになります。
6627	6637	対応している場合、通常はユーザーに関する管理上のコメントが入ります。
6628	6638	$quota フィールドはパスワードの寿命を示す $change や $age である
6629	6639	システムもあります。
6630	6640	$comment フィールドは $class であるシステムもあります。
6631	6641	$expire フィールドがある場合は、アカウントやパスワードが時間切れになる
6632	6642	期間が入ります。
6633	6643	動作させるシステムでのこれらのフィールドの有効性と正確な意味については、
6634	6644	L<getpwnam(3)> のドキュメントと F<pwd.h> ファイルを参照してください。
6635	6645	$quota と $comment フィールドが何を意味しているかと、$expire フィールドが
6636	6646	あるかどうかは、L<C<Config>\|Config> モジュールを使って、C<d_pwquota>,
6637	6647	C<d_pwage>, C<d_pwchange>, C<d_pwcomment>, C<d_pwexpire> の値を
6638	6648	調べることによって Perl 自身で調べることも出来ます。
6639	6649	シャドウパスワードは、通常の C ライブラリルーチンを権限がある状態で
6640	6650	呼び出すことでシャドウ版が取得できるか、System V にあるような
6641	6651	(Solaris と Linux を含みます) L<shadow(3)> 関数があるといった、
6642	6652	直感的な方法で実装されている場合にのみ対応されます。
6643	6653	独占的なシャドウパスワード機能を実装しているシステムでは、
6644	6654	それに対応されることはないでしょう。
6645	6655
6646	6656	=begin original
6647	6657
6648	6658	The $members value returned by I<getgr*()> is a space-separated list of
6649	6659	the login names of the members of the group.
6650	6660
6651	6661	=end original
6652	6662
6653	6663	I<getgr*()> によって返る値 $members は、グループのメンバの
6654	6664	ログイン名をスペースで区切ったものです。
6655	6665
6656	6666	=begin original
6657	6667
6658	6668	For the I<gethost*()> functions, if the C<h_errno> variable is supported in
6659	6669	C, it will be returned to you via L<C<$?>\|perlvar/$?> if the function
6660	6670	call fails. The
6661	6671	C<@addrs> value returned by a successful call is a list of raw
6662	6672	addresses returned by the corresponding library call. In the
6663	6673	Internet domain, each address is four bytes long; you can unpack it
6664	6674	by saying something like:
6665	6675
6666	6676	=end original
6667	6677
6668	6678	I<gethost*()> 関数では、C で C<h_errno> 変数がサポートされていれば、
6669	6679	関数呼出が失敗したときに、L<C<$?>\|perlvar/$?> を通して、その値が返されます。
6670	6680	成功時に返される C<@addrs> 値は、対応するシステムコールが返す、
6671	6681	生のアドレスのリストです。
6672	6682	インターネットドメインでは、個々のアドレスは、4 バイト長です;
6673	6683	以下のようにして unpack することができます:
6674	6684
6675	6685	my ($w,$x,$y,$z) = unpack('W4',$addr[0]);
6676	6686
6677	6687	=begin original
6678	6688
6679	6689	The Socket library makes this slightly easier:
6680	6690
6681	6691	=end original
6682	6692
6683	6693	Socket ライブラリを使うともう少し簡単になります。
6684	6694
6685	6695	use Socket;
6686	6696	my $iaddr = inet_aton("127.1"); # or whatever address
6687	6697	my $name = gethostbyaddr($iaddr, AF_INET);
6688	6698
6689	6699	# or going the other way
6690	6700	my $straddr = inet_ntoa($iaddr);
6691	6701
6692	6702	=begin original
6693	6703
6694	6704	In the opposite way, to resolve a hostname to the IP address
6695	6705	you can write this:
6696	6706
6697	6707	=end original
6698	6708
6699	6709	逆方向に、ホスト名から IP アドレスを解決するには以下のように書けます:
6700	6710
6701	6711	use Socket;
6702	6712	my $packed_ip = gethostbyname("www.perl.org");
6703	6713	my $ip_address;
6704	6714	if (defined $packed_ip) {
6705	6715	$ip_address = inet_ntoa($packed_ip);
6706	6716	}
6707	6717
6708	6718	=begin original
6709	6719
6710	6720	Make sure L<C<gethostbyname>\|/gethostbyname NAME> is called in SCALAR
6711	6721	context and that its return value is checked for definedness.
6712	6722
6713	6723	=end original
6714	6724
6715	6725	L<C<gethostbyname>\|/gethostbyname NAME> はスカラコンテキストで
6716	6726	呼び出すようにして、返り値が定義されているかを必ずチェックしてください。
6717	6727
6718	6728	=begin original
6719	6729
6720	6730	The L<C<getprotobynumber>\|/getprotobynumber NUMBER> function, even
6721	6731	though it only takes one argument, has the precedence of a list
6722	6732	operator, so beware:
6723	6733
6724	6734	=end original
6725	6735
6726	6736	L<C<getprotobynumber>\|/getprotobynumber NUMBER> 関数は、一つの引数しか
6727	6737	取らないにも関わらず、リスト演算子の優先順位を持ちます; 従って
6728	6738	注意してください:
6729	6739
6730	6740	getprotobynumber $number eq 'icmp' # WRONG
6731	6741	getprotobynumber($number eq 'icmp') # actually means this
6732	6742	getprotobynumber($number) eq 'icmp' # better this way
6733	6743
6734	6744	=begin original
6735	6745
6736	6746	If you get tired of remembering which element of the return list
6737	6747	contains which return value, by-name interfaces are provided in standard
6738	6748	modules: L<C<File::stat>\|File::stat>, L<C<Net::hostent>\|Net::hostent>,
6739	6749	L<C<Net::netent>\|Net::netent>, L<C<Net::protoent>\|Net::protoent>,
6740	6750	L<C<Net::servent>\|Net::servent>, L<C<Time::gmtime>\|Time::gmtime>,
6741	6751	L<C<Time::localtime>\|Time::localtime>, and
6742	6752	L<C<User::grent>\|User::grent>. These override the normal built-ins,
6743	6753	supplying versions that return objects with the appropriate names for
6744	6754	each field. For example:
6745	6755
6746	6756	=end original
6747	6757
6748	6758	返り値のリストの何番目がどの要素かを覚えるのに疲れたなら、
6749	6759	名前ベースのインターフェースが標準モジュールで提供されています:
6750	6760	L<C<File::stat>\|File::stat>, L<C<Net::hostent>\|Net::hostent>,
6751	6761	L<C<Net::netent>\|Net::netent>, L<C<Net::protoent>\|Net::protoent>,
6752	6762	L<C<Net::servent>\|Net::servent>, L<C<Time::gmtime>\|Time::gmtime>,
6753	6763	L<C<Time::localtime>\|Time::localtime>,
6754	6764	L<C<User::grent>\|User::grent> です。
6755	6765	これらは通常の組み込みを上書きし、
6756	6766	それぞれのフィールドに適切な名前をつけたオブジェクトを返します。
6757	6767	例えば:
6758	6768
6759	6769	use File::stat;
6760	6770	use User::pwent;
6761	6771	my $is_his = (stat($filename)->uid == pwent($whoever)->uid);
6762	6772
6763	6773	=begin original
6764	6774
6765	6775	Even though it looks as though they're the same method calls (uid),
6766	6776	they aren't, because a C<File::stat> object is different from
6767	6777	a C<User::pwent> object.
6768	6778
6769	6779	=end original
6770	6780
6771	6781	同じメソッド(uid)を呼び出しているように見えますが、違います;
6772	6782	なぜなら C<File::stat> オブジェクトは C<User::pwent> オブジェクトとは
6773	6783	異なるからです。
6774	6784
6775	6785	=begin original
6776	6786
6777	6787	Many of these functions are not safe in a multi-threaded environment
6778	6788	where more than one thread can be using them. In particular, functions
6779	6789	like C<getpwent()> iterate per-process and not per-thread, so if two
6780	6790	threads are simultaneously iterating, neither will get all the records.
6781	6791
6782	6792	=end original
6783	6793
6784	6794	これらの関数の多くは、複数のスレッドがこれらを使うような
6785	6795	マルチスレッド環境では安全ではありません。
6786	6796	特に、
6787	6797	C<getpwent()> のような関数はスレッド単位ではなくプロセス単位で
6788	6798	反復するので、二つのスレッドが同時に反復すると、
6789	6799	どちらも全てのレコードを得られません。
6790	6800
6791	6801	=begin original
6792	6802
6793	6803	Some systems have thread-safe versions of some of the functions, such as
6794	6804	C<getpwnam_r()> instead of C<getpwnam()>. There, Perl automatically and
6795	6805	invisibly substitutes the thread-safe version, without notice. This
6796	6806	means that code that safely runs on some systems can fail on others that
6797	6807	lack the thread-safe versions.
6798	6808
6799	6809	=end original
6800	6810
6801	6811	一部のシステムは、
6802	6812	C<getpwnam()> の代わりの C<getpwnam_r()> のように、一部の関数について
6803	6813	スレッドセーフ版を持っています。
6804	6814	その場合、Perl は自動的かつ目に見えないように、通知なしで
6805	6815	スレッドセーフ版に置き換えます。
6806	6816	つまり、一部のシステムで安全に実行できるコードが
6807	6817	スレッドセーフ版のないその他のシステムでは失敗することがあるということです。
6808	6818
6809	6819	=begin original
6810	6820
6811	6821	Portability issues: L<perlport/getpwnam> to L<perlport/endservent>.
6812	6822
6813	6823	=end original
6814	6824
6815	6825	移植性の問題: L<perlport/getpwnam> から L<perlport/endservent>。
6816	6826
6817	6827	=item getsockname SOCKET
6818	6828	X<getsockname>
6819	6829
6820	6830	=for Pod::Functions retrieve the sockaddr for a given socket
6821	6831
6822	6832	=begin original
6823	6833
6824	6834	Returns the packed sockaddr address of this end of the SOCKET connection,
6825	6835	in case you don't know the address because you have several different
6826	6836	IPs that the connection might have come in on.
6827	6837
6828	6838	=end original
6829	6839
6830	6840	SOCKET 接続のこちら側の pack された sockaddr アドレスを返します;
6831	6841	複数の異なる IP から接続されるためにアドレスがわからない場合に使います。
6832	6842
6833	6843	use Socket;
6834	6844	my $mysockaddr = getsockname($sock);
6835	6845	my ($port, $myaddr) = sockaddr_in($mysockaddr);
6836	6846	printf "Connect to %s [%s]\n",
6837	6847	scalar gethostbyaddr($myaddr, AF_INET),
6838	6848	inet_ntoa($myaddr);
6839	6849
6840	6850	=item getsockopt SOCKET,LEVEL,OPTNAME
6841	6851	X<getsockopt>
6842	6852
6843	6853	=for Pod::Functions get socket options on a given socket
6844	6854
6845	6855	=begin original
6846	6856
6847	6857	Queries the option named OPTNAME associated with SOCKET at a given LEVEL.
6848	6858	Options may exist at multiple protocol levels depending on the socket
6849	6859	type, but at least the uppermost socket level SOL_SOCKET (defined in the
6850	6860	L<C<Socket>\|Socket> module) will exist. To query options at another
6851	6861	level the protocol number of the appropriate protocol controlling the
6852	6862	option should be supplied. For example, to indicate that an option is
6853	6863	to be interpreted by the TCP protocol, LEVEL should be set to the
6854	6864	protocol number of TCP, which you can get using
6855	6865	L<C<getprotobyname>\|/getprotobyname NAME>.
6856	6866
6857	6867	=end original
6858	6868
6859	6869	与えられた LEVEL で SOCKET に関連付けられた OPTNAME と言う名前のオプションを
6860	6870	問い合わせます。
6861	6871	オプションはソケットの種類に依存しした複数のプロトコルレベルに存在することも
6862	6872	ありますが、少なくとも最上位ソケットレベル SOL_SOCKET
6863	6873	(L<C<Socket>\|Socket> モジュールで定義されています)は存在します。
6864	6874	その他のレベルのオプションを問い合わせるには、そのオプションを制御する
6865	6875	適切なプロトコルのプロトコル番号を指定します。
6866	6876	例えば、オプションが TCP プロトコルで解釈されるべきであることを示すためには、
6867	6877	LEVEL は L<C<getprotobyname>\|/getprotobyname NAME> で得られる TCP の
6868	6878	プロトコル番号を設定します。
6869	6879
6870	6880	=begin original
6871	6881
6872	6882	The function returns a packed string representing the requested socket
6873	6883	option, or L<C<undef>\|/undef EXPR> on error, with the reason for the
6874	6884	error placed in L<C<$!>\|perlvar/$!>. Just what is in the packed string
6875	6885	depends on LEVEL and OPTNAME; consult L<getsockopt(2)> for details. A
6876	6886	common case is that the option is an integer, in which case the result
6877	6887	is a packed integer, which you can decode using
6878	6888	L<C<unpack>\|/unpack TEMPLATE,EXPR> with the C<i> (or C<I>) format.
6879	6889
6880	6890	=end original
6881	6891
6882	6892	この関数は、要求されたソケットオプションの pack された文字列表現か、
6883	6893	あるいはエラーの場合は L<C<undef>\|/undef EXPR> を返し、エラーの理由は
6884	6894	L<C<$!>\|perlvar/$!> にあります。
6885	6895	pack された文字列の中身は LEVEL と OPTNAME に依存します;
6886	6896	詳細については L<getsockopt(2)> を確認してください。
6887	6897	一般的な場合はオプションが整数の場合で、この場合結果は
6888	6898	L<C<unpack>\|/unpack TEMPLATE,EXPR> の C<i>
6889	6899	(あるいは C<I>)フォーマットでデコードできる pack された整数です。
6890	6900
6891	6901	=begin original
6892	6902
6893	6903	Here's an example to test whether Nagle's algorithm is enabled on a socket:
6894	6904
6895	6905	=end original
6896	6906
6897	6907	あるソケットで Nagle のアルゴリズム有効かどうかを調べる例です:
6898	6908
6899	6909	use Socket qw(:all);
6900	6910
6901	6911	defined(my $tcp = getprotobyname("tcp"))
6902	6912	or die "Could not determine the protocol number for tcp";
6903	6913	# my $tcp = IPPROTO_TCP; # Alternative
6904	6914	my $packed = getsockopt($socket, $tcp, TCP_NODELAY)
6905	6915	or die "getsockopt TCP_NODELAY: $!";
6906	6916	my $nodelay = unpack("I", $packed);
6907	6917	print "Nagle's algorithm is turned ",
6908	6918	$nodelay ? "off\n" : "on\n";
6909	6919
6910	6920	=begin original
6911	6921
6912	6922	Portability issues: L<perlport/getsockopt>.
6913	6923
6914	6924	=end original
6915	6925
6916	6926	移植性の問題: L<perlport/getsockopt>。
6917	6927
6918	6928	=item glob EXPR
6919	6929	X<glob> X<wildcard> X<filename, expansion> X<expand>
6920	6930
6921	6931	=item glob
6922	6932
6923	6933	=for Pod::Functions expand filenames using wildcards
6924	6934
6925	6935	=begin original
6926	6936
6927	6937	In list context, returns a (possibly empty) list of filename expansions on
6928		the value of EXPR such as the ~~standard~~ Unix shell ~~F</bin/c~~sh> would do. In
	6938	the value of EXPR such as the Unix shell Bash would do. In
6929	6939	scalar context, glob iterates through such filename expansions, returning
6930		undef when the list is exhausted. ~~This~~ is ~~the~~ int~~ernal func~~t~~ion~~
	6940	L<C<undef>\|/undef EXPR> when the list is exhausted. If EXPR is omitted,
6931		~~implementing the~~ C<~~< <*.c~~> ~~>> o~~perator, ~~but~~ you ~~can u~~se it d~~irectly~~. If
	6941	L<C<$_>\|perlvar/$_> is used.
6932		EXPR is omitted, L<C<$_>\|perlvar/$_> is used. The C<< <*.c> >> operator
6933		is discussed in more detail in L<perlop/"I/O Operators">.
6934	6942
6935	6943	=end original
6936	6944
6937	6945	リストコンテキストでは、
6938		EXPR の値を、標準 Unix シェル ~~F</bin/c~~sh> が行なうように
	6946	EXPR の値を、Unix シェルの Bash が行なうように
6939	6947	ファイル名の展開を行なった結果のリスト(空かもしれません)を返します。
6940	6948	スカラコンテキストでは、glob はこのようなファイル名展開を繰り返し、
6941		リストがなくなったら undef を返します。
	6949	リストがなくなったら L<C<undef>\|/undef EXPR> を返します。
6942		これは、C<< <*.c> >> 演算子を実装する内部関数ですが、
6943		直接使用することもできます。
6944	6950	EXPR が省略されると、L<C<$_>\|perlvar/$_> が使われます。
6945		C<< <*.c> >>演算子については
6946		L<perlop/"I/O Operators"> でより詳細に議論しています。
6947	6951
	6952	# List context
	6953	my @txt_files = glob("*.txt");
	6954	my @perl_files = glob(".pl .pm");
	6955
	6956	# Scalar context
	6957	while (my $file = glob("*.mp3")) {
	6958	# Do stuff
	6959	}
	6960
6948	6961	=begin original
6949	6962
	6963	Glob also supports an alternate syntax using C<< < >> C<< > >> as
	6964	delimiters. While this syntax is supported, it is recommended that you
	6965	use C<glob> instead as it is more readable and searchable.
	6966
	6967	=end original
	6968
	6969	glob はまた区切り文字として C<< < >> C<< > >> を使うもう一つの文法に
	6970	対応しています。
	6971	この文法は対応していますが、可読性と検索性がより高いので、代わりに
	6972	C<glob> を使うことを勧めます。
	6973
	6974	my @txt_files = <"*.txt">;
	6975
	6976	=begin original
	6977
	6978	If you need case insensitive file globbing that can be achieved using the
	6979	C<:nocase> parameter of the L<C<bsd_glob>\|File::Glob/C<bsd_glob>> module.
	6980
	6981	=end original
	6982
	6983	大文字小文字を区別するファイルグロブが必要な場合、
	6984	L<C<bsd_glob>\|File::Glob/C<bsd_glob>> モジュールの C<:nocase> 引数を
	6985	使うことで達成できます:
	6986
	6987	use File::Glob qw(:globally :nocase);
	6988
	6989	my @txt = glob("readme*"); # README readme.txt Readme.md
	6990
	6991	=begin original
	6992
6950	6993	Note that L<C<glob>\|/glob EXPR> splits its arguments on whitespace and
6951	6994	treats
6952	6995	each segment as separate pattern. As such, C<glob(".c .h")>
6953	6996	matches all files with a F<.c> or F<.h> extension. The expression
6954	6997	C<glob(".* *")> matches all files in the current working directory.
6955	6998	If you want to glob filenames that might contain whitespace, you'll
6956	6999	have to use extra quotes around the spacey filename to protect it.
6957	7000	For example, to glob filenames that have an C<e> followed by a space
6958	7001	followed by an C<f>, use one of:
6959	7002
6960	7003	=end original
6961	7004
6962	7005	L<C<glob>\|/glob EXPR> は引数を空白で分割して、それぞれを分割された
6963	7006	パターンとして扱います。
6964	7007	従って、C<glob(".c .h")> は F<.c> または F<.h> 拡張子を持つ全てのファイルに
6965	7008	マッチングします。
6966	7009	式 C<glob(".* *")> はカレントワーキングディレクトリの全てのファイルに
6967	7010	マッチングします。
6968	7011	空白を含んでいるかも知れないファイル名をグロブしたい場合、それを守るために
6969	7012	空白入りファイル名の周りに追加のクォートを使う必要があります。
6970	7013	例えば、C<e> の後に空白、その後に C<f> というファイル名をグロブするには
6971	7014	以下の一つを使います:
6972	7015
6973	7016	my @spacies = <"e f">;
6974		my @spacies = glob '"e f"';
	7017	my @spacies = glob('"e f"');
6975		my @spacies = glob q("e f");
	7018	my @spacies = glob(q("e f"));
6976	7019
6977	7020	=begin original
6978	7021
6979	7022	If you had to get a variable through, you could do this:
6980	7023
6981	7024	=end original
6982	7025
6983	7026	変数を通す必要があった場合、以下のようにできました:
6984	7027
6985		my @spacies = glob "'${var}e f'";
	7028	my @spacies = glob("'${var}e f'");
6986		my @spacies = glob qq("${var}e f");
	7029	my @spacies = glob(qq("${var}e f"));
6987	7030
6988	7031	=begin original
6989	7032
6990	7033	If non-empty braces are the only wildcard characters used in the
6991	7034	L<C<glob>\|/glob EXPR>, no filenames are matched, but potentially many
6992	7035	strings are returned. For example, this produces nine strings, one for
6993	7036	each pairing of fruits and colors:
6994	7037
6995	7038	=end original
6996	7039
6997	7040	空でない中かっこが L<C<glob>\|/glob EXPR> で使われている唯一の
6998	7041	ワイルドカード文字列の場合、ファイル名とはマッチングせず、
6999	7042	可能性のある文字列が返されます。
7000	7043	例えば、これは 9 個の文字列を生成し、それぞれは果物と色の組み合わせに
7001	7044	なります:
7002	7045
7003		my @many = glob "{apple,tomato,cherry}={green,yellow,red}";
	7046	my @many = glob("{apple,tomato,cherry}={green,yellow,red}");
7004	7047
7005	7048	=begin original
7006	7049
7007	7050	This operator is implemented using the standard C<File::Glob> extension.
7008		See L<File::Glob> for details, including
	7051	See L<C<bsd_glob>\|File::Glob/C<bsd_glob>> for details, including
7009	7052	L<C<bsd_glob>\|File::Glob/C<bsd_glob>>, which does not treat whitespace
7010	7053	as a pattern separator.
7011	7054
7012	7055	=end original
7013	7056
7014		~~v5.6.0 から、~~この演算子は標準の C<File::Glob> 拡張を使って
	7057	この演算子は標準の C<File::Glob> 拡張を使って
7015	7058	実装されています。
7016	7059	空白をパターンのセパレータとして扱わない
7017	7060	L<C<bsd_glob>\|File::Glob/C<bsd_glob>> を含めた
7018		詳細は L<File::Glob> を参照してください。
	7061	詳細は L<C<bsd_glob>\|File::Glob/C<bsd_glob>> を参照してください。
7019	7062
7020	7063	=begin original
7021	7064
7022	7065	If a C<glob> expression is used as the condition of a C<while> or C<for>
7023	7066	loop, then it will be implicitly assigned to C<$_>. If either a C<glob>
7024	7067	expression or an explicit assignment of a C<glob> expression to a scalar
7025	7068	is used as a C<while>/C<for> condition, then the condition actually
7026	7069	tests for definedness of the expression's value, not for its regular
7027	7070	truth value.
7028	7071
7029	7072	=end original
7030	7073
7031	7074	C<glob> 式が C<while> や C<for> ループの条件として使われた場合、
7032	7075	これは暗黙に C<$_> に代入されます。
7033	7076	C<glob> 式または C<glob> 式からスカラへの明示的な代入が
7034	7077	C<while>/C<for> の条件部として使われた場合、
7035	7078	条件は通常の真の値かどうかではなく、式の値が定義されているかどうかを
7036	7079	テストします。
7037	7080
7038	7081	=begin original
7039	7082
	7083	Internal implemenation details:
	7084
	7085	=end original
	7086
	7087	内部実装の詳細:
	7088
	7089	=begin original
	7090
	7091	This is the internal function implementing the C<< <*.c> >> operator,
	7092	but you can use it directly. The C<< <*.c> >> operator is discussed in
	7093	more detail in L<perlop/"I/O Operators">.
	7094
	7095	=end original
	7096
	7097	これは、C<< <*.c> >> 演算子を実装する内部関数ですが、
	7098	直接使用することもできます。
	7099	C<< <*.c> >>演算子については
	7100	L<perlop/"I/O Operators"> でより詳細に議論しています。
	7101
	7102	=begin original
	7103
7040	7104	Portability issues: L<perlport/glob>.
7041	7105
7042	7106	=end original
7043	7107
7044	7108	移植性の問題: L<perlport/glob>。
7045	7109
7046	7110	=item gmtime EXPR
7047	7111	X<gmtime> X<UTC> X<Greenwich>
7048	7112
7049	7113	=item gmtime
7050	7114
7051	7115	=for Pod::Functions convert UNIX time into record or string using Greenwich time
7052	7116
7053	7117	=begin original
7054	7118
7055		Works just like L<C<localtime>\|/localtime EXPR> but the returned values
	7119	Works just like L<C<localtime>\|/localtime EXPR>, but the returned values
7056	7120	are localized for the standard Greenwich time zone.
7057	7121
7058	7122	=end original
7059	7123
7060	7124	L<C<localtime>\|/localtime EXPR> と同様に働きますが、返り値はグリニッジ標準時に
7061	7125	ローカライズされています。
7062	7126
7063	7127	=begin original
7064	7128
7065	7129	Note: When called in list context, $isdst, the last value
7066	7130	returned by gmtime, is always C<0>. There is no
7067	7131	Daylight Saving Time in GMT.
7068	7132
7069	7133	=end original
7070	7134
7071	7135	注意: リストコンテキストで呼び出した時、gmtime が返す末尾の値である
7072	7136	$isdst は常に C<0> です。
7073	7137	GMT には夏時間はありません。
7074	7138
7075	7139	=begin original
7076	7140
7077	7141	Portability issues: L<perlport/gmtime>.
7078	7142
7079	7143	=end original
7080	7144
7081	7145	移植性の問題: L<perlport/gmtime>。
7082	7146
7083	7147	=item goto LABEL
7084	7148	X<goto> X<jump> X<jmp>
7085	7149
7086	7150	=item goto EXPR
7087	7151
7088	7152	=item goto &NAME
7089	7153
7090	7154	=for Pod::Functions create spaghetti code
7091	7155
7092	7156	=begin original
7093	7157
7094	7158	The C<goto LABEL> form finds the statement labeled with LABEL and
7095	7159	resumes execution there. It can't be used to get out of a block or
7096	7160	subroutine given to L<C<sort>\|/sort SUBNAME LIST>. It can be used to go
7097	7161	almost anywhere else within the dynamic scope, including out of
7098	7162	subroutines, but it's usually better to use some other construct such as
7099	7163	L<C<last>\|/last LABEL> or L<C<die>\|/die LIST>. The author of Perl has
7100	7164	never felt the need to use this form of L<C<goto>\|/goto LABEL> (in Perl,
7101	7165	that is; C is another matter). (The difference is that C does not offer
7102	7166	named loops combined with loop control. Perl does, and this replaces
7103	7167	most structured uses of L<C<goto>\|/goto LABEL> in other languages.)
7104	7168
7105	7169	=end original
7106	7170
7107	7171	C<goto LABEL> の形式は、LABEL というラベルの付いた文を
7108	7172	探して、そこへ実行を移すものです。
7109	7173	L<C<sort>\|/sort SUBNAME LIST> で与えられたブロックやサブルーチンから外へ
7110	7174	出ることはできません。
7111	7175	これ以外は、サブルーチンの外を含む、動的スコープ内の
7112	7176	ほとんどすべての場所へ行くために使用できますが、普通は、
7113	7177	L<C<last>\|/last LABEL> や L<C<die>\|/die LIST> といった別の構造を使った方が
7114	7178	良いでしょう。
7115	7179	Perl の作者はこの形式の L<C<goto>\|/goto LABEL> を使う必要を感じたことは、
7116	7180	1 度もありません (Perl では; C は別のお話です)。
7117	7181	(違いは、C にはループ制御と結びついた名前つきのループがないことです。
7118	7182	Perl にはあり、これが他の言語でのほとんどの構造的な L<C<goto>\|/goto LABEL> の
7119	7183	使用法を置き換えます。)
7120	7184
7121	7185	=begin original
7122	7186
7123	7187	The C<goto EXPR> form expects to evaluate C<EXPR> to a code reference or
7124	7188	a label name. If it evaluates to a code reference, it will be handled
7125	7189	like C<goto &NAME>, below. This is especially useful for implementing
7126	7190	tail recursion via C<goto __SUB__>.
7127	7191
7128	7192	=end original
7129	7193
7130	7194	C<goto EXPR> の形式は、C<EXPR> をコードリファレンスまたはラベル名として
7131	7195	評価することを想定します。
7132	7196	コードリファレンスとして評価する場合、後述する C<goto &NAME> のように
7133	7197	扱います。
7134	7198	これは特に、C<goto __SUB__> による末尾再帰の実装に有用です。
7135	7199
7136	7200	=begin original
7137	7201
7138	7202	If the expression evaluates to a label name, its scope will be resolved
7139	7203	dynamically. This allows for computed L<C<goto>\|/goto LABEL>s per
7140	7204	FORTRAN, but isn't necessarily recommended if you're optimizing for
7141	7205	maintainability:
7142	7206
7143	7207	=end original
7144	7208
7145	7209	式がラベル名に評価される場合、このスコープは動的に解決されます。
7146	7210	これにより FORTRAN のような算術 L<C<goto>\|/goto LABEL> が可能になりますが、
7147	7211	保守性を重視するならお勧めしません。
7148	7212
7149	7213	goto ("FOO", "BAR", "GLARCH")[$i];
7150	7214
7151	7215	=begin original
7152	7216
7153	7217	As shown in this example, C<goto EXPR> is exempt from the "looks like a
7154	7218	function" rule. A pair of parentheses following it does not (necessarily)
7155	7219	delimit its argument. C<goto("NE")."XT"> is equivalent to C<goto NEXT>.
7156	7220	Also, unlike most named operators, this has the same precedence as
7157	7221	assignment.
7158	7222
7159	7223	=end original
7160	7224
7161	7225	この例で示したように、C<goto EXPR> は「関数のように見える」ルールから
7162	7226	除外されます。
7163	7227	これに引き続くかっこの組は引数の区切りとは(必ずしも)なりません。
7164	7228	C<goto("NE")."XT"> は C<goto NEXT> と等価です。
7165	7229	また、ほとんどの名前付き演算子と異なり、これは代入と同じ優先順位を持ちます。
7166	7230
7167	7231	=begin original
7168	7232
7169	7233	Use of C<goto LABEL> or C<goto EXPR> to jump into a construct is
7170	7234	deprecated and will issue a warning. Even then, it may not be used to
7171	7235	go into any construct that requires initialization, such as a
7172	7236	subroutine, a C<foreach> loop, or a C<given>
7173	7237	block. In general, it may not be used to jump into the parameter
7174	7238	of a binary or list operator, but it may be used to jump into the
7175	7239	I<first> parameter of a binary operator. (The C<=>
7176	7240	assignment operator's "first" operand is its right-hand
7177	7241	operand.) It also can't be used to go into a
7178	7242	construct that is optimized away.
7179	7243
7180	7244	=end original
7181	7245
7182	7246	構造の中に飛び込むために C<goto LABEL> や C<goto EXPR> を使うことは
7183	7247	非推奨で、警告が発生します。
7184	7248	それでも、サブルーチンや C<foreach> ループや C<given> ブロックのような、
7185	7249	初期化が必要な
7186	7250	構造の中に入るために使うことは出来ません。
7187	7251	一般的に、2 項演算子やリスト演算子の引数に飛び込むことはできませんが、
7188	7252	2 項演算子の I<最初の> 引数に飛び込むために使われていました。
7189	7253	(C<=> 代入演算子の「最初の」オペランドはその右オペランドです。)
7190	7254	また、最適化してなくなってしまった構造の中へ入るために使うことも出来ません。
7191	7255
7192	7256	=begin original
7193	7257
7194	7258	The C<goto &NAME> form is quite different from the other forms of
7195	7259	L<C<goto>\|/goto LABEL>. In fact, it isn't a goto in the normal sense at
7196	7260	all, and doesn't have the stigma associated with other gotos. Instead,
7197	7261	it exits the current subroutine (losing any changes set by
7198	7262	L<C<local>\|/local EXPR>) and immediately calls in its place the named
7199	7263	subroutine using the current value of L<C<@_>\|perlvar/@_>. This is used
7200	7264	by C<AUTOLOAD> subroutines that wish to load another subroutine and then
7201	7265	pretend that the other subroutine had been called in the first place
7202	7266	(except that any modifications to L<C<@_>\|perlvar/@_> in the current
7203	7267	subroutine are propagated to the other subroutine.) After the
7204	7268	L<C<goto>\|/goto LABEL>, not even L<C<caller>\|/caller EXPR> will be able
7205	7269	to tell that this routine was called first.
7206	7270
7207	7271	=end original
7208	7272
7209	7273	C<goto &NAME> の形式は、その他の L<C<goto>\|/goto LABEL> の形式とはかなり
7210	7274	異なったものです。
7211	7275	実際、これは普通の感覚でいうところのどこかへ行くものでは全くなく、
7212	7276	他の goto が持つ不名誉を持っていません。
7213	7277	現在のサブルーチンを終了し (L<C<local>\|/local EXPR> による変更は失われます)、
7214	7278	直ちに現在の L<C<@_>\|perlvar/@_> の値を使って指定された名前のサブルーチンを
7215	7279	呼び出します。
7216	7280	これは、C<AUTOLOAD> サブルーチンが別のサブルーチンをロードして、
7217	7281	その別のサブルーチンが最初に呼ばれたようにするために使われます
7218	7282	(ただし、現在のサブルーチンで L<C<@_>\|perlvar/@_> を修正した場合には、
7219	7283	その別のサブルーチンに伝えられます)。
7220	7284	L<C<goto>\|/goto LABEL> のあとは、L<C<caller>\|/caller EXPR> でさえも、現在の
7221	7285	サブルーチンが最初に呼び出されたと言うことができません。
7222	7286
7223	7287	=begin original
7224	7288
7225	7289	NAME needn't be the name of a subroutine; it can be a scalar variable
7226	7290	containing a code reference or a block that evaluates to a code
7227	7291	reference.
7228	7292
7229	7293	=end original
7230	7294
7231	7295	NAME はサブルーチンの名前である必要はありません; コードリファレンスを
7232	7296	含むスカラ値や、コードリファレンスと評価されるブロックでも構いません。
7233	7297
7234	7298	=item grep BLOCK LIST
7235	7299	X<grep>
7236	7300
7237	7301	=item grep EXPR,LIST
7238	7302
7239	7303	=for Pod::Functions locate elements in a list test true against a given criterion
7240	7304
7241	7305	=begin original
7242	7306
7243	7307	This is similar in spirit to, but not the same as, L<grep(1)> and its
7244	7308	relatives. In particular, it is not limited to using regular expressions.
7245	7309
7246	7310	=end original
7247	7311
7248	7312	これは L<grep(1)> とその親類と同じようなものですが、同じではありません。
7249	7313	特に、正規表現の使用に制限されません。
7250	7314
7251	7315	=begin original
7252	7316
7253	7317	Evaluates the BLOCK or EXPR for each element of LIST (locally setting
7254	7318	L<C<$_>\|perlvar/$_> to each element) and returns the list value
7255	7319	consisting of those
7256	7320	elements for which the expression evaluated to true. In scalar
7257	7321	context, returns the number of times the expression was true.
7258	7322
7259	7323	=end original
7260	7324
7261	7325	LIST の個々の要素に対して、BLOCK か EXPR を評価し
7262	7326	(L<C<$_>\|perlvar/$_> は、ローカルに個々の要素が設定されます) 、
7263	7327	その要素のうち、評価した式が真となったものからなるリスト値が返されます。
7264	7328	スカラコンテキストでは、式が真となった回数を返します。
7265	7329
7266	7330	my @foo = grep(!/^#/, @bar); # weed out comments
7267	7331
7268	7332	=begin original
7269	7333
7270	7334	or equivalently,
7271	7335
7272	7336	=end original
7273	7337
7274	7338	あるいは等価な例として:
7275	7339
7276	7340	my @foo = grep {!/^#/} @bar; # weed out comments
7277	7341
7278	7342	=begin original
7279	7343
7280	7344	Note that L<C<$_>\|perlvar/$_> is an alias to the list value, so it can
7281	7345	be used to
7282	7346	modify the elements of the LIST. While this is useful and supported,
7283	7347	it can cause bizarre results if the elements of LIST are not variables.
7284	7348	Similarly, grep returns aliases into the original list, much as a for
7285	7349	loop's index variable aliases the list elements. That is, modifying an
7286	7350	element of a list returned by grep (for example, in a C<foreach>,
7287	7351	L<C<map>\|/map BLOCK LIST> or another L<C<grep>\|/grep BLOCK LIST>)
7288	7352	actually modifies the element in the original list.
7289	7353	This is usually something to be avoided when writing clear code.
7290	7354
7291	7355	=end original
7292	7356
7293	7357	L<C<$_>\|perlvar/$_> は、LIST の値へのエイリアスですので、LIST の要素を
7294	7358	変更するために使うことができます。
7295	7359	これは、便利でサポートされていますが、
7296	7360	LIST の要素が変数でないと、おかしな結果になります。
7297	7361	同様に、grep は元のリストへのエイリアスを返します; for ループの
7298	7362	インデックス変数がリスト要素のエイリアスであるのと同様です。
7299	7363	つまり、grep で返されたリストの要素を
7300	7364	(C<foreach>, L<C<map>\|/map BLOCK LIST>, または他の
7301	7365	L<C<grep>\|/grep BLOCK LIST> で)修正すると元のリストの要素が変更されます。
7302	7366	これはきれいなコードを書くときには普通は回避されます。
7303	7367
7304	7368	=begin original
7305	7369
7306	7370	See also L<C<map>\|/map BLOCK LIST> for a list composed of the results of
7307	7371	the BLOCK or EXPR.
7308	7372
7309	7373	=end original
7310	7374
7311	7375	BLOCK や EXPR の結果をリストの形にしたい場合は L<C<map>\|/map BLOCK LIST> を
7312	7376	参照してください。
7313	7377
7314	7378	=item hex EXPR
7315	7379	X<hex> X<hexadecimal>
7316	7380
7317	7381	=item hex
7318	7382
7319	7383	=for Pod::Functions convert a hexadecimal string to a number
7320	7384
7321	7385	=begin original
7322	7386
7323	7387	Interprets EXPR as a hex string and returns the corresponding numeric value.
7324	7388	If EXPR is omitted, uses L<C<$_>\|perlvar/$_>.
7325	7389
7326	7390	=end original
7327	7391
7328	7392	EXPR を 16 進数の文字列と解釈して、対応する数値を返します。
7329	7393	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
7330	7394
7331	7395	print hex '0xAf'; # prints '175'
7332	7396	print hex 'aF'; # same
7333	7397	$valid_input =~ /\A(?:0?[xX])?(?:_?[0-9a-fA-F])*\z/
7334	7398
7335	7399	=begin original
7336	7400
7337	7401	A hex string consists of hex digits and an optional C<0x> or C<x> prefix.
7338	7402	Each hex digit may be preceded by a single underscore, which will be ignored.
7339	7403	Any other character triggers a warning and causes the rest of the string
7340	7404	to be ignored (even leading whitespace, unlike L<C<oct>\|/oct EXPR>).
7341	7405	Only integers can be represented, and integer overflow triggers a warning.
7342	7406
7343	7407	=end original
7344	7408
7345	7409	16 進文字列は 16 進数と、オプションの C<0x> または C<x> 接頭辞からなります。
7346	7410	それぞれの 16 進数は一つの下線を前に置くことができ、これは無視されます。
7347	7411	その他の文字は警告を引き起こし、(例え先頭の空白でも、L<C<oct>\|/oct EXPR> と
7348	7412	異なり)文字列の残りの部分は無視されます。
7349	7413	整数のみを表現でき、整数オーバーフローは警告を引き起こします。
7350	7414
7351	7415	=begin original
7352	7416
7353	7417	To convert strings that might start with any of C<0>, C<0x>, or C<0b>,
7354	7418	see L<C<oct>\|/oct EXPR>. To present something as hex, look into
7355	7419	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>,
7356	7420	L<C<sprintf>\|/sprintf FORMAT, LIST>, and
7357	7421	L<C<unpack>\|/unpack TEMPLATE,EXPR>.
7358	7422
7359	7423	=end original
7360	7424
7361	7425	C<0>, C<0x>, C<0b> のいずれかで始まるかもしれない文字列を変換するには、
7362	7426	L<C<oct>\|/oct EXPR> を参照してください。
7363	7427	何かを 16 進で表現したい場合は、L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>,
7364	7428	L<C<sprintf>\|/sprintf FORMAT, LIST>, L<C<unpack>\|/unpack TEMPLATE,EXPR> を
7365	7429	参照してください。
7366	7430
7367	7431	=item import LIST
7368	7432	X<import>
7369	7433
7370	7434	=for Pod::Functions patch a module's namespace into your own
7371	7435
7372	7436	=begin original
7373	7437
7374	7438	There is no builtin L<C<import>\|/import LIST> function. It is just an
7375	7439	ordinary method (subroutine) defined (or inherited) by modules that wish
7376	7440	to export names to another module. The
7377	7441	L<C<use>\|/use Module VERSION LIST> function calls the
7378	7442	L<C<import>\|/import LIST> method for the package used. See also
7379	7443	L<C<use>\|/use Module VERSION LIST>, L<perlmod>, and L<Exporter>.
7380	7444
7381	7445	=end original
7382	7446
7383	7447	組み込みの L<C<import>\|/import LIST> 関数というものはありません。
7384	7448	これは単に、別のモジュールに名前をエクスポートしたいモジュールが
7385	7449	定義した(または継承した)、通常のメソッド(サブルーチン)です。
7386	7450	L<C<use>\|/use Module VERSION LIST> 関数はパッケージを使う時に
7387	7451	L<C<import>\|/import LIST> メソッドを呼び出します。
7388	7452	L<C<use>\|/use Module VERSION LIST>, L<perlmod>, L<Exporter> も
7389	7453	参照してください。
7390	7454
7391	7455	=item index STR,SUBSTR,POSITION
7392	7456	X<index> X<indexOf> X<InStr>
7393	7457
7394	7458	=item index STR,SUBSTR
7395	7459
7396	7460	=for Pod::Functions find a substring within a string
7397	7461
7398	7462	=begin original
7399	7463
7400	7464	The index function searches for one string within another, but without
7401	7465	the wildcard-like behavior of a full regular-expression pattern match.
7402	7466	It returns the position of the first occurrence of SUBSTR in STR at
7403	7467	or after POSITION. If POSITION is omitted, starts searching from the
7404	7468	beginning of the string. POSITION before the beginning of the string
7405	7469	or after its end is treated as if it were the beginning or the end,
7406	7470	respectively. POSITION and the return value are based at zero.
7407	7471	If the substring is not found, L<C<index>\|/index STR,SUBSTR,POSITION>
7408	7472	returns -1.
7409	7473
7410	7474	=end original
7411	7475
7412	7476	index 関数はある文字列をもうひとつの文字列から検索しますが、
7413	7477	完全正規表現パターンマッチのワイルドカード的な振る舞いはしません。
7414	7478	STR の中の POSITION の位置以降で、最初に SUBSTR が見つかった位置を返します。
7415	7479	POSITION が省略された場合には、STR の最初から探し始めます。
7416	7480	POSITION が文字列の先頭より前、あるいは末尾より後ろを指定した場合は、
7417	7481	それぞれ先頭と末尾を指定されたものとして扱われます。
7418	7482	POSITION と返り値のベースは、0 です。
7419	7483	SUBSTR が見つからなかった場合には、L<C<index>\|/index STR,SUBSTR,POSITION> は
7420	7484	-1 が返されます。
7421	7485
	7486	=begin original
	7487
	7488	Find characters or strings:
	7489
	7490	=end original
	7491
	7492	文字や文字列を探すには:
	7493
	7494	index("Perl is great", "P"); # Returns 0
	7495	index("Perl is great", "g"); # Returns 8
	7496	index("Perl is great", "great"); # Also returns 8
	7497
	7498	=begin original
	7499
	7500	Attempting to find something not there:
	7501
	7502	=end original
	7503
	7504	ないものを探そうとすると:
	7505
	7506	index("Perl is great", "Z"); # Returns -1 (not found)
	7507
	7508	=begin original
	7509
	7510	Using an offset to find the I<second> occurrence:
	7511
	7512	=end original
	7513
	7514	I<2 番目> の出現位置を探すためにオフセットを使うと:
	7515
	7516	index("Perl is great", "e", 5); # Returns 10
	7517
7422	7518	=item int EXPR
7423	7519	X<int> X<integer> X<truncate> X<trunc> X<floor>
7424	7520
7425	7521	=item int
7426	7522
7427	7523	=for Pod::Functions get the integer portion of a number
7428	7524
7429	7525	=begin original
7430	7526
7431	7527	Returns the integer portion of EXPR. If EXPR is omitted, uses
7432	7528	L<C<$_>\|perlvar/$_>.
7433	7529	You should not use this function for rounding: one because it truncates
7434	7530	towards C<0>, and two because machine representations of floating-point
7435	7531	numbers can sometimes produce counterintuitive results. For example,
7436	7532	C<int(-6.725/0.025)> produces -268 rather than the correct -269; that's
7437	7533	because it's really more like -268.99999999999994315658 instead. Usually,
7438	7534	the L<C<sprintf>\|/sprintf FORMAT, LIST>,
7439	7535	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>, or the
7440	7536	L<C<POSIX::floor>\|POSIX/C<floor>> and L<C<POSIX::ceil>\|POSIX/C<ceil>>
7441	7537	functions will serve you better than will L<C<int>\|/int EXPR>.
7442	7538
7443	7539	=end original
7444	7540
7445	7541	EXPR の整数部を返します。
7446	7542	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
7447	7543	この関数を丸めのために使うべきではありません: 第一の理由として C<0> の
7448	7544	方向への切捨てを行うから、第二の理由として浮動小数点数の機械表現は時々直感に
7449	7545	反した結果を生み出すからです。
7450	7546	たとえば、C<int(-6.725/0.025)> は正しい結果である -269 ではなく -268 を
7451	7547	返します: これは実際には -268.99999999999994315658 というような値に
7452	7548	なっているからです。
7453	7549	通常、L<C<sprintf>\|/sprintf FORMAT, LIST>,
7454	7550	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>,
7455	7551	L<C<POSIX::floor>\|POSIX/C<floor>>, L<C<POSIX::ceil>\|POSIX/C<ceil>> の方が
7456	7552	L<C<int>\|/int EXPR> より便利です。
7457	7553
7458	7554	=item ioctl FILEHANDLE,FUNCTION,SCALAR
7459	7555	X<ioctl>
7460	7556
7461	7557	=for Pod::Functions system-dependent device control system call
7462	7558
7463	7559	=begin original
7464	7560
7465	7561	Implements the L<ioctl(2)> function. You'll probably first have to say
7466	7562
7467	7563	=end original
7468	7564
7469	7565	L<ioctl(2)> 関数を実装します。
7470	7566	正しい関数の定義を得るために、おそらく最初に
7471	7567
7472	7568	require "sys/ioctl.ph"; # probably in
7473	7569	# $Config{archlib}/sys/ioctl.ph
7474	7570
7475	7571	=begin original
7476	7572
7477	7573	to get the correct function definitions. If F<sys/ioctl.ph> doesn't
7478	7574	exist or doesn't have the correct definitions you'll have to roll your
7479	7575	own, based on your C header files such as F<< <sys/ioctl.h> >>.
7480	7576	(There is a Perl script called B<h2ph> that comes with the Perl kit that
7481	7577	may help you in this, but it's nontrivial.) SCALAR will be read and/or
7482	7578	written depending on the FUNCTION; a C pointer to the string value of SCALAR
7483	7579	will be passed as the third argument of the actual
7484	7580	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR> call. (If SCALAR
7485	7581	has no string value but does have a numeric value, that value will be
7486	7582	passed rather than a pointer to the string value. To guarantee this to be
7487	7583	true, add a C<0> to the scalar before using it.) The
7488	7584	L<C<pack>\|/pack TEMPLATE,LIST> and L<C<unpack>\|/unpack TEMPLATE,EXPR>
7489	7585	functions may be needed to manipulate the values of structures used by
7490	7586	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR>.
7491	7587
7492	7588	=end original
7493	7589
7494	7590	としなくてはならないでしょう。
7495	7591	F<sys/ioctl.ph> がないか、間違った定義をしている場合には、
7496	7592	F<< <sys/ioctl.h> >>のような C のヘッダファイルをもとに、
7497	7593	自分で作らなければなりません。
7498	7594	(Perl の配布キットに入っている B<h2ph> という Perl スクリプトが
7499	7595	これを手助けしてくれるでしょうが、これは自明ではありません。)
7500	7596	FOUNCTION に応じて SCALAR が読み書きされます;
7501	7597	SCALAR の文字列値へのポインタが、実際の
7502	7598	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR> コールの
7503	7599	3 番目の引数として渡されます。
7504	7600	(SCALAR が文字列値を持っておらず、数値を持っている場合には、
7505	7601	文字列値へのポインタの代わりに、その値が渡されます。
7506	7602	このことを保証するためには、使用する前に SCALAR にC<0> を足してください。)
7507	7603	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR> で使われる構造体の値を
7508	7604	操作するには、L<C<pack>\|/pack TEMPLATE,LIST> 関数と
7509	7605	L<C<unpack>\|/unpack TEMPLATE,EXPR> 関数が必要となるでしょう。
7510	7606
7511	7607	=begin original
7512	7608
7513	7609	The return value of L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR> (and
7514	7610	L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR>) is as follows:
7515	7611
7516	7612	=end original
7517	7613
7518	7614	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR>
7519	7615	(と L<C<fcntl>\|/fcntl FILEHANDLE,FUNCTION,SCALAR>) の返り値は、
7520	7616	以下のようになります:
7521	7617
7522	7618	=begin original
7523	7619
7524	7620	if OS returns: then Perl returns:
7525	7621	-1 undefined value
7526	7622	0 string "0 but true"
7527	7623	anything else that number
7528	7624
7529	7625	=end original
7530	7626
7531	7627	OS が返した値: Perl が返す値:
7532	7628	-1 未定義値
7533	7629	0 「0 だが真」の文字列
7534	7630	その他その値そのもの
7535	7631
7536	7632	=begin original
7537	7633
7538	7634	Thus Perl returns true on success and false on failure, yet you can
7539	7635	still easily determine the actual value returned by the operating
7540	7636	system:
7541	7637
7542	7638	=end original
7543	7639
7544	7640	つまり Perl は、成功時に「真」、失敗時に「偽」を返す
7545	7641	ことになり、OS が実際に返した値も、以下のように簡単に知ることができます。
7546	7642
7547	7643	my $retval = ioctl(...) \|\| -1;
7548	7644	printf "System returned %d\n", $retval;
7549	7645
7550	7646	=begin original
7551	7647
7552	7648	The special string C<"0 but true"> is exempt from
7553	7649	L<C<Argument "..." isn't numeric>\|perldiag/Argument "%s" isn't numeric%s>
7554	7650	L<warnings> on improper numeric conversions.
7555	7651
7556	7652	=end original
7557	7653
7558	7654	特別な文字列 C<"0 だが真"> は、不適切な数値変換に関する
7559	7655	L<C<Argument "..." isn't numeric>\|perldiag/Argument "%s" isn't numeric%s>
7560	7656	L<warnings> 警告を回避します。
7561	7657
7562	7658	=begin original
7563	7659
7564	7660	Portability issues: L<perlport/ioctl>.
7565	7661
7566	7662	=end original
7567	7663
7568	7664	移植性の問題: L<perlport/ioctl>。
7569	7665
7570	7666	=item join EXPR,LIST
7571	7667	X<join>
7572	7668
7573	7669	=for Pod::Functions join a list into a string using a separator
7574	7670
7575	7671	=begin original
7576	7672
7577	7673	Joins the separate strings of LIST into a single string with fields
7578	7674	separated by the value of EXPR, and returns that new string. Example:
7579	7675
7580	7676	=end original
7581	7677
7582	7678	LIST の個別の文字列を、EXPR の値で区切って
7583	7679	1 つの文字列につなげ、その文字列を返します。
7584	7680	例:
7585	7681
7586	7682	my $rec = join(':', $login,$passwd,$uid,$gid,$gcos,$home,$shell);
7587	7683
7588	7684	=begin original
7589	7685
7590	7686	Beware that unlike L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT>,
7591	7687	L<C<join>\|/join EXPR,LIST> doesn't take a pattern as its first argument.
7592	7688	Compare L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT>.
7593	7689
7594	7690	=end original
7595	7691
7596	7692	L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT> と違って、
7597	7693	L<C<join>\|/join EXPR,LIST> は最初の引数にパターンは取れないことに
7598	7694	注意してください。
7599	7695	L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT> と比較してください。
7600	7696
7601	7697	=item keys HASH
7602	7698	X<keys> X<key>
7603	7699
7604	7700	=item keys ARRAY
7605	7701
7606	7702	=for Pod::Functions retrieve list of indices from a hash
7607	7703
7608	7704	=begin original
7609	7705
7610	7706	Called in list context, returns a list consisting of all the keys of the
7611	7707	named hash, or in Perl 5.12 or later only, the indices of an array. Perl
7612	7708	releases prior to 5.12 will produce a syntax error if you try to use an
7613	7709	array argument. In scalar context, returns the number of keys or indices.
7614	7710
7615	7711	=end original
7616	7712
7617	7713	リストコンテキストで呼び出されると、指定したハッシュのすべてのキー、あるいは
7618	7714	Perl 5.12 以降でのみ、配列のインデックスからなるリストを返します。
7619	7715	5.12 より前の Perl は配列引数を使おうとすると文法エラーを出力します。
7620	7716	スカラコンテキストでは、キーやインデックスの数を返します。
7621	7717
7622	7718	=begin original
7623	7719
7624	7720	Hash entries are returned in an apparently random order. The actual random
7625	7721	order is specific to a given hash; the exact same series of operations
7626	7722	on two hashes may result in a different order for each hash. Any insertion
7627	7723	into the hash may change the order, as will any deletion, with the exception
7628	7724	that the most recent key returned by L<C<each>\|/each HASH> or
7629	7725	L<C<keys>\|/keys HASH> may be deleted without changing the order. So
7630	7726	long as a given hash is unmodified you may rely on
7631	7727	L<C<keys>\|/keys HASH>, L<C<values>\|/values HASH> and L<C<each>\|/each
7632	7728	HASH> to repeatedly return the same order
7633	7729	as each other. See L<perlsec/"Algorithmic Complexity Attacks"> for
7634	7730	details on why hash order is randomized. Aside from the guarantees
7635	7731	provided here the exact details of Perl's hash algorithm and the hash
7636	7732	traversal order are subject to change in any release of Perl. Tied hashes
7637	7733	may behave differently to Perl's hashes with respect to changes in order on
7638	7734	insertion and deletion of items.
7639	7735
7640	7736	=end original
7641	7737
7642	7738	ハッシュ要素は見かけ上、ランダムな順序で返されます。
7643	7739	実際のランダムな順序はハッシュに固有です; 二つのハッシュに全く同じ一連の
7644	7740	操作を行っても、ハッシュによって異なった順序になります。
7645	7741	ハッシュへの挿入によって順序が変わることがあります; 削除も同様ですが、
7646	7742	L<C<each>\|/each HASH> または L<C<keys>\|/keys HASH> によって返されたもっとも
7647	7743	最近のキーは順序を変えることなく削除できます。
7648	7744	ハッシュが変更されない限り、L<C<keys>\|/keys HASH>, L<C<values>\|/values HASH>,
7649		L<C<each>\|/each HASH> が繰り返し同じ順序で
	7745	L<C<each>\|/each HASH> が繰り返し同じ順序で返すことに依存してもかまいません。
7650		返すことに依存してもかまいません。
7651	7746	なぜハッシュの順序がランダム化されているかの詳細については
7652	7747	L<perlsec/"Algorithmic Complexity Attacks"> を参照してください。
7653	7748	ここで保証したことを除いて、Perl のハッシュアルゴリズムとハッシュ横断順序の
7654	7749	正確な詳細は Perl のリリースによって変更される可能性があります。
7655	7750	tie されたハッシュは、アイテムの挿入と削除の順序に関して Perl のハッシュと
7656	7751	異なった振る舞いをします。
7657	7752
7658	7753	=begin original
7659	7754
7660	7755	As a side effect, calling L<C<keys>\|/keys HASH> resets the internal
7661	7756	iterator of the HASH or ARRAY (see L<C<each>\|/each HASH>) before
7662	7757	yielding the keys. In
7663	7758	particular, calling L<C<keys>\|/keys HASH> in void context resets the
7664	7759	iterator with no other overhead.
7665	7760
7666	7761	=end original
7667	7762
7668	7763	副作用として、L<C<keys>\|/keys HASH> の呼び出しは、
7669	7764	キーを取り出す前に HASH や ARRAY の反復子を
7670	7765	初期化します (L<C<each>\|/each HASH> を参照してください)。
7671	7766	特に、無効コンテキストで L<C<keys>\|/keys HASH> を呼び出すと
7672	7767	オーバーヘッドなしで反復子を初期化します。
7673	7768
7674	7769	=begin original
7675	7770
7676	7771	Here is yet another way to print your environment:
7677	7772
7678	7773	=end original
7679	7774
7680	7775	環境変数を表示する別の例です:
7681	7776
7682	7777	my @keys = keys %ENV;
7683	7778	my @values = values %ENV;
7684	7779	while (@keys) {
7685	7780	print pop(@keys), '=', pop(@values), "\n";
7686	7781	}
7687	7782
7688	7783	=begin original
7689	7784
7690	7785	or how about sorted by key:
7691	7786
7692	7787	=end original
7693	7788
7694	7789	key でソートしてもいいでしょう:
7695	7790
7696	7791	foreach my $key (sort(keys %ENV)) {
7697	7792	print $key, '=', $ENV{$key}, "\n";
7698	7793	}
7699	7794
7700	7795	=begin original
7701	7796
7702	7797	The returned values are copies of the original keys in the hash, so
7703	7798	modifying them will not affect the original hash. Compare
7704	7799	L<C<values>\|/values HASH>.
7705	7800
7706	7801	=end original
7707	7802
7708	7803	返される値はハッシュにある元のキーのコピーなので、
7709	7804	これを変更しても元のハッシュには影響を与えません。
7710	7805	L<C<values>\|/values HASH> と比較してください。
7711	7806
7712	7807	=begin original
7713	7808
7714	7809	To sort a hash by value, you'll need to use a
7715	7810	L<C<sort>\|/sort SUBNAME LIST> function. Here's a descending numeric
7716	7811	sort of a hash by its values:
7717	7812
7718	7813	=end original
7719	7814
7720	7815	ハッシュを値でソートするためには、L<C<sort>\|/sort SUBNAME LIST> 関数を使う
7721	7816	必要があります。
7722	7817	以下ではハッシュの値を数値の降順でソートしています:
7723	7818
7724	7819	foreach my $key (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
7725	7820	printf "%4d %s\n", $hash{$key}, $key;
7726	7821	}
7727	7822
7728	7823	=begin original
7729	7824
7730	7825	Used as an lvalue, L<C<keys>\|/keys HASH> allows you to increase the
7731	7826	number of hash buckets
7732	7827	allocated for the given hash. This can gain you a measure of efficiency if
7733	7828	you know the hash is going to get big. (This is similar to pre-extending
7734	7829	an array by assigning a larger number to $#array.) If you say
7735	7830
7736	7831	=end original
7737	7832
7738	7833	左辺値として使うことで、L<C<keys>\|/keys HASH> を使うことで与えられたハッシュに
7739	7834	割り当てられたハッシュ表の大きさを増やすことができます。
7740	7835	これによって、ハッシュが大きくなっていくなっていくときの
7741	7836	効率の測定ができます。
7742	7837	(これは大きい値を $#array に代入することで配列を予め拡張することに
7743	7838	似ています。)
7744	7839	以下のようにすると:
7745	7840
7746	7841	keys %hash = 200;
7747	7842
7748	7843	=begin original
7749	7844
7750	7845	then C<%hash> will have at least 200 buckets allocated for it--256 of them,
7751	7846	in fact, since it rounds up to the next power of two. These
7752	7847	buckets will be retained even if you do C<%hash = ()>, use C<undef
7753	7848	%hash> if you want to free the storage while C<%hash> is still in scope.
7754	7849	You can't shrink the number of buckets allocated for the hash using
7755	7850	L<C<keys>\|/keys HASH> in this way (but you needn't worry about doing
7756	7851	this by accident, as trying has no effect). C<keys @array> in an lvalue
7757	7852	context is a syntax error.
7758	7853
7759	7854	=end original
7760	7855
7761	7856	C<%hash> は少なくとも 200 の大きさの表が割り当てられます --
7762	7857	実際には 2 のべき乗に切り上げられるので、256 が割り当てられます。
7763	7858	この表はたとえ C<%hash = ()> としても残るので、
7764	7859	もし C<%hash> がスコープにいるうちにこの領域を開放したい場合は
7765	7860	C<undef %hash> を使います。
7766	7861	この方法で L<C<keys>\|/keys HASH> を使うことで、表の大きさを小さくすることは
7767	7862	できません
7768	7863	(間違えてそのようなことをしても何も起きないので気にすることはありません)。
7769	7864	左辺値コンテキストでの C<keys @array> は文法エラーとなります。
7770	7865
7771	7866	=begin original
7772	7867
7773	7868	Starting with Perl 5.14, an experimental feature allowed
7774	7869	L<C<keys>\|/keys HASH> to take a scalar expression. This experiment has
7775	7870	been deemed unsuccessful, and was removed as of Perl 5.24.
7776	7871
7777	7872	=end original
7778	7873
7779	7874	Perl 5.14 から、L<C<keys>\|/keys HASH> がスカラ式を取ることが出来るという
7780	7875	実験的機能がありました。
7781	7876	この実験は失敗と見なされ、Perl 5.24 で削除されました。
7782	7877
7783	7878	=begin original
7784	7879
7785	7880	To avoid confusing would-be users of your code who are running earlier
7786	7881	versions of Perl with mysterious syntax errors, put this sort of thing at
7787	7882	the top of your file to signal that your code will work I<only> on Perls of
7788	7883	a recent vintage:
7789	7884
7790	7885	=end original
7791	7886
7792	7887	あなたのコードを以前のバージョンの Perl で実行したユーザーが不思議な
7793	7888	文法エラーで混乱することを避けるために、コードが最近のバージョンの Perl で
7794	7889	I<のみ> 動作することを示すためにファイルの先頭に以下のようなことを
7795	7890	書いてください:
7796	7891
7797		use 5.012; # so keys/values/each work on arrays
	7892	use v5.12; # so keys/values/each work on arrays
7798	7893
7799	7894	=begin original
7800	7895
7801	7896	See also L<C<each>\|/each HASH>, L<C<values>\|/values HASH>, and
7802	7897	L<C<sort>\|/sort SUBNAME LIST>.
7803	7898
7804	7899	=end original
7805	7900
7806	7901	L<C<each>\|/each HASH>, L<C<values>\|/values HASH>,
7807	7902	L<C<sort>\|/sort SUBNAME LIST> も参照してください。
7808	7903
7809	7904	=item kill SIGNAL, LIST
7810	7905
7811	7906	=item kill SIGNAL
7812	7907	X<kill> X<signal>
7813	7908
7814	7909	=for Pod::Functions send a signal to a process or process group
7815	7910
7816	7911	=begin original
7817	7912
7818	7913	Sends a signal to a list of processes. Returns the number of arguments
7819	7914	that were successfully used to signal (which is not necessarily the same
7820	7915	as the number of processes actually killed, e.g. where a process group is
7821	7916	killed).
7822	7917
7823	7918	=end original
7824	7919
7825	7920	プロセスのリストにシグナルを送ります。
7826	7921	シグナル送信に使われた引数の数を返します
7827	7922	(例えばプロセスグループが kill された場合のように、実際に kill された
7828	7923	プロセスの数と同じとは限りません)。
7829	7924
7830	7925	my $cnt = kill 'HUP', $child1, $child2;
7831	7926	kill 'KILL', @goners;
7832	7927
7833	7928	=begin original
7834	7929
7835	7930	SIGNAL may be either a signal name (a string) or a signal number. A signal
7836	7931	name may start with a C<SIG> prefix, thus C<FOO> and C<SIGFOO> refer to the
7837	7932	same signal. The string form of SIGNAL is recommended for portability because
7838	7933	the same signal may have different numbers in different operating systems.
7839	7934
7840	7935	=end original
7841	7936
7842	7937	SIGNAL はシグナル名(文字列)かシグナル番号のどちらかです。
7843	7938	シグナル名は C<SIG> 接頭辞で始まることがあるので、C<FOO> と C<SIGFOO> は同じ
7844	7939	シグナルを意味します。
7845	7940	移植性から文字列形式の SIGNAL が推奨されます; 同じシグナルが異なった
7846	7941	オペレーティングシステムでは異なった番号になることがあるからです。
7847	7942
7848	7943	=begin original
7849	7944
7850	7945	A list of signal names supported by the current platform can be found in
7851	7946	C<$Config{sig_name}>, which is provided by the L<C<Config>\|Config>
7852	7947	module. See L<Config> for more details.
7853	7948
7854	7949	=end original
7855	7950
7856	7951	現在のプラットフォームが対応しているシグナル名の一覧は、L<C<Config>\|Config>
7857	7952	モジュールによって提供される C<$Config{sig_name}> にあります。
7858	7953	さらなる詳細については L<Config> を参照してください。
7859	7954
7860	7955	=begin original
7861	7956
7862	7957	A negative signal name is the same as a negative signal number, killing process
7863	7958	groups instead of processes. For example, C<kill '-KILL', $pgrp> and
7864	7959	C<kill -9, $pgrp> will send C<SIGKILL> to
7865	7960	the entire process group specified. That
7866	7961	means you usually want to use positive not negative signals.
7867	7962
7868	7963	=end original
7869	7964
7870	7965	負のシグナル名は負のシグナル番号と同じで、
7871	7966	プロセスではなくプロセスグループに対して kill を行ないます。
7872	7967	たとえば、C<kill '-KILL', $pgrp> と C<kill -9, $pgrp> は指定された
7873	7968	プロセスグループ全体に C<SIGKILL> を送ります。
7874	7969	すなわち、通常は、負のシグナルは用いず、正のシグナルを使うことになります。
7875	7970
7876	7971	=begin original
7877	7972
7878	7973	If SIGNAL is either the number 0 or the string C<ZERO> (or C<SIGZERO>),
7879	7974	no signal is sent to the process, but L<C<kill>\|/kill SIGNAL, LIST>
7880	7975	checks whether it's I<possible> to send a signal to it
7881	7976	(that means, to be brief, that the process is owned by the same user, or we are
7882	7977	the super-user). This is useful to check that a child process is still
7883	7978	alive (even if only as a zombie) and hasn't changed its UID. See
7884	7979	L<perlport> for notes on the portability of this construct.
7885	7980
7886	7981	=end original
7887	7982
7888	7983	SIGNAL が数値 0 か文字列 C<ZERO> (または C<SIGZERO> の場合、プロセスに
7889	7984	シグナルは送られませんが、L<C<kill>\|/kill SIGNAL, LIST> は、
7890	7985	シグナルを送ることが I<可能> かどうかを調べます (これは、簡単に言うと、
7891	7986	プロセスが同じユーザーに所有されているか、自分がスーパーユーザーであることを
7892	7987	意味します)。
7893	7988	これは子プロセスが(ゾンビとしてだけでも)まだ生きていて、 UID が
7894	7989	変わっていないことを調べる時に有用です。
7895	7990	この構成の移植性に関する注意については L<perlport> を参照してください。
7896	7991
7897	7992	=begin original
7898	7993
7899	7994	The behavior of kill when a I<PROCESS> number is zero or negative depends on
7900	7995	the operating system. For example, on POSIX-conforming systems, zero will
7901	7996	signal the current process group, -1 will signal all processes, and any
7902	7997	other negative PROCESS number will act as a negative signal number and
7903	7998	kill the entire process group specified.
7904	7999
7905	8000	=end original
7906	8001
7907	8002	I<PROCESS> 番号が 0 あるいは負数の場合の kill の振る舞いは
7908	8003	オペレーティングシステムに依存します。
7909	8004	例えば、POSIX 準拠のシステムでは、0 は現在のプロセスグループにシグナルを送り、
7910	8005	-1 は全てのプロセスにシグナルを送り、それ以外の負数の PROCESS 番号は
7911	8006	負数のシグナル番号として動作し、指定されたプロセスグループ全体を kill します。
7912	8007
7913	8008	=begin original
7914	8009
7915	8010	If both the SIGNAL and the PROCESS are negative, the results are undefined.
7916	8011	A warning may be produced in a future version.
7917	8012
7918	8013	=end original
7919	8014
7920	8015	SIGNAL と PROCESS の両方が負数の場合、結果は未定義です。
7921	8016	将来のバージョンでは警告が出るかも知れません。
7922	8017
7923	8018	=begin original
7924	8019
7925	8020	See L<perlipc/"Signals"> for more details.
7926	8021
7927	8022	=end original
7928	8023
7929	8024	詳細は L<perlipc/"Signals"> を参照してください。
7930	8025
7931	8026	=begin original
7932	8027
7933	8028	On some platforms such as Windows where the L<fork(2)> system call is not
7934	8029	available, Perl can be built to emulate L<C<fork>\|/fork> at the
7935	8030	interpreter level.
7936	8031	This emulation has limitations related to kill that have to be considered,
7937	8032	for code running on Windows and in code intended to be portable.
7938	8033
7939	8034	=end original
7940	8035
7941	8036	Windows のような L<fork(2)> が利用不能なシステムでは、Perl は
7942	8037	L<C<fork>\|/fork> をインタプリタレベルでエミュレートします。
7943	8038	エミュレーションは kill に関連して、コードが Windows で実行されて
7944	8039	しかしコードが移植性があると考えられるように制限があります。
7945	8040
7946	8041	=begin original
7947	8042
7948	8043	See L<perlfork> for more details.
7949	8044
7950	8045	=end original
7951	8046
7952	8047	さらなる詳細については L<perlfork> を参照してください。
7953	8048
7954	8049	=begin original
7955	8050
7956	8051	If there is no I<LIST> of processes, no signal is sent, and the return
7957	8052	value is 0. This form is sometimes used, however, because it causes
7958		tainting checks to be run. But see
	8053	tainting checks to be run, if your perl support taint checks. But see
7959	8054	L<perlsec/Laundering and Detecting Tainted Data>.
7960	8055
7961	8056	=end original
7962	8057
7963	8058	処理する I<LIST> がない場合、シグナルは送られず、返り値は 0 です。
7964		しかし、この形式は時々使われます; ~~実行するために~~汚染チェックを
	8059	しかし、この形式は時々使われます; perl が汚染チェックに対応している場合、
7965		引き起こすからです。
	8060	実行するために汚染チェックを引き起こすからです。
7966	8061	しかし L<perlsec/Laundering and Detecting Tainted Data> を参照してください。
7967	8062
7968	8063	=begin original
7969	8064
7970	8065	Portability issues: L<perlport/kill>.
7971	8066
7972	8067	=end original
7973	8068
7974	8069	移植性の問題: L<perlport/kill>。
7975	8070
7976	8071	=item last LABEL
7977	8072	X<last> X<break>
7978	8073
7979	8074	=item last EXPR
7980	8075
7981	8076	=item last
7982	8077
7983	8078	=for Pod::Functions exit a block prematurely
7984	8079
7985	8080	=begin original
7986	8081
7987	8082	The L<C<last>\|/last LABEL> command is like the C<break> statement in C
7988	8083	(as used in
7989	8084	loops); it immediately exits the loop in question. If the LABEL is
7990	8085	omitted, the command refers to the innermost enclosing
7991	8086	loop. The C<last EXPR> form, available starting in Perl
7992	8087	5.18.0, allows a label name to be computed at run time,
7993	8088	and is otherwise identical to C<last LABEL>. The
7994	8089	L<C<continue>\|/continue BLOCK> block, if any, is not executed:
7995	8090
7996	8091	=end original
7997	8092
7998	8093	L<C<last>\|/last LABEL> コマンドは、(ループ内で使った) C の C<break> 文と
7999	8094	同じようなもので、LABEL で指定されるループを即座に抜けます。
8000	8095	LABEL が省略されると、コマンドは一番内側のループを参照します。
8001	8096	Perl 5.18.0 から利用可能な C<last EXPR> 形式では、実行時に計算される
8002	8097	ラベル名を使えます; それ以外は C<last LABEL> と同一です。
8003	8098	L<C<continue>\|/continue BLOCK> ブロックがあっても実行されません:
8004	8099
8005	8100	LINE: while (<STDIN>) {
8006	8101	last LINE if /^$/; # exit when done with header
8007	8102	#...
8008	8103	}
8009	8104
8010	8105	=begin original
8011	8106
8012	8107	L<C<last>\|/last LABEL> cannot return a value from a block that typically
8013	8108	returns a value, such as C<eval {}>, C<sub {}>, or C<do {}>. It will perform
8014	8109	its flow control behavior, which precludes any return value. It should not be
8015	8110	used to exit a L<C<grep>\|/grep BLOCK LIST> or L<C<map>\|/map BLOCK LIST>
8016	8111	operation.
8017	8112
8018	8113	=end original
8019	8114
8020	8115	L<C<last>\|/last LABEL> は C<eval {}>, C<sub {}>, C<do {}> といった
8021	8116	典型的には値を返すブロックから値を返せません。
8022	8117	これは、返り値を不可能にするフロー制御の振る舞いを実行します。
8023	8118	L<C<grep>\|/grep BLOCK LIST> や L<C<map>\|/map BLOCK LIST> 操作を終了するのに
8024	8119	使うべきではありません。
8025	8120
8026	8121	=begin original
8027	8122
8028	8123	Note that a block by itself is semantically identical to a loop
8029	8124	that executes once. Thus L<C<last>\|/last LABEL> can be used to effect
8030	8125	an early exit out of such a block.
8031	8126
8032	8127	=end original
8033	8128
8034	8129	ブロック自身は一回だけ実行されるループと文法的に同一であることに
8035	8130	注意してください。
8036	8131	従って、L<C<last>\|/last LABEL> でそのようなブロックを途中で
8037	8132	抜け出すことができます。
8038	8133
8039	8134	=begin original
8040	8135
8041	8136	See also L<C<continue>\|/continue BLOCK> for an illustration of how
8042	8137	L<C<last>\|/last LABEL>, L<C<next>\|/next LABEL>, and
8043	8138	L<C<redo>\|/redo LABEL> work.
8044	8139
8045	8140	=end original
8046	8141
8047	8142	L<C<last>\|/last LABEL>, L<C<next>\|/next LABEL>, L<C<redo>\|/redo LABEL> が
8048	8143	どのように働くかについては L<C<continue>\|/continue BLOCK> も参照してください。
8049	8144
8050	8145	=begin original
8051	8146
8052	8147	Unlike most named operators, this has the same precedence as assignment.
8053	8148	It is also exempt from the looks-like-a-function rule, so
8054	8149	C<last ("foo")."bar"> will cause "bar" to be part of the argument to
8055	8150	L<C<last>\|/last LABEL>.
8056	8151
8057	8152	=end original
8058	8153
8059	8154	ほとんどの名前付き演算子と異なり、これは代入と同じ優先順位を持ちます。
8060	8155	また、関数のように見えるものの規則からも免れるので、C<last ("foo")."bar"> と
8061	8156	すると "bar" は L<C<last>\|/last LABEL> への引数の一部となります。
8062	8157
8063	8158	=item lc EXPR
8064	8159	X<lc> X<lowercase>
8065	8160
8066	8161	=item lc
8067	8162
8068	8163	=for Pod::Functions return lower-case version of a string
8069	8164
8070	8165	=begin original
8071	8166
8072		Returns a lowercased version of EXPR. ~~This~~ is ~~the~~ inte~~rnal~~ fu~~nction~~
	8167	Returns a lowercased version of EXPR. If EXPR is omitted, uses
8073		~~implementing the~~ C<\L> ~~esca~~pe ~~in doub~~l~~e-quoted st~~r~~ings~~.
	8168	L<C<$_>\|perlvar/$_>.
8074	8169
8075	8170	=end original
8076	8171
8077	8172	EXPR を小文字に変換したものを返します。
8078		これは、ダブルクォート文字列における、
8079		C<\L> エスケープを実装する内部関数です。
8080
8081		=begin original
8082
8083		If EXPR is omitted, uses L<C<$_>\|perlvar/$_>.
8084
8085		=end original
8086
8087	8173	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
8088	8174
	8175	my $str = lc("Perl is GREAT"); # "perl is great"
	8176
8089	8177	=begin original
8090	8178
8091	8179	What gets returned depends on several factors:
8092	8180
8093	8181	=end original
8094	8182
8095	8183	返り値として得られるものは色々な要素に依存します:
8096	8184
8097	8185	=over
8098	8186
8099	8187	=item If C<use bytes> is in effect:
8100	8188
8101	8189	(C<use bytes> が有効の場合)
8102	8190
8103	8191	=begin original
8104	8192
8105	8193	The results follow ASCII rules. Only the characters C<A-Z> change,
8106	8194	to C<a-z> respectively.
8107	8195
8108	8196	=end original
8109	8197
8110	8198	結果は ASCII の規則に従います。
8111	8199	C<A-Z> のみが変換され、それぞれ C<a-z> になります。
8112	8200
8113	8201	=item Otherwise, if C<use locale> for C<LC_CTYPE> is in effect:
8114	8202
8115	8203	(それ以外の場合で、C<LC_CTYPE> に対して C<use locale> が有効の場合)
8116	8204
8117	8205	=begin original
8118	8206
8119	8207	Respects current C<LC_CTYPE> locale for code points < 256; and uses Unicode
8120	8208	rules for the remaining code points (this last can only happen if
8121	8209	the UTF8 flag is also set). See L<perllocale>.
8122	8210
8123	8211	=end original
8124	8212
8125	8213	符号位置 < 256 に対しては現在の C<LC_CTYPE> ロケールに従います; そして
8126	8214	残りの符号位置に付いては Unicode の規則を使います (これは UTF8 フラグも
8127	8215	設定されている場合にのみ起こります)。
8128	8216	L<perllocale> を参照してください。
8129	8217
8130	8218	=begin original
8131	8219
8132	8220	Starting in v5.20, Perl uses full Unicode rules if the locale is
8133	8221	UTF-8. Otherwise, there is a deficiency in this scheme, which is that
8134	8222	case changes that cross the 255/256
8135	8223	boundary are not well-defined. For example, the lower case of LATIN CAPITAL
8136	8224	LETTER SHARP S (U+1E9E) in Unicode rules is U+00DF (on ASCII
8137	8225	platforms). But under C<use locale> (prior to v5.20 or not a UTF-8
8138	8226	locale), the lower case of U+1E9E is
8139	8227	itself, because 0xDF may not be LATIN SMALL LETTER SHARP S in the
8140	8228	current locale, and Perl has no way of knowing if that character even
8141	8229	exists in the locale, much less what code point it is. Perl returns
8142	8230	a result that is above 255 (almost always the input character unchanged),
8143	8231	for all instances (and there aren't many) where the 255/256 boundary
8144	8232	would otherwise be crossed; and starting in v5.22, it raises a
8145	8233	L<locale\|perldiag/Can't do %s("%s") on non-UTF-8 locale; resolved to "%s".> warning.
8146	8234
8147	8235	=end original
8148	8236
8149	8237	v5.20 から、ロケールが UTF-8 の場合は Perl は完全な Unicode の規則を使います。
8150	8238	さもなければ、この手法には、255/266 の境界をまたぐ大文字小文字の変換は
8151	8239	未定義であるという欠点があります。
8152	8240	例えば、Unicode での LATIN CAPITAL LETTER SHARP S (U+1E9E) の小文字は
8153	8241	(ASCII プラットフォームでは) U+00DF です。
8154	8242	しかし C<use locale> が有効(v5.20 より前か、UTF-8 ロケール以外)なら、U+1E9E の
8155	8243	小文字は自分自身です; なぜなら 0xDF は現在のロケールでは
8156	8244	LATIN SMALL LETTER SHARP S ではなく、Perl は例えこのロケールに文字が
8157	8245	存在するかどうかを知る方法がなく、ましてどの符号位置かを知る方法が
8158	8246	ないからです。
8159	8247	Perl は 255/256 境界をまたぐ全ての(多くはありません)実体については
8160	8248	(ほとんど常に入力文字を変更せずに)256 以上の値を返します;
8161	8249	そして v5.22 から
8162	8250	L<locale\|perldiag/Can't do %s("%s") on non-UTF-8 locale; resolved to "%s".>
8163	8251	警告を出力します。
8164	8252
8165	8253	=item Otherwise, If EXPR has the UTF8 flag set:
8166	8254
8167	8255	(その他の場合で、EXPR に UTF8 フラグがセットされている場合)
8168	8256
8169	8257	=begin original
8170	8258
8171	8259	Unicode rules are used for the case change.
8172	8260
8173	8261	=end original
8174	8262
8175	8263	大文字小文字変換には Unicode の規則が使われます。
8176	8264
8177	8265	=item Otherwise, if C<use feature 'unicode_strings'> or C<use locale ':not_characters'> is in effect:
8178	8266
8179	8267	(それ以外の場合で、C<use feature 'unicode_strings'> か C<use locale ':not_characters'> が有効の場合)
8180	8268
8181	8269	=begin original
8182	8270
8183	8271	Unicode rules are used for the case change.
8184	8272
8185	8273	=end original
8186	8274
8187	8275	大文字小文字変換には Unicode の規則が使われます。
8188	8276
8189	8277	=item Otherwise:
8190	8278
8191	8279	(それ以外の場合)
8192	8280
8193	8281	=begin original
8194	8282
8195	8283	ASCII rules are used for the case change. The lowercase of any character
8196	8284	outside the ASCII range is the character itself.
8197	8285
8198	8286	=end original
8199	8287
8200	8288	大文字小文字変換には ASCII の規則が使われます。
8201	8289	ASCII の範囲外の文字の「小文字」はその文字自身です。
8202	8290
8203	8291	=back
8204	8292
	8293	=begin original
	8294
	8295	B<Note:> This is the internal function implementing the
	8296	L<C<\L>\|perlop/"Quote and Quote-like Operators"> escape in double-quoted
	8297	strings.
	8298
	8299	=end original
	8300
	8301	B<注意:> これは、ダブルクォート文字列における、
	8302	L<C<\L>\|perlop/"Quote and Quote-like Operators"> エスケープを実装する
	8303	内部関数です。
	8304
	8305	my $str = "Perl is \LGREAT\E"; # "Perl is great"
	8306
8205	8307	=item lcfirst EXPR
8206	8308	X<lcfirst> X<lowercase>
8207	8309
8208	8310	=item lcfirst
8209	8311
8210	8312	=for Pod::Functions return a string with just the next letter in lower case
8211	8313
8212	8314	=begin original
8213	8315
8214	8316	Returns the value of EXPR with the first character lowercased. This
8215	8317	is the internal function implementing the C<\l> escape in
8216	8318	double-quoted strings.
8217	8319
8218	8320	=end original
8219	8321
8220	8322	最初の文字だけを小文字にした、EXPR を返します。
8221	8323	これは、ダブルクォート文字列における、C<\l> エスケープを
8222	8324	実装する内部関数です。
8223	8325
8224	8326	=begin original
8225	8327
8226	8328	If EXPR is omitted, uses L<C<$_>\|perlvar/$_>.
8227	8329
8228	8330	=end original
8229	8331
8230	8332	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
8231	8333
8232	8334	=begin original
8233	8335
8234	8336	This function behaves the same way under various pragmas, such as in a locale,
8235	8337	as L<C<lc>\|/lc EXPR> does.
8236	8338
8237	8339	=end original
8238	8340
8239	8341	この関数は、ロケールのようなさまざまなプラグマの影響下では、
8240	8342	L<C<lc>\|/lc EXPR> と同様に振る舞います。
8241	8343
8242	8344	=item length EXPR
8243	8345	X<length> X<size>
8244	8346
8245	8347	=item length
8246	8348
8247	8349	=for Pod::Functions return the number of characters in a string
8248	8350
8249	8351	=begin original
8250	8352
8251	8353	Returns the length in I<characters> of the value of EXPR. If EXPR is
8252	8354	omitted, returns the length of L<C<$_>\|perlvar/$_>. If EXPR is
8253	8355	undefined, returns L<C<undef>\|/undef EXPR>.
8254	8356
8255	8357	=end original
8256	8358
8257	8359	EXPR の値の I<文字> の長さを返します。
8258	8360	EXPR が省略されたときには、L<C<$_>\|perlvar/$_> の長さを返します。
8259	8361	EXPR が未定義値の場合、L<C<undef>\|/undef EXPR> を返します。
8260	8362
8261	8363	=begin original
8262	8364
8263	8365	This function cannot be used on an entire array or hash to find out how
8264	8366	many elements these have. For that, use C<scalar @array> and C<scalar keys
8265	8367	%hash>, respectively.
8266	8368
8267	8369	=end original
8268	8370
8269	8371	この関数は配列やハッシュ全体に対してどれだけの要素を含んでいるかを
8270	8372	調べるためには使えません。
8271	8373	そのような用途には、それぞれ C<scalar @array> と C<scalar keys %hash> を
8272	8374	利用してください。
8273	8375
8274	8376	=begin original
8275	8377
8276	8378	Like all Perl character operations, L<C<length>\|/length EXPR> normally
8277	8379	deals in logical
8278	8380	characters, not physical bytes. For how many bytes a string encoded as
8279	8381	UTF-8 would take up, use C<length(Encode::encode('UTF-8', EXPR))>
8280	8382	(you'll have to C<use Encode> first). See L<Encode> and L<perlunicode>.
8281	8383
8282	8384	=end original
8283	8385
8284	8386	全ての Perl の文字操作と同様、L<C<length>\|/length EXPR> は通常物理的な
8285	8387	バイトではなく論理文字を扱います。
8286	8388	UTF-8 でエンコードされた文字列が何バイトかを知るには、
8287	8389	C<length(Encode::encode('UTF-8', EXPR))> を使ってください (先に
8288	8390	C<use Encode> する必要があります)。
8289	8391	L<Encode> と L<perlunicode> を参照してください。
8290	8392
8291	8393	=item __LINE__
8292	8394	X<__LINE__>
8293	8395
8294	8396	=for Pod::Functions the current source line number
8295	8397
8296	8398	=begin original
8297	8399
8298	8400	A special token that compiles to the current line number.
8299	8401	It can be altered by the mechanism described at
8300	8402	L<perlsyn/"Plain Old Comments (Not!)">.
8301	8403
8302	8404	=end original
8303	8405
8304	8406	現在の行番号にコンパイルされる特殊トークン。
8305	8407	L<perlsyn/"Plain Old Comments (Not!)"> で記述されている機構を使って
8306	8408	置き換えられます。
8307	8409
8308	8410	=item link OLDFILE,NEWFILE
8309	8411	X<link>
8310	8412
8311	8413	=for Pod::Functions create a hard link in the filesystem
8312	8414
8313	8415	=begin original
8314	8416
8315	8417	Creates a new filename linked to the old filename. Returns true for
8316	8418	success, false otherwise.
8317	8419
8318	8420	=end original
8319	8421
8320	8422	OLDFILE にリンクされた、新しいファイル NEWFILE を作ります。
8321	8423	成功時には真を、さもなければ偽を返します。
8322	8424
8323	8425	=begin original
8324	8426
8325	8427	Portability issues: L<perlport/link>.
8326	8428
8327	8429	=end original
8328	8430
8329	8431	移植性の問題: L<perlport/link>。
8330	8432
8331	8433	=item listen SOCKET,QUEUESIZE
8332	8434	X<listen>
8333	8435
8334	8436	=for Pod::Functions register your socket as a server
8335	8437
8336	8438	=begin original
8337	8439
8338	8440	Does the same thing that the L<listen(2)> system call does. Returns true if
8339	8441	it succeeded, false otherwise. See the example in
8340	8442	L<perlipc/"Sockets: Client/Server Communication">.
8341	8443
8342	8444	=end original
8343	8445
8344	8446	L<listen(2)> システムコールと同じことをします。
8345	8447	成功時には真を、さもなければ偽を返します。
8346	8448	L<perlipc/"Sockets: Client/Server Communication"> の例を参照してください。
8347	8449
8348	8450	=item local EXPR
8349	8451	X<local>
8350	8452
8351	8453	=for Pod::Functions create a temporary value for a global variable (dynamic scoping)
8352	8454
8353	8455	=begin original
8354	8456
8355	8457	You really probably want to be using L<C<my>\|/my VARLIST> instead,
8356	8458	because L<C<local>\|/local EXPR> isn't what most people think of as
8357	8459	"local". See L<perlsub/"Private Variables via my()"> for details.
8358	8460
8359	8461	=end original
8360	8462
8361	8463	あなたはが本当に望んでいるのは L<C<my>\|/my VARLIST> の方でしょう;
8362	8464	L<C<local>\|/local EXPR> はほとんどの人々が「ローカル」と考えるものと
8363	8465	違うからです。
8364		詳細は L<perlsub/"Private Variables via my()"> を参照してください。
	8466	詳しくは L<perlsub/"Private Variables via my()"> を参照してください。
8365	8467
8366	8468	=begin original
8367	8469
8368	8470	A local modifies the listed variables to be local to the enclosing
8369	8471	block, file, or eval. If more than one value is listed, the list must
8370	8472	be placed in parentheses. See L<perlsub/"Temporary Values via local()">
8371	8473	for details, including issues with tied arrays and hashes.
8372	8474
8373	8475	=end original
8374	8476
8375	8477	"local" はリストアップされた変数を、囲っているブロック、
8376	8478	ファイル、eval の中で、ローカルなものにします。
8377		複数の値を指定する場合は、リストはかっこで~~くくら~~なければなりません。
	8479	複数の値を指定する場合は、リストはかっこで囲まなければなりません。
8378	8480	tie した配列とハッシュに関する事項を含む詳細については
8379	8481	L<perlsub/"Temporary Values via local()"> を参照してください。
8380	8482
8381	8483	=begin original
8382	8484
8383	8485	The C<delete local EXPR> construct can also be used to localize the deletion
8384	8486	of array/hash elements to the current block.
8385	8487	See L<perlsub/"Localized deletion of elements of composite types">.
8386	8488
8387	8489	=end original
8388	8490
8389	8491	C<delete local EXPR> 構文は、配列/ハッシュの要素の削除を現在の
8390	8492	ブロックにローカル化するためにも使われていました。
8391	8493	L<perlsub/"Localized deletion of elements of composite types"> を
8392	8494	参照してください。
8393	8495
8394	8496	=item localtime EXPR
8395	8497	X<localtime> X<ctime>
8396	8498
8397	8499	=item localtime
8398	8500
8399	8501	=for Pod::Functions convert UNIX time into record or string using local time
8400	8502
8401	8503	=begin original
8402	8504
8403	8505	Converts a time as returned by the time function to a 9-element list
8404	8506	with the time analyzed for the local time zone. Typically used as
8405	8507	follows:
8406	8508
8407	8509	=end original
8408	8510
8409	8511	time 関数が返す時刻を、ローカルなタイムゾーンで測った時刻として、
8410	8512	9 要素の配列に変換します。
8411	8513	普通は、以下のようにして使います:
8412	8514
8413	8515	# 0 1 2 3 4 5 6 7 8
8414	8516	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
8415	8517	localtime(time);
8416	8518
8417	8519	=begin original
8418	8520
8419	8521	All list elements are numeric and come straight out of the C `struct
8420	8522	tm'. C<$sec>, C<$min>, and C<$hour> are the seconds, minutes, and hours
8421	8523	of the specified time.
8422	8524
8423	8525	=end original
8424	8526
8425	8527	すべてのリスト要素は数値で、C の `struct tm' 構造体から
8426	8528	直接持ってきます。
8427	8529	C<$sec>, C<$min>, C<$hour> は指定された時刻の秒、分、時です。
8428	8530
8429	8531	=begin original
8430	8532
8431	8533	C<$mday> is the day of the month and C<$mon> the month in
8432	8534	the range C<0..11>, with 0 indicating January and 11 indicating December.
8433	8535	This makes it easy to get a month name from a list:
8434	8536
8435	8537	=end original
8436	8538
8437	8539	C<$mday> は月の何日目か、C<$mon> は月の値です; 月の値は C<0..11> で、0 が
8438	8540	1 月、11 が 12 月です。
8439	8541	これにより、リストから月の名前を得るのが簡単になります:
8440	8542
8441	8543	my @abbr = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
8442	8544	print "$abbr[$mon] $mday";
8443	8545	# $mon=9, $mday=18 gives "Oct 18"
8444	8546
8445	8547	=begin original
8446	8548
8447	8549	C<$year> contains the number of years since 1900. To get a 4-digit
8448	8550	year write:
8449	8551
8450	8552	=end original
8451	8553
8452	8554	C<$year> は 1900 年からの年数を持ちます。
8453	8555	4 桁の年を得るには以下のようにします:
8454	8556
8455	8557	$year += 1900;
8456	8558
8457	8559	=begin original
8458	8560
8459	8561	To get the last two digits of the year (e.g., "01" in 2001) do:
8460	8562
8461	8563	=end original
8462	8564
8463	8565	西暦の下 2 桁(2001 年では "01")がほしい場合は以下のようにします:
8464	8566
8465	8567	$year = sprintf("%02d", $year % 100);
8466	8568
8467	8569	=begin original
8468	8570
8469	8571	C<$wday> is the day of the week, with 0 indicating Sunday and 3 indicating
8470	8572	Wednesday. C<$yday> is the day of the year, in the range C<0..364>
8471	8573	(or C<0..365> in leap years.)
8472	8574
8473	8575	=end original
8474	8576
8475	8577	C<$wday> は曜日で、0 が日曜日、3 が水曜日です。
8476	8578	C<$yday> はその年の何日目かで、C<0..364> の値を取ります
8477	8579	(うるう年は C<0..365> です。)
8478	8580
8479	8581	=begin original
8480	8582
8481		C<$isdst> is true if the specified time occurs ~~duri~~ng Daylight Saving
	8583	C<$isdst> is true if the specified time occurs when Daylight Saving
8482		Time, false otherwise.
	8584	Time is in effect, false otherwise.
8483	8585
8484	8586	=end original
8485	8587
8486		C<$isdst> は指定された時刻が夏時間の場合は真、そうでなければ偽です。
	8588	C<$isdst> は指定された時刻で夏時間が有効の場合は真、そうでなければ偽です。
8487	8589
8488	8590	=begin original
8489	8591
8490	8592	If EXPR is omitted, L<C<localtime>\|/localtime EXPR> uses the current
8491	8593	time (as returned by L<C<time>\|/time>).
8492	8594
8493	8595	=end original
8494	8596
8495	8597	EXPR が省略されると、L<C<localtime>\|/localtime EXPR> は
8496	8598	(L<C<time>\|/time> によって返される) 現在時刻を使います。
8497	8599
8498	8600	=begin original
8499	8601
8500	8602	In scalar context, L<C<localtime>\|/localtime EXPR> returns the
8501	8603	L<ctime(3)> value:
8502	8604
8503	8605	=end original
8504	8606
8505	8607	スカラコンテキストでは、L<C<localtime>\|/localtime EXPR> は L<ctime(3)> の値を
8506	8608	返します:
8507	8609
8508		my $now_string = localtime; # e.g., "Thu Oct 13 04:54:34 1994"
	8610	my $now_string = localtime; # e.g., "Thu Oct 13 04:54:34 1994"
8509	8611
8510	8612	=begin original
8511	8613
8512		Th~~e format of th~~is scalar value is B<not> locale-dependent ~~but built~~
	8614	This scalar value is always in English, and is B<not> locale-dependent.
8513		~~int~~o Pe~~rl.~~ For ~~GMT ins~~t~~ead~~ of local time use the
	8615	To get similar but locale-dependent date strings, try for example:
8514		L<C<gmtime>\|/gmtime EXPR> builtin. See also the
8515		L<C<Time::Local>\|Time::Local> module (for converting seconds, minutes,
8516		hours, and such back to the integer value returned by L<C<time>\|/time>),
8517		and the L<POSIX> module's L<C<strftime>\|POSIX/C<strftime>> and
8518		L<C<mktime>\|POSIX/C<mktime>> functions.
8519	8616
8520	8617	=end original
8521	8618
8522		このスカラ値~~の形式~~はロケール依存 B<~~ではなく~~>~~、Perl の組み込みの値です~~。
	8619	このスカラ値は常に英語で、ロケール依存では B<ありません>。
8523		ローカル時刻ではなく GMT がほしい場合は L<C<gmtime>\|/gmtime EXPR> 組み込み
8524		関数を使ってください。
8525		また、(秒、分、時などの形から、L<C<time>\|/time> が返す値である
8526		1970 年 1 月 1 日の真夜中からの秒数に変換する)
8527		L<C<Time::Local>\|Time::Local> モジュール及び L<POSIX> モジュールで提供される
8528		L<C<strftime>\|POSIX/C<strftime>> と L<C<mktime>\|POSIX/C<mktime>> 関数も
8529		参照してください。
8530
8531		=begin original
8532
8533		To get somewhat similar but locale-dependent date strings, set up your
8534		locale environment variables appropriately (please see L<perllocale>) and
8535		try for example:
8536
8537		=end original
8538
8539	8620	似たような、しかしロケール依存の日付文字列がほしい場合は、
8540		ロケール環境変数を適切に設定して(L<perllocale> を参照してください)、
8541	8621	以下の例を試してください:
8542	8622
8543		use POSIX qw(strftime);
	8623	use POSIX qw(strftime);
8544		my $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
	8624	my $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
8545		# or for GMT formatted appropriately for your locale:
	8625	# or for GMT formatted appropriately for your locale:
8546		my $now_string = strftime "%a %b %e %H:%M:%S %Y", gmtime;
	8626	my $now_string = strftime "%a %b %e %H:%M:%S %Y", gmtime;
8547	8627
8548	8628	=begin original
8549	8629
8550		Not~~e that C<%a~~> ~~and~~ ~~C<%~~b~~>, th~~e ~~short~~ form~~s of~~ the day of the week
	8630	C$now_string> will be formatted according to the current LC_TIME locale
8551		~~and~~ the mo~~nth~~ of the year, ~~may~~ not n~~ecessar~~ily be ~~thr~~ee ~~cha~~racters wide.
	8631	the program or thread is running in. See L<perllocale> for how to set
	8632	up and change that locale. Note that C<%a> and C<%b>, the short forms
	8633	of the day of the week and the month of the year, may not necessarily be
	8634	three characters wide.
8552	8635
8553	8636	=end original
8554	8637
	8638	C$now_string> はプログラムやスレッドが実行されている現在の LC_TIME ロケールに
	8639	従ってフォーマットされます。
	8640	このロケールの設定と変更の方法については L<perllocale> を参照してください。
8555	8641	曜日と月の短い表現である C<%a> と C<%b> は、3 文字とは限らないことに
8556	8642	注意してください。
8557	8643
8558	8644	=begin original
8559	8645
8560	8646	The L<Time::gmtime> and L<Time::localtime> modules provide a convenient,
8561	8647	by-name access mechanism to the L<C<gmtime>\|/gmtime EXPR> and
8562	8648	L<C<localtime>\|/localtime EXPR> functions, respectively.
8563	8649
8564	8650	=end original
8565	8651
8566	8652	L<Time::gmtime> モジュールと L<Time::localtime> モジュールは、それぞれ
8567	8653	L<C<gmtime>\|/gmtime EXPR> 関数と L<C<localtime>\|/localtime EXPR> 関数に、
8568	8654	名前でアクセスする機構を提供する便利なモジュールです。
8569	8655
8570	8656	=begin original
8571	8657
8572	8658	For a comprehensive date and time representation look at the
8573	8659	L<DateTime> module on CPAN.
8574	8660
8575	8661	=end original
8576	8662
8577	8663	包括的な日付と時刻の表現については、CPAN の L<DateTime> モジュールを
8578	8664	参照してください。
8579	8665
8580	8666	=begin original
8581	8667
	8668	For GMT instead of local time use the L<C<gmtime>\|/gmtime EXPR> builtin.
	8669
	8670	=end original
	8671
	8672	ローカル時刻ではなく GMT がほしい場合は L<C<gmtime>\|/gmtime EXPR> 組み込み
	8673	関数を使ってください。
	8674
	8675	=begin original
	8676
	8677	See also the L<C<Time::Local>\|Time::Local> module (for converting
	8678	seconds, minutes, hours, and such back to the integer value returned by
	8679	L<C<time>\|/time>), and the L<POSIX> module's
	8680	L<C<mktime>\|POSIX/C<mktime>> function.
	8681
	8682	=end original
	8683
	8684	また、(秒、分、時などの形から、L<C<time>\|/time> が返す値である
	8685	1970 年 1 月 1 日の真夜中からの秒数に変換する)
	8686	L<C<Time::Local>\|Time::Local> モジュール及び L<POSIX> モジュールで提供される
	8687	L<C<mktime>\|POSIX/C<mktime>> 関数も参照してください。
	8688
	8689	=begin original
	8690
8582	8691	Portability issues: L<perlport/localtime>.
8583	8692
8584	8693	=end original
8585	8694
8586	8695	移植性の問題: L<perlport/localtime>。
8587	8696
8588	8697	=item lock THING
8589	8698	X<lock>
8590	8699
8591	8700	=for Pod::Functions +5.005 get a thread lock on a variable, subroutine, or method
8592	8701
8593	8702	=begin original
8594	8703
8595	8704	This function places an advisory lock on a shared variable or referenced
8596	8705	object contained in I<THING> until the lock goes out of scope.
8597	8706
8598	8707	=end original
8599	8708
8600	8709	この関数は I<THING> が含む共有変数またはリファレンスされたオブジェクトに、
8601	8710	スコープから出るまでアドバイサリロックを掛けます．
8602	8711
8603	8712	=begin original
8604	8713
8605	8714	The value returned is the scalar itself, if the argument is a scalar, or a
8606	8715	reference, if the argument is a hash, array or subroutine.
8607	8716
8608	8717	=end original
8609	8718
8610	8719	返される値は、引数がスカラならそのスカラ自身、引数がハッシュ、配列、
8611	8720	サブルーチンならリファレンスです。
8612	8721
8613	8722	=begin original
8614	8723
8615	8724	L<C<lock>\|/lock THING> is a "weak keyword"; this means that if you've
8616	8725	defined a function
8617	8726	by this name (before any calls to it), that function will be called
8618	8727	instead. If you are not under C<use threads::shared> this does nothing.
8619	8728	See L<threads::shared>.
8620	8729
8621	8730	=end original
8622	8731
8623	8732	L<C<lock>\|/lock THING> は「弱いキーワード」です; もしユーザーが(呼び出し前に)
8624	8733	この名前で関数を定義すると、定義された関数の方が呼び出されます。
8625	8734	C<use threads::shared> の影響下でない場合は、これは何もしません。
8626	8735	L<threads::shared> を参照してください。
8627	8736
8628	8737	=item log EXPR
8629	8738	X<log> X<logarithm> X<e> X<ln> X<base>
8630	8739
8631	8740	=item log
8632	8741
8633	8742	=for Pod::Functions retrieve the natural logarithm for a number
8634	8743
8635	8744	=begin original
8636	8745
8637	8746	Returns the natural logarithm (base I<e>) of EXPR. If EXPR is omitted,
8638	8747	returns the log of L<C<$_>\|perlvar/$_>. To get the
8639	8748	log of another base, use basic algebra:
8640	8749	The base-N log of a number is equal to the natural log of that number
8641	8750	divided by the natural log of N. For example:
8642	8751
8643	8752	=end original
8644	8753
8645	8754	EXPR の (I<e> を底とする) 自然対数を返します。
8646	8755	EXPR が省略されると、L<C<$_>\|perlvar/$_> の対数を返します。
8647	8756	底の異なる対数を求めるためには、基礎代数を利用してください:
8648	8757	ある数の N を底とする対数は、その数の自然対数を N の自然対数で割ったものです。
8649	8758	例えば:
8650	8759
8651	8760	sub log10 {
8652	8761	my $n = shift;
8653	8762	return log($n)/log(10);
8654	8763	}
8655	8764
8656	8765	=begin original
8657	8766
8658	8767	See also L<C<exp>\|/exp EXPR> for the inverse operation.
8659	8768
8660	8769	=end original
8661	8770
8662	8771	逆操作については L<C<exp>\|/exp EXPR> を参照してください。
8663	8772
8664	8773	=item lstat FILEHANDLE
8665	8774	X<lstat>
8666	8775
8667	8776	=item lstat EXPR
8668	8777
8669	8778	=item lstat DIRHANDLE
8670	8779
8671	8780	=item lstat
8672	8781
8673	8782	=for Pod::Functions stat a symbolic link
8674	8783
8675	8784	=begin original
8676	8785
8677	8786	Does the same thing as the L<C<stat>\|/stat FILEHANDLE> function
8678	8787	(including setting the special C<_> filehandle) but stats a symbolic
8679	8788	link instead of the file the symbolic link points to. If symbolic links
8680	8789	are unimplemented on your system, a normal L<C<stat>\|/stat FILEHANDLE>
8681	8790	is done. For much more detailed information, please see the
8682	8791	documentation for L<C<stat>\|/stat FILEHANDLE>.
8683	8792
8684	8793	=end original
8685	8794
8686	8795	(特別なファイルハンドルである C<_> の設定を含めて)
8687	8796	L<C<stat>\|/stat FILEHANDLE> 関数と同じことをしますが、シンボリックリンクが
8688	8797	指しているファイルではなく、シンボリックリンク自体の stat をとります。
8689	8798	シンボリックリンクがシステムに実装されていないと、通常の
8690	8799	L<C<stat>\|/stat FILEHANDLE> が行なわれます。
8691	8800	さらにより詳細な情報については、L<C<stat>\|/stat FILEHANDLE> の文書を
8692	8801	参照してください。
8693	8802
8694	8803	=begin original
8695	8804
8696	8805	If EXPR is omitted, stats L<C<$_>\|perlvar/$_>.
8697	8806
8698	8807	=end original
8699	8808
8700	8809	EXPR が省略されると、L<C<$_>\|perlvar/$_> の stat をとります。
8701	8810
8702	8811	=begin original
8703	8812
8704	8813	Portability issues: L<perlport/lstat>.
8705	8814
8706	8815	=end original
8707	8816
8708	8817	移植性の問題: L<perlport/lstat>。
8709	8818
8710	8819	=item m//
8711	8820
8712	8821	=for Pod::Functions match a string with a regular expression pattern
8713	8822
8714	8823	=begin original
8715	8824
8716	8825	The match operator. See L<perlop/"Regexp Quote-Like Operators">.
8717	8826
8718	8827	=end original
8719	8828
8720	8829	マッチ演算子です。
8721	8830	L<perlop/"Regexp Quote-Like Operators"> を参照してください。
8722	8831
8723	8832	=item map BLOCK LIST
8724	8833	X<map>
8725	8834
8726	8835	=item map EXPR,LIST
8727	8836
8728	8837	=for Pod::Functions apply a change to a list to get back a new list with the changes
8729	8838
8730	8839	=begin original
8731	8840
8732	8841	Evaluates the BLOCK or EXPR for each element of LIST (locally setting
8733	8842	L<C<$_>\|perlvar/$_> to each element) and composes a list of the results of
8734	8843	each such evaluation. Each element of LIST may produce zero, one, or more
8735	8844	elements in the generated list, so the number of elements in the generated
8736	8845	list may differ from that in LIST. In scalar context, returns the total
8737	8846	number of elements so generated. In list context, returns the generated list.
8738	8847
8739	8848	=end original
8740	8849
8741	8850	LIST の個々の要素に対して、BLOCK か EXPR を評価し
8742	8851	(L<C<$_>\|perlvar/$_> は、ローカルに個々の要素が設定されます) 、
8743	8852	それぞれの評価結果からなるリストを作ります。
8744	8853	LIST の個々の要素によって作られる、生成されたリストの要素数は、
8745	8854	0 個の場合もあれば、複数の場合もあるので、
8746	8855	生成されたリストの要素数は LIST の要素数と異なるかも知れません。
8747	8856	スカラコンテキストでは、生成された要素の数を返します。
8748	8857	リストコンテキストでは、生成されたリストを返します。
8749	8858
8750	8859	my @chars = map(chr, @numbers);
8751	8860
8752	8861	=begin original
8753	8862
8754	8863	translates a list of numbers to the corresponding characters.
8755	8864
8756	8865	=end original
8757	8866
8758	8867	は、数のリストを対応する文字に変換します。
8759	8868
8760	8869	my @squares = map { $_ * $_ } @numbers;
8761	8870
8762	8871	=begin original
8763	8872
8764	8873	translates a list of numbers to their squared values.
8765	8874
8766	8875	=end original
8767	8876
8768	8877	これは数値のリストを、その 2 乗に変換します。
8769	8878
8770	8879	my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;
8771	8880
8772	8881	=begin original
8773	8882
8774	8883	shows that number of returned elements can differ from the number of
8775	8884	input elements. To omit an element, return an empty list ().
8776	8885	This could also be achieved by writing
8777	8886
8778	8887	=end original
8779	8888
8780	8889	のように、返された要素の数が入力要素の数と異なる場合もあります。
8781	8890	要素を省略するには、空リスト () を返します。
8782	8891	これは以下のように書くことでも達成できて
8783	8892
8784	8893	my @squares = map { $_ * $_ } grep { $_ > 5 } @numbers;
8785	8894
8786	8895	=begin original
8787	8896
8788	8897	which makes the intention more clear.
8789	8898
8790	8899	=end original
8791	8900
8792	8901	この方が目的がよりはっきりします。
8793	8902
8794	8903	=begin original
8795	8904
8796	8905	Map always returns a list, which can be
8797	8906	assigned to a hash such that the elements
8798	8907	become key/value pairs. See L<perldata> for more details.
8799	8908
8800	8909	=end original
8801	8910
8802	8911	map は常にリストを返し、要素がキー/値の組になるようなハッシュに
8803	8912	代入できます。
8804	8913	さらなる詳細については L<perldata> を参照してください。
8805	8914
8806	8915	my %hash = map { get_a_key_for($_) => $_ } @array;
8807	8916
8808	8917	=begin original
8809	8918
8810	8919	is just a funny way to write
8811	8920
8812	8921	=end original
8813	8922
8814	8923	は以下のものをちょっと変わった書き方で書いたものです。
8815	8924
8816	8925	my %hash;
8817	8926	foreach (@array) {
8818	8927	$hash{get_a_key_for($_)} = $_;
8819	8928	}
8820	8929
8821	8930	=begin original
8822	8931
8823	8932	Note that L<C<$_>\|perlvar/$_> is an alias to the list value, so it can
8824	8933	be used to modify the elements of the LIST. While this is useful and
8825	8934	supported, it can cause bizarre results if the elements of LIST are not
8826	8935	variables. Using a regular C<foreach> loop for this purpose would be
8827	8936	clearer in most cases. See also L<C<grep>\|/grep BLOCK LIST> for a
8828	8937	list composed of those items of the original list for which the BLOCK
8829	8938	or EXPR evaluates to true.
8830	8939
8831	8940	=end original
8832	8941
8833	8942	L<C<$_>\|perlvar/$_> は、LIST の値へのエイリアスですので、LIST の要素を
8834	8943	変更するために使うことができます。
8835	8944	これは、便利でサポートされていますが、
8836	8945	LIST の要素が変数でないと、おかしな結果になります。
8837	8946	この目的には通常の C<foreach> ループを使うことで、ほとんどの場合は
8838	8947	より明確になります。
8839	8948	BLOCK や EXPR が真になる元のリストの要素からなるリストについては、
8840	8949	L<C<grep>\|/grep BLOCK LIST> も参照してください。
8841	8950
8842	8951	=begin original
8843	8952
8844	8953	C<{> starts both hash references and blocks, so C<map { ...> could be either
8845	8954	the start of map BLOCK LIST or map EXPR, LIST. Because Perl doesn't look
8846	8955	ahead for the closing C<}> it has to take a guess at which it's dealing with
8847	8956	based on what it finds just after the
8848	8957	C<{>. Usually it gets it right, but if it
8849	8958	doesn't it won't realize something is wrong until it gets to the C<}> and
8850	8959	encounters the missing (or unexpected) comma. The syntax error will be
8851	8960	reported close to the C<}>, but you'll need to change something near the C<{>
8852	8961	such as using a unary C<+> or semicolon to give Perl some help:
8853	8962
8854	8963	=end original
8855	8964
8856	8965	C<{> はハッシュリファレンスとブロックの両方の開始文字なので、
8857	8966	C<map { ...> は map BLOCK LIST の場合と map EXPR, LIST の場合があります。
8858	8967	Perl は終了文字の C<}> を先読みしないので、C<{> の直後の文字を見て
8859	8968	どちらとして扱うかを推測します。
8860	8969	通常この推測は正しいですが、もし間違った場合は、C<}> まで読み込んで
8861	8970	カンマが足りない(または多い)ことがわかるまで、何かがおかしいことに
8862	8971	気付きません。
8863	8972	C<}> の近くで文法エラーが出ますが、Perl を助けるために単項の C<+> や
8864	8973	セミコロンを使うというように、C<{> の近くの何かを変更する必要があります。
8865	8974
8866	8975	my %hash = map { "\L$_" => 1 } @array # perl guesses EXPR. wrong
8867	8976	my %hash = map { +"\L$_" => 1 } @array # perl guesses BLOCK. right
8868	8977	my %hash = map {; "\L$_" => 1 } @array # this also works
8869	8978	my %hash = map { ("\L$_" => 1) } @array # as does this
8870	8979	my %hash = map { lc($_) => 1 } @array # and this.
8871	8980	my %hash = map +( lc($_) => 1 ), @array # this is EXPR and works!
8872	8981
8873	8982	my %hash = map ( lc($_), 1 ), @array # evaluates to (1, @array)
8874	8983
8875	8984	=begin original
8876	8985
8877	8986	or to force an anon hash constructor use C<+{>:
8878	8987
8879	8988	=end original
8880	8989
8881	8990	または C<+{> を使って無名ハッシュコンストラクタを強制します:
8882	8991
8883	8992	my @hashes = map +{ lc($_) => 1 }, @array # EXPR, so needs
8884	8993	# comma at end
8885	8994
8886	8995	=begin original
8887	8996
8888	8997	to get a list of anonymous hashes each with only one entry apiece.
8889	8998
8890	8999	=end original
8891	9000
8892	9001	こうするとそれぞれ 1 要素だけの無名ハッシュのリストを得られます。
8893	9002
8894	9003	=item mkdir FILENAME,MODE
8895	9004	X<mkdir> X<md> X<directory, create>
8896	9005
8897	9006	=item mkdir FILENAME
8898	9007
8899	9008	=item mkdir
8900	9009
8901	9010	=for Pod::Functions create a directory
8902	9011
8903	9012	=begin original
8904	9013
8905	9014	Creates the directory specified by FILENAME, with permissions
8906	9015	specified by MODE (as modified by L<C<umask>\|/umask EXPR>). If it
8907	9016	succeeds it returns true; otherwise it returns false and sets
8908	9017	L<C<$!>\|perlvar/$!> (errno).
8909	9018	MODE defaults to 0777 if omitted, and FILENAME defaults
8910	9019	to L<C<$_>\|perlvar/$_> if omitted.
8911	9020
8912	9021	=end original
8913	9022
8914	9023	FILENAME で指定したディレクトリを、MODE で指定した許可モード(を
8915	9024	L<C<umask>\|/umask EXPR> で修正したもの) で作成します。
8916	9025	成功時には真を返します; さもなければ偽を返して
8917	9026	L<C<$!>\|perlvar/$!> (errno) を設定します。
8918	9027	MODE を省略すると、0777 とみなし、
8919	9028	FILENAME を省略すると、L<C<$_>\|perlvar/$_> を使います。
8920	9029
8921	9030	=begin original
8922	9031
8923	9032	In general, it is better to create directories with a permissive MODE
8924	9033	and let the user modify that with their L<C<umask>\|/umask EXPR> than it
8925	9034	is to supply
8926	9035	a restrictive MODE and give the user no way to be more permissive.
8927	9036	The exceptions to this rule are when the file or directory should be
8928	9037	kept private (mail files, for instance). The documentation for
8929	9038	L<C<umask>\|/umask EXPR> discusses the choice of MODE in more detail.
8930	9039
8931	9040	=end original
8932	9041
8933	9042	一般的に、制限された MODE を使ってユーザーがより寛容にする方法を
8934	9043	与えないより、寛容な MODE でディレクトリを作り、ユーザーが自身の
8935	9044	L<C<umask>\|/umask EXPR> で修正するようにした方がよいです。
8936	9045	例外は、(例えばメールファイルのような)プライベートに保つべきファイルや
8937	9046	ディレクトリを書く場合です。
8938	9047	L<C<umask>\|/umask EXPR> の文書で、MODE の選択に関して詳細に議論しています。
8939	9048
8940	9049	=begin original
8941	9050
8942	9051	Note that according to the POSIX 1003.1-1996 the FILENAME may have any
8943	9052	number of trailing slashes. Some operating and filesystems do not get
8944	9053	this right, so Perl automatically removes all trailing slashes to keep
8945	9054	everyone happy.
8946	9055
8947	9056	=end original
8948	9057
8949	9058	POSIX 1003.1-1996 によれば、FILENAME には末尾に任意の数のスラッシュを
8950	9059	つけることができます。
8951	9060	このようには動かない OS やファイルシステムもあるので、Perl はみんなが
8952	9061	幸せになれるように、自動的に末尾のスラッシュを削除します。
8953	9062
8954	9063	=begin original
8955	9064
8956	9065	To recursively create a directory structure, look at
8957	9066	the L<C<make_path>\|File::Path/make_path( $dir1, $dir2, .... )> function
8958	9067	of the L<File::Path> module.
8959	9068
8960	9069	=end original
8961	9070
8962	9071	ディレクトリ構造を再帰的に作成するには、L<File::Path> モジュールの
8963	9072	L<C<make_path>\|File::Path/make_path( $dir1, $dir2, .... )> 関数を
8964	9073	参照してください。
8965	9074
8966	9075	=item msgctl ID,CMD,ARG
8967	9076	X<msgctl>
8968	9077
8969	9078	=for Pod::Functions SysV IPC message control operations
8970	9079
8971	9080	=begin original
8972	9081
8973	9082	Calls the System V IPC function L<msgctl(2)>. You'll probably have to say
8974	9083
8975	9084	=end original
8976	9085
8977	9086	System V IPC 関数 L<msgctl(2)> を呼び出します。
8978	9087	正しい定数定義を得るために、まず
8979	9088
8980	9089	use IPC::SysV;
8981	9090
8982	9091	=begin original
8983	9092
8984	9093	first to get the correct constant definitions. If CMD is C<IPC_STAT>,
8985	9094	then ARG must be a variable that will hold the returned C<msqid_ds>
8986	9095	structure. Returns like L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR>:
8987	9096	the undefined value for error, C<"0 but true"> for zero, or the actual
8988	9097	return value otherwise. See also L<perlipc/"SysV IPC"> and the
8989	9098	documentation for L<C<IPC::SysV>\|IPC::SysV> and
8990	9099	L<C<IPC::Semaphore>\|IPC::Semaphore>.
8991	9100
8992	9101	=end original
8993	9102
8994	9103	と書くことが必要でしょう。
8995	9104	CMD が C<IPC_STAT> であれば、ARG は返される C<msqid_ds> 構造体を
8996	9105	納める変数でなければなりません。
8997	9106	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR> と同じように、エラー時には
8998	9107	未定義値、ゼロのときは C<"0 but true">、それ以外なら、その値そのものを
8999	9108	返します。
9000		L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV>,
	9109	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> と
9001	9110	L<C<IPC::Semaphore>\|IPC::Semaphore> の文書も参照してください。
9002	9111
9003	9112	=begin original
9004	9113
9005	9114	Portability issues: L<perlport/msgctl>.
9006	9115
9007	9116	=end original
9008	9117
9009	9118	移植性の問題: L<perlport/msgctl>。
9010	9119
9011	9120	=item msgget KEY,FLAGS
9012	9121	X<msgget>
9013	9122
9014	9123	=for Pod::Functions get SysV IPC message queue
9015	9124
9016	9125	=begin original
9017	9126
9018	9127	Calls the System V IPC function L<msgget(2)>. Returns the message queue
9019	9128	id, or L<C<undef>\|/undef EXPR> on error. See also L<perlipc/"SysV IPC">
9020	9129	and the documentation for L<C<IPC::SysV>\|IPC::SysV> and
9021	9130	L<C<IPC::Msg>\|IPC::Msg>.
9022	9131
9023	9132	=end original
9024	9133
9025	9134	System V IPC 関数 L<msgget(2)> を呼び出します。
9026	9135	メッセージキューの ID か、エラー時には L<C<undef>\|/undef EXPR> を返します。
9027		L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV>,
	9136	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> と
9028	9137	L<C<IPC::Msg>\|IPC::Msg> の文書も参照してください。
9029	9138
9030	9139	=begin original
9031	9140
9032	9141	Portability issues: L<perlport/msgget>.
9033	9142
9034	9143	=end original
9035	9144
9036	9145	移植性の問題: L<perlport/msgget>。
9037	9146
9038	9147	=item msgrcv ID,VAR,SIZE,TYPE,FLAGS
9039	9148	X<msgrcv>
9040	9149
9041	9150	=for Pod::Functions receive a SysV IPC message from a message queue
9042	9151
9043	9152	=begin original
9044	9153
9045	9154	Calls the System V IPC function msgrcv to receive a message from
9046	9155	message queue ID into variable VAR with a maximum message size of
9047	9156	SIZE. Note that when a message is received, the message type as a
9048	9157	native long integer will be the first thing in VAR, followed by the
9049	9158	actual message. This packing may be opened with C<unpack("l! a*")>.
9050	9159	Taints the variable. Returns true if successful, false
9051	9160	on error. See also L<perlipc/"SysV IPC"> and the documentation for
9052	9161	L<C<IPC::SysV>\|IPC::SysV> and L<C<IPC::Msg>\|IPC::Msg>.
9053	9162
9054	9163	=end original
9055	9164
9056	9165	System V IPC 関数 msgrcv を呼び出し、メッセージキュー ID から、
9057	9166	変数 VAR に最大メッセージ長 SIZE のメッセージを受信します。
9058	9167	メッセージが受信された時、ネイティブな long 整数のメッセージタイプが
9059	9168	VAR の先頭となり、実際のメッセージが続きます。
9060	9169	このパッキングは C<unpack("l! a*")> で展開できます。
9061	9170	変数は汚染されます。
9062	9171	成功時には真を、エラー時には偽を返します。
9063		L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV>,
	9172	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> と
9064	9173	L<C<IPC::Msg>\|IPC::Msg> の文書も参照してください。
9065	9174
9066	9175	=begin original
9067	9176
9068	9177	Portability issues: L<perlport/msgrcv>.
9069	9178
9070	9179	=end original
9071	9180
9072	9181	移植性の問題: L<perlport/msgrcv>。
9073	9182
9074	9183	=item msgsnd ID,MSG,FLAGS
9075	9184	X<msgsnd>
9076	9185
9077	9186	=for Pod::Functions send a SysV IPC message to a message queue
9078	9187
9079	9188	=begin original
9080	9189
9081	9190	Calls the System V IPC function msgsnd to send the message MSG to the
9082	9191	message queue ID. MSG must begin with the native long integer message
9083		type, be followed by the length of ~~the~~ ac~~tual messa~~ge, and then ~~fin~~a~~lly~~
	9192	type, followed by the message itself. This kind of packing can be achieved
9084		the message ~~itself~~. ~~Thi~~s ~~kind~~ of pac~~king~~ c~~an b~~e ~~achieved with~~
	9193	with C<pack("l! a*", $type, $message)>. Returns true if successful,
9085		C<pack("l! a*", $type, $message)>. Returns true if successful,
9086	9194	false on error. See also L<perlipc/"SysV IPC"> and the documentation
9087	9195	for L<C<IPC::SysV>\|IPC::SysV> and L<C<IPC::Msg>\|IPC::Msg>.
9088	9196
9089	9197	=end original
9090	9198
9091	9199	System V IPC 関数 msgsnd を呼び出し、メッセージキュー ID に
9092	9200	メッセージ MSG を送信します。
9093	9201	MSG の先頭は、ネイティブな long 整数のメッセージタイプでなければならず、
9094		メッセージ~~の長さ、メッセージ~~本体と続きます。
	9202	メッセージ本体が続きます。
9095	9203	これは、C<pack("l! a*", $type, $message)> として生成できます。
9096	9204	成功時には真を、エラー時には偽を返します。
9097		L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV>,
	9205	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> と
9098	9206	L<C<IPC::Msg>\|IPC::Msg> の文書も参照してください。
9099	9207
9100	9208	=begin original
9101	9209
9102	9210	Portability issues: L<perlport/msgsnd>.
9103	9211
9104	9212	=end original
9105	9213
9106	9214	移植性の問題: L<perlport/msgsnd>。
9107	9215
9108	9216	=item my VARLIST
9109	9217	X<my>
9110	9218
9111	9219	=item my TYPE VARLIST
9112	9220
9113	9221	=item my VARLIST : ATTRS
9114	9222
9115	9223	=item my TYPE VARLIST : ATTRS
9116	9224
9117	9225	=for Pod::Functions declare and assign a local variable (lexical scoping)
9118	9226
9119	9227	=begin original
9120	9228
9121	9229	A L<C<my>\|/my VARLIST> declares the listed variables to be local
9122	9230	(lexically) to the enclosing block, file, or L<C<eval>\|/eval EXPR>. If
9123	9231	more than one variable is listed, the list must be placed in
9124	9232	parentheses.
9125	9233
9126	9234	=end original
9127	9235
9128	9236	L<C<my>\|/my VARLIST> はリストアップされた変数を、囲っているブロック、ファイル、
9129	9237	L<C<eval>\|/eval EXPR> の中でローカルな (レキシカルな) ものにします。
9130		複数の変数を指定する場合は、リストはかっこで~~くくら~~なければなりません。
	9238	複数の変数を指定する場合は、リストはかっこで囲まなければなりません。
9131	9239
9132	9240	=begin original
9133	9241
	9242	Note that with a parenthesised list, L<C<undef>\|/undef EXPR> can be used
	9243	as a dummy placeholder, for example to skip assignment of initial
	9244	values:
	9245
	9246	=end original
	9247
	9248	かっこで囲まれたリストでは、L<C<undef>\|/undef EXPR> は、例えば初期値の代入を
	9249	飛ばすために、ダミーのプレースホルダとして使えることに注意してください:
	9250
	9251	my ( undef, $min, $hour ) = localtime;
	9252
	9253	=begin original
	9254
	9255	Redeclaring a variable in the same scope or statement will "shadow" the
	9256	previous declaration, creating a new instance and preventing access to
	9257	the previous one. This is usually undesired and, if warnings are enabled,
	9258	will result in a warning in the C<shadow> category.
	9259
	9260	=end original
	9261
	9262	同じスコープや文で変数を再宣言すると、以前の宣言を「隠し」、
	9263	新しい実体を作って、以前の実体にアクセスできなくなります。
	9264	これは普通は望まれているものではなく、警告が有効なら、
	9265	C<shadow> カテゴリの警告が出ます。
	9266
	9267	=begin original
	9268
9134	9269	The exact semantics and interface of TYPE and ATTRS are still
9135	9270	evolving. TYPE may be a bareword, a constant declared
9136	9271	with L<C<use constant>\|constant>, or L<C<__PACKAGE__>\|/__PACKAGE__>. It
9137	9272	is
9138	9273	currently bound to the use of the L<fields> pragma,
9139	9274	and attributes are handled using the L<attributes> pragma, or starting
9140	9275	from Perl 5.8.0 also via the L<Attribute::Handlers> module. See
9141	9276	L<perlsub/"Private Variables via my()"> for details.
9142	9277
9143	9278	=end original
9144	9279
9145	9280	TYPE と ATTRS の正確な文法とインターフェースは今でも進化しています。
9146	9281	TYPE は、裸の単語、L<C<use constant>\|constant> で宣言された定数、
9147	9282	L<C<__PACKAGE__>\|/__PACKAGE__> のいずれかです。
9148	9283	現在のところ、TYPE は L<fields> プラグマの使用と結び付けられていて、
9149	9284	属性は L<attributes> プラグマか、Perl 5.8.0 からは
9150	9285	L<Attribute::Handlers> モジュールと結び付けられています。
9151	9286	詳しくは L<perlsub/"Private Variables via my()"> を参照してください。
9152	9287
9153		=begin original
9154
9155		Note that with a parenthesised list, L<C<undef>\|/undef EXPR> can be used
9156		as a dummy placeholder, for example to skip assignment of initial
9157		values:
9158
9159		=end original
9160
9161		かっこで囲まれたリストでは、L<C<undef>\|/undef EXPR> は、例えば初期値の代入を
9162		飛ばすために、ダミーのプレースホルダとして使えることに注意してください:
9163
9164		my ( undef, $min, $hour ) = localtime;
9165
9166	9288	=item next LABEL
9167	9289	X<next> X<continue>
9168	9290
9169	9291	=item next EXPR
9170	9292
9171	9293	=item next
9172	9294
9173	9295	=for Pod::Functions iterate a block prematurely
9174	9296
9175	9297	=begin original
9176	9298
9177	9299	The L<C<next>\|/next LABEL> command is like the C<continue> statement in
9178	9300	C; it starts the next iteration of the loop:
9179	9301
9180	9302	=end original
9181	9303
9182	9304	L<C<next>\|/next LABEL> コマンドは、C での C<continue> 文のようなもので、
9183	9305	ループの次の繰り返しを開始します:
9184	9306
9185	9307	LINE: while (<STDIN>) {
9186	9308	next LINE if /^#/; # discard comments
9187	9309	#...
9188	9310	}
9189	9311
9190	9312	=begin original
9191	9313
9192	9314	Note that if there were a L<C<continue>\|/continue BLOCK> block on the
9193	9315	above, it would get
9194	9316	executed even on discarded lines. If LABEL is omitted, the command
9195	9317	refers to the innermost enclosing loop. The C<next EXPR> form, available
9196	9318	as of Perl 5.18.0, allows a label name to be computed at run time, being
9197	9319	otherwise identical to C<next LABEL>.
9198	9320
9199	9321	=end original
9200	9322
9201	9323	L<C<continue>\|/continue BLOCK> ブロックが存在すれば、たとえ捨てられる行に
9202	9324	あっても、それが実行されます。
9203	9325	LABEL が省略されると、コマンドは一番内側のループを参照します。
9204	9326	Perl 5.18.0 から利用可能な C<next EXPR> 形式では、実行時に計算される
9205	9327	ラベル名が使えます; それ以外は C<next LABEL> と同一です。
9206	9328
9207	9329	=begin original
9208	9330
9209	9331	L<C<next>\|/next LABEL> cannot return a value from a block that typically
9210	9332	returns a value, such as C<eval {}>, C<sub {}>, or C<do {}>. It will perform
9211	9333	its flow control behavior, which precludes any return value. It should not be
9212	9334	used to exit a L<C<grep>\|/grep BLOCK LIST> or L<C<map>\|/map BLOCK LIST>
9213	9335	operation.
9214	9336
9215	9337	=end original
9216	9338
9217	9339	L<C<next>\|/next LABEL> は C<eval {}>, C<sub {}>, C<do {}> といった
9218	9340	典型的には値を返すブロックから値を返せません。
9219	9341	これは、返り値を不可能にするフロー制御の振る舞いを実行します。
9220	9342	L<C<grep>\|/grep BLOCK LIST> や L<C<map>\|/map BLOCK LIST> 操作を終了するのに
9221	9343	使うべきではありません。
9222	9344
9223	9345	=begin original
9224	9346
9225	9347	Note that a block by itself is semantically identical to a loop
9226	9348	that executes once. Thus L<C<next>\|/next LABEL> will exit such a block
9227	9349	early.
9228	9350
9229	9351	=end original
9230	9352
9231	9353	ブロック自身は一回だけ実行されるループと文法的に同一であることに
9232	9354	注意してください。
9233	9355	従って、L<C<next>\|/next LABEL> はそのようなブロックから早く抜けるのに使えます。
9234	9356
9235	9357	=begin original
9236	9358
9237	9359	See also L<C<continue>\|/continue BLOCK> for an illustration of how
9238	9360	L<C<last>\|/last LABEL>, L<C<next>\|/next LABEL>, and
9239	9361	L<C<redo>\|/redo LABEL> work.
9240	9362
9241	9363	=end original
9242	9364
9243	9365	L<C<last>\|/last LABEL>, L<C<next>\|/next LABEL>, L<C<redo>\|/redo LABEL> が
9244	9366	どのように働くかについては L<C<continue>\|/continue BLOCK> も参照してください。
9245	9367
9246	9368	=begin original
9247	9369
9248	9370	Unlike most named operators, this has the same precedence as assignment.
9249	9371	It is also exempt from the looks-like-a-function rule, so
9250	9372	C<next ("foo")."bar"> will cause "bar" to be part of the argument to
9251	9373	L<C<next>\|/next LABEL>.
9252	9374
9253	9375	=end original
9254	9376
9255	9377	ほとんどの名前付き演算子と異なり、これは代入と同じ優先順位を持ちます。
9256	9378	また、関数のように見えるものの規則からも免れるので、C<next ("foo")."bar"> と
9257	9379	すると "bar" は L<C<next>\|/next LABEL> への引数の一部となります。
9258	9380
9259	9381	=item no MODULE VERSION LIST
9260	9382	X<no declarations>
9261	9383	X<unimporting>
9262	9384
9263	9385	=item no MODULE VERSION
9264	9386
9265	9387	=item no MODULE LIST
9266	9388
9267	9389	=item no MODULE
9268	9390
9269	9391	=item no VERSION
9270	9392
9271	9393	=for Pod::Functions unimport some module symbols or semantics at compile time
9272	9394
9273	9395	=begin original
9274	9396
9275	9397	See the L<C<use>\|/use Module VERSION LIST> function, of which
9276	9398	L<C<no>\|/no MODULE VERSION LIST> is the opposite.
9277	9399
9278	9400	=end original
9279	9401
9280	9402	L<C<use>\|/use Module VERSION LIST> 関数を参照してください;
9281	9403	L<C<no>\|/no MODULE VERSION LIST> は、その逆を行なうものです。
9282	9404
9283	9405	=item oct EXPR
9284	9406	X<oct> X<octal> X<hex> X<hexadecimal> X<binary> X<bin>
9285	9407
9286	9408	=item oct
9287	9409
9288	9410	=for Pod::Functions convert a string to an octal number
9289	9411
9290	9412	=begin original
9291	9413
9292	9414	Interprets EXPR as an octal string and returns the corresponding
9293		value. ~~(If EXPR happe~~ns to start off with ~~C<0x>,~~ int~~erpret~~s it as a
	9415	value. An octal string consists of octal digits and, as of Perl 5.33.5,
9294		~~hex~~ strin~~g. If EXPR st~~a~~rts~~ off ~~with~~ C<0b>, it is interpreted ~~as a~~
	9416	an optional C<0o> or C<o> prefix. Each octal digit may be preceded by
	9417	a single underscore, which will be ignored.
	9418	(If EXPR happens to start off with C<0x> or C<x>, interprets it as a
	9419	hex string. If EXPR starts off with C<0b> or C<b>, it is interpreted as a
9295	9420	binary string. Leading whitespace is ignored in all three cases.)
9296	9421	The following will handle decimal, binary, octal, and hex in standard
9297	9422	Perl notation:
9298	9423
9299	9424	=end original
9300	9425
9301	9426	EXPR を 8 進数文字列と解釈して、対応する値を返します。
9302		~~(EXPR~~ ~~が C<0x> で始まるときに~~は、16 進数文字列と~~解釈します。~~
	9427	8 進数文字列は、8 進文字と、Perl 5.33.5 からはオプションの
9303		~~EXPR が~~ C<0b>で始ま~~るとき~~は、2 ~~進数文字列と解釈し~~ます。
	9428	C<0o> または C<o> 接頭辞からなります。
	9429	各 8 進文字の前には一つの下線を置くことができ、これは無視されます。
	9430	(EXPR が C<0x> か C<x> で始まるときには、16 進数文字列と解釈します。
	9431	EXPR が C<0b> か C<b> で始まるときは、2 進数文字列と解釈します。
9304	9432	どの場合でも、先頭の空白は無視されます。)
9305	9433	以下の例は、標準的な Perl の記法での
9306	9434	10 進数、2 進数、8 進数、16 進数を扱います:
9307	9435
9308	9436	$val = oct($val) if $val =~ /^0/;
9309	9437
9310	9438	=begin original
9311	9439
9312	9440	If EXPR is omitted, uses L<C<$_>\|perlvar/$_>. To go the other way
9313	9441	(produce a number in octal), use L<C<sprintf>\|/sprintf FORMAT, LIST> or
9314	9442	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>:
9315	9443
9316	9444	=end original
9317	9445
9318	9446	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
9319	9447	(8 進数を扱う)その他の方法をとしては L<C<sprintf>\|/sprintf FORMAT, LIST> や
9320	9448	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST> があります:
9321	9449
9322	9450	my $dec_perms = (stat("filename"))[2] & 07777;
9323	9451	my $oct_perm_str = sprintf "%o", $perms;
9324	9452
9325	9453	=begin original
9326	9454
9327	9455	The L<C<oct>\|/oct EXPR> function is commonly used when a string such as
9328	9456	C<644> needs
9329	9457	to be converted into a file mode, for example. Although Perl
9330	9458	automatically converts strings into numbers as needed, this automatic
9331	9459	conversion assumes base 10.
9332	9460
9333	9461	=end original
9334	9462
9335	9463	L<C<oct>\|/oct EXPR> 関数は例えば、 C<644> といった文字列をファイルモードに
9336	9464	変換する時によく使います。
9337	9465	Perl は必要に応じて自動的に文字列を数値に変換しますが、
9338	9466	この自動変換は十進数を仮定します。
9339	9467
9340	9468	=begin original
9341	9469
9342	9470	Leading white space is ignored without warning, as too are any trailing
9343	9471	non-digits, such as a decimal point (L<C<oct>\|/oct EXPR> only handles
9344	9472	non-negative integers, not negative integers or floating point).
9345	9473
9346	9474	=end original
9347	9475
9348	9476	先頭の空白や、末尾の(小数点のような)非数字は警告なしに無視されます
9349	9477	(L<C<oct>\|/oct EXPR> は非負整数のみを扱えます; 負の整数や小数は扱えません)。
9350	9478
9351	9479
9352	9480	=item open FILEHANDLE,MODE,EXPR
9353	9481	X<open> X<pipe> X<file, open> X<fopen>
9354	9482
9355	9483	=item open FILEHANDLE,MODE,EXPR,LIST
9356	9484
9357	9485	=item open FILEHANDLE,MODE,REFERENCE
9358	9486
9359	9487	=item open FILEHANDLE,EXPR
9360	9488
9361	9489	=item open FILEHANDLE
9362	9490
9363	9491	=for Pod::Functions open a file, pipe, or descriptor
9364	9492
9365	9493	=begin original
9366	9494
9367	9495	Associates an internal FILEHANDLE with the external file specified by
9368	9496	EXPR. That filehandle will subsequently allow you to perform
9369	9497	I/O operations on that file, such as reading from it or writing to it.
9370	9498
9371	9499	=end original
9372	9500
9373	9501	内部の FILEHANDLE を、EXPR で指定された外部ファイルに関連付けます。
9374	9502	このファイルハンドルはその後、読んだり書いたりといったそのファイルへの
9375	9503	I/O 操作をできるようにします。
9376	9504
9377	9505	=begin original
9378	9506
9379	9507	Instead of a filename, you may specify an external command
9380	9508	(plus an optional argument list) or a scalar reference, in order to open
9381	9509	filehandles on commands or in-memory scalars, respectively.
9382	9510
9383	9511	=end original
9384	9512
9385	9513	ファイル名の代わりに、コマンドやメモリ内スカラへのファイルハンドルを
9386	9514	開くために、外部コマンド (とオプションの引数リスト) やスカラリファレンスを
9387	9515	指定できます。
9388	9516
9389	9517	=begin original
9390	9518
9391	9519	A thorough reference to C<open> follows. For a gentler introduction to
9392	9520	the basics of C<open>, see also the L<perlopentut> manual page.
9393	9521
9394	9522	=end original
9395	9523
9396	9524	C<open> の完全なリファレンスは後述します。
9397	9525	C<open> の基本に関するより親切な導入に関しては、
9398	9526	L<perlopentut> man ページも参照してください。
9399	9527
9400	9528	=over
9401	9529
9402	9530	=item Working with files
9403	9531
9404	9532	=begin original
9405	9533
9406	9534	Most often, C<open> gets invoked with three arguments: the required
9407	9535	FILEHANDLE (usually an empty scalar variable), followed by MODE (usually
9408	9536	a literal describing the I/O mode the filehandle will use), and then the
9409	9537	filename that the new filehandle will refer to.
9410	9538
9411	9539	=end original
9412	9540
9413	9541	ほとんどの場合、C<open> は 3 引数で起動されます:
9414	9542	必須の FILEHANDLE (通常は空のスカラ変数), 引き続いて MODE (通常は
9415	9543	ファイルハンドルを使う I/O モードを記述するリテラル)、
9416	9544	それから新しいファイルハンドルが参照するファイル名です。
9417	9545
9418	9546	=over
9419	9547
9420	9548	=item Simple examples
9421	9549
9422	9550	(単純な例)
9423	9551
9424	9552	=begin original
9425	9553
9426	9554	Reading from a file:
9427	9555
9428	9556	=end original
9429	9557
9430	9558	ファイルからの読み込み:
9431	9559
9432	9560	open(my $fh, "<", "input.txt")
9433	9561	or die "Can't open < input.txt: $!";
9434	9562
9435	9563	# Process every line in input.txt
9436	9564	while (my $line = <$fh>) {
9437	9565	#
9438	9566	# ... do something interesting with $line here ...
9439	9567	#
9440	9568	}
9441	9569
9442	9570	=begin original
9443	9571
9444	9572	or writing to one:
9445	9573
9446	9574	=end original
9447	9575
9448	9576	そして書き込み:
9449	9577
9450	9578	open(my $fh, ">", "output.txt")
9451	9579	or die "Can't open > output.txt: $!";
9452	9580
9453	9581	print $fh "This line gets printed into output.txt.\n";
9454	9582
9455	9583	=begin original
9456	9584
9457	9585	For a summary of common filehandle operations such as these, see
9458	9586	L<perlintro/Files and I/O>.
9459	9587
9460	9588	=end original
9461	9589
9462	9590	このような基本的なファイルハンドル操作の要約については、
9463	9591	L<perlintro/Files and I/O> を参照してください。
9464	9592
9465	9593	=item About filehandles
9466	9594
9467	9595	(ファイルハンドルについて)
9468	9596
9469	9597	=begin original
9470	9598
9471	9599	The first argument to C<open>, labeled FILEHANDLE in this reference, is
9472	9600	usually a scalar variable. (Exceptions exist, described in "Other
9473	9601	considerations", below.) If the call to C<open> succeeds, then the
9474	9602	expression provided as FILEHANDLE will get assigned an open
9475	9603	I<filehandle>. That filehandle provides an internal reference to the
9476	9604	specified external file, conveniently stored in a Perl variable, and
9477	9605	ready for I/O operations such as reading and writing.
9478	9606
9479	9607	=end original
9480	9608
9481	9609	このリファレンスでは FILEHANDLE というラベルが付いている、
9482	9610	C<open> の最初の引数は、通常はスカラ変数です。
9483	9611	(例外があります; 後述する "Other considerations" で記述されます。)
9484	9612	C<open> の呼び出しが成功すると、
9485	9613	FILEHANDLE として提供された式には、
9486	9614	開いた I<ファイルハンドル> が代入されます。
9487	9615	このファイルハンドルは指定された外部ファイルへの内部参照を提供し、
9488	9616	好都合なように Perl 変数に保管し、読み書きのような I/O 操作の準備をします。
9489	9617
9490	9618	=item About modes
9491	9619
9492	9620	(モードについて)
9493	9621
9494	9622	=begin original
9495	9623
9496	9624	When calling C<open> with three or more arguments, the second argument
9497	9625	-- labeled MODE here -- defines the I<open mode>. MODE is usually a
9498	9626	literal string comprising special characters that define the intended
9499	9627	I/O role of the filehandle being created: whether it's read-only, or
9500	9628	read-and-write, and so on.
9501	9629
9502	9630	=end original
9503	9631
9504	9632	3 引数以上で C<open> を呼び出すとき、
9505	9633	2 番目の引数 -- ここでは MODE -- は I<開くモード> を定義します。
9506	9634	MODE は普通、作られるファイルハンドルが意図している I/O の役割 (読み込み専用、
9507	9635	読み書き、など)を定義する特別な文字で構成されるリテラルな文字列です。
9508	9636
9509	9637	=begin original
9510	9638
9511	9639	If MODE is C<< < >>, the file is opened for input (read-only).
9512	9640	If MODE is C<< > >>, the file is opened for output, with existing files
9513	9641	first being truncated ("clobbered") and nonexisting files newly created.
9514	9642	If MODE is C<<< >> >>>, the file is opened for appending, again being
9515	9643	created if necessary.
9516	9644
9517	9645	=end original
9518	9646
9519	9647	MODE が C<< < >> の場合、ファイルは入力用(読み込み専用)に開かれます。
9520	9648	MODE が C<< > >> の場合、ファイルは出力用に開かれ、既にファイルが
9521	9649	ある場合は切り詰められ(上書きされ)、ない場合は新しく作られます。
9522	9650	MODE が C<<< >> >>> の場合、ファイルは追加用に開かれ、やはり必要なら
9523	9651	作成されます。
9524	9652
9525	9653	=begin original
9526	9654
9527	9655	You can put a C<+> in front of the C<< > >> or C<< < >> to
9528	9656	indicate that you want both read and write access to the file; thus
9529	9657	C<< +< >> is almost always preferred for read/write updates--the
9530	9658	C<< +> >> mode would clobber the file first. You can't usually use
9531	9659	either read-write mode for updating textfiles, since they have
9532	9660	variable-length records. See the B<-i> switch in
9533	9661	L<perlrun\|perlrun/-i[extension]> for a better approach. The file is
9534	9662	created with permissions of C<0666> modified by the process's
9535	9663	L<C<umask>\|/umask EXPR> value.
9536	9664
9537	9665	=end original
9538	9666
9539	9667	ファイルに読み込みアクセスと書き込みアクセスの両方をしたいことを示すために、
9540	9668	C<< > >> や C<< < >> の前に C<+> を付けることができます:
9541	9669	従って、ほとんど常に C<< +< >> が読み書き更新のために使われます --
9542	9670	C<< +> >> モードはまずファイルを上書きします。
9543	9671	普通はこれらの読み書きモードをテキストファイルの更新のためには使えません;
9544	9672	なぜなら可変長のレコードで構成されているからです。
9545	9673	よりよい手法については L<perlrun\|perlrun/-i[extension]> の
9546	9674	B<-i> オプションを参照してください。
9547	9675	ファイルは C<0666> をプロセスの L<C<umask>\|/umask EXPR> 値で修正した
9548	9676	パーミッションで作成されます。
9549	9677
9550	9678	=begin original
9551	9679
9552	9680	These various prefixes correspond to the L<fopen(3)> modes of C<r>,
9553	9681	C<r+>, C<w>, C<w+>, C<a>, and C<a+>.
9554	9682
9555	9683	=end original
9556	9684
9557	9685	これらの様々な前置詞は L<fopen(3)> の C<r>, C<r+>,
9558	9686	C<w>, C<w+>, C<a>, C<a+> のモードに対応します。
9559	9687
9560	9688	=begin original
9561	9689
9562	9690	More examples of different modes in action:
9563	9691
9564	9692	=end original
9565	9693
9566	9694	実用的な異なったモードに関する更なる例:
9567	9695
9568	9696	# Open a file for concatenation
9569	9697	open(my $log, ">>", "/usr/spool/news/twitlog")
9570	9698	or warn "Couldn't open log file; discarding input";
9571	9699
9572	9700	# Open a file for reading and writing
9573	9701	open(my $dbase, "+<", "dbase.mine")
9574	9702	or die "Can't open 'dbase.mine' for update: $!";
9575	9703
9576	9704	=item Checking the return value
9577	9705
9578	9706	(返り値をチェックする)
9579	9707
9580	9708	=begin original
9581	9709
9582	9710	Open returns nonzero on success, the undefined value otherwise. If the
9583	9711	C<open> involved a pipe, the return value happens to be the pid of the
9584	9712	subprocess.
9585	9713
9586	9714	=end original
9587	9715
9588	9716	open は、成功時にはゼロ以外を返し、失敗時には未定義値を返します。
9589	9717	パイプに関る C<open> のときには、返り値は
9590	9718	サブプロセスの pid となります。
9591	9719
9592	9720	=begin original
9593	9721
9594	9722	When opening a file, it's seldom a good idea to continue if the request
9595	9723	failed, so C<open> is frequently used with L<C<die>\|/die LIST>. Even if
9596	9724	you want your code to do something other than C<die> on a failed open,
9597	9725	you should still always check the return value from opening a file.
9598	9726
9599	9727	=end original
9600	9728
9601	9729	ファイルを開く時、開くのに失敗した時に通常の処理を続けるのは普通は悪い
9602	9730	考えなので、C<open> はしばしば
9603	9731	L<C<die>\|/die LIST> と結び付けられて使われます。
9604	9732	開くときに失敗したときに L<C<die>\|/die LIST> 意外の何かを
9605	9733	したい場合でも、ファイルを開いた時の返り値を常にチェックするべきです。
9606	9734
9607	9735	=back
9608	9736
9609	9737	=item Specifying I/O layers in MODE
9610	9738
9611	9739	(MODE で I/O 層を指定する)
9612	9740
9613	9741	=begin original
9614	9742
9615	9743	You can use the three-argument form of open to specify
9616	9744	I/O layers (sometimes referred to as "disciplines") to apply to the new
9617	9745	filehandle. These affect how the input and output are processed (see
9618	9746	L<open> and
9619	9747	L<PerlIO> for more details). For example:
9620	9748
9621	9749	=end original
9622	9750
9623	9751	新しいファイルハンドルに適用する
9624	9752	I/O 層(「ディシプリン」とも呼ばれます)を指定するために
9625	9753	open の 3 引数形式を使えます。
9626	9754	これらはどのように入出力が処理されるかに影響を与えます
9627	9755	(詳細については L<open> と L<PerlIO> を参照してください)。
9628	9756	例えば:
9629	9757
	9758	# loads PerlIO::encoding automatically
9630	9759	open(my $fh, "<:encoding(UTF-8)", $filename)
9631	9760	\|\| die "Can't open UTF-8 encoded $filename: $!";
9632	9761
9633	9762	=begin original
9634	9763
9635	9764	This opens the UTF8-encoded file containing Unicode characters;
9636	9765	see L<perluniintro>. Note that if layers are specified in the
9637	9766	three-argument form, then default layers stored in
9638	9767	L<C<${^OPEN}>\|perlvar/${^OPEN}>
9639	9768	(usually set by the L<open> pragma or the switch C<-CioD>) are ignored.
9640	9769	Those layers will also be ignored if you specify a colon with no name
9641	9770	following it. In that case the default layer for the operating system
9642	9771	(:raw on Unix, :crlf on Windows) is used.
9643	9772
9644	9773	=end original
9645	9774
9646	9775	これは、Unicode 文字を含む UTF8 エンコードされたファイルを開きます;
9647	9776	L<perluniintro> を参照してください。
9648	9777	3 引数形式で層を指定すると、L<C<${^OPEN}>\|perlvar/${^OPEN}>
9649	9778	(通常は L<open> プラグマか C<-CioD> オプションでセットされます) に
9650	9779	保存されたデフォルト層は無視されることに注意してください。
9651	9780	これらの層は、名前なしでコロンを指定した場合にも無視されます。
9652	9781	この場合 OS のデフォルトの層 (Unix では :raw、Windows では :crlf) が
9653	9782	使われます。
9654	9783
9655	9784	=begin original
9656	9785
9657	9786	On some systems (in general, DOS- and Windows-based systems)
9658	9787	L<C<binmode>\|/binmode FILEHANDLE, LAYER> is necessary when you're not
9659	9788	working with a text file. For the sake of portability it is a good idea
9660	9789	always to use it when appropriate, and never to use it when it isn't
9661	9790	appropriate. Also, people can set their I/O to be by default
9662	9791	UTF8-encoded Unicode, not bytes.
9663	9792
9664	9793	=end original
9665	9794
9666	9795	テキストファイルでないものを扱う場合に
9667	9796	L<C<binmode>\|/binmode FILEHANDLE, LAYER> が必要な
9668	9797	システムもあります(一般的には DOS と Windows ベースのシステムです)。
9669	9798	移植性のために、適切なときには常にこれを使い、適切でないときには
9670	9799	決して使わないというのは良い考えです。
9671	9800	また、デフォルトとして I/O を bytes ではなく UTF-8 エンコードされた
9672	9801	Unicode にセットすることも出来ます。
9673	9802
9674	9803	=item Using C<undef> for temporary files
9675	9804
9676	9805	(一時ファイルとして C<undef> を使う)
9677	9806
9678	9807	=begin original
9679	9808
9680	9809	As a special case the three-argument form with a read/write mode and the third
9681	9810	argument being L<C<undef>\|/undef EXPR>:
9682	9811
9683	9812	=end original
9684	9813
9685	9814	特別な場合として、3 引数の形で読み書きモードで 3 番目の引数が
9686	9815	L<C<undef>\|/undef EXPR> の場合:
9687	9816
9688	9817	open(my $tmp, "+>", undef) or die ...
9689	9818
9690	9819	=begin original
9691	9820
9692	9821	opens a filehandle to a newly created empty anonymous temporary file.
9693	9822	(This happens under any mode, which makes C<< +> >> the only useful and
9694	9823	sensible mode to use.) You will need to
9695	9824	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> to do the reading.
9696	9825
9697	9826	=end original
9698	9827
9699	9828	新しく作成した空の無名一時ファイルとしてファイルハンドルを開きます。
9700		(これはどのモードでも起こりますが、C<< +> >> のみが有用で意味があります)
	9829	(これはどのモードでも起こりますが、C<< +> >> のみが有用で意味があります。)
9701	9830	読み込みを行うためには L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> が
9702	9831	必要です。
9703	9832
9704	9833	=item Opening a filehandle into an in-memory scalar
9705	9834
9706	9835	(ファイルハンドルをメモリ内スカラに開く)
9707	9836
9708	9837	=begin original
9709	9838
9710	9839	You can open filehandles directly to Perl scalars instead of a file or
9711	9840	other resource external to the program. To do so, provide a reference to
9712	9841	that scalar as the third argument to C<open>, like so:
9713	9842
9714	9843	=end original
9715	9844
9716	9845	ファイルやその他のプログラムから見ての外部リソースではなく、
9717	9846	Perl スカラに対して直接ファイルハンドルを開くことができます。
9718	9847	そうするためには、次のように、C<open> の 3 番目の引数としてその
9719	9848	スカラへのリファレンスを提供します:
9720	9849
9721	9850	open(my $memory, ">", \$var)
9722	9851	or die "Can't open memory file: $!";
9723	9852	print $memory "foo!\n"; # output will appear in $var
9724	9853
9725	9854	=begin original
9726	9855
9727	9856	To (re)open C<STDOUT> or C<STDERR> as an in-memory file, close it first:
9728	9857
9729	9858	=end original
9730	9859
9731	9860	C<STDOUT> や C<STDERR> を「オンメモリの」ファイルとして
9732	9861	再び開きたい場合は、先にそれを閉じます:
9733	9862
9734	9863	close STDOUT;
9735	9864	open(STDOUT, ">", \$variable)
9736	9865	or die "Can't open STDOUT: $!";
9737	9866
9738	9867	=begin original
9739	9868
9740	9869	The scalars for in-memory files are treated as octet strings: unless
9741	9870	the file is being opened with truncation the scalar may not contain
9742	9871	any code points over 0xFF.
9743	9872
9744	9873	=end original
9745	9874
9746	9875	オンメモリファイルのためのスカラはオクテット文字列として扱われます:
9747	9876	ファイルが切り詰められて開かれない限り、
9748	9877	スカラは 0xFF を超える符号位置を含みません。
9749	9878
9750	9879	=begin original
9751	9880
9752	9881	Opening in-memory files I<can> fail for a variety of reasons. As with
9753	9882	any other C<open>, check the return value for success.
9754	9883
9755	9884	=end original
9756	9885
9757	9886	オンメモリファイルを開くのは様々な理由で失敗する I<ことがあります>。
9758	9887	その他の C<open> と同様、成功したかを返り値でチェックしてください。
9759	9888
9760	9889	=begin original
9761	9890
9762	9891	I<Technical note>: This feature works only when Perl is built with
9763	9892	PerlIO -- the default, except with older (pre-5.16) Perl installations
9764	9893	that were configured to not include it (e.g. via C<Configure
9765	9894	-Uuseperlio>). You can see whether your Perl was built with PerlIO by
9766	9895	running C<perl -V:useperlio>. If it says C<'define'>, you have PerlIO;
9767	9896	otherwise you don't.
9768	9897
9769	9898	=end original
9770	9899
9771	9900	I<技術ノート>: この機能は Perl が PerlIO を使ってビルドされている
9772	9901	場合にのみ動作します; これは (C<Configure -Uuseperlio> によって)
9773	9902	これを含まないように設定されていた古い (5.16 より前の) Perl でない限り、
9774	9903	デフォルトです。
9775	9904	Perl が PerlIO つきでビルドされているかどうかを確認するには、
9776	9905	C<perl -V:useperlio> を見ます。
9777	9906	これが C<'define'> なら PerlIO を使っています;
9778	9907	そうでなければ使っていません。
9779	9908
9780	9909	=begin original
9781	9910
9782	9911	See L<perliol> for detailed info on PerlIO.
9783	9912
9784	9913	=end original
9785	9914
9786	9915	PerlIO に関する詳しい情報については L<perliol> を参照してください。
9787	9916
9788	9917	=item Opening a filehandle into a command
9789	9918
9790	9919	(ファイルハンドルをコマンドに開く)
9791	9920
9792	9921	=begin original
9793	9922
9794	9923	If MODE is C<\|->, then the filename is
9795	9924	interpreted as a command to which output is to be piped, and if MODE
9796	9925	is C<-\|>, the filename is interpreted as a command that pipes
9797	9926	output to us. In the two-argument (and one-argument) form, one should
9798	9927	replace dash (C<->) with the command.
9799	9928	See L<perlipc/"Using open() for IPC"> for more examples of this.
9800	9929	(You are not allowed to L<C<open>\|/open FILEHANDLE,MODE,EXPR> to a command
9801	9930	that pipes both in I<and> out, but see L<IPC::Open2>, L<IPC::Open3>, and
9802	9931	L<perlipc/"Bidirectional Communication with Another Process"> for
9803	9932	alternatives.)
9804	9933
9805	9934	=end original
9806	9935
9807	9936	MODE が C<\|-> の場合、ファイル名は出力がパイプされるコマンドとして
9808	9937	解釈され、MODE が C<-\|> の場合、ファイル名は出力がこちらに
9809	9938	パイプされるコマンドとして解釈されます。
9810	9939	2 引数(と 1 引数) の形式ではハイフン(C<->)をコマンドの代わりに使えます。
9811	9940	これに関するさらなる例については L<perlipc/"Using open() for IPC"> を
9812	9941	参照してください。
9813	9942	(L<C<open>\|/open FILEHANDLE,MODE,EXPR> を入出力 I<両用> にパイプすることは
9814	9943	出来ませんが、代替案としては L<IPC::Open2>, L<IPC::Open3>,
9815	9944	L<perlipc/"Bidirectional Communication with Another Process"> を
9816	9945	参照してください。)
9817	9946
9818	9947	open(my $article_fh, "-\|", "caesar <$article") # decrypt
9819	9948	# article
9820	9949	or die "Can't start caesar: $!";
9821	9950
9822	9951	open(my $article_fh, "caesar <$article \|") # ditto
9823	9952	or die "Can't start caesar: $!";
9824	9953
9825	9954	open(my $out_fh, "\|-", "sort >Tmp$$") # $$ is our process id
9826	9955	or die "Can't start sort: $!";
9827	9956
9828	9957	=begin original
9829	9958
9830	9959	In the form of pipe opens taking three or more arguments, if LIST is specified
9831	9960	(extra arguments after the command name) then LIST becomes arguments
9832	9961	to the command invoked if the platform supports it. The meaning of
9833	9962	L<C<open>\|/open FILEHANDLE,MODE,EXPR> with more than three arguments for
9834	9963	non-pipe modes is not yet defined, but experimental "layers" may give
9835	9964	extra LIST arguments meaning.
9836	9965
9837	9966	=end original
9838	9967
9839	9968	パイプでの三つ以上の引数の形式では、LIST (コマンド名の後の追加の引数) が
9840	9969	指定されると、プラットフォームが対応していれば、LIST は起動される
9841	9970	コマンドへの引数となります。
9842	9971	パイプモードではない L<C<open>\|/open FILEHANDLE,MODE,EXPR> での
9843	9972	三つ以上の引数の意味はまだ未定義ですが、実験的な「層」は
9844	9973	追加の LIST 引数の意味を与えます。
9845	9974
9846	9975	=begin original
9847	9976
9848	9977	If you open a pipe on the command C<-> (that is, specify either C<\|-> or C<-\|>
9849	9978	with the one- or two-argument forms of
9850	9979	L<C<open>\|/open FILEHANDLE,MODE,EXPR>), an implicit L<C<fork>\|/fork> is done,
9851	9980	so L<C<open>\|/open FILEHANDLE,MODE,EXPR> returns twice: in the parent process
9852	9981	it returns the pid
9853	9982	of the child process, and in the child process it returns (a defined) C<0>.
9854	9983	Use C<defined($pid)> or C<//> to determine whether the open was successful.
9855	9984
9856	9985	=end original
9857	9986
9858	9987	1 引数または 2 引数の形の L<C<open>\|/open FILEHANDLE,MODE,EXPR>) で
9859	9988	(C<-\|> や C<\|-> というふうに) C<-> というコマンドにパイプを開くと、
9860	9989	暗黙の L<C<fork>\|/fork> が行なわれるので、
9861	9990	L<C<open>\|/open FILEHANDLE,MODE,EXPR> は 2 回返ります;
9862	9991	親プロセスには子プロセスの pid が返され、子プロセスには (定義された) C<0> が
9863	9992	返されます。
9864	9993	open が成功したかどうかを調べるには、C<defined($pid)> または C<//> を
9865	9994	使います。
9866	9995
9867	9996	=begin original
9868	9997
9869	9998	For example, use either
9870	9999
9871	10000	=end original
9872	10001
9873	10002	例えば、以下の二つ
9874	10003
9875	10004	my $child_pid = open(my $from_kid, "-\|")
9876	10005	// die "Can't fork: $!";
9877	10006
9878	10007	=begin original
9879	10008
9880	10009	or
9881	10010
9882	10011	=end original
9883	10012
9884	10013	または
9885	10014
9886	10015	my $child_pid = open(my $to_kid, "\|-")
9887	10016	// die "Can't fork: $!";
9888	10017
9889	10018	=begin original
9890	10019
9891	10020	followed by
9892	10021
9893	10022	=end original
9894	10023
9895	10024	を使って、後で以下のようにします。
9896	10025
9897	10026	if ($child_pid) {
9898	10027	# am the parent:
9899	10028	# either write $to_kid or else read $from_kid
9900	10029	...
9901	10030	waitpid $child_pid, 0;
9902	10031	} else {
9903	10032	# am the child; use STDIN/STDOUT normally
9904	10033	...
9905	10034	exit;
9906	10035	}
9907	10036
9908	10037	=begin original
9909	10038
9910	10039	The filehandle behaves normally for the parent, but I/O to that
9911	10040	filehandle is piped from/to the STDOUT/STDIN of the child process.
9912	10041	In the child process, the filehandle isn't opened--I/O happens from/to
9913	10042	the new STDOUT/STDIN. Typically this is used like the normal
9914	10043	piped open when you want to exercise more control over just how the
9915	10044	pipe command gets executed, such as when running setuid and
9916	10045	you don't want to have to scan shell commands for metacharacters.
9917	10046
9918	10047	=end original
9919	10048
9920	10049	親プロセスでは、このファイルハンドルは通常通りに動作しますが、行なわれる
9921	10050	入出力は、子プロセスの STDIN/STDOUT にパイプされます。
9922	10051	子プロセス側では、そのファイルハンドルは開かれず、入出力は新しい STDOUT か
9923	10052	STDIN に対して行なわれます。
9924	10053	これは、setuid で実行して、シェルコマンドのメタ文字を
9925	10054	検索させたくないような場合に、パイプコマンドの起動の仕方を
9926	10055	制御したいとき、普通のパイプの open と同じように使います。
9927	10056
9928	10057	=begin original
9929	10058
9930	10059	The following blocks are more or less equivalent:
9931	10060
9932	10061	=end original
9933	10062
9934	10063	以下の組み合わせは、だいたい同じものです:
9935	10064
9936	10065	open(my $fh, "\|tr '[a-z]' '[A-Z]'");
9937	10066	open(my $fh, "\|-", "tr '[a-z]' '[A-Z]'");
9938	10067	open(my $fh, "\|-") \|\| exec 'tr', '[a-z]', '[A-Z]';
9939	10068	open(my $fh, "\|-", "tr", '[a-z]', '[A-Z]');
9940	10069
9941	10070	open(my $fh, "cat -n '$file'\|");
9942	10071	open(my $fh, "-\|", "cat -n '$file'");
9943	10072	open(my $fh, "-\|") \|\| exec "cat", "-n", $file;
9944	10073	open(my $fh, "-\|", "cat", "-n", $file);
9945	10074
9946	10075	=begin original
9947	10076
9948	10077	The last two examples in each block show the pipe as "list form", which
9949	10078	is not yet supported on all platforms. (If your platform has a real
9950	10079	L<C<fork>\|/fork>, such as Linux and macOS, you can use the list form; it
9951	10080	also works on Windows with Perl 5.22 or later.) You would want to use
9952	10081	the list form of the pipe so you can pass literal arguments to the
9953	10082	command without risk of the shell interpreting any shell metacharacters
9954	10083	in them. However, this also bars you from opening pipes to commands that
9955	10084	intentionally contain shell metacharacters, such as:
9956	10085
9957	10086	=end original
9958	10087
9959	10088	それぞれのブロックの末尾二つの例ではパイプを「リスト形式」にしていますが、
9960	10089	これはまだ全てのプラットフォームで対応しているわけではなりません。
9961	10090	(もし実行しているプラットフォームで本当の
9962	10091	L<C<fork>\|/fork> があれば(Linux や
9963	10092	MacOS X なら)リスト形式が使えます; Perl 5.22 以降では Windows でも
9964	10093	動作します。)
9965	10094	パイプのリスト形式を使うことで、コマンドへのリテラルな引数を、
9966	10095	シェルのメタ文字をシェルが解釈するリスクなしに渡すことができます。
9967	10096	しかし、これは以下のように意図的にシェルメタ文字を含むコマンドをパイプとして
9968	10097	開くことを妨げます:
9969	10098
9970	10099	open(my $fh, "\|cat -n \| expand -4 \| lpr")
9971	10100	\|\| die "Can't open pipeline to lpr: $!";
9972	10101
9973	10102	=begin original
9974	10103
9975	10104	See L<perlipc/"Safe Pipe Opens"> for more examples of this.
9976	10105
9977	10106	=end original
9978	10107
9979	10108	これに関する更なる例については L<perlipc/"Safe Pipe Opens"> を
9980	10109	参照してください。
9981	10110
9982	10111	=item Duping filehandles
9983	10112
9984	10113	(ハンドルの複製)
9985	10114
9986	10115	=begin original
9987	10116
9988	10117	You may also, in the Bourne shell tradition, specify an EXPR beginning
9989	10118	with C<< >& >>, in which case the rest of the string is interpreted
9990	10119	as the name of a filehandle (or file descriptor, if numeric) to be
9991	10120	duped (as in L<dup(2)>) and opened. You may use C<&> after C<< > >>,
9992	10121	C<<< >> >>>, C<< < >>, C<< +> >>, C<<< +>> >>>, and C<< +< >>.
9993	10122	The mode you specify should match the mode of the original filehandle.
9994	10123	(Duping a filehandle does not take into account any existing contents
9995	10124	of IO buffers.) If you use the three-argument
9996	10125	form, then you can pass either a
9997	10126	number, the name of a filehandle, or the normal "reference to a glob".
9998	10127
9999	10128	=end original
10000	10129
10001	10130	Bourne シェルの慣例にしたがって、EXPR の先頭に C<< >& >>
10002	10131	を付けると、EXPR の残りの文字列をファイルハンドル名
10003	10132	(数字であれば、ファイル記述子) と解釈して、それを (L<dup(2)> によって)
10004	10133	複製してオープンします。
10005	10134	C<&> は、C<< > >>, C<<< >> >>>, C<< < >>, C<< +> >>, C<<< +>> >>>,
10006	10135	C<< +< >>というモード指定に付けることができます。
10007	10136	指定するモード指定は、もとのファイルハンドルのモードと
10008	10137	合っていないといけません。
10009	10138	(ファイルハンドルの複製は既に存在する IO バッファの内容に含めません。)
10010	10139	3 引数形式を使う場合は、数値を渡すか、ファイルハンドルの名前を渡すか、
10011	10140	通常の「グロブへのリファレンス」を渡します。
10012	10141
10013	10142	=begin original
10014	10143
10015	10144	Here is a script that saves, redirects, and restores C<STDOUT> and
10016	10145	C<STDERR> using various methods:
10017	10146
10018	10147	=end original
10019	10148
10020	10149	C<STDOUT> と C<STDERR> 保存し、リダイレクトし、元に戻すスクリプトを示します:
10021	10150
10022	10151	#!/usr/bin/perl
10023	10152	open(my $oldout, ">&STDOUT")
10024	10153	or die "Can't dup STDOUT: $!";
10025	10154	open(OLDERR, ">&", \*STDERR)
10026	10155	or die "Can't dup STDERR: $!";
10027	10156
10028	10157	open(STDOUT, '>', "foo.out")
10029	10158	or die "Can't redirect STDOUT: $!";
10030	10159	open(STDERR, ">&STDOUT")
10031	10160	or die "Can't dup STDOUT: $!";
10032	10161
10033	10162	select STDERR; $\| = 1; # make unbuffered
10034	10163	select STDOUT; $\| = 1; # make unbuffered
10035	10164
10036	10165	print STDOUT "stdout 1\n"; # this works for
10037	10166	print STDERR "stderr 1\n"; # subprocesses too
10038	10167
10039	10168	open(STDOUT, ">&", $oldout)
10040	10169	or die "Can't dup \$oldout: $!";
10041	10170	open(STDERR, ">&OLDERR")
10042	10171	or die "Can't dup OLDERR: $!";
10043	10172
10044	10173	print STDOUT "stdout 2\n";
10045	10174	print STDERR "stderr 2\n";
10046	10175
10047	10176	=begin original
10048	10177
10049	10178	If you specify C<< '<&=X' >>, where C<X> is a file descriptor number
10050	10179	or a filehandle, then Perl will do an equivalent of C's L<fdopen(3)> of
10051	10180	that file descriptor (and not call L<dup(2)>); this is more
10052	10181	parsimonious of file descriptors. For example:
10053	10182
10054	10183	=end original
10055	10184
10056	10185	C<X> をファイル記述子の番号かファイルハンドルとして、
10057	10186	C<< '<&=X' >> と指定すると、Perl はそのファイル記述子に対する
10058	10187	C の L<fdopen(3)> と同じことを行ないます(そして L<dup(2)> は呼び出しません);
10059	10188	これはファイル記述子をより節約します。
10060	10189	例えば:
10061	10190
10062	10191	# open for input, reusing the fileno of $fd
10063	10192	open(my $fh, "<&=", $fd)
10064	10193
10065	10194	=begin original
10066	10195
10067	10196	or
10068	10197
10069	10198	=end original
10070	10199
10071	10200	または
10072	10201
10073	10202	open(my $fh, "<&=$fd")
10074	10203
10075	10204	=begin original
10076	10205
10077	10206	or
10078	10207
10079	10208	=end original
10080	10209
10081	10210	または
10082	10211
10083	10212	# open for append, using the fileno of $oldfh
10084	10213	open(my $fh, ">>&=", $oldfh)
10085	10214
10086	10215	=begin original
10087	10216
10088	10217	Being parsimonious on filehandles is also useful (besides being
10089	10218	parsimonious) for example when something is dependent on file
10090	10219	descriptors, like for example locking using
10091	10220	L<C<flock>\|/flock FILEHANDLE,OPERATION>. If you do just
10092	10221	C<< open(my $A, ">>&", $B) >>, the filehandle C<$A> will not have the
10093	10222	same file descriptor as C<$B>, and therefore C<flock($A)> will not
10094	10223	C<flock($B)> nor vice versa. But with C<< open(my $A, ">>&=", $B) >>,
10095	10224	the filehandles will share the same underlying system file descriptor.
10096	10225
10097	10226	=end original
10098	10227
10099	10228	ファイルハンドルを倹約することは、(倹約できること以外に)何かが
10100	10229	ファイル記述子に依存している場合、例えば
10101	10230	L<C<flock>\|/flock FILEHANDLE,OPERATION> を使った
10102	10231	ファイルロックといった場合に有用です。
10103	10232	C<< open(my $A, ">>&", $B) >> とすると、ファイルハンドル C<$A> は C<$B> と同じ
10104	10233	ファイル記述子にはならないので、C<flock($A)> と C<flock($B)> は別々になります。
10105	10234	しかし C<< open(my $A, ">>&=", $B) >> ではファイルハンドルは基礎となるシステムの
10106	10235	同じファイル記述子を共有します。
10107	10236
10108	10237	=begin original
10109	10238
10110	10239	Note that under Perls older than 5.8.0, Perl uses the standard C library's'
10111	10240	L<fdopen(3)> to implement the C<=> functionality. On many Unix systems,
10112	10241	L<fdopen(3)> fails when file descriptors exceed a certain value, typically 255.
10113	10242	For Perls 5.8.0 and later, PerlIO is (most often) the default.
10114	10243
10115	10244	=end original
10116	10245
10117	10246	5.8.0 より前の Perl の場合、C<=> 機能の実装は
10118	10247	標準 C ライブラリの L<fdopen(3)> を使っています。
10119	10248	多くの Unix システムでは、L<fdopen(3)> はファイル記述子がある値
10120	10249	(典型的には 255)を超えた場合に失敗することが知られています。
10121		5.8.0 以降の Perl では、(ほ~~とんどの場合~~) PerlIO がデフォルトです。
	10250	5.8.0 以降の Perl では、(ほぼ確実に) PerlIO がデフォルトです。
10122	10251
10123	10252	=item Legacy usage
10124	10253
10125	10254	(古い使い方)
10126	10255
10127	10256	=begin original
10128	10257
10129	10258	This section describes ways to call C<open> outside of best practices;
10130	10259	you may encounter these uses in older code. Perl does not consider their
10131	10260	use deprecated, exactly, but neither is it recommended in new code, for
10132	10261	the sake of clarity and readability.
10133	10262
10134	10263	=end original
10135	10264
10136	10265	この節では、ベストプラクティスではない C<open> の呼び出し方について
10137	10266	記述します; より古いコードでこれらが使われているのに遭遇するかもしれません。
10138	10267	厳密には、Perl はこれらの仕様を廃止予定にはしていませんが、
10139	10268	明瞭性と可読性のために、新しいコードには薦めません。
10140	10269
10141	10270	=over
10142	10271
10143	10272	=item Specifying mode and filename as a single argument
10144	10273
10145	10274	(モードとファイル名を一つの引数で指定する)
10146	10275
10147	10276	=begin original
10148	10277
10149	10278	In the one- and two-argument forms of the call, the mode and filename
10150	10279	should be concatenated (in that order), preferably separated by white
10151	10280	space. You can--but shouldn't--omit the mode in these forms when that mode
10152	10281	is C<< < >>. It is safe to use the two-argument form of
10153	10282	L<C<open>\|/open FILEHANDLE,MODE,EXPR> if the filename argument is a known literal.
10154	10283
10155	10284	=end original
10156	10285
10157	10286	1 引数と 2 引数の形式ではモードとファイル名は(この順番で)
10158	10287	結合されます(空白によって分割されているかもしれません)。
10159	10288	この形式で、モードが C<< '<' >> の場合はモードを省略できます (が、
10160	10289	するべきではありません)。
10161	10290	ファイル引数が既知のリテラルの場合、2 引数形式の
10162	10291	L<C<open>\|/open FILEHANDLE,MODE,EXPR> は安全です。
10163	10292
10164	10293	open(my $dbase, "+<dbase.mine") # ditto
10165	10294	or die "Can't open 'dbase.mine' for update: $!";
10166	10295
10167	10296	=begin original
10168	10297
10169	10298	In the two-argument (and one-argument) form, opening C<< <- >>
10170	10299	or C<-> opens STDIN and opening C<< >- >> opens STDOUT.
10171	10300
10172	10301	=end original
10173	10302
10174	10303	2 引数(と 1 引数)で C<< <- >> か C<-> を open すると STDIN が
10175	10304	オープンされ、C<< >- >> を open すると STDOUT がオープンされます。
10176	10305
10177	10306	=begin original
10178	10307
10179	10308	New code should favor the three-argument form of C<open> over this older
10180	10309	form. Declaring the mode and the filename as two distinct arguments
10181	10310	avoids any confusion between the two.
10182	10311
10183	10312	=end original
10184	10313
10185	10314	新しいコードでは、このより古い形式ではなく、3 引数形式の C<open> を
10186	10315	使うべきです。
10187	10316	モードとファイル名を異なった二つの引数として指定することで、
10188	10317	二つの間の混乱を避けられます。
10189	10318
10190	10319	=item Calling C<open> with one argument via global variables
10191	10320
10192	10321	(グローバル変数を使って C<open> を 1 引数で呼び出す)
10193	10322
10194	10323	=begin original
10195	10324
10196	10325	As a shortcut, a one-argument call takes the filename from the global
10197	10326	scalar variable of the same name as the filehandle:
10198	10327
10199	10328	=end original
10200	10329
10201	10330	短縮版として、1 引数呼び出しでは、ファイル名を、ファイルハンドルと同じ名前の
10202	10331	グローバルなスカラ変数から取ります:
10203	10332
10204	10333	$ARTICLE = 100;
10205	10334	open(ARTICLE)
10206	10335	or die "Can't find article $ARTICLE: $!\n";
10207	10336
10208	10337	=begin original
10209	10338
10210	10339	Here C<$ARTICLE> must be a global (package) scalar variable - not one
10211	10340	declared with L<C<my>\|/my VARLIST> or L<C<state>\|/state VARLIST>.
10212	10341
10213	10342	=end original
10214	10343
10215	10344	ここで C<$ARTICLE> はグローバル(パッケージ)スカラ変数でなければなりません -
10216	10345	L<C<my>\|/my VARLIST> や L<C<state>\|/state VARLIST> で宣言された
10217	10346	変数ではありません。
10218	10347
10219	10348	=item Assigning a filehandle to a bareword
10220	10349
10221	10350	(ファイルハンドルを裸の単語に代入する)
10222	10351
10223	10352	=begin original
10224	10353
10225	10354	An older style is to use a bareword as the filehandle, as
10226	10355
10227	10356	=end original
10228	10357
10229	10358	より古いスタイルは、次のように、ファイルハンドルとして裸の単語を使います
10230	10359
10231	10360	open(FH, "<", "input.txt")
10232	10361	or die "Can't open < input.txt: $!";
10233	10362
10234	10363	=begin original
10235	10364
10236	10365	Then you can use C<FH> as the filehandle, in C<< close FH >> and C<<
10237	10366	<FH> >> and so on. Note that it's a global variable, so this form is
10238		not recommended when dealing with filehandles other than Perl's built-in ones ~~(e.g. STDOUT and STDIN).~~
	10367	not recommended when dealing with filehandles other than Perl's built-in ones
	10368	(e.g. STDOUT and STDIN). In fact, using a bareword for the filehandle is
	10369	an error when the C<bareword_filehandles> feature has been disabled. This
	10370	feature is disabled by default when in the scope of C<use v5.36.0> or later.
10239	10371
10240	10372	=end original
10241	10373
10242	10374	それから C<FH> を、C<< close FH >> や C<< <FH> >> などのように、
10243	10375	ファイルハンドルとして使えます。
10244	10376	これはグローバル変数なので、Perl の組み込みのもの (例えば STDOUT と STDIN)
10245	10377	以外では非推奨であることに注意してください。
	10378	実際、C<bareword_filehandles> 機能が無効になっている場合は
	10379	ファイルハンドルに裸の単語を使うことはエラーです。
	10380	この機能は、C<use v5.36.0> 以降のスコープ内ではデフォルトでは
	10381	無効になっています。
10246	10382
10247	10383	=back
10248	10384
10249	10385	=item Other considerations
10250	10386
10251	10387	(その他の考慮点)
10252	10388
10253	10389	=over
10254	10390
10255	10391	=item Automatic filehandle closure
10256	10392
10257	10393	(自動的にファイルハンドルを閉じる)
10258	10394
10259	10395	=begin original
10260	10396
10261	10397	The filehandle will be closed when its reference count reaches zero. If
10262	10398	it is a lexically scoped variable declared with L<C<my>\|/my VARLIST>,
10263	10399	that usually means the end of the enclosing scope. However, this
10264	10400	automatic close does not check for errors, so it is better to explicitly
10265	10401	close filehandles, especially those used for writing:
10266	10402
10267	10403	=end original
10268	10404
10269	10405	ファイルハンドルは、参照カウントが 0 になったときに閉じられます。
10270	10406	これが L<C<my>\|/my VARLIST> で宣言されたレキシカルスコープを持つ変数の場合、
10271	10407	普通は囲まれたスコープの終わりを意味します。
10272	10408	しかし、この自動閉じはエラーをチェックしないので、特に書き込み用の場合は、
10273	10409	明示的にファイルハンドルを閉じる方がよいです。
10274	10410
10275	10411	close($handle)
10276	10412	\|\| warn "close failed: $!";
10277	10413
10278	10414	=item Automatic pipe flushing
10279	10415
10280	10416	(パイプの自動フラッシュ)
10281	10417
10282	10418	=begin original
10283	10419
10284	10420	Perl will attempt to flush all files opened for
10285	10421	output before any operation that may do a fork, but this may not be
10286	10422	supported on some platforms (see L<perlport>). To be safe, you may need
10287	10423	to set L<C<$E<verbar>>\|perlvar/$E<verbar>> (C<$AUTOFLUSH> in L<English>)
10288	10424	or call the C<autoflush> method of L<C<IO::Handle>\|IO::Handle/METHODS>
10289	10425	on any open handles.
10290	10426
10291	10427	=end original
10292	10428
10293		~~v5.6.0 から、~~Perl は書き込み用に開いている全てのファイルに対して
	10429	Perl は書き込み用に開いている全てのファイルに対して
10294	10430	fork を行う前にフラッシュしようとしますが、これに対応していない
10295	10431	プラットフォームもあります(L<perlport> を参照してください)。
10296	10432	安全のために、L<C<$E<verbar>>\|perlvar/$E<verbar>> (L<English> モジュールでは
10297	10433	C<$AUTOFLUSH>) をセットするか、全ての開いているハンドルに対して
10298	10434	L<C<IO::Handle>\|IO::Handle/METHODS> の C<autoflush> メソッドを
10299	10435	呼び出す必要があるかもしれません。
10300	10436
10301	10437	=begin original
10302	10438
10303	10439	On systems that support a close-on-exec flag on files, the flag will
10304	10440	be set for the newly opened file descriptor as determined by the value
10305	10441	of L<C<$^F>\|perlvar/$^F>. See L<perlvar/$^F>.
10306	10442
10307	10443	=end original
10308	10444
10309	10445	ファイルに対する close-on-exec フラグをサポートしているシステムでは、
10310	10446	フラグは L<C<$^F>\|perlvar/$^F> の値で決定される、新しくオープンされた
10311	10447	ファイル記述子に対してセットされます。
10312	10448	L<perlvar/$^F> を参照してください。
10313	10449
10314	10450	=begin original
10315	10451
10316	10452	Closing any piped filehandle causes the parent process to wait for the
10317	10453	child to finish, then returns the status value in L<C<$?>\|perlvar/$?> and
10318	10454	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}>.
10319	10455
10320	10456	=end original
10321	10457
10322	10458	パイプのファイルハンドルを close することで、親プロセスは、子プロセスの終了を
10323	10459	待ち、それから L<C<$?>\|perlvar/$?> と
10324	10460	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}> にステータス値を
10325	10461	返します。
10326	10462
10327	10463	=item Direct versus by-reference assignment of filehandles
10328	10464
10329	10465	(ファイルハンドルの直接代入とリファレンスによる代入)
10330	10466
10331	10467	=begin original
10332	10468
10333	10469	If FILEHANDLE -- the first argument in a call to C<open> -- is an
10334	10470	undefined scalar variable (or array or hash element), a new filehandle
10335	10471	is autovivified, meaning that the variable is assigned a reference to a
10336	10472	newly allocated anonymous filehandle. Otherwise if FILEHANDLE is an
10337	10473	expression, its value is the real filehandle. (This is considered a
10338	10474	symbolic reference, so C<use strict "refs"> should I<not> be in effect.)
10339	10475
10340	10476	=end original
10341	10477
10342	10478	FILEHANDLE (C<open> を呼び出すときの最初の引数) が未定義のスカラ変数
10343	10479	(または配列かハッシュの要素)の場合、
10344	10480	新しいファイルハンドルが自動有効化され、その変数は新しく割り当てられた
10345	10481	無名ファイルハンドルへのリファレンスが代入されます。
10346	10482	さもなければ、もし FILEHANDLE が式なら、その値を求めている実際の
10347	10483	ファイルハンドルの名前として使います。
10348	10484	(これはシンボリックリファレンスとして扱われるので、
10349	10485	C<use strict "refs"> の影響を I<受けません>。)
10350	10486
10351	10487	=item Whitespace and special characters in the filename argument
10352	10488
10353	10489	(ファイル名引数の空白と特殊文字)
10354	10490
10355	10491	=begin original
10356	10492
10357	10493	The filename passed to the one- and two-argument forms of
10358	10494	L<C<open>\|/open FILEHANDLE,MODE,EXPR> will
10359	10495	have leading and trailing whitespace deleted and normal
10360	10496	redirection characters honored. This property, known as "magic open",
10361	10497	can often be used to good effect. A user could specify a filename of
10362	10498	F<"rsh cat file \|">, or you could change certain filenames as needed:
10363	10499
10364	10500	=end original
10365	10501
10366	10502	1 引数と 2 引数の形の L<C<open>\|/open FILEHANDLE,MODE,EXPR> に渡された
10367	10503	ファイル名は、はじめと終わりの空白が取り除かれ、通常のリダイレクト文字列を
10368	10504	受け付けます。
10369	10505	この機能は "magic open" として知られていますが、普通いい効果をもたらします。
10370	10506	ユーザーは F<"rsh cat file \|"> といったファイル名を指定できますし、
10371	10507	特定のファイル名を必要に応じて変更できます。
10372	10508
10373	10509	$filename =~ s/(.\.gz)\s$/gzip -dc < $1\|/;
10374	10510	open(my $fh, $filename)
10375	10511	or die "Can't open $filename: $!";
10376	10512
10377	10513	=begin original
10378	10514
10379	10515	Use the three-argument form to open a file with arbitrary weird characters in it,
10380	10516
10381	10517	=end original
10382	10518
10383	10519	妙な文字が含まれているようなファイル名をオープンするには、
10384	10520	3 引数の形を使います。
10385	10521
10386	10522	open(my $fh, "<", $file)
10387	10523	\|\| die "Can't open $file: $!";
10388	10524
10389	10525	=begin original
10390	10526
10391	10527	otherwise it's necessary to protect any leading and trailing whitespace:
10392	10528
10393	10529	=end original
10394	10530
10395	10531	あるいは、次のようにして、最初と最後の空白を保護します:
10396	10532
10397	10533	$file =~ s#^(\s)#./$1#;
10398	10534	open(my $fh, "< $file\0")
10399	10535	\|\| die "Can't open $file: $!";
10400	10536
10401	10537	=begin original
10402	10538
10403	10539	(this may not work on some bizarre filesystems). One should
10404	10540	conscientiously choose between the I<magic> and I<three-argument> form
10405	10541	of L<C<open>\|/open FILEHANDLE,MODE,EXPR>:
10406	10542
10407	10543	=end original
10408	10544
10409	10545	(これは奇妙なファイルシステムでは動作しないかもしれません)。
10410	10546	L<C<open>\|/open FILEHANDLE,MODE,EXPR> の I<magic> と I<3 引数> 形式を誠実に
10411	10547	選択するべきです。
10412	10548
10413	10549	open(my $in, $ARGV[0]) \|\| die "Can't open $ARGV[0]: $!";
10414	10550
10415	10551	=begin original
10416	10552
10417	10553	will allow the user to specify an argument of the form C<"rsh cat file \|">,
10418	10554	but will not work on a filename that happens to have a trailing space, while
10419	10555
10420	10556	=end original
10421	10557
10422	10558	とするとユーザーは C<"rsh cat file \|"> という形の引数を指定できますが、
10423	10559	末尾にスペースがついてしまったファイル名では動作しません; 一方:
10424	10560
10425	10561	open(my $in, "<", $ARGV[0])
10426	10562	\|\| die "Can't open $ARGV[0]: $!";
10427	10563
10428	10564	=begin original
10429	10565
10430	10566	will have exactly the opposite restrictions. (However, some shells
10431	10567	support the syntax C<< perl your_program.pl <( rsh cat file ) >>, which
10432	10568	produces a filename that can be opened normally.)
10433	10569
10434	10570	=end original
10435	10571
10436	10572	はまったく逆の制限があります。
10437	10573	(しかし、一部のシェルは C<< perl your_program.pl <( rsh cat file ) >> という
10438	10574	文法に対応していて、普通に開くことが出来るファイル名を出力します。)
10439	10575
10440	10576	=item Invoking C-style C<open>
10441	10577
10442	10578	(C 形式の C<open> の起動)
10443	10579
10444	10580	=begin original
10445	10581
10446	10582	If you want a "real" C L<open(2)>, then you should use the
10447	10583	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> function, which involves
10448	10584	no such magic (but uses different filemodes than Perl
10449	10585	L<C<open>\|/open FILEHANDLE,MODE,EXPR>, which corresponds to C L<fopen(3)>).
10450	10586	This is another way to protect your filenames from interpretation. For
10451	10587	example:
10452	10588
10453	10589	=end original
10454	10590
10455	10591	もし「本当の」C 言語の L<open(2)> が必要なら、このような副作用のない
10456	10592	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> 関数を使うべきです
10457	10593	(ただし、C の L<fopen(3)> に対応する Perl の
10458	10594	L<C<open>\|/open FILEHANDLE,MODE,EXPR> とは違うファイルモードを持ちます)。
10459	10595	これはファイル名を解釈から守るもう一つの方法です。
10460	10596	例えば:
10461	10597
10462	10598	use IO::Handle;
10463	10599	sysopen(my $fh, $path, O_RDWR\|O_CREAT\|O_EXCL)
10464	10600	or die "Can't open $path: $!";
10465	10601	$fh->autoflush(1);
10466	10602	print $fh "stuff $$\n";
10467	10603	seek($fh, 0, 0);
10468	10604	print "File contains: ", readline($fh);
10469	10605
10470	10606	=begin original
10471	10607
10472	10608	See L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> for some details about
10473	10609	mixing reading and writing.
10474	10610
10475	10611	=end original
10476	10612
10477	10613	読み書きを混ぜる場合の詳細については
10478	10614	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> を参照してください。
10479	10615
10480	10616	=item Portability issues
10481	10617
10482	10618	(移植性の問題)
10483	10619
10484	10620	=begin original
10485	10621
10486	10622	See L<perlport/open>.
10487	10623
10488	10624	=end original
10489	10625
10490	10626	L<perlport/open> を参照してください。
10491	10627
10492	10628	=back
10493	10629
10494	10630	=back
10495	10631
10496	10632	=item opendir DIRHANDLE,EXPR
10497	10633	X<opendir>
10498	10634
10499	10635	=for Pod::Functions open a directory
10500	10636
10501	10637	=begin original
10502	10638
10503	10639	Opens a directory named EXPR for processing by
10504	10640	L<C<readdir>\|/readdir DIRHANDLE>, L<C<telldir>\|/telldir DIRHANDLE>,
10505	10641	L<C<seekdir>\|/seekdir DIRHANDLE,POS>,
10506	10642	L<C<rewinddir>\|/rewinddir DIRHANDLE>, and
10507	10643	L<C<closedir>\|/closedir DIRHANDLE>. Returns true if successful.
10508	10644	DIRHANDLE may be an expression whose value can be used as an indirect
10509	10645	dirhandle, usually the real dirhandle name. If DIRHANDLE is an undefined
10510	10646	scalar variable (or array or hash element), the variable is assigned a
10511	10647	reference to a new anonymous dirhandle; that is, it's autovivified.
10512	10648	Dirhandles are the same objects as filehandles; an I/O object can only
10513	10649	be open as one of these handle types at once.
10514	10650
10515	10651	=end original
10516	10652
10517	10653	L<C<readdir>\|/readdir DIRHANDLE>、L<C<telldir>\|/telldir DIRHANDLE>、
10518	10654	L<C<seekdir>\|/seekdir DIRHANDLE,POS>、L<C<rewinddir>\|/rewinddir DIRHANDLE>、
10519	10655	L<C<closedir>\|/closedir DIRHANDLE> で処理するために、EXPR で指定された名前の
10520	10656	ディレクトリをオープンします。
10521	10657	成功時には真を返します。
10522	10658	DIRHANDLE は間接ディレクトリハンドルとして使える値(普通は実際のディレクトリ
10523	10659	ハンドルの名前)となる式でも構いません。
10524	10660	DIRHANDLE が未定義のスカラ値(または配列かハッシュの要素)の場合、その変数は
10525	10661	新しい無名ディレクトリハンドルへのリファレンスが代入されます; つまり、
10526	10662	自動有効化されます。
10527	10663	ディレクトリハンドルはファイルハンドルと同じオブジェクトです;
10528	10664	一つの I/O オブジェクトは同時にこれらのハンドル型のどちらかとしてのみ
10529	10665	開くことができます。
10530	10666
10531	10667	=begin original
10532	10668
10533	10669	See the example at L<C<readdir>\|/readdir DIRHANDLE>.
10534	10670
10535	10671	=end original
10536	10672
10537	10673	L<C<readdir>\|/readdir DIRHANDLE> の例を参照してください。
10538	10674
10539	10675	=item ord EXPR
10540	10676	X<ord> X<encoding>
10541	10677
10542	10678	=item ord
10543	10679
10544	10680	=for Pod::Functions find a character's numeric representation
10545	10681
10546	10682	=begin original
10547	10683
10548	10684	Returns the numeric value of the first character of EXPR.
10549	10685	If EXPR is an empty string, returns 0. If EXPR is omitted, uses
10550	10686	L<C<$_>\|perlvar/$_>.
10551	10687	(Note I<character>, not byte.)
10552	10688
10553	10689	=end original
10554	10690
10555	10691	EXPR の最初の文字の数値としての値を返します。
10556	10692	EXPR が空文字列の場合は、0 を返します。
10557	10693	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
10558	10694	(バイトではなく I<文字> であることに注意してください。)
10559	10695
10560	10696	=begin original
10561	10697
10562	10698	For the reverse, see L<C<chr>\|/chr NUMBER>.
10563	10699	See L<perlunicode> for more about Unicode.
10564	10700
10565	10701	=end original
10566	10702
10567	10703	逆のことをするには L<C<chr>\|/chr NUMBER> を参照してください。
10568	10704	Unicode については L<perlunicode> を参照してください。
10569	10705
10570	10706	=item our VARLIST
10571	10707	X<our> X<global>
10572	10708
10573	10709	=item our TYPE VARLIST
10574	10710
10575	10711	=item our VARLIST : ATTRS
10576	10712
10577	10713	=item our TYPE VARLIST : ATTRS
10578	10714
10579	10715	=for Pod::Functions +5.6.0 declare and assign a package variable (lexical scoping)
10580	10716
10581	10717	=begin original
10582	10718
10583	10719	L<C<our>\|/our VARLIST> makes a lexical alias to a package (i.e. global)
10584	10720	variable of the same name in the current package for use within the
10585	10721	current lexical scope.
10586	10722
10587	10723	=end original
10588	10724
10589	10725	L<C<our>\|/our VARLIST> は単純名を、現在のレキシカルスコープ内で使うために、
10590	10726	現在のパッケージの同じ名前のパッケージ(つまりグローバルな)変数への
10591	10727	レキシカルな別名を作ります。
10592	10728
10593	10729	=begin original
10594	10730
10595	10731	L<C<our>\|/our VARLIST> has the same scoping rules as
10596	10732	L<C<my>\|/my VARLIST> or L<C<state>\|/state VARLIST>, meaning that it is
10597	10733	only valid within a lexical scope. Unlike L<C<my>\|/my VARLIST> and
10598	10734	L<C<state>\|/state VARLIST>, which both declare new (lexical) variables,
10599	10735	L<C<our>\|/our VARLIST> only creates an alias to an existing variable: a
10600	10736	package variable of the same name.
10601	10737
10602	10738	=end original
10603	10739
10604	10740	L<C<our>\|/our VARLIST> は L<C<my>\|/my VARLIST> や
10605	10741	L<C<state>\|/state VARLIST> と同じスコープルールを持ちます; つまり
10606	10742	レキシカルスコープの中でだけ有効です。
10607	10743	新しい(レキシカル)変数を宣言する L<C<my>\|/my VARLIST> や
10608	10744	L<C<state>\|/state VARLIST> と異なり、L<C<our>\|/our VARLIST> は既に
10609	10745	存在する変数への別名を作るだけです: 同じ名前のパッケージ変数です。
10610	10746
10611	10747	=begin original
10612	10748
10613	10749	This means that when C<use strict 'vars'> is in effect, L<C<our>\|/our
10614	10750	VARLIST> lets you use a package variable without qualifying it with the
10615	10751	package name, but only within the lexical scope of the
10616	10752	L<C<our>\|/our VARLIST> declaration. This applies immediately--even
10617	10753	within the same statement.
10618	10754
10619	10755	=end original
10620	10756
10621	10757	つまり、C<use strict 'vars'> が有効の場合は、L<C<our>\|/our VARLIST> を
10622	10758	使うことで、
10623	10759	パッケージ変数をパッケージ名で修飾することなく使うことができますが、
10624	10760	L<C<our>\|/our VARLIST> 宣言のレキシカルスコープ内だけということです。
10625	10761	これは(たとえ同じ文の中でも)直ちに適用されます。
10626	10762
10627	10763	package Foo;
10628		use strict;
	10764	use v5.36; # which implies "use strict;"
10629	10765
10630	10766	$Foo::foo = 23;
10631	10767
10632	10768	{
10633	10769	our $foo; # alias to $Foo::foo
10634	10770	print $foo; # prints 23
10635	10771	}
10636	10772
10637	10773	print $Foo::foo; # prints 23
10638	10774
10639	10775	print $foo; # ERROR: requires explicit package name
10640	10776
10641	10777	=begin original
10642	10778
10643	10779	This works even if the package variable has not been used before, as
10644	10780	package variables spring into existence when first used.
10645	10781
10646	10782	=end original
10647	10783
10648	10784	これはパッケージ変数がまだ使われていなくても動作します; パッケージ変数は、
10649	10785	最初に使われた時にひょっこり現れるからです。
10650	10786
10651	10787	package Foo;
10652		use ~~strict~~;
	10788	use v5.36;
10653	10789
10654	10790	our $foo = 23; # just like $Foo::foo = 23
10655	10791
10656	10792	print $Foo::foo; # prints 23
10657	10793
10658	10794	=begin original
10659	10795
10660	10796	Because the variable becomes legal immediately under C<use strict 'vars'>, so
10661	10797	long as there is no variable with that name is already in scope, you can then
10662	10798	reference the package variable again even within the same statement.
10663	10799
10664	10800	=end original
10665	10801
10666	10802	変数は C<use strict 'vars'> の基で直ちに正当になるので、
10667	10803	スコープ内に同じ名前の変数がない限り、
10668	10804	たとえ同じ文の中でもパッケージ変数を再び参照できます。
10669	10805
10670	10806	package Foo;
10671		use ~~strict~~;
	10807	use v5.36;
10672	10808
10673	10809	my $foo = $foo; # error, undeclared $foo on right-hand side
10674	10810	our $foo = $foo; # no errors
10675	10811
10676	10812	=begin original
10677	10813
10678	10814	If more than one variable is listed, the list must be placed
10679	10815	in parentheses.
10680	10816
10681	10817	=end original
10682	10818
10683		複数の変数を指定する場合は、リストはかっこで~~くくら~~なければなりません。
	10819	複数の変数を指定する場合は、リストはかっこで囲まなければなりません。
10684	10820
10685	10821	our($bar, $baz);
10686	10822
10687	10823	=begin original
10688	10824
10689	10825	An L<C<our>\|/our VARLIST> declaration declares an alias for a package
10690	10826	variable that will be visible
10691	10827	across its entire lexical scope, even across package boundaries. The
10692	10828	package in which the variable is entered is determined at the point
10693	10829	of the declaration, not at the point of use. This means the following
10694	10830	behavior holds:
10695	10831
10696	10832	=end original
10697	10833
10698	10834	L<C<our>\|/our VARLIST> 宣言はレキシカルスコープ全体に対して (たとえ
10699	10835	パッケージ境界を越えていても)見える、パッケージ変数への別名を宣言します。
10700	10836	この変数が入るパッケージは宣言した時点で定義され、
10701	10837	使用した時点ではありません。
10702	10838	これにより、以下のような振る舞いになります:
10703	10839
10704	10840	package Foo;
10705	10841	our $bar; # declares $Foo::bar for rest of lexical scope
10706	10842	$bar = 20;
10707	10843
10708	10844	package Bar;
10709	10845	print $bar; # prints 20, as it refers to $Foo::bar
10710	10846
10711	10847	=begin original
10712	10848
10713	10849	Multiple L<C<our>\|/our VARLIST> declarations with the same name in the
10714	10850	same lexical
10715	10851	scope are allowed if they are in different packages. If they happen
10716	10852	to be in the same package, Perl will emit warnings if you have asked
10717	10853	for them, just like multiple L<C<my>\|/my VARLIST> declarations. Unlike
10718	10854	a second L<C<my>\|/my VARLIST> declaration, which will bind the name to a
10719	10855	fresh variable, a second L<C<our>\|/our VARLIST> declaration in the same
10720	10856	package, in the same scope, is merely redundant.
10721	10857
10722	10858	=end original
10723	10859
10724	10860	同じレキシカルスコープでも、パッケージが異なっていれば、同じ名前で複数の
10725	10861	L<C<our>\|/our VARLIST> 宣言ができます。
10726	10862	同じパッケージになっていると、警告が出力されるようになっていれば
10727	10863	複数の L<C<my>\|/my VARLIST> 宣言がある場合と同じように警告が出力されます。
10728	10864	新しい変数を名前に割り当てることになる 2 回目の L<C<my>\|/my VARLIST> 宣言と
10729	10865	違って、同じパッケージの同じスコープで 2 回
10730	10866	L<C<our>\|/our VARLIST> 宣言するのは単に冗長です。
10731	10867
10732	10868	use warnings;
10733	10869	package Foo;
10734	10870	our $bar; # declares $Foo::bar for rest of lexical scope
10735	10871	$bar = 20;
10736	10872
10737	10873	package Bar;
10738	10874	our $bar = 30; # declares $Bar::bar for rest of lexical scope
10739	10875	print $bar; # prints 30
10740	10876
10741	10877	our $bar; # emits warning but has no other effect
10742	10878	print $bar; # still prints 30
10743	10879
10744	10880	=begin original
10745	10881
10746	10882	An L<C<our>\|/our VARLIST> declaration may also have a list of attributes
10747	10883	associated with it.
10748	10884
10749	10885	=end original
10750	10886
10751	10887	L<C<our>\|/our VARLIST> 宣言には、それと結び付けられる属性のリストを
10752	10888	持つこともあります。
10753	10889
10754	10890	=begin original
10755	10891
10756	10892	The exact semantics and interface of TYPE and ATTRS are still
10757	10893	evolving. TYPE is currently bound to the use of the L<fields> pragma,
10758	10894	and attributes are handled using the L<attributes> pragma, or, starting
10759	10895	from Perl 5.8.0, also via the L<Attribute::Handlers> module. See
10760	10896	L<perlsub/"Private Variables via my()"> for details.
10761	10897
10762	10898	=end original
10763	10899
10764	10900	TYPE と ATTRS の正確な文法とインターフェースは今でも進化しています。
10765	10901	現在のところ、TYPE は L<fields> プラグマの使用と結び付けられていて、
10766	10902	属性は L<attributes> プラグマか、Perl 5.8.0 からは
10767	10903	L<Attribute::Handlers> モジュールと結び付けられています。
10768	10904	詳しくは L<perlsub/"Private Variables via my()"> を参照してください。
10769	10905
10770	10906	=begin original
10771	10907
10772	10908	Note that with a parenthesised list, L<C<undef>\|/undef EXPR> can be used
10773	10909	as a dummy placeholder, for example to skip assignment of initial
10774	10910	values:
10775	10911
10776	10912	=end original
10777	10913
10778	10914	かっこで囲まれたリストでは、L<C<undef>\|/undef EXPR> は、例えば初期値の代入を
10779	10915	飛ばすために、ダミーのプレースホルダとして使えることに注意してください:
10780	10916
10781	10917	our ( undef, $min, $hour ) = localtime;
10782	10918
10783	10919	=begin original
10784	10920
10785	10921	L<C<our>\|/our VARLIST> differs from L<C<use vars>\|vars>, which allows
10786	10922	use of an unqualified name I<only> within the affected package, but
10787	10923	across scopes.
10788	10924
10789	10925	=end original
10790	10926
10791	10927	L<C<our>\|/our VARLIST> は L<C<use vars>\|vars> と異なります; スコープを
10792	10928	またぐのではなく、影響するパッケージの内側 I<のみ> で完全修飾されていない
10793	10929	名前を使えるようにします。
10794	10930
10795	10931	=item pack TEMPLATE,LIST
10796	10932	X<pack>
10797	10933
10798	10934	=for Pod::Functions convert a list into a binary representation
10799	10935
10800	10936	=begin original
10801	10937
10802	10938	Takes a LIST of values and converts it into a string using the rules
10803	10939	given by the TEMPLATE. The resulting string is the concatenation of
10804	10940	the converted values. Typically, each converted value looks
10805	10941	like its machine-level representation. For example, on 32-bit machines
10806	10942	an integer may be represented by a sequence of 4 bytes, which will in
10807	10943	Perl be presented as a string that's 4 characters long.
10808	10944
10809	10945	=end original
10810	10946
10811	10947	LIST の値を TEMPLATE で与えられたルールを用いて文字列に変換します。
10812	10948	結果の文字列は変換した値を連結したものです。
10813	10949	典型的には、それぞれの変換された値はマシンレベルの表現のように見えます。
10814	10950	例えば、32-bit マシンでは、整数は 4 バイトで表現されるので、
10815	10951	Perl では 4 文字の文字列で表現されます。
10816	10952
10817	10953	=begin original
10818	10954
10819	10955	See L<perlpacktut> for an introduction to this function.
10820	10956
10821	10957	=end original
10822	10958
10823	10959	この関数の説明については L<perlpacktut> を参照してください。
10824	10960
10825	10961	=begin original
10826	10962
10827	10963	The TEMPLATE is a sequence of characters that give the order and type
10828	10964	of values, as follows:
10829	10965
10830	10966	=end original
10831	10967
10832	10968	TEMPLATE は、以下のような値の型と順番を指定する文字を並べたものです:
10833	10969
10834	10970	=begin original
10835	10971
10836	10972	a A string with arbitrary binary data, will be null padded.
10837	10973	A A text (ASCII) string, will be space padded.
10838	10974	Z A null-terminated (ASCIZ) string, will be null padded.
10839	10975
10840	10976	=end original
10841	10977
10842	10978	a 任意のバイナリデータを含む文字列、ヌル文字で埋める。
10843	10979	A テキスト (ASCII) 文字列、スペース文字で埋める。
10844	10980	Z ヌル文字終端 (ASCIZ) 文字列、ヌル文字で埋める。
10845	10981
10846	10982	=begin original
10847	10983
10848	10984	b A bit string (ascending bit order inside each byte,
10849	10985	like vec()).
10850	10986	B A bit string (descending bit order inside each byte).
10851	10987	h A hex string (low nybble first).
10852	10988	H A hex string (high nybble first).
10853	10989
10854	10990	=end original
10855	10991
10856	10992	b ビット列 (バイトごとに昇ビット順、vec() と同じ)。
10857	10993	B ビット列 (バイトごとに降ビット順)。
10858	10994	h 16 進数文字列 (低位ニブルが先)。
10859	10995	H 16 進数文字列 (高位ニブルが先)。
10860	10996
10861	10997	=begin original
10862	10998
10863	10999	c A signed char (8-bit) value.
10864	11000	C An unsigned char (octet) value.
10865	11001	W An unsigned char value (can be greater than 255).
10866	11002
10867	11003	=end original
10868	11004
10869	11005	c signed char (8 ビット) 値。
10870	11006	C unsigned char (オクテット) 値。
10871	11007	W unsigned char 値 (255 より大きいかもしれません)。
10872	11008
10873	11009	=begin original
10874	11010
10875	11011	s A signed short (16-bit) value.
10876	11012	S An unsigned short value.
10877	11013
10878	11014	=end original
10879	11015
10880	11016	s signed short (16 ビット) 値。
10881	11017	S unsigned short 値。
10882	11018
10883	11019	=begin original
10884	11020
10885	11021	l A signed long (32-bit) value.
10886	11022	L An unsigned long value.
10887	11023
10888	11024	=end original
10889	11025
10890	11026	l signed long (32 ビット) 値。
10891	11027	L unsigned long 値。
10892	11028
10893	11029	=begin original
10894	11030
10895	11031	q A signed quad (64-bit) value.
10896	11032	Q An unsigned quad value.
10897	11033	(Quads are available only if your system supports 64-bit
10898	11034	integer values _and_ if Perl has been compiled to support
10899	11035	those. Raises an exception otherwise.)
10900	11036
10901	11037	=end original
10902	11038
10903	11039	q 符号付き 64 ビット整数。
10904	11040	Q 符号なし 64 ビット整数。
10905	11041	(64 ビット整数は、システムが 64 ビット整数に対応していて、かつ Perl が
10906	11042	64 ビット整数対応としてコンパイルされている場合にのみ使用可能です。
10907	11043	それ以外の場合は例外が発生します。)
10908	11044
10909	11045	=begin original
10910	11046
10911	11047	i A signed integer value.
10912	11048	I An unsigned integer value.
10913	11049	(This 'integer' is _at_least_ 32 bits wide. Its exact
10914	11050	size depends on what a local C compiler calls 'int'.)
10915	11051
10916	11052	=end original
10917	11053
10918	11054	i signed int 値。
10919	11055	I unsigned int 値。
10920	11056	(ここでの 'integer' は「最低」 32 ビット幅です。正確なサイズは
10921	11057	ローカルの C コンパイラの 'int' のサイズに依存します。)
10922	11058
10923	11059	=begin original
10924	11060
10925	11061	n An unsigned short (16-bit) in "network" (big-endian) order.
10926	11062	N An unsigned long (32-bit) in "network" (big-endian) order.
10927	11063	v An unsigned short (16-bit) in "VAX" (little-endian) order.
10928	11064	V An unsigned long (32-bit) in "VAX" (little-endian) order.
10929	11065
10930	11066	=end original
10931	11067
10932	11068	n "network" 順序 (ビッグエンディアン) の unsigned short (16 ビット)。
10933	11069	N "network" 順序 (ビッグエンディアン) の unsigned long (32 ビット)。
10934	11070	v "VAX" 順序 (リトルエンディアン) の unsigned short (16 ビット)。
10935	11071	V "VAX" 順序 (リトルエンディアン) の unsigned long (32 ビット)。
10936	11072
10937	11073	=begin original
10938	11074
10939	11075	j A Perl internal signed integer value (IV).
10940	11076	J A Perl internal unsigned integer value (UV).
10941	11077
10942	11078	=end original
10943	11079
10944	11080	j Perl 内部符号付き整数 (IV)。
10945	11081	J Perl 内部符号なし整数 (UV)。
10946	11082
10947	11083	=begin original
10948	11084
10949	11085	f A single-precision float in native format.
10950	11086	d A double-precision float in native format.
10951	11087
10952	11088	=end original
10953	11089
10954	11090	f 機種依存の単精度浮動小数点数。
10955	11091	d 機種依存の倍精度浮動小数点数。
10956	11092
10957	11093	=begin original
10958	11094
10959	11095	F A Perl internal floating-point value (NV) in native format
10960	11096	D A float of long-double precision in native format.
10961	11097	(Long doubles are available only if your system supports
10962		long double values _a~~nd_~~ i~~f P~~erl has been compile~~d to~~
	11098	long double values. Raises an exception otherwise.
10963		support those. Raises an exception otherwise.
10964	11099	Note that there are different long double formats.)
10965	11100
10966	11101	=end original
10967	11102
10968	11103	F ネイティブフォーマットの Perl 内部浮動小数点数 (NV)
10969	11104	D ネイティブフォーマットの長い倍精度浮動小数点数(long double)。
10970		(long double は、システムが long double に対応してい~~て、かつ Perl が~~
	11105	(long double は、システムが long double に対応している場合にのみ
10971		~~long~~ ~~double~~ ~~対応としてコンパイルされている場合にのみ~~使用可能です。
	11106	使用可能です。それ以外の場合は例外が発生します。
10972		~~それ以外~~の場合は~~例外が発生~~します。
	11107	long double 型式の場合は異なることに注意してください。)
10973		long double 型式の場合は異なることに注意してください)
10974	11108
10975	11109	=begin original
10976	11110
10977	11111	p A pointer to a null-terminated string.
10978	11112	P A pointer to a structure (fixed-length string).
10979	11113
10980	11114	=end original
10981	11115
10982	11116	p ヌル文字で終端する文字列へのポインタ。
10983	11117	P 構造体 (固定長文字列) へのポインタ。
10984	11118
10985	11119	=begin original
10986	11120
10987	11121	u A uuencoded string.
10988	11122	U A Unicode character number. Encodes to a character in char-
10989	11123	acter mode and UTF-8 (or UTF-EBCDIC in EBCDIC platforms) in
10990		byte mode.
	11124	byte mode. Also on EBCDIC platforms, the character number will
	11125	be the native EBCDIC value for character numbers below 256.
	11126	This allows most programs using this feature to not have to
	11127	care which type of platform they are running on.
10991	11128
	11129
10992	11130	=end original
10993	11131
10994	11132	u uuencode 文字列。
10995	11133	U Unicode 文字番号。文字モードでは文字に、バイトモードなら UTF-8 に
10996	11134	(EBCDIC システムでは UTF-EBCDIC に)エンコードされます。
	11135	また EBCDIC プラットフォームでは、文字番号が 256 より下の場合は
	11136	EBCDIC にネイティブな値です。
	11137	これにより、この機能を使うほとんどのプログラムで、どの種類の
	11138	プラットフォームで実行されるかを気にする必要がなくなります。
10997	11139
10998	11140	=begin original
10999	11141
11000	11142	w A BER compressed integer (not an ASN.1 BER, see perlpacktut
11001	11143	for details). Its bytes represent an unsigned integer in
11002	11144	base 128, most significant digit first, with as few digits
11003	11145	as possible. Bit eight (the high bit) is set on each byte
11004	11146	except the last.
11005	11147
11006	11148	=end original
11007	11149
11008	11150	w A BER 圧縮変数(ASN.1 BER ではありません; 詳細については perlpacktut を
11009	11151	参照してください)。このバイト列はできるだけ少ない桁数で表現された
11010	11152	128 を基とした符号なし整数で、最上位ビットから順に並びます。
11011	11153	最後のバイト以外の各バイトのビット 8 (上位ビット) がセットされます。
11012	11154
11013	11155	=begin original
11014	11156
11015	11157	x A null byte (a.k.a ASCII NUL, "\000", chr(0))
11016	11158	X Back up a byte.
11017	11159	@ Null-fill or truncate to absolute position, counted from the
11018	11160	start of the innermost ()-group.
11019	11161	. Null-fill or truncate to absolute position specified by
11020	11162	the value.
11021	11163	( Start of a ()-group.
11022	11164
11023	11165	=end original
11024	11166
11025	11167	x ヌル文字 (つまり ASCII NUL, "\000", chr(0))
11026	11168	X 1 文字後退。
11027	11169	@ 一番内側の () の組の開始位置から数えて、絶対位置までヌル文字で
11028	11170	埋めるか切り詰める。
11029	11171	. 値で指定した絶対位置までヌル文字で埋めるか切り詰める。
11030	11172	( () の組の開始。
11031	11173
11032	11174	=begin original
11033	11175
11034	11176	One or more modifiers below may optionally follow certain letters in the
11035	11177	TEMPLATE (the second column lists letters for which the modifier is valid):
11036	11178
11037	11179	=end original
11038	11180
11039	11181	以下に示す一つまたは複数の修飾子を、TEMPLATE の文字のいくつかにオプションで
11040	11182	付けることができます(表の 2 列目は、その修飾子が有効な文字です):
11041	11183
11042	11184	=begin original
11043	11185
11044	11186	! sSlLiI Forces native (short, long, int) sizes instead
11045	11187	of fixed (16-/32-bit) sizes.
11046	11188
11047	11189	=end original
11048	11190
11049	11191	! sSlLiI 固定の(16/32 ビット)サイズではなく、ネイティブな
11050	11192	(short, long, int)サイズを強制する。
11051	11193
11052	11194	=begin original
11053	11195
11054	11196	! xX Make x and X act as alignment commands.
11055	11197
11056	11198	=end original
11057	11199
11058	11200	! xX x と X をアライメントコマンドとして振舞わせる。
11059	11201
11060	11202	=begin original
11061	11203
11062	11204	! nNvV Treat integers as signed instead of unsigned.
11063	11205
11064	11206	=end original
11065	11207
11066	11208	! nNvV 整数を符号なしではなく符号付きとして扱わせる。
11067	11209
11068	11210	=begin original
11069	11211
11070	11212	! @. Specify position as byte offset in the internal
11071	11213	representation of the packed string. Efficient
11072	11214	but dangerous.
11073	11215
11074	11216	=end original
11075	11217
11076	11218	! @. pack された内部表現のバイトオフセットとして位置を指定する。
11077	11219	効率的ですが危険です。
11078	11220
11079	11221	=begin original
11080	11222
11081	11223	> sSiIlLqQ Force big-endian byte-order on the type.
11082	11224	jJfFdDpP (The "big end" touches the construct.)
11083	11225
11084	11226	=end original
11085	11227
11086	11228	> sSiIlLqQ これらの型のバイト順をビッグエンディアンに強制します。
11087	11229	jJfFdDpP (「大きい端」が構造に触れています。)
11088	11230
11089	11231	=begin original
11090	11232
11091	11233	< sSiIlLqQ Force little-endian byte-order on the type.
11092	11234	jJfFdDpP (The "little end" touches the construct.)
11093	11235
11094	11236	=end original
11095	11237
11096	11238	< sSiIlLqQ これらの型のバイト順をリトルエンディアンに強制します。
11097	11239	jJfFdDpP (「小さい端」が構造に触れています。)
11098	11240
11099	11241	=begin original
11100	11242
11101	11243	The C<< > >> and C<< < >> modifiers can also be used on C<()> groups
11102	11244	to force a particular byte-order on all components in that group,
11103	11245	including all its subgroups.
11104	11246
11105	11247	=end original
11106	11248
11107	11249	C<< > >> と C<< < >> の修飾子は C<()>-グループでも使えます;
11108	11250	この場合はそのグループと全ての副グループ内の全ての要素を特定のバイト順に
11109	11251	強制します。
11110	11252
11111	11253	=begin comment
11112	11254
11113	11255	Larry recalls that the hex and bit string formats (H, h, B, b) were added to
11114	11256	pack for processing data from NASA's Magellan probe. Magellan was in an
11115	11257	elliptical orbit, using the antenna for the radar mapping when close to
11116	11258	Venus and for communicating data back to Earth for the rest of the orbit.
11117	11259	There were two transmission units, but one of these failed, and then the
11118	11260	other developed a fault whereby it would randomly flip the sense of all the
11119	11261	bits. It was easy to automatically detect complete records with the correct
11120	11262	sense, and complete records with all the bits flipped. However, this didn't
11121	11263	recover the records where the sense flipped midway. A colleague of Larry's
11122	11264	was able to pretty much eyeball where the records flipped, so they wrote an
11123	11265	editor named kybble (a pun on the dog food Kibbles 'n Bits) to enable him to
11124	11266	manually correct the records and recover the data. For this purpose pack
11125	11267	gained the hex and bit string format specifiers.
11126	11268
11127	11269	git shows that they were added to perl 3.0 in patch #44 (Jan 1991, commit
11128	11270	27e2fb84680b9cc1), but the patch description makes no mention of their
11129	11271	addition, let alone the story behind them.
11130	11272
11131	11273	=end comment
11132	11274
11133	11275	=begin original
11134	11276
11135	11277	The following rules apply:
11136	11278
11137	11279	=end original
11138	11280
11139	11281	以下の条件が適用されます:
11140	11282
11141	11283	=over
11142	11284
11143	11285	=item *
11144	11286
11145	11287	=begin original
11146	11288
11147	11289	Each letter may optionally be followed by a number indicating the repeat
11148	11290	count. A numeric repeat count may optionally be enclosed in brackets, as
11149	11291	in C<pack("C[80]", @arr)>. The repeat count gobbles that many values from
11150	11292	the LIST when used with all format types other than C<a>, C<A>, C<Z>, C<b>,
11151	11293	C<B>, C<h>, C<H>, C<@>, C<.>, C<x>, C<X>, and C<P>, where it means
11152	11294	something else, described below. Supplying a C<*> for the repeat count
11153	11295	instead of a number means to use however many items are left, except for:
11154	11296
11155	11297	=end original
11156	11298
11157	11299	これらの文字の後には、繰り返し数を示す数字を付けることができます。
11158	11300	数値の繰り返し数は C<pack "C[80]", @arr> のように大かっこで
11159	11301	囲むこともできます。
11160	11302	C<a>, C<A>, C<Z>, C<b>, C<B>, C<h>, C<H>, C<@>, C<.>, C<x>, C<X>, C<P>
11161	11303	以外の全ての型では、LIST から繰り返し数の値を取り出して使います。
11162	11304	繰り返し数に C<*> を指定すると、以下の例外を除いて、
11163	11305	その時点で残っているすべての要素を意味します。
11164	11306
11165	11307	=over
11166	11308
11167	11309	=item *
11168	11310
11169	11311	=begin original
11170	11312
11171	11313	C<@>, C<x>, and C<X>, where it is equivalent to C<0>.
11172	11314
11173	11315	=end original
11174	11316
11175	11317	C<@>, C<x>, C<X> では C<0> と等価です。
11176	11318
11177	11319	=item *
11178	11320
11179	11321	=begin original
11180	11322
11181	11323	<.>, where it means relative to the start of the string.
11182	11324
11183	11325	=end original
11184	11326
11185	11327	<.> では文字列の先頭からの相対位置を意味します。
11186	11328
11187	11329	=item *
11188	11330
11189	11331	=begin original
11190	11332
11191	11333	C<u>, where it is equivalent to 1 (or 45, which here is equivalent).
11192	11334
11193	11335	=end original
11194	11336
11195	11337	C<u> では 1 (あるいはここでは 45 でも等価です) と等価です。
11196	11338
11197	11339	=back
11198	11340
11199	11341	=begin original
11200	11342
11201	11343	One can replace a numeric repeat count with a template letter enclosed in
11202	11344	brackets to use the packed byte length of the bracketed template for the
11203	11345	repeat count.
11204	11346
11205	11347	=end original
11206	11348
11207	11349	このテンプレートでパックされたバイト長を繰り返し数として使うために、
11208	11350	大かっこで囲まれたテンプレートで数値の繰り返し数を置き換えることが
11209	11351	できます。
11210	11352
11211	11353	=begin original
11212	11354
11213	11355	For example, the template C<x[L]> skips as many bytes as in a packed long,
11214	11356	and the template C<"$t X[$t] $t"> unpacks twice whatever $t (when
11215	11357	variable-expanded) unpacks. If the template in brackets contains alignment
11216	11358	commands (such as C<x![d]>), its packed length is calculated as if the
11217	11359	start of the template had the maximal possible alignment.
11218	11360
11219	11361	=end original
11220	11362
11221	11363	例えば、テンプレート C<x[L]> は long でパックされたバイト数分だけスキップし、
11222	11364	テンプレート C<"$t X[$t] $t"> は $t (変数展開された場合)を
11223	11365	unpack したものの 2 倍を unpack します。
11224	11366	(C<x![d]> のように) 大かっこにアライメントコマンドが含まれている場合、
11225	11367	パックされた長さは、テンプレートの先頭で最大限可能なアライメントを
11226	11368	持っているものとして計算されます。
11227	11369
11228	11370	=begin original
11229	11371
11230	11372	When used with C<Z>, a C<*> as the repeat count is guaranteed to add a
11231	11373	trailing null byte, so the resulting string is always one byte longer than
11232	11374	the byte length of the item itself.
11233	11375
11234	11376	=end original
11235	11377
11236	11378	C<Z> で、繰り返し数として C<*> が使われた場合、末尾にヌルバイトが
11237	11379	保証されるので、結果の文字列は常にアイテム自身のバイト長よりも 1 バイト
11238	11380	長くなります。
11239	11381
11240	11382	=begin original
11241	11383
11242	11384	When used with C<@>, the repeat count represents an offset from the start
11243	11385	of the innermost C<()> group.
11244	11386
11245	11387	=end original
11246	11388
11247	11389	C<@> で使うと、繰り返し数は一番内側の C<()> グループの先頭からのオフセットを
11248	11390	表現します。
11249	11391
11250	11392	=begin original
11251	11393
11252	11394	When used with C<.>, the repeat count determines the starting position to
11253	11395	calculate the value offset as follows:
11254	11396
11255	11397	=end original
11256	11398
11257	11399	C<.> で使われると、繰り返し数は以下のようにして、
11258	11400	値のオフセットを計算するための開始位置を決定するために使われます。
11259	11401
11260	11402	=over
11261	11403
11262	11404	=item *
11263	11405
11264	11406	=begin original
11265	11407
11266	11408	If the repeat count is C<0>, it's relative to the current position.
11267	11409
11268	11410	=end original
11269	11411
11270	11412	繰り返し数が C<0> なら、現在位置からの相対位置となります。
11271	11413
11272	11414	=item *
11273	11415
11274	11416	=begin original
11275	11417
11276	11418	If the repeat count is C<*>, the offset is relative to the start of the
11277	11419	packed string.
11278	11420
11279	11421	=end original
11280	11422
11281	11423	繰り返し数が C<*> なら、オフセットは pack された文字列の先頭からの
11282	11424	相対位置です。
11283	11425
11284	11426	=item *
11285	11427
11286	11428	=begin original
11287	11429
11288	11430	And if it's an integer I<n>, the offset is relative to the start of the
11289	11431	I<n>th innermost C<( )> group, or to the start of the string if I<n> is
11290	11432	bigger then the group level.
11291	11433
11292	11434	=end original
11293	11435
11294	11436	そして整数 I<n> なら、オフセットは一番内側から I<n> 番目の C<( )> グループの
11295	11437	先頭、あるいは I<n> がグループレベルより大きい場合は文字列の先頭からの
11296	11438	相対位置です。
11297	11439
11298	11440	=back
11299	11441
11300	11442	=begin original
11301	11443
11302	11444	The repeat count for C<u> is interpreted as the maximal number of bytes
11303	11445	to encode per line of output, with 0, 1 and 2 replaced by 45. The repeat
11304	11446	count should not be more than 65.
11305	11447
11306	11448	=end original
11307	11449
11308	11450	C<u> での繰り返し回数は、出力行毎に最大何バイトまでをエンコードするかを
11309	11451	示します; 0, 1, 2 は 45 として扱われます。
11310	11452	繰り返し数は 65 を超えてはなりません。
11311	11453
11312	11454	=item *
11313	11455
11314	11456	=begin original
11315	11457
11316	11458	The C<a>, C<A>, and C<Z> types gobble just one value, but pack it as a
11317	11459	string of length count, padding with nulls or spaces as needed. When
11318	11460	unpacking, C<A> strips trailing whitespace and nulls, C<Z> strips everything
11319	11461	after the first null, and C<a> returns data with no stripping at all.
11320	11462
11321	11463	=end original
11322	11464
11323	11465	C<a>, C<A>, C<Z> という型を使うと、値を一つだけ取り出して使いますが、
11324	11466	繰り返し数で示す長さの文字列となるように、必要に応じてヌル文字か
11325	11467	スペース文字を付け足します。
11326	11468	unpack するとき、C<A> は後続の空白やヌル文字を取り除きます; C<Z> は最初の
11327	11469	ヌル文字以降の全てを取り除きます; C<a> はデータを取り除くことなく
11328	11470	そのまま返します。
11329	11471
11330	11472	=begin original
11331	11473
11332	11474	If the value to pack is too long, the result is truncated. If it's too
11333	11475	long and an explicit count is provided, C<Z> packs only C<$count-1> bytes,
11334	11476	followed by a null byte. Thus C<Z> always packs a trailing null, except
11335	11477	when the count is 0.
11336	11478
11337	11479	=end original
11338	11480
11339	11481	pack する値が長すぎる場合、結果は切り詰められます。
11340	11482	長すぎてかつ明示的に個数が指定されている場合、
11341	11483	C<Z> は C<$count-1> バイトまで pack し、その後にヌルバイトがつきます。
11342	11484	従って、C<Z> は、繰り返し数が 0 の場合を除いて、常に末尾にヌルバイトが
11343	11485	つきます。
11344	11486
11345	11487	=item *
11346	11488
11347	11489	=begin original
11348	11490
11349	11491	Likewise, the C<b> and C<B> formats pack a string that's that many bits long.
11350	11492	Each such format generates 1 bit of the result. These are typically followed
11351	11493	by a repeat count like C<B8> or C<B64>.
11352	11494
11353	11495	=end original
11354	11496
11355	11497	同様に、C<b> や C<B> は、繰り返し数で示すビット長のビット列に pack します。
11356	11498	これらの各文字は結果の 1 ビットを生成します。
11357	11499	これらは典型的には C<B8> や C<B64> のような繰り返しカウントが引き続きます。
11358	11500
11359	11501	=begin original
11360	11502
11361	11503	Each result bit is based on the least-significant bit of the corresponding
11362	11504	input character, i.e., on C<ord($char)%2>. In particular, characters C<"0">
11363	11505	and C<"1"> generate bits 0 and 1, as do characters C<"\000"> and C<"\001">.
11364	11506
11365	11507	=end original
11366	11508
11367	11509	結果ビットのそれぞれは対応する入力文字の最下位ビットを基にします
11368	11510	(つまり C<ord($char)%2>)。
11369	11511	特に、文字 C<"0"> と C<"1"> は文字 C<"\000"> と C<"\001"> と同様に、
11370	11512	ビット 0 と 1 を生成します。
11371	11513
11372	11514	=begin original
11373	11515
11374	11516	Starting from the beginning of the input string, each 8-tuple
11375	11517	of characters is converted to 1 character of output. With format C<b>,
11376	11518	the first character of the 8-tuple determines the least-significant bit of a
11377	11519	character; with format C<B>, it determines the most-significant bit of
11378	11520	a character.
11379	11521
11380	11522	=end original
11381	11523
11382	11524	pack() の入力文字列の先頭から始めて、8 タプル毎に 1 文字の出力に変換されます。
11383	11525	C<b> フォーマットでは 8 タプルの最初の文字が出力の最下位ビットとなります;
11384	11526	C<B> フォーマットでは出力の最上位ビットとなります。
11385	11527
11386	11528	=begin original
11387	11529
11388	11530	If the length of the input string is not evenly divisible by 8, the
11389	11531	remainder is packed as if the input string were padded by null characters
11390	11532	at the end. Similarly during unpacking, "extra" bits are ignored.
11391	11533
11392	11534	=end original
11393	11535
11394	11536	もし入力文字列の長さが 8 で割り切れない場合、余りの部分は入力文字列の
11395	11537	最後にヌル文字がパッディングされているものとしてパックされます。
11396	11538	同様に、unpack 中は「余分な」ビットは無視されます。
11397	11539
11398	11540	=begin original
11399	11541
11400	11542	If the input string is longer than needed, remaining characters are ignored.
11401	11543
11402	11544	=end original
11403	11545
11404	11546	入力文字列が必要な分よりも長い場合、余分な文字は無視されます。
11405	11547
11406	11548	=begin original
11407	11549
11408	11550	A C<*> for the repeat count uses all characters of the input field.
11409	11551	On unpacking, bits are converted to a string of C<0>s and C<1>s.
11410	11552
11411	11553	=end original
11412	11554
11413	11555	繰り返し数として C<*> が指定されると、入力フィールドの全ての文字が使われます。
11414	11556	unpack 時にはビット列は C<0> と C<1> の文字列に変換されます。
11415	11557
11416	11558	=item *
11417	11559
11418	11560	=begin original
11419	11561
11420	11562	The C<h> and C<H> formats pack a string that many nybbles (4-bit groups,
11421	11563	representable as hexadecimal digits, C<"0".."9"> C<"a".."f">) long.
11422	11564
11423	11565	=end original
11424	11566
11425	11567	C<h> や C<H> は、多ニブル長(16 進文字である C<"0".."9"> C<"a".."f"> で
11426	11568	表現可能な 4 ビットグループ)のニブル列に pack します。
11427	11569
11428	11570	=begin original
11429	11571
11430	11572	For each such format, L<C<pack>\|/pack TEMPLATE,LIST> generates 4 bits of result.
11431	11573	With non-alphabetical characters, the result is based on the 4 least-significant
11432	11574	bits of the input character, i.e., on C<ord($char)%16>. In particular,
11433	11575	characters C<"0"> and C<"1"> generate nybbles 0 and 1, as do bytes
11434	11576	C<"\000"> and C<"\001">. For characters C<"a".."f"> and C<"A".."F">, the result
11435	11577	is compatible with the usual hexadecimal digits, so that C<"a"> and
11436	11578	C<"A"> both generate the nybble C<0xA==10>. Use only these specific hex
11437	11579	characters with this format.
11438	11580
11439	11581	=end original
11440	11582
11441	11583	このようなフォーマット文字のそれぞれについて、L<C<pack>\|/pack TEMPLATE,LIST> は
11442	11584	結果の 4 ビットを生成します。
11443	11585	英字でない文字の場合、結果は入力文字の下位 4 ビットを
11444	11586	基にします(つまり C<ord($char)%16>)。
11445	11587	特に、文字 C<"0"> と C<"1"> はバイト C<"\000"> と C<"\001"> と同様に
11446	11588	ニブル 0 と 1 を生成します。
11447	11589	文字 C<"a".."f"> と C<"A".."F"> の場合は結果は通常の 16 進数と同じ結果に
11448	11590	なるので、C<"a"> と C<"A"> はどちらもニブル C<0xa==10> を生成します。
11449	11591	これらの 16 進文字はこの特定のフォーマットでだけ使ってください。
11450	11592
11451	11593	=begin original
11452	11594
11453	11595	Starting from the beginning of the template to
11454	11596	L<C<pack>\|/pack TEMPLATE,LIST>, each pair
11455	11597	of characters is converted to 1 character of output. With format C<h>, the
11456	11598	first character of the pair determines the least-significant nybble of the
11457	11599	output character; with format C<H>, it determines the most-significant
11458	11600	nybble.
11459	11601
11460	11602	=end original
11461	11603
11462	11604	L<C<pack>\|/pack TEMPLATE,LIST> のテンプレートの先頭から始めて、2 文字毎に
11463	11605	1 文字の出力に変換されます。
11464	11606	C<h> フォーマットでは 1 文字目が出力の最下位ニブルとなり、
11465	11607	C<H> フォーマットでは出力の最上位ニブルとなります。
11466	11608
11467	11609	=begin original
11468	11610
11469	11611	If the length of the input string is not even, it behaves as if padded by
11470	11612	a null character at the end. Similarly, "extra" nybbles are ignored during
11471	11613	unpacking.
11472	11614
11473	11615	=end original
11474	11616
11475	11617	入力文字列の長さが偶数でない場合、最後にヌル文字でパッディングされて
11476	11618	いるかのように振る舞います。
11477	11619	同様に、unpack 中は「余分な」ニブルは無視されます。
11478	11620
11479	11621	=begin original
11480	11622
11481	11623	If the input string is longer than needed, extra characters are ignored.
11482	11624
11483	11625	=end original
11484	11626
11485	11627	入力文字列が必要な分より長い場合、余分な部分は無視されます。
11486	11628
11487	11629	=begin original
11488	11630
11489	11631	A C<*> for the repeat count uses all characters of the input field. For
11490	11632	L<C<unpack>\|/unpack TEMPLATE,EXPR>, nybbles are converted to a string of
11491	11633	hexadecimal digits.
11492	11634
11493	11635	=end original
11494	11636
11495	11637	繰り返し数として C<*> が指定されると、入力フィールドの全ての文字が使われます。
11496	11638	L<C<unpack>\|/unpack TEMPLATE,EXPR> 時にはニブルは 16 進数の文字列に
11497	11639	変換されます。
11498	11640
11499	11641	=item *
11500	11642
11501	11643	=begin original
11502	11644
11503	11645	The C<p> format packs a pointer to a null-terminated string. You are
11504	11646	responsible for ensuring that the string is not a temporary value, as that
11505	11647	could potentially get deallocated before you got around to using the packed
11506	11648	result. The C<P> format packs a pointer to a structure of the size indicated
11507	11649	by the length. A null pointer is created if the corresponding value for
11508	11650	C<p> or C<P> is L<C<undef>\|/undef EXPR>; similarly with
11509	11651	L<C<unpack>\|/unpack TEMPLATE,EXPR>, where a null pointer unpacks into
11510	11652	L<C<undef>\|/undef EXPR>.
11511	11653
11512	11654	=end original
11513	11655
11514	11656	C<p> は、ヌル文字終端文字列へのポインタを pack します。
11515	11657	文字列が一時的な値でない(つまり pack された結果を使う前に文字列が
11516	11658	解放されない) ことに責任を持つ必要があります。
11517	11659	C<P> は、指定した長さの構造体へのポインタを pack します。
11518	11660	C<p> または C<P> に対応する値が L<C<undef>\|/undef EXPR> だった場合、
11519	11661	ヌルポインタが作成されます; ヌルポインタが L<C<undef>\|/undef EXPR> に
11520	11662	unpack される L<C<unpack>\|/unpack TEMPLATE,EXPR> と同様です。
11521	11663
11522	11664	=begin original
11523	11665
11524	11666	If your system has a strange pointer size--meaning a pointer is neither as
11525	11667	big as an int nor as big as a long--it may not be possible to pack or
11526	11668	unpack pointers in big- or little-endian byte order. Attempting to do
11527	11669	so raises an exception.
11528	11670
11529	11671	=end original
11530	11672
11531	11673	システムのポインタが変わったサイズの場合--つまり、int の大きさでも
11532	11674	long の大きさでもない場合--ポインタをビッグエンディアンやリトルエンディアンの
11533	11675	バイト順で pack や unpack することはできません。
11534	11676	そうしようとすると例外が発生します。
11535	11677
11536	11678	=item *
11537	11679
11538	11680	=begin original
11539	11681
11540	11682	The C</> template character allows packing and unpacking of a sequence of
11541	11683	items where the packed structure contains a packed item count followed by
11542	11684	the packed items themselves. This is useful when the structure you're
11543	11685	unpacking has encoded the sizes or repeat counts for some of its fields
11544	11686	within the structure itself as separate fields.
11545	11687
11546	11688	=end original
11547	11689
11548	11690	C</> テンプレート文字は、アイテムの数の後にアイテムそのものが入っている形の
11549	11691	アイテム列を pack 及び unpack します。
11550	11692	これは、unpack したい構造体が、サイズや繰り返し数が構造体自身の中に
11551	11693	独立したフィールドとしてエンコードされている場合に有効です。
11552	11694
11553	11695	=begin original
11554	11696
11555	11697	For L<C<pack>\|/pack TEMPLATE,LIST>, you write
11556	11698	I<length-item>C</>I<sequence-item>, and the
11557	11699	I<length-item> describes how the length value is packed. Formats likely
11558	11700	to be of most use are integer-packing ones like C<n> for Java strings,
11559	11701	C<w> for ASN.1 or SNMP, and C<N> for Sun XDR.
11560	11702
11561	11703	=end original
11562	11704
11563	11705	L<C<pack>\|/pack TEMPLATE,LIST> では I<length-item>C</>I<string-item> の
11564	11706	形になり、
11565	11707	I<length-item> は長さの値がどのように pack されているかを指定します。
11566	11708	もっともよく使われるのは Java 文字列のための C<n>、ASN.1 や SNMP のための
11567	11709	C<w>、Sun XDR のための C<N> といった整数型です。
11568	11710
11569	11711	=begin original
11570	11712
11571	11713	For L<C<pack>\|/pack TEMPLATE,LIST>, I<sequence-item> may have a repeat
11572	11714	count, in which case
11573	11715	the minimum of that and the number of available items is used as the argument
11574	11716	for I<length-item>. If it has no repeat count or uses a '*', the number
11575	11717	of available items is used.
11576	11718
11577	11719	=end original
11578	11720
11579	11721	L<C<pack>\|/pack TEMPLATE,LIST> では、I<sequence-item> は繰り返し数を
11580	11722	持つことがあり、その場合はその最小値と利用可能なアイテムの数は
11581	11723	I<length-item> のための引数として使われます。
11582	11724	繰り返し数がなかったり、'*' を使うと、利用可能なアイテムの数が使われます。
11583	11725
11584	11726	=begin original
11585	11727
11586	11728	For L<C<unpack>\|/unpack TEMPLATE,EXPR>, an internal stack of integer
11587	11729	arguments unpacked so far is
11588	11730	used. You write C</>I<sequence-item> and the repeat count is obtained by
11589	11731	popping off the last element from the stack. The I<sequence-item> must not
11590	11732	have a repeat count.
11591	11733
11592	11734	=end original
11593	11735
11594	11736	L<C<unpack>\|/unpack TEMPLATE,EXPR> では、今まで unpack した数値引数の
11595	11737	内部スタックが使われます。
11596	11738	C</>I<sequence-item> と書いて、繰り返し数はスタックから最後の要素を
11597	11739	取り出すことで得ます。
11598	11740	I<sequence-item> は繰り返し数を持っていてはいけません。
11599	11741
11600	11742	=begin original
11601	11743
11602	11744	If I<sequence-item> refers to a string type (C<"A">, C<"a">, or C<"Z">),
11603	11745	the I<length-item> is the string length, not the number of strings. With
11604	11746	an explicit repeat count for pack, the packed string is adjusted to that
11605	11747	length. For example:
11606	11748
11607	11749	=end original
11608	11750
11609	11751	I<sequence-item> が文字列型 (C<"A">, C<"a">, C<"Z">) を参照している場合、
11610	11752	I<length-item> は文字列の数ではなく、文字列の長さです。
11611	11753	pack で明示的な繰り返し数があると、pack された文字列は与えられた
11612	11754	長さに調整されます。
11613	11755	例えば:
11614	11756
11615	11757	This code: gives this result:
11616	11758
11617	11759	unpack("W/a", "\004Gurusamy") ("Guru")
11618	11760	unpack("a3/A A*", "007 Bond J ") (" Bond", "J")
11619	11761	unpack("a3 x2 /A A*", "007: Bond, J.") ("Bond, J", ".")
11620	11762
11621	11763	pack("n/a* w/a","hello,","world") "\000\006hello,\005world"
11622	11764	pack("a/W2", ord("a") .. ord("z")) "2ab"
11623	11765
11624	11766	=begin original
11625	11767
11626	11768	The I<length-item> is not returned explicitly from
11627	11769	L<C<unpack>\|/unpack TEMPLATE,EXPR>.
11628	11770
11629	11771	=end original
11630	11772
11631	11773	I<length-item> は L<C<unpack>\|/unpack TEMPLATE,EXPR> から明示的には
11632	11774	返されません。
11633	11775
11634	11776	=begin original
11635	11777
11636	11778	Supplying a count to the I<length-item> format letter is only useful with
11637	11779	C<A>, C<a>, or C<Z>. Packing with a I<length-item> of C<a> or C<Z> may
11638	11780	introduce C<"\000"> characters, which Perl does not regard as legal in
11639	11781	numeric strings.
11640	11782
11641	11783	=end original
11642	11784
11643	11785	I<length-item> 文字に繰り返し数をつけるのは、
11644	11786	文字が C<A>, C<a>, C<Z> でない限りは有用ではありません。
11645	11787	C<a> や C<Z> を I<length-item> として pack すると C<"\000"> 文字が
11646	11788	出力されることがあり、Perl はこれを有効な数値文字列として認識しません。
11647	11789
11648	11790	=item *
11649	11791
11650	11792	=begin original
11651	11793
11652	11794	The integer types C<s>, C<S>, C<l>, and C<L> may be
11653	11795	followed by a C<!> modifier to specify native shorts or
11654	11796	longs. As shown in the example above, a bare C<l> means
11655	11797	exactly 32 bits, although the native C<long> as seen by the local C compiler
11656	11798	may be larger. This is mainly an issue on 64-bit platforms. You can
11657	11799	see whether using C<!> makes any difference this way:
11658	11800
11659	11801	=end original
11660	11802
11661	11803	C<s>, C<S>, C<l>, C<L> の整数タイプに引き続いて C<!> 修飾子を
11662	11804	つけることで、ネイティブの short や long を指定できます。
11663	11805	上述のように、C<l> は正確に 32 ビットですが、ネイティブな
11664	11806	(ローカルな C コンパイラによる)C<long> はもっと大きいかもしれません。
11665	11807	これは主に 64 ビットプラットフォームで意味があります。
11666	11808	C<!> を使うことによって違いがあるかどうかは以下のようにして調べられます:
11667	11809
11668	11810	printf "format s is %d, s! is %d\n",
11669	11811	length pack("s"), length pack("s!");
11670	11812
11671	11813	printf "format l is %d, l! is %d\n",
11672	11814	length pack("l"), length pack("l!");
11673	11815
11674	11816	=begin original
11675	11817
11676	11818	C<i!> and C<I!> are also allowed, but only for completeness' sake:
11677	11819	they are identical to C<i> and C<I>.
11678	11820
11679	11821	=end original
11680	11822
11681	11823	C<i!> と C<I!> も動作しますが、単に完全性のためだけです;
11682	11824	これは C<i> 及び C<I> と同じです。
11683	11825
11684	11826	=begin original
11685	11827
11686	11828	The actual sizes (in bytes) of native shorts, ints, longs, and long
11687	11829	longs on the platform where Perl was built are also available from
11688	11830	the command line:
11689	11831
11690	11832	=end original
11691	11833
11692	11834	Perl がビルドされたプラットフォームでの short, int, long, long long の
11693	11835	実際の(バイト数での)サイズはコマンドラインから:
11694	11836
11695	11837	$ perl -V:{short,int,long{,long}}size
11696	11838	shortsize='2';
11697	11839	intsize='4';
11698	11840	longsize='4';
11699	11841	longlongsize='8';
11700	11842
11701	11843	=begin original
11702	11844
11703	11845	or programmatically via the L<C<Config>\|Config> module:
11704	11846
11705	11847	=end original
11706	11848
11707	11849	あるいは L<C<Config>\|Config> モジュールからプログラムで:
11708	11850
11709	11851	use Config;
11710	11852	print $Config{shortsize}, "\n";
11711	11853	print $Config{intsize}, "\n";
11712	11854	print $Config{longsize}, "\n";
11713	11855	print $Config{longlongsize}, "\n";
11714	11856
11715	11857	=begin original
11716	11858
11717	11859	C<$Config{longlongsize}> is undefined on systems without
11718	11860	long long support.
11719	11861
11720	11862	=end original
11721	11863
11722	11864	システムが long long に対応していない場合は C<$Config{longlongsize}> は
11723	11865	未定義値になります。
11724	11866
11725	11867	=item *
11726	11868
11727	11869	=begin original
11728	11870
11729	11871	The integer formats C<s>, C<S>, C<i>, C<I>, C<l>, C<L>, C<j>, and C<J> are
11730	11872	inherently non-portable between processors and operating systems because
11731	11873	they obey native byteorder and endianness. For example, a 4-byte integer
11732	11874	0x12345678 (305419896 decimal) would be ordered natively (arranged in and
11733	11875	handled by the CPU registers) into bytes as
11734	11876
11735	11877	=end original
11736	11878
11737	11879	整数フォーマット C<s>, C<S>, C<i>, C<I>, C<l>, C<L>, C<j>, C<J> は
11738	11880	ネイティブなバイト順序とエンディアンに従っているため、
11739	11881	本質的にプロセッサ間や OS 間で移植性がありません。
11740	11882	例えば 4 バイトの整数 0x12345678 (10 進数では 305419896) は
11741	11883	内部では(CPU レジスタによって変換され扱われる形では)
11742	11884	以下のようなバイト列に並べられます:
11743	11885
11744	11886	0x12 0x34 0x56 0x78 # big-endian
11745	11887	0x78 0x56 0x34 0x12 # little-endian
11746	11888
11747	11889	=begin original
11748	11890
11749	11891	Basically, Intel and VAX CPUs are little-endian, while everybody else,
11750	11892	including Motorola m68k/88k, PPC, Sparc, HP PA, Power, and Cray, are
11751	11893	big-endian. Alpha and MIPS can be either: Digital/Compaq uses (well, used)
11752	11894	them in little-endian mode, but SGI/Cray uses them in big-endian mode.
11753	11895
11754	11896	=end original
11755	11897
11756	11898	基本的に、Intel と VAX の CPU はリトルエンディアンです; 一方、
11757	11899	Motorola m68k/88k, PPC, Sparc, HP PA, Power, Cray などを含むその他の全ては
11758	11900	ビッグエンディアンです。
11759	11901	Alpha と MIPS は両方ともあります: Digital/Compaq はリトルエンディアンモードで
11760	11902	使っています (えーと、いました) が、SGI/Cray はビッグエンディアンモードで
11761	11903	使っています。
11762	11904
11763	11905	=begin original
11764	11906
11765	11907	The names I<big-endian> and I<little-endian> are comic references to the
11766	11908	egg-eating habits of the little-endian Lilliputians and the big-endian
11767	11909	Blefuscudians from the classic Jonathan Swift satire, I<Gulliver's Travels>.
11768	11910	This entered computer lingo via the paper "On Holy Wars and a Plea for
11769	11911	Peace" by Danny Cohen, USC/ISI IEN 137, April 1, 1980.
11770	11912
11771	11913	=end original
11772	11914
11773	11915	I<ビッグエンディアン> と I<リトルエンディアン> の名前は、
11774	11916	ジョナサン=スウィフトによる風刺小説の古典 I<ガリバー旅行記> での、卵を
11775	11917	小さい方からむくリリパット国と大きい方からむくブレフスキュ国から
11776	11918	取られています。
11777	11919	"On Holy Wars and a Plea for Peace" by Danny Cohen, USC/ISI IEN 137,
11778	11920	April 1, 1980 の文書からコンピュータ用語として取り入れられました。
11779	11921
11780	11922	=begin original
11781	11923
11782	11924	Some systems may have even weirder byte orders such as
11783	11925
11784	11926	=end original
11785	11927
11786	11928	以下のような、さらに変わったバイト順序を持つシステムもあるかもしれません:
11787	11929
11788	11930	0x56 0x78 0x12 0x34
11789	11931	0x34 0x12 0x78 0x56
11790	11932
11791	11933	=begin original
11792	11934
11793	11935	These are called mid-endian, middle-endian, mixed-endian, or just weird.
11794	11936
11795	11937	=end original
11796	11938
11797	11939	これらは mid-endian, middle-endian, mixed-endian あるいは単におかしなものと
11798	11940	呼ばれます。
11799	11941
11800	11942	=begin original
11801	11943
11802	11944	You can determine your system endianness with this incantation:
11803	11945
11804	11946	=end original
11805	11947
11806	11948	システムの設定は以下のようにして調べられます:
11807	11949
11808	11950	printf("%#02x ", $_) for unpack("W*", pack L=>0x12345678);
11809	11951
11810	11952	=begin original
11811	11953
11812	11954	The byteorder on the platform where Perl was built is also available
11813	11955	via L<Config>:
11814	11956
11815	11957	=end original
11816	11958
11817	11959	Perl がビルドされたプラットフォームでのバイト順序は
11818	11960	L<Config> 経由か:
11819	11961
11820	11962	use Config;
11821	11963	print "$Config{byteorder}\n";
11822	11964
11823	11965	=begin original
11824	11966
11825	11967	or from the command line:
11826	11968
11827	11969	=end original
11828	11970
11829	11971	あるいはコマンドラインで:
11830	11972
11831	11973	$ perl -V:byteorder
11832	11974
11833	11975	=begin original
11834	11976
11835	11977	Byteorders C<"1234"> and C<"12345678"> are little-endian; C<"4321">
11836	11978	and C<"87654321"> are big-endian. Systems with multiarchitecture binaries
11837	11979	will have C<"ffff">, signifying that static information doesn't work,
11838	11980	one must use runtime probing.
11839	11981
11840	11982	=end original
11841	11983
11842	11984	C<"1234"> と C<"12345678"> はリトルエンディアンです;
11843	11985	C<"4321"> と C<"87654321"> はビッグエンディアンです。
11844	11986	マルチアーキテクチャバイナリを持つシステムは
11845	11987	C<"ffff"> となります; これは静的な情報は動作せず、実行時調査を使う必要が
11846	11988	あることを示します。
11847	11989
11848	11990	=begin original
11849	11991
11850	11992	For portably packed integers, either use the formats C<n>, C<N>, C<v>,
11851	11993	and C<V> or else use the C<< > >> and C<< < >> modifiers described
11852	11994	immediately below. See also L<perlport>.
11853	11995
11854	11996	=end original
11855	11997
11856	11998	移植性のあるパック化された整数がほしい場合は、
11857	11999	C<n>, C<N>, C<v>, C<V> フォーマットを使うか、
11858	12000	直後で説明する C<< > >> と C<< < >> の修飾子が使えます。
11859	12001	L<perlport> も参照してください。
11860	12002
11861	12003	=item *
11862	12004
11863	12005	=begin original
11864	12006
11865	12007	Also floating point numbers have endianness. Usually (but not always)
11866	12008	this agrees with the integer endianness. Even though most platforms
11867	12009	these days use the IEEE 754 binary format, there are differences,
11868	12010	especially if the long doubles are involved. You can see the
11869	12011	C<Config> variables C<doublekind> and C<longdblkind> (also C<doublesize>,
11870	12012	C<longdblsize>): the "kind" values are enums, unlike C<byteorder>.
11871	12013
11872	12014	=end original
11873	12015
11874	12016	また、浮動小数点数にもエンディアンがあります。
11875	12017	通常は(但し常にではありません)これは整数のエンディアンと同じです。
11876	12018	最近のほとんどのプラットフォームが IEEE 754 バイナリ形式を使っているにも
11877	12019	関わらず、(特に long double 関連で) 相違点があります。
11878	12020	C<Config> 変数 C<doublekind> と C<longdblkind> (および C<doublesize>,
11879	12021	C<longdblsize>) を参照できます: "kind" 値は C<byteorder> と異なり、
11880	12022	順序値です。
11881	12023
11882	12024	=begin original
11883	12025
11884	12026	Portability-wise the best option is probably to keep to the IEEE 754
11885	12027	64-bit doubles, and of agreed-upon endianness. Another possibility
11886	12028	is the C<"%a">) format of L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>.
11887	12029
11888	12030	=end original
11889	12031
11890	12032	移植性を考慮した最良の選択肢はおそらく、IEEE 754 64-bit double と同意した
11891	12033	エンディアンを維持することです。
11892	12034	もう一つの可能性は L<C<printf>\|/printf FILEHANDLE FORMAT, LIST> の
11893	12035	C<"%a"> 型式です。
11894	12036
11895	12037	=item *
11896	12038
11897	12039	=begin original
11898	12040
11899	12041	Starting with Perl 5.10.0, integer and floating-point formats, along with
11900	12042	the C<p> and C<P> formats and C<()> groups, may all be followed by the
11901	12043	C<< > >> or C<< < >> endianness modifiers to respectively enforce big-
11902	12044	or little-endian byte-order. These modifiers are especially useful
11903	12045	given how C<n>, C<N>, C<v>, and C<V> don't cover signed integers,
11904	12046	64-bit integers, or floating-point values.
11905	12047
11906	12048	=end original
11907	12049
11908	12050	Perl 5.10.0 から、C<p> と C<P> フォーマットや C<()> グループと同様、
11909	12051	全ての整数と浮動小数点数のフォーマットは、C<< > >> や C<< < >> の
11910	12052	エンディアン修飾子をつけることで、それぞれ
11911	12053	ビッグエンディアンとリトルエンディアンに強制させることができます。
11912	12054	C<n>, C<N>, C<v>, C<V> は符号付き整数、64 ビット整数、浮動小数点数に
11913	12055	対応していないので、これは特に有用です。
11914	12056
11915	12057	=begin original
11916	12058
11917	12059	Here are some concerns to keep in mind when using an endianness modifier:
11918	12060
11919	12061	=end original
11920	12062
11921	12063	エンディアン修飾子を使うときに心に留めておくべきことを記します:
11922	12064
11923	12065	=over
11924	12066
11925	12067	=item *
11926	12068
11927	12069	=begin original
11928	12070
11929	12071	Exchanging signed integers between different platforms works only
11930	12072	when all platforms store them in the same format. Most platforms store
11931	12073	signed integers in two's-complement notation, so usually this is not an issue.
11932	12074
11933	12075	=end original
11934	12076
11935	12077	異なったプラットフォームで符号付き整数を交換することは、全ての
11936	12078	プラットフォームで同じフォーマットで保存されている場合にのみうまくいきます。
11937	12079	ほとんどのプラットフォームでは符号付き整数は 2 の補数記法で保存するので、
11938	12080	普通はこれは問題になりません。
11939	12081
11940	12082	=item *
11941	12083
11942	12084	=begin original
11943	12085
11944	12086	The C<< > >> or C<< < >> modifiers can only be used on floating-point
11945	12087	formats on big- or little-endian machines. Otherwise, attempting to
11946	12088	use them raises an exception.
11947	12089
11948	12090	=end original
11949	12091
11950	12092	C<< > >> や C<< < >> の修飾子はビッグエンディアンやリトルエンディアンの
11951	12093	マシンでの浮動小数点フォーマットでのみ使えます。
11952	12094	それ以外では、そのようなことをすると例外が発生します。
11953	12095
11954	12096	=item *
11955	12097
11956	12098	=begin original
11957	12099
11958	12100	Forcing big- or little-endian byte-order on floating-point values for
11959	12101	data exchange can work only if all platforms use the same
11960	12102	binary representation such as IEEE floating-point. Even if all
11961	12103	platforms are using IEEE, there may still be subtle differences. Being able
11962	12104	to use C<< > >> or C<< < >> on floating-point values can be useful,
11963	12105	but also dangerous if you don't know exactly what you're doing.
11964	12106	It is not a general way to portably store floating-point values.
11965	12107
11966	12108	=end original
11967	12109
11968	12110	データ交換のために浮動小数点数のバイト順をビッグエンディアンかリトル
11969	12111	エンディアンに強制することは、全てのプラットフォームが
11970	12112	IEEE 浮動小数点フォーマットのような同じバイナリ表現の場合にのみ
11971	12113	うまくいきます。
11972	12114	たとえ全てのプラットフォームが IEEE を使っていても、そこには微妙な違いが
11973	12115	あるかもしれません。
11974	12116	浮動小数点数に C<< > >> や C<< < >> が使えることは便利な場合がありますが、
11975	12117	もし自分が何をしているかを正確に理解していなければ、危険です。
11976	12118	移植性のある浮動小数点数の保存のための一般的な方法はありません。
11977	12119
11978	12120	=item *
11979	12121
11980	12122	=begin original
11981	12123
11982	12124	When using C<< > >> or C<< < >> on a C<()> group, this affects
11983	12125	all types inside the group that accept byte-order modifiers,
11984	12126	including all subgroups. It is silently ignored for all other
11985	12127	types. You are not allowed to override the byte-order within a group
11986	12128	that already has a byte-order modifier suffix.
11987	12129
11988	12130	=end original
11989	12131
11990	12132	C<()> グループで C<< > >> や C<< < >> を使うと、これは、副グループを
11991	12133	含む全ての型のうち、バイト順修飾子を受け入れる全てのものに影響与えます。
11992	12134	その他の型については沈黙のうちに無視されます。
11993	12135	既にバイト順接尾辞を持っているグループ内のバイト順を上書きすることは
11994	12136	できません。
11995	12137
11996	12138	=back
11997	12139
11998	12140	=item *
11999	12141
12000	12142	=begin original
12001	12143
12002	12144	Real numbers (floats and doubles) are in native machine format only.
12003	12145	Due to the multiplicity of floating-point formats and the lack of a
12004	12146	standard "network" representation for them, no facility for interchange has been
12005	12147	made. This means that packed floating-point data written on one machine
12006	12148	may not be readable on another, even if both use IEEE floating-point
12007	12149	arithmetic (because the endianness of the memory representation is not part
12008	12150	of the IEEE spec). See also L<perlport>.
12009	12151
12010	12152	=end original
12011	12153
12012	12154	実数 (float と double) は、機種依存のフォーマットしかありません。
12013	12155	いろんな浮動小数点数のフォーマットが在り、標準的な "network" 表現といったものが
12014	12156	ないため、データ交換のための機能は用意してありません。
12015	12157	つまり、あるマシンで pack した浮動小数点数は、別のマシンでは
12016	12158	読めないかもしれないということです; たとえ双方で IEEE フォーマットの
12017	12159	浮動小数点数演算を行なっていてもです (IEEE の仕様では、メモリ表現上の
12018	12160	バイト順序までは、規定されていないからです)。
12019	12161	L<perlport> も参照してください。
12020	12162
12021	12163	=begin original
12022	12164
12023	12165	If you know I<exactly> what you're doing, you can use the C<< > >> or C<< < >>
12024	12166	modifiers to force big- or little-endian byte-order on floating-point values.
12025	12167
12026	12168	=end original
12027	12169
12028	12170	もし何をしようとしているのかを I<正確に> 理解しているなら、浮動小数点数の
12029	12171	バイト順をビッグエンディアンやリトルエンディアンに強制するために、
12030	12172	C<< > >> と C<< < >> の修飾子が使えます。
12031	12173
12032	12174	=begin original
12033	12175
12034	12176	Because Perl uses doubles (or long doubles, if configured) internally for
12035	12177	all numeric calculation, converting from double into float and thence
12036	12178	to double again loses precision, so C<unpack("f", pack("f", $foo)>)
12037	12179	will not in general equal $foo.
12038	12180
12039	12181	=end original
12040	12182
12041	12183	Perl では、すべての数値演算のために、内部的に double (または設定によっては
12042	12184	long double) を使用しているので、double から float へ変換し、それから再び
12043	12185	double に戻すと精度が落ちることになり、C<unpack("f", pack("f", $foo)>) は、
12044	12186	一般には $foo と同じではありません。
12045	12187
12046	12188	=item *
12047	12189
12048	12190	=begin original
12049	12191
12050	12192	Pack and unpack can operate in two modes: character mode (C<C0> mode) where
12051	12193	the packed string is processed per character, and UTF-8 byte mode (C<U0> mode)
12052	12194	where the packed string is processed in its UTF-8-encoded Unicode form on
12053	12195	a byte-by-byte basis. Character mode is the default
12054	12196	unless the format string starts with C<U>. You
12055	12197	can always switch mode mid-format with an explicit
12056	12198	C<C0> or C<U0> in the format. This mode remains in effect until the next
12057	12199	mode change, or until the end of the C<()> group it (directly) applies to.
12058	12200
12059	12201	=end original
12060	12202
12061	12203	pack と unpack は二つのモードで操作します: pack された文字列を文字単位で
12062	12204	処理する文字モード (C<C0> モード) と、pack された文字列を、バイト毎に、
12063	12205	その UTF-8 エンコードされた形式で処理するUTF-8 モード (C<U0> モード) です。
12064	12206	文字モードはフォーマット文字列が C<U> で始まっていない限りはデフォルトです。
12065	12207	モードはフォーマット中に明示的に C<C0> または C<U0> と書くことでいつでも
12066	12208	切り替えられます。
12067	12209	モードは次のモードに切り替えられるか、(直接)適用された C<()> グループが
12068	12210	終了するまで有効です。
12069	12211
12070	12212	=begin original
12071	12213
12072	12214	Using C<C0> to get Unicode characters while using C<U0> to get I<non>-Unicode
12073	12215	bytes is not necessarily obvious. Probably only the first of these
12074	12216	is what you want:
12075	12217
12076	12218	=end original
12077	12219
12078	12220	Unicode 文字を取得するのに C<C0> を使い、I<非> Unicode バイトを取得するのに
12079	12221	C<U0> を使うというのは必ずしも明白ではありません。
12080	12222	おそらく、これらのうち最初のものだけが望みのものでしょう:
12081	12223
12082	12224	$ perl -CS -E 'say "\x{3B1}\x{3C9}"' \|
12083	12225	perl -CS -ne 'printf "%v04X\n", $_ for unpack("C0A*", $_)'
12084	12226	03B1.03C9
12085	12227	$ perl -CS -E 'say "\x{3B1}\x{3C9}"' \|
12086	12228	perl -CS -ne 'printf "%v02X\n", $_ for unpack("U0A*", $_)'
12087	12229	CE.B1.CF.89
12088	12230	$ perl -CS -E 'say "\x{3B1}\x{3C9}"' \|
12089	12231	perl -C0 -ne 'printf "%v02X\n", $_ for unpack("C0A*", $_)'
12090	12232	CE.B1.CF.89
12091	12233	$ perl -CS -E 'say "\x{3B1}\x{3C9}"' \|
12092	12234	perl -C0 -ne 'printf "%v02X\n", $_ for unpack("U0A*", $_)'
12093	12235	C3.8E.C2.B1.C3.8F.C2.89
12094	12236
12095	12237	=begin original
12096	12238
12097	12239	Those examples also illustrate that you should not try to use
12098	12240	L<C<pack>\|/pack TEMPLATE,LIST>/L<C<unpack>\|/unpack TEMPLATE,EXPR> as a
12099	12241	substitute for the L<Encode> module.
12100	12242
12101	12243	=end original
12102	12244
12103	12245	これらの例は、L<C<pack>\|/pack TEMPLATE,LIST>/
12104	12246	L<C<unpack>\|/unpack TEMPLATE,EXPR> を L<Encode> モジュールの代わりとして
12105	12247	使おうとするべきではないということも示しています。
12106	12248
12107	12249	=item *
12108	12250
12109	12251	=begin original
12110	12252
12111	12253	You must yourself do any alignment or padding by inserting, for example,
12112	12254	enough C<"x">es while packing. There is no way for
12113	12255	L<C<pack>\|/pack TEMPLATE,LIST> and L<C<unpack>\|/unpack TEMPLATE,EXPR>
12114	12256	to know where characters are going to or coming from, so they
12115	12257	handle their output and input as flat sequences of characters.
12116	12258
12117	12259	=end original
12118	12260
12119	12261	pack するときに、例えば十分な数の C<"x"> を挿入することによって
12120	12262	アライメントやパッディングを行うのは全て自分でしなければなりません。
12121	12263	L<C<pack>\|/pack TEMPLATE,LIST> や L<C<unpack>\|/unpack TEMPLATE,EXPR> は、
12122	12264	文字列がどこへ行くかやどこから来たかを
12123	12265	知る方法はないので、出力と入力をフラットな文字列として扱います。
12124	12266
12125	12267	=item *
12126	12268
12127	12269	=begin original
12128	12270
12129	12271	A C<()> group is a sub-TEMPLATE enclosed in parentheses. A group may
12130	12272	take a repeat count either as postfix, or for
12131	12273	L<C<unpack>\|/unpack TEMPLATE,EXPR>, also via the C</>
12132	12274	template character. Within each repetition of a group, positioning with
12133	12275	C<@> starts over at 0. Therefore, the result of
12134	12276
12135	12277	=end original
12136	12278
12137	12279	C<()> のグループはかっこで囲われた副テンプレートです。
12138	12280	グループは繰り返し数を取ることができます; 接尾辞によるか、
12139	12281	L<C<unpack>\|/unpack TEMPLATE,EXPR> の場合は C</> テンプレート文字によります。
12140	12282	グループの繰り返し毎に、C<@> の位置は 0 になります。
12141	12283	従って、以下の結果は:
12142	12284
12143	12285	pack("@1A((@2A)@3A)", qw[X Y Z])
12144	12286
12145	12287	=begin original
12146	12288
12147	12289	is the string C<"\0X\0\0YZ">.
12148	12290
12149	12291	=end original
12150	12292
12151	12293	文字列 C<"\0X\0\0YZ"> です。
12152	12294
12153	12295	=item *
12154	12296
12155	12297	=begin original
12156	12298
12157	12299	C<x> and C<X> accept the C<!> modifier to act as alignment commands: they
12158	12300	jump forward or back to the closest position aligned at a multiple of C<count>
12159	12301	characters. For example, to L<C<pack>\|/pack TEMPLATE,LIST> or
12160	12302	L<C<unpack>\|/unpack TEMPLATE,EXPR> a C structure like
12161	12303
12162	12304	=end original
12163	12305
12164	12306	C<x> と C<X> にはアライメントコマンドとして C<!> 修飾子を付けることができます:
12165	12307	これは C<count> 文字の倍数のアライメントとなる、もっとも近い位置に移動します。
12166	12308	例えば、以下のような C 構造体を L<C<pack>\|/pack TEMPLATE,LIST> または
12167	12309	L<C<unpack>\|/unpack TEMPLATE,EXPR> するには
12168	12310
12169	12311	struct {
12170	12312	char c; /* one signed, 8-bit character */
12171	12313	double d;
12172	12314	char cc[2];
12173	12315	}
12174	12316
12175	12317	=begin original
12176	12318
12177	12319	one may need to use the template C<c x![d] d c[2]>. This assumes that
12178	12320	doubles must be aligned to the size of double.
12179	12321
12180	12322	=end original
12181	12323
12182	12324	C<W x![d] d W[2]> というテンプレートを使う必要があるかもしれません。
12183	12325	これは double が double のサイズでアライメントされていることを
12184	12326	仮定しています。
12185	12327
12186	12328	=begin original
12187	12329
12188	12330	For alignment commands, a C<count> of 0 is equivalent to a C<count> of 1;
12189	12331	both are no-ops.
12190	12332
12191	12333	=end original
12192	12334
12193	12335	アライメントコマンドに対しては、C<count> に 0 を指定するのは
12194	12336	C<count> に 1 を指定するのと等価です; どちらも何もしません。
12195	12337
12196	12338	=item *
12197	12339
12198	12340	=begin original
12199	12341
12200	12342	C<n>, C<N>, C<v> and C<V> accept the C<!> modifier to
12201	12343	represent signed 16-/32-bit integers in big-/little-endian order.
12202	12344	This is portable only when all platforms sharing packed data use the
12203	12345	same binary representation for signed integers; for example, when all
12204	12346	platforms use two's-complement representation.
12205	12347
12206	12348	=end original
12207	12349
12208	12350	C<n>, C<N>, C<v>, C<V> はビッグ/リトルエンディアンの順序で符号付き 16 または
12209	12351	32 ビット整数で表現するための C<!> 修飾子を受け入れます。
12210	12352	これは pack されたデータを共有する全てのプラットフォームが
12211	12353	符号付き整数について同じバイナリ表現を使う場合にのみ移植性があります;
12212	12354	例えば、全てのプラットフォームで 2 の補数表現を使う場合です。
12213	12355
12214	12356	=item *
12215	12357
12216	12358	=begin original
12217	12359
12218	12360	Comments can be embedded in a TEMPLATE using C<#> through the end of line.
12219	12361	White space can separate pack codes from each other, but modifiers and
12220	12362	repeat counts must follow immediately. Breaking complex templates into
12221	12363	individual line-by-line components, suitably annotated, can do as much to
12222	12364	improve legibility and maintainability of pack/unpack formats as C</x> can
12223	12365	for complicated pattern matches.
12224	12366
12225	12367	=end original
12226	12368
12227	12369	TEMPLATE の中の C<#> から行末まではコメントです。
12228	12370	空白は pack コードをそれぞれ分けるために使えますが、修飾子と
12229	12371	繰り返し数は直後に置かなければなりません。
12230	12372	複雑なテンプレートを個々の行単位の要素に分解して適切に注釈をつけると、
12231	12373	複雑なパターンマッチングに対する C</x> と同じぐらい、pack/unpack
12232	12374	フォーマットの読みやすさと保守性が向上します。
12233	12375
12234	12376	=item *
12235	12377
12236	12378	=begin original
12237	12379
12238	12380	If TEMPLATE requires more arguments than L<C<pack>\|/pack TEMPLATE,LIST>
12239	12381	is given, L<C<pack>\|/pack TEMPLATE,LIST>
12240	12382	assumes additional C<""> arguments. If TEMPLATE requires fewer arguments
12241	12383	than given, extra arguments are ignored.
12242	12384
12243	12385	=end original
12244	12386
12245	12387	TEMPLATE が要求する引数の数が L<C<pack>\|/pack TEMPLATE,LIST> が実際に
12246	12388	与えている数より多い場合、
12247	12389	L<C<pack>\|/pack TEMPLATE,LIST> は追加の C<""> 引数があるものと仮定します。
12248	12390	TEMPLATE が要求する引数の数の方が少ない場合、余分の引数は無視されます。
12249	12391
12250	12392	=item *
12251	12393
12252	12394	=begin original
12253	12395
12254	12396	Attempting to pack the special floating point values C<Inf> and C<NaN>
12255	12397	(infinity, also in negative, and not-a-number) into packed integer values
12256	12398	(like C<"L">) is a fatal error. The reason for this is that there simply
12257	12399	isn't any sensible mapping for these special values into integers.
12258	12400
12259	12401	=end original
12260	12402
12261	12403	特殊浮動小数点値 C<Inf> と C<NaN>
12262	12404	((負を含む)無限と非数) を (C<"L"> のような) 整数値に pack しようとすると
12263	12405	致命的エラーとなります。
12264	12406	この理由は、単に特殊値を整数に割り当てられないからです。
12265	12407
12266	12408	=back
12267	12409
12268	12410	=begin original
12269	12411
12270	12412	Examples:
12271	12413
12272	12414	=end original
12273	12415
12274	12416	例:
12275	12417
12276	12418	$foo = pack("WWWW",65,66,67,68);
12277	12419	# foo eq "ABCD"
12278	12420	$foo = pack("W4",65,66,67,68);
12279	12421	# same thing
12280	12422	$foo = pack("W4",0x24b6,0x24b7,0x24b8,0x24b9);
12281	12423	# same thing with Unicode circled letters.
12282	12424	$foo = pack("U4",0x24b6,0x24b7,0x24b8,0x24b9);
12283	12425	# same thing with Unicode circled letters. You don't get the
12284	12426	# UTF-8 bytes because the U at the start of the format caused
12285	12427	# a switch to U0-mode, so the UTF-8 bytes get joined into
12286	12428	# characters
12287	12429	$foo = pack("C0U4",0x24b6,0x24b7,0x24b8,0x24b9);
12288	12430	# foo eq "\xe2\x92\xb6\xe2\x92\xb7\xe2\x92\xb8\xe2\x92\xb9"
12289	12431	# This is the UTF-8 encoding of the string in the
12290	12432	# previous example
12291	12433
12292	12434	$foo = pack("ccxxcc",65,66,67,68);
12293	12435	# foo eq "AB\0\0CD"
12294	12436
12295	12437	# NOTE: The examples above featuring "W" and "c" are true
12296	12438	# only on ASCII and ASCII-derived systems such as ISO Latin 1
12297	12439	# and UTF-8. On EBCDIC systems, the first example would be
12298	12440	# $foo = pack("WWWW",193,194,195,196);
12299	12441
12300	12442	$foo = pack("s2",1,2);
12301	12443	# "\001\000\002\000" on little-endian
12302	12444	# "\000\001\000\002" on big-endian
12303	12445
12304	12446	$foo = pack("a4","abcd","x","y","z");
12305	12447	# "abcd"
12306	12448
12307	12449	$foo = pack("aaaa","abcd","x","y","z");
12308	12450	# "axyz"
12309	12451
12310	12452	$foo = pack("a14","abcdefg");
12311	12453	# "abcdefg\0\0\0\0\0\0\0"
12312	12454
12313	12455	$foo = pack("i9pl", gmtime);
12314	12456	# a real struct tm (on my system anyway)
12315	12457
12316	12458	$utmp_template = "Z8 Z8 Z16 L";
12317	12459	$utmp = pack($utmp_template, @utmp1);
12318	12460	# a struct utmp (BSDish)
12319	12461
12320	12462	@utmp2 = unpack($utmp_template, $utmp);
12321	12463	# "@utmp1" eq "@utmp2"
12322	12464
12323	12465	sub bintodec {
12324	12466	unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
12325	12467	}
12326	12468
12327	12469	$foo = pack('sx2l', 12, 34);
12328	12470	# short 12, two zero bytes padding, long 34
12329	12471	$bar = pack('s@4l', 12, 34);
12330	12472	# short 12, zero fill to position 4, long 34
12331	12473	# $foo eq $bar
12332	12474	$baz = pack('s.l', 12, 4, 34);
12333	12475	# short 12, zero fill to position 4, long 34
12334	12476
12335	12477	$foo = pack('nN', 42, 4711);
12336	12478	# pack big-endian 16- and 32-bit unsigned integers
12337	12479	$foo = pack('S>L>', 42, 4711);
12338	12480	# exactly the same
12339	12481	$foo = pack('s<l<', -42, 4711);
12340	12482	# pack little-endian 16- and 32-bit signed integers
12341	12483	$foo = pack('(sl)<', -42, 4711);
12342	12484	# exactly the same
12343	12485
12344	12486	=begin original
12345	12487
12346	12488	The same template may generally also be used in
12347	12489	L<C<unpack>\|/unpack TEMPLATE,EXPR>.
12348	12490
12349	12491	=end original
12350	12492
12351	12493	一般的には、同じテンプレートが L<C<unpack>\|/unpack TEMPLATE,EXPR> でも
12352	12494	使用できます。
12353	12495
12354	12496	=item package NAMESPACE
12355	12497
12356	12498	=item package NAMESPACE VERSION
12357	12499	X<package> X<module> X<namespace> X<version>
12358	12500
12359	12501	=item package NAMESPACE BLOCK
12360	12502
12361	12503	=item package NAMESPACE VERSION BLOCK
12362	12504	X<package> X<module> X<namespace> X<version>
12363	12505
12364	12506	=for Pod::Functions declare a separate global namespace
12365	12507
12366	12508	=begin original
12367	12509
12368	12510	Declares the BLOCK or the rest of the compilation unit as being in the
12369	12511	given namespace. The scope of the package declaration is either the
12370	12512	supplied code BLOCK or, in the absence of a BLOCK, from the declaration
12371	12513	itself through the end of current scope (the enclosing block, file, or
12372	12514	L<C<eval>\|/eval EXPR>). That is, the forms without a BLOCK are
12373	12515	operative through the end of the current scope, just like the
12374	12516	L<C<my>\|/my VARLIST>, L<C<state>\|/state VARLIST>, and
12375	12517	L<C<our>\|/our VARLIST> operators. All unqualified dynamic identifiers
12376	12518	in this scope will be in the given namespace, except where overridden by
12377	12519	another L<C<package>\|/package NAMESPACE> declaration or
12378	12520	when they're one of the special identifiers that qualify into C<main::>,
12379	12521	like C<STDOUT>, C<ARGV>, C<ENV>, and the punctuation variables.
12380	12522
12381	12523	=end original
12382	12524
12383	12525	BLOCK や残りのコンパイル単位を与えられた名前空間として宣言します。
12384	12526	パッケージ宣言のスコープは BLOCK か、BLOCK がないばあいは宣言自身から
12385	12527	現在のスコープの末尾 (閉じたブロック、ファイル、L<C<eval>\|/eval EXPR>) です。
12386	12528	つまり、BLOCK なしの形式は、L<C<my>\|/my VARLIST>, L<C<state>\|/state VARLIST>,
12387	12529	L<C<our>\|/our VARLIST> 演算子と同様に現在のスコープの末尾にまで作用します。
12388	12530	このスコープ内の、全ての完全修飾されていない動的識別子は、他の
12389	12531	L<C<package>\|/package NAMESPACE> 宣言によって上書きされるか、
12390	12532	C<STDOUT>, C<ARGV>, C<ENV> や句読点変数のように C<main::> に
12391	12533	割り当てられる特殊変数でない限り、指定された
12392	12534	名前空間になります。
12393	12535
12394	12536	=begin original
12395	12537
12396	12538	A package statement affects dynamic variables only, including those
12397	12539	you've used L<C<local>\|/local EXPR> on, but I<not> lexically-scoped
12398	12540	variables, which are created with L<C<my>\|/my VARLIST>,
12399	12541	L<C<state>\|/state VARLIST>, or L<C<our>\|/our VARLIST>. Typically it
12400	12542	would be the first declaration in a file included by
12401	12543	L<C<require>\|/require VERSION> or L<C<use>\|/use Module VERSION LIST>.
12402	12544	You can switch into a
12403	12545	package in more than one place, since this only determines which default
12404	12546	symbol table the compiler uses for the rest of that block. You can refer to
12405	12547	identifiers in other packages than the current one by prefixing the identifier
12406	12548	with the package name and a double colon, as in C<$SomePack::var>
12407	12549	or C<ThatPack::INPUT_HANDLE>. If package name is omitted, the C<main>
12408		package as assumed. That is, C<$::sail> is equivalent to
	12550	package is assumed. That is, C<$::sail> is equivalent to
12409	12551	C<$main::sail> (as well as to C<$main'sail>, still seen in ancient
12410	12552	code, mostly from Perl 4).
12411	12553
12412	12554	=end original
12413	12555
12414	12556	package 文は動的変数にのみ影響します(L<C<local>\|/local EXPR> で使ったものも
12415	12557	含みます)が、L<C<my>\|/my VARLIST>, L<C<state>\|/state VARLIST>,
12416	12558	L<C<our>\|/our VARLIST> のいずれかで作成された
12417	12559	レキシカルなスコープの変数には I<影響しません>。
12418	12560	典型的にはこれは L<C<require>\|/require VERSION> や
12419	12561	L<C<use>\|/use Module VERSION LIST> 演算子でインクルードされるファイルの
12420	12562	最初に宣言されます。
12421	12563	パッケージを複数の場所で切り替えることができます;
12422	12564	なぜならこれは単にコンパイラがこのブロックの残りに対してどの
12423	12565	シンボルテーブルを使うかにのみ影響するからです。
12424	12566	他のパッケージの識別子は、C<$SomePack::var> や
12425	12567	C<ThatPack::INPUT_HANDLE> のように、識別子にパッケージ名と
12426	12568	コロン二つをつけることで参照できます。
12427	12569	パッケージ名が省略された場合、C<main> パッケージが仮定されます。
12428	12570	つまり、C<$::sail> は C<$main::sail> と等価です(ほとんどは Perl 4 からの、
12429	12571	古いコードでは C<$main'sail> もまだ見られます)。
12430	12572
12431	12573	=begin original
12432	12574
12433	12575	If VERSION is provided, L<C<package>\|/package NAMESPACE> sets the
12434	12576	C<$VERSION> variable in the given
12435	12577	namespace to a L<version> object with the VERSION provided. VERSION must be a
12436	12578	"strict" style version number as defined by the L<version> module: a positive
12437	12579	decimal number (integer or decimal-fraction) without exponentiation or else a
12438	12580	dotted-decimal v-string with a leading 'v' character and at least three
12439	12581	components. You should set C<$VERSION> only once per package.
12440	12582
12441	12583	=end original
12442	12584
12443	12585	VERSION が指定されると、L<C<package>\|/package NAMESPACE> は与えられた
12444	12586	名前空間の C<$VERSION> 変数に、
12445	12587	指定された VERSION の L<version> オブジェクトをセットします。
12446	12588	VERSION は L<version> で定義されている「厳密な」形式のバージョン番号で
12447	12589	なければなりません: 指数のない正の 10 進数 (整数か 10 進小数) か、
12448	12590	さもなければ先頭に 'v' の文字が付いて、少なくとも三つの部分から
12449	12591	構成されるドット付き 10 進v-文字列です。
12450	12592	C<$VERSION> はパッケージ毎に 1 回だけセットするべきです。
12451	12593
12452	12594	=begin original
12453	12595
12454	12596	See L<perlmod/"Packages"> for more information about packages, modules,
12455	12597	and classes. See L<perlsub> for other scoping issues.
12456	12598
12457	12599	=end original
12458	12600
12459	12601	パッケージ、モジュール、クラスに関するさらなる情報については
12460	12602	L<perlmod/"Packages"> を参照してください。
12461	12603	その他のスコープに関する話題については L<perlsub> を参照してください。
12462	12604
12463	12605	=item __PACKAGE__
12464	12606	X<__PACKAGE__>
12465	12607
12466	12608	=for Pod::Functions +5.004 the current package
12467	12609
12468	12610	=begin original
12469	12611
12470	12612	A special token that returns the name of the package in which it occurs.
12471	12613
12472	12614	=end original
12473	12615
12474	12616	これが書いてあるパッケージの名前を返す特殊トークン。
12475	12617
12476	12618	=item pipe READHANDLE,WRITEHANDLE
12477	12619	X<pipe>
12478	12620
12479	12621	=for Pod::Functions open a pair of connected filehandles
12480	12622
12481	12623	=begin original
12482	12624
12483	12625	Opens a pair of connected pipes like the corresponding system call.
12484	12626	Note that if you set up a loop of piped processes, deadlock can occur
12485	12627	unless you are very careful. In addition, note that Perl's pipes use
12486	12628	IO buffering, so you may need to set L<C<$E<verbar>>\|perlvar/$E<verbar>>
12487	12629	to flush your WRITEHANDLE after each command, depending on the
12488	12630	application.
12489	12631
12490	12632	=end original
12491	12633
12492	12634	対応するシステムコールと同じように、接続されたパイプのペアを開きます。
12493	12635	パイプでプロセスをループにするときには、よほど気を付けないと、
12494	12636	デッドロックが起こり得ます。
12495	12637	さらに、Perl のパイプでは、IO のバッファリングを使ので、
12496	12638	アプリケーションによっては、コマンドごとに WRITEHANDLE を
12497	12639	フラッシュするように、L<C<$E<verbar>>\|perlvar/$E<verbar>> を設定することが
12498	12640	必要になるかもしれません。
12499	12641
12500	12642	=begin original
12501	12643
12502	12644	Returns true on success.
12503	12645
12504	12646	=end original
12505	12647
12506	12648	成功時には真を返します。
12507	12649
12508	12650	=begin original
12509	12651
12510	12652	See L<IPC::Open2>, L<IPC::Open3>, and
12511	12653	L<perlipc/"Bidirectional Communication with Another Process">
12512	12654	for examples of such things.
12513	12655
12514	12656	=end original
12515	12657
12516	12658	これらに関する例については、L<IPC::Open2>, L<IPC::Open3>,
12517	12659	L<perlipc/"Bidirectional Communication with Another Process"> を
12518	12660	参照してください。
12519	12661
12520	12662	=begin original
12521	12663
12522	12664	On systems that support a close-on-exec flag on files, that flag is set
12523	12665	on all newly opened file descriptors whose
12524	12666	L<C<fileno>\|/fileno FILEHANDLE>s are I<higher> than the current value of
12525	12667	L<C<$^F>\|perlvar/$^F> (by default 2 for C<STDERR>). See L<perlvar/$^F>.
12526	12668
12527	12669	=end original
12528	12670
12529	12671	ファイルに対する close-on-exec フラグをサポートしているシステムでは、
12530	12672	新しくオープンされたファイル記述子のうち、
12531	12673	L<C<fileno>\|/fileno FILEHANDLE> が現在の L<C<$^F>\|perlvar/$^F> の値
12532	12674	(デフォルトでは C<STDERR> の 2)
12533	12675	I<よりも大きい> ものに対してフラグがセットされます。
12534	12676	L<perlvar/$^F> を参照してください。
12535	12677
12536	12678	=item pop ARRAY
12537	12679	X<pop> X<stack>
12538	12680
12539	12681	=item pop
12540	12682
12541	12683	=for Pod::Functions remove the last element from an array and return it
12542	12684
12543	12685	=begin original
12544	12686
12545	12687	Pops and returns the last value of the array, shortening the array by
12546	12688	one element.
12547	12689
12548	12690	=end original
12549	12691
12550	12692	配列の最後の値をポップして返し、配列の大きさを 1 だけ小さくします。
12551	12693
12552	12694	=begin original
12553	12695
12554	12696	Returns the undefined value if the array is empty, although this may
12555	12697	also happen at other times. If ARRAY is omitted, pops the
12556	12698	L<C<@ARGV>\|perlvar/@ARGV> array in the main program, but the
12557	12699	L<C<@_>\|perlvar/@_> array in subroutines, just like
12558	12700	L<C<shift>\|/shift ARRAY>.
12559	12701
12560	12702	=end original
12561	12703
12562	12704	指定された配列に要素がなければ未定義値が返されますが、
12563	12705	しかしこれは他の場合にも起こり得ます。
12564	12706	ARRAY が省略されると、L<C<shift>\|/shift ARRAY> と同様に、メインプログラムでは
12565	12707	L<C<@ARGV>\|perlvar/@ARGV> が使われますが、
12566	12708	サブルーチンでは L<C<@_>\|perlvar/@_> が使われます。
12567	12709
12568	12710	=begin original
12569	12711
12570	12712	Starting with Perl 5.14, an experimental feature allowed
12571	12713	L<C<pop>\|/pop ARRAY> to take a
12572	12714	scalar expression. This experiment has been deemed unsuccessful, and was
12573	12715	removed as of Perl 5.24.
12574	12716
12575	12717	=end original
12576	12718
12577	12719	Perl 5.14 から、L<C<pop>\|/pop ARRAY> がスカラ式を取ることが出来るという
12578	12720	実験的機能がありました。
12579	12721	この実験は失敗と見なされ、Perl 5.24 で削除されました。
12580	12722
12581	12723	=item pos SCALAR
12582	12724	X<pos> X<match, position>
12583	12725
12584	12726	=item pos
12585	12727
12586	12728	=for Pod::Functions find or set the offset for the last/next m//g search
12587	12729
12588	12730	=begin original
12589	12731
12590	12732	Returns the offset of where the last C<m//g> search left off for the
12591	12733	variable in question (L<C<$_>\|perlvar/$_> is used when the variable is not
12592	12734	specified). This offset is in characters unless the
12593	12735	(no-longer-recommended) L<C<use bytes>\|bytes> pragma is in effect, in
12594	12736	which case the offset is in bytes. Note that 0 is a valid match offset.
12595	12737	L<C<undef>\|/undef EXPR> indicates
12596	12738	that the search position is reset (usually due to match failure, but
12597	12739	can also be because no match has yet been run on the scalar).
12598	12740
12599	12741	=end original
12600	12742
12601	12743	対象の変数に対して、前回の C<m//g> が終了した場所の
12602	12744	オフセットを返します(変数が指定されなかった場合は L<C<$_>\|perlvar/$_> が
12603	12745	使われます)。
12604	12746	オフセットは、(もはや勧められない) L<C<use bytes>\|bytes> プラグマが有効の
12605	12747	場合(この場合はバイト単位です)を除いて、文字単位です。
12606	12748	0 は有効なマッチオフセットであることに注意してください。
12607	12749	L<C<undef>\|/undef EXPR> は検索位置がリセットされることを意味します (通常は
12608	12750	マッチ失敗が原因ですが、このスカラ値にまだマッチングが
12609	12751	行われていないためかもしれません)。
12610	12752
12611	12753	=begin original
12612	12754
12613	12755	L<C<pos>\|/pos SCALAR> directly accesses the location used by the regexp
12614	12756	engine to store the offset, so assigning to L<C<pos>\|/pos SCALAR> will
12615	12757	change that offset, and so will also influence the C<\G> zero-width
12616	12758	assertion in regular expressions. Both of these effects take place for
12617	12759	the next match, so you can't affect the position with
12618	12760	L<C<pos>\|/pos SCALAR> during the current match, such as in
12619	12761	C<(?{pos() = 5})> or C<s//pos() = 5/e>.
12620	12762
12621	12763	=end original
12622	12764
12623	12765	L<C<pos>\|/pos SCALAR> は正規表現エンジンがオフセットを保存するために使う場所を
12624	12766	直接アクセスするので、L<C<pos>\|/pos SCALAR> への代入はオフセットを変更し、
12625	12767	そのような変更は正規表現における C<\G> ゼロ幅アサートにも影響を与えます。
12626	12768	これらの効果の両方は次のマッチングのために行われるので、
12627	12769	C<(?{pos() = 5})> や C<s//pos() = 5/e> のように現在のマッチング中の
12628	12770	L<C<pos>\|/pos SCALAR> の位置には影響を与えません。
12629	12771
12630	12772	=begin original
12631	12773
12632	12774	Setting L<C<pos>\|/pos SCALAR> also resets the I<matched with
12633	12775	zero-length> flag, described
12634	12776	under L<perlre/"Repeated Patterns Matching a Zero-length Substring">.
12635	12777
12636	12778	=end original
12637	12779
12638	12780	L<C<pos>\|/pos SCALAR> を設定すると、
12639	12781	L<perlre/"Repeated Patterns Matching a Zero-length Substring"> に
12640	12782	記述されている、I<長さ 0 でマッチング> フラグもリセットされます。
12641	12783
12642	12784	=begin original
12643	12785
12644	12786	Because a failed C<m//gc> match doesn't reset the offset, the return
12645	12787	from L<C<pos>\|/pos SCALAR> won't change either in this case. See
12646	12788	L<perlre> and L<perlop>.
12647	12789
12648	12790	=end original
12649	12791
12650	12792	C<m//gc> マッチに失敗してもオフセットはリセットしないので、
12651	12793	L<C<pos>\|/pos SCALAR> からの返り値はどちらの場合も変更されません。
12652	12794	L<perlre> と L<perlop> を参照してください。
12653	12795
12654	12796	=item print FILEHANDLE LIST
12655	12797	X<print>
12656	12798
12657	12799	=item print FILEHANDLE
12658	12800
12659	12801	=item print LIST
12660	12802
12661	12803	=item print
12662	12804
12663	12805	=for Pod::Functions output a list to a filehandle
12664	12806
12665	12807	=begin original
12666	12808
12667	12809	Prints a string or a list of strings. Returns true if successful.
12668	12810	FILEHANDLE may be a scalar variable containing the name of or a reference
12669	12811	to the filehandle, thus introducing one level of indirection. (NOTE: If
12670	12812	FILEHANDLE is a variable and the next token is a term, it may be
12671	12813	misinterpreted as an operator unless you interpose a C<+> or put
12672	12814	parentheses around the arguments.) If FILEHANDLE is omitted, prints to the
12673	12815	last selected (see L<C<select>\|/select FILEHANDLE>) output handle. If
12674	12816	LIST is omitted, prints L<C<$_>\|perlvar/$_> to the currently selected
12675	12817	output handle. To use FILEHANDLE alone to print the content of
12676	12818	L<C<$_>\|perlvar/$_> to it, you must use a bareword filehandle like
12677	12819	C<FH>, not an indirect one like C<$fh>. To set the default output handle
12678	12820	to something other than STDOUT, use the select operation.
12679	12821
12680	12822	=end original
12681	12823
12682	12824	文字列か文字列のリストを出力します。
12683	12825	成功時には真を返します。
12684	12826	FILEHANDLE は、ファイルハンドル名またはそのリファレンスが
12685	12827	入っているスカラ変数名でもよいので、一段階の間接指定が行なえます。
12686	12828	(注: FILEHANDLE に変数を使い、次のトークンが「項」のときには、
12687	12829	間に C<+> を置くか、引数の前後を括弧で括らなければ、
12688	12830	誤って解釈されることがあります。)
12689	12831	FILEHANDLE を省略した場合には、最後に選択された
12690	12832	(L<C<select>\|/select FILEHANDLE> 参照) 出力チャネルに出力します。
12691	12833	LIST を省略すると、L<C<$_>\|perlvar/$_> が現在選択されている出力ハンドルに
12692	12834	出力されます。
12693	12835	L<C<$_>\|perlvar/$_> の内容を表示するために FILEHANDLE のみを使用するには、
12694	12836	C<$fh> のような間接ファイルハンドルではなく、C<FH> のような裸の単語の
12695	12837	ファイルハンドルを使わなければなりません。
12696	12838	デフォルトの出力チャネルを STDOUT 以外にするには、select 演算子を
12697	12839	使ってください。
12698	12840
12699	12841	=begin original
12700	12842
12701	12843	The current value of L<C<$,>\|perlvar/$,> (if any) is printed between
12702	12844	each LIST item. The current value of L<C<$\>\|perlvar/$\> (if any) is
12703	12845	printed after the entire LIST has been printed. Because print takes a
12704	12846	LIST, anything in the LIST is evaluated in list context, including any
12705	12847	subroutines whose return lists you pass to
12706	12848	L<C<print>\|/print FILEHANDLE LIST>. Be careful not to follow the print
12707	12849	keyword with a left
12708	12850	parenthesis unless you want the corresponding right parenthesis to
12709	12851	terminate the arguments to the print; put parentheses around all arguments
12710	12852	(or interpose a C<+>, but that doesn't look as good).
12711	12853
12712	12854	=end original
12713	12855
12714	12856	L<C<$,>\|perlvar/$,> の値が(もしあれば)各 LIST 要素の間に出力されます。
12715	12857	LIST 全体が出力された後、(もしあれば) L<C<$\>\|perlvar/$\> の現在の値が
12716	12858	出力されます。
12717	12859	print の引数は LIST なので、LIST の中のものは、すべてリストコンテキストで
12718	12860	評価されます; L<C<print>\|/print FILEHANDLE LIST> に渡した、リストを返す
12719	12861	サブルーチンも含みます。
12720	12862	また、すべての引数を括弧で括るのでなければ、print というキーワードの
12721	12863	次に開き括弧を書いてはいけません; すべての引数を括弧で括ってください
12722	12864	(あるいは "print" と引数の間に C<+> を書きますが、これはあまり
12723	12865	よくありません)。
12724	12866
12725	12867	=begin original
12726	12868
12727	12869	If you're storing handles in an array or hash, or in general whenever
12728	12870	you're using any expression more complex than a bareword handle or a plain,
12729	12871	unsubscripted scalar variable to retrieve it, you will have to use a block
12730	12872	returning the filehandle value instead, in which case the LIST may not be
12731	12873	omitted:
12732	12874
12733	12875	=end original
12734	12876
12735	12877	もし FILESHANDLE を配列、ハッシュあるいは一般的には裸の単語のハンドルや
12736	12878	普通のスカラ変数よりも複雑な表現を使っている場合、代わりにその値を返す
12737	12879	ブロックを使う必要があります; この場合 LIST は省略できません:
12738	12880
12739	12881	print { $files[$i] } "stuff\n";
12740	12882	print { $OK ? STDOUT : STDERR } "stuff\n";
12741	12883
12742	12884	=begin original
12743	12885
12744	12886	Printing to a closed pipe or socket will generate a SIGPIPE signal. See
12745	12887	L<perlipc> for more on signal handling.
12746	12888
12747	12889	=end original
12748	12890
12749	12891	閉じたパイプやソケットに print すると SIGPIPE シグナルが生成されます。
12750	12892	さらなるシグナル操作については L<perlipc> を参照してください。
12751	12893
12752	12894	=item printf FILEHANDLE FORMAT, LIST
12753	12895	X<printf>
12754	12896
12755	12897	=item printf FILEHANDLE
12756	12898
12757	12899	=item printf FORMAT, LIST
12758	12900
12759	12901	=item printf
12760	12902
12761	12903	=for Pod::Functions output a formatted list to a filehandle
12762	12904
12763	12905	=begin original
12764	12906
12765	12907	Equivalent to C<print FILEHANDLE sprintf(FORMAT, LIST)>, except that
12766	12908	L<C<$\>\|perlvar/$\> (the output record separator) is not appended. The
12767	12909	FORMAT and the LIST are actually parsed as a single list. The first
12768	12910	argument of the list will be interpreted as the
12769	12911	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST> format. This means that
12770	12912	C<printf(@_)> will use C<$_[0]> as the format. See
12771	12913	L<sprintf\|/sprintf FORMAT, LIST> for an explanation of the format
12772	12914	argument. If C<use locale> (including C<use locale ':not_characters'>)
12773	12915	is in effect and L<C<POSIX::setlocale>\|POSIX/C<setlocale>> has been
12774	12916	called, the character used for the decimal separator in formatted
12775	12917	floating-point numbers is affected by the C<LC_NUMERIC> locale setting.
12776	12918	See L<perllocale> and L<POSIX>.
12777	12919
12778	12920	=end original
12779	12921
12780	12922	L<C<$\>\|perlvar/$\>(出力レコードセパレータ)を追加しないことを除けば、
12781	12923	C<print FILEHANDLE sprintf(FORMAT, LIST)> と等価です。
12782	12924	FORMAT と LIST は実際には単一のリストとしてパースされます。
12783	12925	リストの最初の要素は、L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>
12784	12926	フォーマットと解釈されます。
12785	12927	これは、C<printf(@_)> はフォーマットとして C<$_[0]> を使うということです。
12786	12928	フォーマット引数の説明については L<sprintf\|/sprintf FORMAT, LIST> を
12787	12929	参照してください。
12788	12930	(C<use locale ':not_characters'> を含む) C<use locale> が有効で、
12789	12931	L<C<POSIX::setlocale>\|POSIX/C<setlocale>> が呼び出されていれば、
12790	12932	小数点に使われる文字は C<LC_NUMERIC> ロケール設定の影響を受けます。
12791	12933	L<perllocale> と L<POSIX> を参照してください。
12792	12934
12793	12935	=begin original
12794	12936
12795	12937	For historical reasons, if you omit the list, L<C<$_>\|perlvar/$_> is
12796	12938	used as the format;
12797	12939	to use FILEHANDLE without a list, you must use a bareword filehandle like
12798	12940	C<FH>, not an indirect one like C<$fh>. However, this will rarely do what
12799	12941	you want; if L<C<$_>\|perlvar/$_> contains formatting codes, they will be
12800	12942	replaced with the empty string and a warning will be emitted if
12801	12943	L<warnings> are enabled. Just use L<C<print>\|/print FILEHANDLE LIST> if
12802	12944	you want to print the contents of L<C<$_>\|perlvar/$_>.
12803	12945
12804	12946	=end original
12805	12947
12806	12948	歴史的な理由により、リストを省略すると、フォーマットとして
12807	12949	L<C<$_>\|perlvar/$_> が使われます;
12808	12950	リストなしで FILEHANDLE を使用するには、C<$fh> のような
12809	12951	間接ファイルハンドルではなく、C<FH> のような裸の単語の
12810	12952	ファイルハンドルを使わなければなりません。
12811	12953	しかし、これがあなたが求めていることをすることはまれです;
12812	12954	L<C<$_>\|perlvar/$_> がフォーマッティングコードの場合、空文字列に置き換えられ、
12813	12955	L<warnings> が有効なら警告が出力されます。
12814	12956	L<C<$_>\|perlvar/$_> の内容を表示したい場合は、単に
12815	12957	L<C<print>\|/print FILEHANDLE LIST> を使ってください。
12816	12958
12817	12959	=begin original
12818	12960
12819	12961	Don't fall into the trap of using a
12820	12962	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST> when a simple
12821	12963	L<C<print>\|/print FILEHANDLE LIST> would do. The
12822	12964	L<C<print>\|/print FILEHANDLE LIST> is more efficient and less error
12823	12965	prone.
12824	12966
12825	12967	=end original
12826	12968
12827	12969	単純な L<C<print>\|/print FILEHANDLE LIST> を使うべきところで
12828	12970	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST> を使ってしまう
12829	12971	罠にかからないようにしてください。
12830	12972	L<C<print>\|/print FILEHANDLE LIST> はより効率的で、間違いが起こりにくいです。
12831	12973
12832	12974	=item prototype FUNCTION
12833	12975	X<prototype>
12834	12976
12835	12977	=item prototype
12836	12978
12837	12979	=for Pod::Functions +5.002 get the prototype (if any) of a subroutine
12838	12980
12839	12981	=begin original
12840	12982
12841	12983	Returns the prototype of a function as a string (or
12842	12984	L<C<undef>\|/undef EXPR> if the
12843	12985	function has no prototype). FUNCTION is a reference to, or the name of,
12844	12986	the function whose prototype you want to retrieve. If FUNCTION is omitted,
12845	12987	L<C<$_>\|perlvar/$_> is used.
12846	12988
12847	12989	=end original
12848	12990
12849	12991	関数のプロトタイプを文字列として返します(関数にプロトタイプがない場合は
12850	12992	L<C<undef>\|/undef EXPR> を返します)。
12851	12993	FUNCTION はプロトタイプを得たい関数の名前、またはリファレンスです。
12852	12994	FUNCTION が省略された場合、L<C<$_>\|perlvar/$_> が使われます。
12853	12995
12854	12996	=begin original
12855	12997
12856	12998	If FUNCTION is a string starting with C<CORE::>, the rest is taken as a
12857	12999	name for a Perl builtin. If the builtin's arguments
12858	13000	cannot be adequately expressed by a prototype
12859	13001	(such as L<C<system>\|/system LIST>), L<C<prototype>\|/prototype FUNCTION>
12860	13002	returns L<C<undef>\|/undef EXPR>, because the builtin
12861	13003	does not really behave like a Perl function. Otherwise, the string
12862	13004	describing the equivalent prototype is returned.
12863	13005
12864	13006	=end original
12865	13007
12866	13008	FUNCTION が C<CORE::> で始まっている場合、残りは Perl ビルドインの名前として
12867	13009	扱われます。
12868	13010	このビルドインの引数が(L<C<system>\|/system LIST> のように)プロトタイプとして
12869	13011	適切に記述できない場合、L<C<prototype>\|/prototype FUNCTION> は
12870	13012	L<C<undef>\|/undef EXPR> を返します;
12871	13013	なぜならビルドインは実際に Perl 関数のように振舞わないからです。
12872	13014	それ以外では、等価なプロトタイプを表現した文字列が返されます。
12873	13015
12874	13016	=item push ARRAY,LIST
12875	13017	X<push> X<stack>
12876	13018
12877	13019	=for Pod::Functions append one or more elements to an array
12878	13020
12879	13021	=begin original
12880	13022
12881	13023	Treats ARRAY as a stack by appending the values of LIST to the end of
12882	13024	ARRAY. The length of ARRAY increases by the length of LIST. Has the same
12883	13025	effect as
12884	13026
12885	13027	=end original
12886	13028
12887	13029	ARRAY をスタックとして扱い、LIST 内の値を ARRAY の終わりに追加します。
12888	13030	ARRAY の大きさは、LIST の長さ分だけ大きくなります。
12889	13031	これは、
12890	13032
12891	13033	for my $value (LIST) {
12892	13034	$ARRAY[++$#ARRAY] = $value;
12893	13035	}
12894	13036
12895	13037	=begin original
12896	13038
12897	13039	but is more efficient. Returns the number of elements in the array following
12898	13040	the completed L<C<push>\|/push ARRAY,LIST>.
12899	13041
12900	13042	=end original
12901	13043
12902	13044	とするのと同じ効果がありますが、より効率的です。
12903	13045	L<C<push>\|/push ARRAY,LIST> の処理終了後の配列の要素数を返します。
12904	13046
12905	13047	=begin original
12906	13048
12907	13049	Starting with Perl 5.14, an experimental feature allowed
12908	13050	L<C<push>\|/push ARRAY,LIST> to take a
12909	13051	scalar expression. This experiment has been deemed unsuccessful, and was
12910	13052	removed as of Perl 5.24.
12911	13053
12912	13054	=end original
12913	13055
12914	13056	Perl 5.14 から、L<C<push>\|/push ARRAY,LIST> がスカラ式を取ることが出来るという
12915	13057	実験的機能がありました。
12916	13058	この実験は失敗と見なされ、Perl 5.24 で削除されました。
12917	13059
12918	13060	=item q/STRING/
12919	13061
12920	13062	=for Pod::Functions singly quote a string
12921	13063
12922	13064	=item qq/STRING/
12923	13065
12924	13066	=for Pod::Functions doubly quote a string
12925	13067
12926	13068	=item qw/STRING/
12927	13069
12928	13070	=for Pod::Functions quote a list of words
12929	13071
12930	13072	=item qx/STRING/
12931	13073
12932	13074	=for Pod::Functions backquote quote a string
12933	13075
12934	13076	=begin original
12935	13077
12936	13078	Generalized quotes. See L<perlop/"Quote-Like Operators">.
12937	13079
12938	13080	=end original
12939	13081
12940	13082	汎用のクォートです。
12941	13083	L<perlop/"Quote-Like Operators"> を参照してください。
12942	13084
12943	13085	=item qr/STRING/
12944	13086
12945	13087	=for Pod::Functions +5.005 compile pattern
12946	13088
12947	13089	=begin original
12948	13090
12949	13091	Regexp-like quote. See L<perlop/"Regexp Quote-Like Operators">.
12950	13092
12951	13093	=end original
12952	13094
12953	13095	正規表現風のクォートです。
12954	13096	L<perlop/"Regexp Quote-Like Operators"> を参照してください。
12955	13097
12956	13098	=item quotemeta EXPR
12957	13099	X<quotemeta> X<metacharacter>
12958	13100
12959	13101	=item quotemeta
12960	13102
12961	13103	=for Pod::Functions quote regular expression magic characters
12962	13104
12963	13105	=begin original
12964	13106
12965	13107	Returns the value of EXPR with all the ASCII non-"word"
12966	13108	characters backslashed. (That is, all ASCII characters not matching
12967	13109	C</[A-Za-z_0-9]/> will be preceded by a backslash in the
12968	13110	returned string, regardless of any locale settings.)
12969	13111	This is the internal function implementing
12970	13112	the C<\Q> escape in double-quoted strings.
12971	13113	(See below for the behavior on non-ASCII code points.)
12972	13114
12973	13115	=end original
12974	13116
12975	13117	EXPR の中のすべての ASCII 非英数字キャラクタをバックスラッシュで
12976	13118	エスケープしたものを返します。
12977	13119	(つまり、C</[A-Za-z_0-9]/> にマッチしない全ての ASCII 文字の前には
12978	13120	ロケールに関わらずバックスラッシュが前置されます。)
12979	13121	これは、ダブルクォート文字列での C<\Q> エスケープを実装するための
12980	13122	内部関数です。
12981	13123	(非 ASCII 符号位置での振る舞いについては以下を参照してください。)
12982	13124
12983	13125	=begin original
12984	13126
12985	13127	If EXPR is omitted, uses L<C<$_>\|perlvar/$_>.
12986	13128
12987	13129	=end original
12988	13130
12989	13131	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
12990	13132
12991	13133	=begin original
12992	13134
12993	13135	quotemeta (and C<\Q> ... C<\E>) are useful when interpolating strings into
12994	13136	regular expressions, because by default an interpolated variable will be
12995	13137	considered a mini-regular expression. For example:
12996	13138
12997	13139	=end original
12998	13140
12999	13141	クォートメタ (と C<\Q> ... C<\E>) は、文字列を正規表現に展開するのに
13000	13142	便利です; なぜなら、デフォルトでは展開された変数は小さな正規表現として
13001	13143	扱われるからです。
13002	13144	例えば:
13003	13145
13004	13146	my $sentence = 'The quick brown fox jumped over the lazy dog';
13005	13147	my $substring = 'quick.*?fox';
13006	13148	$sentence =~ s{$substring}{big bad wolf};
13007	13149
13008	13150	=begin original
13009	13151
13010	13152	Will cause C<$sentence> to become C<'The big bad wolf jumped over...'>.
13011	13153
13012	13154	=end original
13013	13155
13014	13156	とすると、C<$sentence> は C<'The big bad wolf jumped over...'> になります。
13015	13157
13016	13158	=begin original
13017	13159
13018	13160	On the other hand:
13019	13161
13020	13162	=end original
13021	13163
13022	13164	一方:
13023	13165
13024	13166	my $sentence = 'The quick brown fox jumped over the lazy dog';
13025	13167	my $substring = 'quick.*?fox';
13026	13168	$sentence =~ s{\Q$substring\E}{big bad wolf};
13027	13169
13028	13170	=begin original
13029	13171
13030	13172	Or:
13031	13173
13032	13174	=end original
13033	13175
13034	13176	あるいは:
13035	13177
13036	13178	my $sentence = 'The quick brown fox jumped over the lazy dog';
13037	13179	my $substring = 'quick.*?fox';
13038	13180	my $quoted_substring = quotemeta($substring);
13039	13181	$sentence =~ s{$quoted_substring}{big bad wolf};
13040	13182
13041	13183	=begin original
13042	13184
13043	13185	Will both leave the sentence as is.
13044	13186	Normally, when accepting literal string input from the user,
13045	13187	L<C<quotemeta>\|/quotemeta EXPR> or C<\Q> must be used.
13046	13188
13047	13189	=end original
13048	13190
13049	13191	とすると、両方ともそのままです。
13050	13192	普通は、ユーザーからのリテラルな文字列入力を受け付ける場合は、
13051	13193	必ず L<C<quotemeta>\|/quotemeta EXPR> か C<\Q> を使わなければなりません。
13052	13194
13053	13195	=begin original
13054	13196
	13197	Beware that if you put literal backslashes (those not inside
	13198	interpolated variables) between C<\Q> and C<\E>, double-quotish
	13199	backslash interpolation may lead to confusing results. If you
	13200	I<need> to use literal backslashes within C<\Q...\E>,
	13201	consult L<perlop/"Gory details of parsing quoted constructs">.
	13202
	13203	=end original
	13204
	13205	リテラルな逆スラッシュ (変数置換の中でないもの) を C<\Q> と C<\E> の間に
	13206	置くと、ダブルクォート風逆スラッシュ変数置換は混乱した結果を
	13207	引き起こすことがあることに注意してください。
	13208	C<\Q...\E> の中でリテラルな逆スラッシュを使うことが I<必要> なら、
	13209	L<perlop/"Gory details of parsing quoted constructs"> を参照してください。
	13210
	13211	=begin original
	13212
	13213	Because the result of S<C<"\Q I<STRING> \E">> has all metacharacters
	13214	quoted, there is no way to insert a literal C<$> or C<@> inside a
	13215	C<\Q\E> pair. If protected by C<\>, C<$> will be quoted to become
	13216	C<"\\\$">; if not, it is interpreted as the start of an interpolated
	13217	scalar.
	13218
	13219	=end original
	13220
	13221	S<C<"\Q I<STRING> \E">> の結果では全てのメタ文字がクォートされているので、
	13222	C<\Q\E> の組の中にリテラルな C<$> や C<@> を挿入する方法はありません。
	13223	C<\> で保護すると、C<$> は C<"\\\$"> になってクォートされます;
	13224	保護しないと、変数展開されるスカラの開始として解釈されます。
	13225
	13226	=begin original
	13227
13055	13228	In Perl v5.14, all non-ASCII characters are quoted in non-UTF-8-encoded
13056	13229	strings, but not quoted in UTF-8 strings.
13057	13230
13058	13231	=end original
13059	13232
13060	13233	Perl v5.14 では、全ての非 ASCII 文字は非 UTF-8 エンコードされた
13061	13234	文字列ではクォートされませんが、UTF-8 文字列ではクォートされます。
13062	13235
13063	13236	=begin original
13064	13237
13065	13238	Starting in Perl v5.16, Perl adopted a Unicode-defined strategy for
13066	13239	quoting non-ASCII characters; the quoting of ASCII characters is
13067	13240	unchanged.
13068	13241
13069	13242	=end original
13070	13243
13071	13244	Perl v5.16 から、Perl は非 ASCII 文字をクォートするのに Unicode で
13072	13245	定義された戦略を採用しました; ASCII 文字のクォートは変わりません。
13073	13246
13074	13247	=begin original
13075	13248
13076	13249	Also unchanged is the quoting of non-UTF-8 strings when outside the
13077	13250	scope of a
13078	13251	L<C<use feature 'unicode_strings'>\|feature/The 'unicode_strings' feature>,
13079	13252	which is to quote all
13080	13253	characters in the upper Latin1 range. This provides complete backwards
13081	13254	compatibility for old programs which do not use Unicode. (Note that
13082	13255	C<unicode_strings> is automatically enabled within the scope of a
13083	13256	S<C<use v5.12>> or greater.)
13084	13257
13085	13258	=end original
13086	13259
13087	13260	また、
13088	13261	L<C<use feature 'unicode_strings'>\|feature/The 'unicode_strings' feature> の
13089	13262	範囲外で非 UTF-8 文字列をクォートするのも変わりません; 上位の Latin1 の範囲の
13090	13263	全ての文字をクォートします。
13091	13264	これは Unicode を使わない古いプログラムに対して完全な後方互換性を提供します。
13092	13265	(C<unicode_strings> は S<C<use v5.12>> またはそれ以上のスコープでは
13093	13266	自動的に有効になることに注意してください。)
13094	13267
13095	13268	=begin original
13096	13269
13097	13270	Within the scope of L<C<use locale>\|locale>, all non-ASCII Latin1 code
13098	13271	points
13099	13272	are quoted whether the string is encoded as UTF-8 or not. As mentioned
13100	13273	above, locale does not affect the quoting of ASCII-range characters.
13101	13274	This protects against those locales where characters such as C<"\|"> are
13102	13275	considered to be word characters.
13103	13276
13104	13277	=end original
13105	13278
13106	13279	L<C<use locale>\|locale> スコープの内側では、全ての非 ASCII Latin1 符号位置は
13107	13280	文字列が UTF-8 でエンコードされているかどうかに関わらずクォートされます。
13108	13281	上述のように、ロケールは ASCII の範囲の文字のクォートに影響を与えません。
13109	13282	これは C<"\|"> のような文字が単語文字として考えられるロケールから守ります。
13110	13283
13111	13284	=begin original
13112	13285
13113	13286	Otherwise, Perl quotes non-ASCII characters using an adaptation from
13114	13287	Unicode (see L<https://www.unicode.org/reports/tr31/>).
13115	13288	The only code points that are quoted are those that have any of the
13116	13289	Unicode properties: Pattern_Syntax, Pattern_White_Space, White_Space,
13117	13290	Default_Ignorable_Code_Point, or General_Category=Control.
13118	13291
13119	13292	=end original
13120	13293
13121	13294	さもなければ、Perl は Unicode からの本版を使って非 ASCII 文字をクォートします
13122	13295	(L<https://www.unicode.org/reports/tr31/> 参照)。
13123	13296	クォートされる符号位置は以下のどれかの Unicode を特性を持つものだけです:
13124	13297	Pattern_Syntax, Pattern_White_Space, White_Space,
13125	13298	Default_Ignorable_Code_Point, or General_Category=Control。
13126	13299
13127	13300	=begin original
13128	13301
13129	13302	Of these properties, the two important ones are Pattern_Syntax and
13130	13303	Pattern_White_Space. They have been set up by Unicode for exactly this
13131	13304	purpose of deciding which characters in a regular expression pattern
13132	13305	should be quoted. No character that can be in an identifier has these
13133	13306	properties.
13134	13307
13135	13308	=end original
13136	13309
13137	13310	これらの特性の中で、重要な二つは Pattern_Syntax と Pattern_White_Space です。
13138	13311	これらはまさに正規表現中パターン中のどの文字をクォートするべきかを
13139	13312	決定するという目的のために Unicode によって設定されています。
13140	13313	識別子になる文字はこれらの特性はありません。
13141	13314
13142	13315	=begin original
13143	13316
13144	13317	Perl promises, that if we ever add regular expression pattern
13145	13318	metacharacters to the dozen already defined
13146	13319	(C<\ E<verbar> ( ) [ { ^ $ * + ? .>), that we will only use ones that have the
13147	13320	Pattern_Syntax property. Perl also promises, that if we ever add
13148	13321	characters that are considered to be white space in regular expressions
13149	13322	(currently mostly affected by C</x>), they will all have the
13150	13323	Pattern_White_Space property.
13151	13324
13152	13325	=end original
13153	13326
13154	13327	Perl は、正規表現メタ文字として既に定義されている
13155	13328	(C<\ E<verbar> ( ) [ { ^ $ * + ? .>) ものに追加するときは、
13156	13329	Pattern_Syntax 特性を持つものだけを使うことを約束します。
13157	13330	Perl はまた、(現在の所ほとんどは C</x> よって影響される)正規表現中で空白と
13158	13331	考えられる文字に追加するときは、Pattern_White_Space 特性を
13159	13332	持つものであることを約束します。
13160	13333
13161	13334	=begin original
13162	13335
13163	13336	Unicode promises that the set of code points that have these two
13164	13337	properties will never change, so something that is not quoted in v5.16
13165	13338	will never need to be quoted in any future Perl release. (Not all the
13166	13339	code points that match Pattern_Syntax have actually had characters
13167	13340	assigned to them; so there is room to grow, but they are quoted
13168	13341	whether assigned or not. Perl, of course, would never use an
13169	13342	unassigned code point as an actual metacharacter.)
13170	13343
13171	13344	=end original
13172	13345
13173	13346	Unicode はこれら二つの特性を持つ符号位置の集合が決して変わらないことを
13174	13347	約束しているので、v5.16 でクォートされないものは将来の Perl リリースでも
13175	13348	クォートする必要はありません。
13176	13349	(Pattern_Syntax にマッチングする全ての符号位置が実際に割り当てられている
13177	13350	文字を持っているわけではありません; したがって拡張する余地がありますが、
13178	13351	割り当てられているかどうかに関わらずクォートされます。
13179	13352	Perl はもちろん割り当てられていない符号位置を実際のメタ文字として使うことは
13180	13353	ありません。)
13181	13354
13182	13355	=begin original
13183	13356
13184	13357	Quoting characters that have the other 3 properties is done to enhance
13185	13358	the readability of the regular expression and not because they actually
13186	13359	need to be quoted for regular expression purposes (characters with the
13187	13360	White_Space property are likely to be indistinguishable on the page or
13188	13361	screen from those with the Pattern_White_Space property; and the other
13189	13362	two properties contain non-printing characters).
13190	13363
13191	13364	=end original
13192	13365
13193	13366	その他の 3 特性を持つ文字のクォートは正規表現の可読性を向上させるために
13194	13367	行われ、実際には正規表現の目的でクォートする必要があるからではありません
13195	13368	(White_Space 特性を持つ文字は表示上は Pattern_White_Space 特性を持つ文字と
13196	13369	おそらく区別が付かないでしょう; そして残りの
13197	13370	二つの特性は非表示文字を含んでいます).
13198	13371
13199	13372	=item rand EXPR
13200	13373	X<rand> X<random>
13201	13374
13202	13375	=item rand
13203	13376
13204	13377	=for Pod::Functions retrieve the next pseudorandom number
13205	13378
13206	13379	=begin original
13207	13380
13208	13381	Returns a random fractional number greater than or equal to C<0> and less
13209	13382	than the value of EXPR. (EXPR should be positive.) If EXPR is
13210	13383	omitted, the value C<1> is used. Currently EXPR with the value C<0> is
13211	13384	also special-cased as C<1> (this was undocumented before Perl 5.8.0
13212	13385	and is subject to change in future versions of Perl). Automatically calls
13213	13386	L<C<srand>\|/srand EXPR> unless L<C<srand>\|/srand EXPR> has already been
13214	13387	called. See also L<C<srand>\|/srand EXPR>.
13215	13388
13216	13389	=end original
13217	13390
13218	13391	C<0> 以上 EXPR の値未満の小数の乱数値を返します。
13219	13392	(EXPR は正の数である必要があります。)
13220	13393	EXPR が省略されると、C<1> が使われます。
13221	13394	現在のところ、EXPR に値 C<0> をセットすると C<1> として特別扱いされます
13222	13395	(これは Perl 5.8.0 以前には文書化されておらず、将来のバージョンの perl では
13223	13396	変更される可能性があります)。
13224	13397	L<C<srand>\|/srand EXPR> が既に呼ばれている場合以外は、自動的に
13225	13398	L<C<srand>\|/srand EXPR> 関数を呼び出します。
13226	13399	L<C<srand>\|/srand EXPR> も参照してください。
13227	13400
13228	13401	=begin original
13229	13402
13230	13403	Apply L<C<int>\|/int EXPR> to the value returned by L<C<rand>\|/rand EXPR>
13231	13404	if you want random integers instead of random fractional numbers. For
13232	13405	example,
13233	13406
13234	13407	=end original
13235	13408
13236	13409	ランダムな小数ではなく、ランダムな整数がほしい場合は、
13237	13410	L<C<rand>\|/rand EXPR> から返された値に L<C<int>\|/int EXPR> を
13238	13411	適用してください。
13239	13412	例えば:
13240	13413
13241	13414	int(rand(10))
13242	13415
13243	13416	=begin original
13244	13417
13245	13418	returns a random integer between C<0> and C<9>, inclusive.
13246	13419
13247	13420	=end original
13248	13421
13249	13422	これは C<0> から C<9> の値をランダムに返します。
13250	13423
13251	13424	=begin original
13252	13425
13253	13426	(Note: If your rand function consistently returns numbers that are too
13254	13427	large or too small, then your version of Perl was probably compiled
13255	13428	with the wrong number of RANDBITS.)
13256	13429
13257	13430	=end original
13258	13431
13259	13432	(注: もし、rand 関数が、常に大きい値ばかりや、小さい数ばかりを
13260	13433	返すようなら、お使いになっている Perl が、
13261	13434	良くない RANDBITS を使ってコンパイルされている可能性があります。)
13262	13435
13263	13436	=begin original
13264	13437
13265	13438	B<L<C<rand>\|/rand EXPR> is not cryptographically secure. You should not rely
13266	13439	on it in security-sensitive situations.> As of this writing, a
13267	13440	number of third-party CPAN modules offer random number generators
13268	13441	intended by their authors to be cryptographically secure,
13269	13442	including: L<Data::Entropy>, L<Crypt::Random>, L<Math::Random::Secure>,
13270	13443	and L<Math::TrulyRandom>.
13271	13444
13272	13445	=end original
13273	13446
13274	13447	B<L<C<rand>\|/rand EXPR> は暗号学的に安全ではありません。
13275	13448	セキュリティ的に重要な状況でこれに頼るべきではありません。>
13276	13449	これを書いている時点で、いくつかのサードパーティ CPAN モジュールが
13277	13450	作者によって暗号学的に安全であることを目的とした乱数生成器を
13278	13451	提供しています: L<Data::Entropy>, L<Crypt::Random>, L<Math::Random::Secure>,
13279	13452	L<Math::TrulyRandom> などです。
13280	13453
13281	13454	=item read FILEHANDLE,SCALAR,LENGTH,OFFSET
13282	13455	X<read> X<file, read>
13283	13456
13284	13457	=item read FILEHANDLE,SCALAR,LENGTH
13285	13458
13286	13459	=for Pod::Functions fixed-length buffered input from a filehandle
13287	13460
13288	13461	=begin original
13289	13462
13290	13463	Attempts to read LENGTH I<characters> of data into variable SCALAR
13291	13464	from the specified FILEHANDLE. Returns the number of characters
13292	13465	actually read, C<0> at end of file, or undef if there was an error (in
13293	13466	the latter case L<C<$!>\|perlvar/$!> is also set). SCALAR will be grown
13294	13467	or shrunk
13295	13468	so that the last character actually read is the last character of the
13296	13469	scalar after the read.
13297	13470
13298	13471	=end original
13299	13472
13300	13473	指定した FILEHANDLE から、変数 SCALAR に LENGTH I<文字> のデータを
13301	13474	読み込みます。
13302	13475	実際に読み込まれた文字数、ファイル終端の場合は C<0>、エラーの場合は undef の
13303	13476	いずれかを返します (後者の場合、L<C<$!>\|perlvar/$!> もセットされます)。
13304	13477	SCALAR は伸び縮みするので、読み込み後は、実際に読み込んだ最後の文字がスカラの
13305	13478	最後の文字になります。
13306	13479
13307	13480	=begin original
13308	13481
13309	13482	An OFFSET may be specified to place the read data at some place in the
13310	13483	string other than the beginning. A negative OFFSET specifies
13311	13484	placement at that many characters counting backwards from the end of
13312	13485	the string. A positive OFFSET greater than the length of SCALAR
13313	13486	results in the string being padded to the required size with C<"\0">
13314	13487	bytes before the result of the read is appended.
13315	13488
13316	13489	=end original
13317	13490
13318	13491	OFFSET を指定すると、文字列の先頭以外の場所から読み込みを行なえます。
13319	13492	OFFSET に負の値を指定すると、文字列の最後から逆向きに何文字目かで
13320	13493	位置を指定します。
13321	13494	OFFSET が正の値で、SCALAR の長さよりも大きかった場合、文字列は読み込みの結果が
13322	13495	追加される前に、必要なサイズまで C<"\0"> のバイトでパッディングされます。
13323	13496
13324	13497	=begin original
13325	13498
13326	13499	The call is implemented in terms of either Perl's or your system's native
13327	13500	L<fread(3)> library function, via the L<PerlIO> layers applied to the
13328	13501	handle. To get a true L<read(2)> system call, see
13329	13502	L<sysread\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>.
13330	13503
13331	13504	=end original
13332	13505
13333	13506	この関数は、Perl かシステムの L<fread(3)> ライブラリ関数を使って、
13334	13507	ハンドルに適用されている L<PerlIO> 層経由で実装されています。
13335	13508	本当の L<read(2)> システムコールを利用するには、
13336	13509	L<sysread\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> を参照してください。
13337	13510
13338	13511	=begin original
13339	13512
13340	13513	Note the I<characters>: depending on the status of the filehandle,
13341	13514	either (8-bit) bytes or characters are read. By default, all
13342	13515	filehandles operate on bytes, but for example if the filehandle has
13343	13516	been opened with the C<:utf8> I/O layer (see
13344	13517	L<C<open>\|/open FILEHANDLE,MODE,EXPR>, and the L<open>
13345	13518	pragma), the I/O will operate on UTF8-encoded Unicode
13346	13519	characters, not bytes. Similarly for the C<:encoding> layer:
13347	13520	in that case pretty much any characters can be read.
13348	13521
13349	13522	=end original
13350	13523
13351	13524	I<文字> に関する注意: ファイルハンドルの状態によって、(8 ビットの) バイトか
13352	13525	文字が読み込まれます。
13353	13526	デフォルトでは全てのファイルハンドルはバイトを処理しますが、
13354	13527	例えばファイルハンドルが C<:utf8> I/O 層
13355	13528	(L<C<open>\|/open FILEHANDLE,MODE,EXPR>, L<open> プラグマを参照してください) で
13356	13529	開かれた場合、I/O はバイトではなく、
13357	13530	UTF8 エンコードされた Unicode 文字を操作します。
13358	13531	C<:encoding> 層も同様です:
13359	13532	この場合、ほとんど大体全ての文字が読み込めます。
13360	13533
13361	13534	=item readdir DIRHANDLE
13362	13535	X<readdir>
13363	13536
13364	13537	=for Pod::Functions get a directory from a directory handle
13365	13538
13366	13539	=begin original
13367	13540
13368	13541	Returns the next directory entry for a directory opened by
13369	13542	L<C<opendir>\|/opendir DIRHANDLE,EXPR>.
13370	13543	If used in list context, returns all the rest of the entries in the
13371	13544	directory. If there are no more entries, returns the undefined value in
13372	13545	scalar context and the empty list in list context.
13373	13546
13374	13547	=end original
13375	13548
13376	13549	L<C<opendir>\|/opendir DIRHANDLE,EXPR> でオープンしたディレクトリで、次の
13377	13550	ディレクトリエントリを返します。
13378	13551	リストコンテキストで用いると、そのディレクトリの残りのエントリを、すべて
13379	13552	返します。
13380	13553	エントリが残っていない場合には、スカラコンテキストでは未定義値を、
13381	13554	リストコンテキストでは空リストを返します。
13382	13555
13383	13556	=begin original
13384	13557
13385	13558	If you're planning to filetest the return values out of a
13386	13559	L<C<readdir>\|/readdir DIRHANDLE>, you'd better prepend the directory in
13387	13560	question. Otherwise, because we didn't L<C<chdir>\|/chdir EXPR> there,
13388	13561	it would have been testing the wrong file.
13389	13562
13390	13563	=end original
13391	13564
13392	13565	L<C<readdir>\|/readdir DIRHANDLE> の返り値をファイルテストに使おうと
13393	13566	計画しているなら、頭にディレクトリをつける必要があります。
13394	13567	さもなければ、ここでは L<C<chdir>\|/chdir EXPR> はしないので、
13395	13568	間違ったファイルをテストしてしまうことになるでしょう。
13396	13569
13397	13570	opendir(my $dh, $some_dir) \|\| die "Can't opendir $some_dir: $!";
13398	13571	my @dots = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
13399	13572	closedir $dh;
13400	13573
13401	13574	=begin original
13402	13575
13403	13576	As of Perl 5.12 you can use a bare L<C<readdir>\|/readdir DIRHANDLE> in a
13404	13577	C<while> loop, which will set L<C<$_>\|perlvar/$_> on every iteration.
13405	13578	If either a C<readdir> expression or an explicit assignment of a
13406	13579	C<readdir> expression to a scalar is used as a C<while>/C<for> condition,
13407	13580	then the condition actually tests for definedness of the expression's
13408	13581	value, not for its regular truth value.
13409	13582
13410	13583	=end original
13411	13584
13412	13585	Perl 5.12 から裸の L<C<readdir>\|/readdir DIRHANDLE> を C<while> で
13413	13586	使うことができ、この場合繰り返し毎に L<C<$_>\|perlvar/$_> にセットされます。
13414	13587	C<readdir> 式または C<readdir> 式からスカラへの明示的な代入が
13415	13588	C<while>/C<for> の条件部として使われた場合、
13416	13589	条件は通常の真の値かどうかではなく、式の値が定義されているかどうかを
13417	13590	テストします。
13418	13591
13419	13592	opendir(my $dh, $some_dir) \|\| die "Can't open $some_dir: $!";
13420	13593	while (readdir $dh) {
13421	13594	print "$some_dir/$_\n";
13422	13595	}
13423	13596	closedir $dh;
13424	13597
13425	13598	=begin original
13426	13599
13427	13600	To avoid confusing would-be users of your code who are running earlier
13428	13601	versions of Perl with mysterious failures, put this sort of thing at the
13429	13602	top of your file to signal that your code will work I<only> on Perls of a
13430	13603	recent vintage:
13431	13604
13432	13605	=end original
13433	13606
13434	13607	あなたのコードを以前のバージョンの Perl で実行したユーザーが不思議な
13435	13608	失敗で混乱することを避けるために、コードが最近のバージョンの Perl で
13436	13609	I<のみ> 動作することを示すためにファイルの先頭に以下のようなことを
13437	13610	書いてください:
13438	13611
13439		use 5.012; # so readdir assigns to $_ in a lone while test
	13612	use v5.12; # so readdir assigns to $_ in a lone while test
13440	13613
13441	13614	=item readline EXPR
13442	13615
13443	13616	=item readline
13444	13617	X<readline> X<gets> X<fgets>
13445	13618
13446	13619	=for Pod::Functions fetch a record from a file
13447	13620
13448	13621	=begin original
13449	13622
13450	13623	Reads from the filehandle whose typeglob is contained in EXPR (or from
13451	13624	C<*ARGV> if EXPR is not provided). In scalar context, each call reads and
13452	13625	returns the next line until end-of-file is reached, whereupon the
13453	13626	subsequent call returns L<C<undef>\|/undef EXPR>. In list context, reads
13454	13627	until end-of-file is reached and returns a list of lines. Note that the
13455	13628	notion of "line" used here is whatever you may have defined with
13456	13629	L<C<$E<sol>>\|perlvar/$E<sol>> (or C<$INPUT_RECORD_SEPARATOR> in
13457	13630	L<English>). See L<perlvar/"$/">.
13458	13631
13459	13632	=end original
13460	13633
13461	13634	型グロブが EXPR (EXPR がない場合は C<*ARGV>) に含まれている
13462	13635	ファイルハンドルから読み込みます。
13463	13636	スカラコンテキストでは、呼び出し毎に一行読み込んで返します; ファイルの
13464	13637	最後まで読み込んだら、以後の呼び出しでは L<C<undef>\|/undef EXPR> を返します。
13465	13638	リストコンテキストでは、ファイルの最後まで読み込んで、行のリストを返します。
13466	13639	ここでの「行」とは、L<C<$E<sol>>\|perlvar/$E<sol>> (または
13467	13640	L<English> モジュールでは C<$INPUT_RECORD_SEPARATOR>) で
13468	13641	定義されることに注意してください。
13469	13642	L<perlvar/"$/"> を参照してください。
13470	13643
13471	13644	=begin original
13472	13645
13473	13646	When L<C<$E<sol>>\|perlvar/$E<sol>> is set to L<C<undef>\|/undef EXPR>,
13474	13647	when L<C<readline>\|/readline EXPR> is in scalar context (i.e., file
13475	13648	slurp mode), and when an empty file is read, it returns C<''> the first
13476	13649	time, followed by L<C<undef>\|/undef EXPR> subsequently.
13477	13650
13478	13651	=end original
13479	13652
13480	13653	L<C<$E<sol>>\|perlvar/$E<sol>> に L<C<undef>\|/undef EXPR> を設定した場合は、
13481	13654	L<C<readline>\|/readline EXPR> はスカラコンテキスト (つまりファイル吸い込み
13482	13655	モード)となり、空のファイルを読み込んだ場合は、最初は C<''> を返し、
13483	13656	それ以降は L<C<undef>\|/undef EXPR> を返します。
13484	13657
13485	13658	=begin original
13486	13659
13487	13660	This is the internal function implementing the C<< <EXPR> >>
13488	13661	operator, but you can use it directly. The C<< <EXPR> >>
13489	13662	operator is discussed in more detail in L<perlop/"I/O Operators">.
13490	13663
13491	13664	=end original
13492	13665
13493	13666	これは C<< <EXPR> >> 演算子を実装している内部関数ですが、
13494	13667	直接使うこともできます。
13495	13668	C<< <EXPR> >> 演算子についてのさらなる詳細については
13496	13669	L<perlop/"I/O Operators"> で議論されています。
13497	13670
13498	13671	my $line = <STDIN>;
13499	13672	my $line = readline(STDIN); # same thing
13500	13673
13501	13674	=begin original
13502	13675
13503	13676	If L<C<readline>\|/readline EXPR> encounters an operating system error,
13504	13677	L<C<$!>\|perlvar/$!> will be set with the corresponding error message.
13505	13678	It can be helpful to check L<C<$!>\|perlvar/$!> when you are reading from
13506	13679	filehandles you don't trust, such as a tty or a socket. The following
13507	13680	example uses the operator form of L<C<readline>\|/readline EXPR> and dies
13508	13681	if the result is not defined.
13509	13682
13510	13683	=end original
13511	13684
13512	13685	L<C<readline>\|/readline EXPR> が OS のシステムエラーになると、
13513	13686	L<C<$!>\|perlvar/$!> に対応するエラーメッセージがセットされます。
13514	13687	tty やソケットといった、信頼できないファイルハンドルから読み込む時には
13515	13688	L<C<$!>\|perlvar/$!> をチェックするのが助けになります。
13516	13689	以下の例は演算子の形の L<C<readline>\|/readline EXPR> を使っており、結果が
13517	13690	未定義の場合は die します。
13518	13691
13519	13692	while ( ! eof($fh) ) {
13520	13693	defined( $_ = readline $fh ) or die "readline failed: $!";
13521	13694	...
13522	13695	}
13523	13696
13524	13697	=begin original
13525	13698
13526		Note that you ~~have~~ can't handle L<C<readline>\|/readline EXPR> errors
	13699	Note that you can't handle L<C<readline>\|/readline EXPR> errors
13527	13700	that way with the C<ARGV> filehandle. In that case, you have to open
13528	13701	each element of L<C<@ARGV>\|perlvar/@ARGV> yourself since
13529	13702	L<C<eof>\|/eof FILEHANDLE> handles C<ARGV> differently.
13530	13703
13531	13704	=end original
13532	13705
13533	13706	L<C<readline>\|/readline EXPR> のエラーは C<ARGV> ファイルハンドルの方法では
13534	13707	扱えないことに注意してください。
13535	13708	この場合、L<C<eof>\|/eof FILEHANDLE> は C<ARGV> を異なった方法で扱うので、
13536	13709	L<C<@ARGV>\|perlvar/@ARGV> のそれぞれの要素を自分でオープンする必要があります。
13537	13710
13538	13711	foreach my $arg (@ARGV) {
13539	13712	open(my $fh, $arg) or warn "Can't open $arg: $!";
13540	13713
13541	13714	while ( ! eof($fh) ) {
13542	13715	defined( $_ = readline $fh )
13543	13716	or die "readline failed for $arg: $!";
13544	13717	...
13545	13718	}
13546	13719	}
13547	13720
13548	13721	=begin original
13549	13722
13550	13723	Like the C<< <EXPR> >> operator, if a C<readline> expression is
13551	13724	used as the condition of a C<while> or C<for> loop, then it will be
13552	13725	implicitly assigned to C<$_>. If either a C<readline> expression or
13553	13726	an explicit assignment of a C<readline> expression to a scalar is used
13554	13727	as a C<while>/C<for> condition, then the condition actually tests for
13555	13728	definedness of the expression's value, not for its regular truth value.
13556	13729
13557	13730	=end original
13558	13731
13559	13732	C<< <EXPR> >> 演算子と同様、
13560	13733	C<readline> 式が C<while> や C<for> ループの条件として使われた場合、
13561	13734	これは暗黙に C<$_> に代入されます。
13562	13735	C<readline> 式または C<readline> 式からスカラへの明示的な代入が
13563	13736	C<while>/C<for> の条件部として使われた場合、
13564	13737	条件は通常の真の値かどうかではなく、式の値が定義されているかどうかを
13565	13738	テストします。
13566	13739
13567	13740	=item readlink EXPR
13568	13741	X<readlink>
13569	13742
13570	13743	=item readlink
13571	13744
13572	13745	=for Pod::Functions determine where a symbolic link is pointing
13573	13746
13574	13747	=begin original
13575	13748
13576	13749	Returns the value of a symbolic link, if symbolic links are
13577	13750	implemented. If not, raises an exception. If there is a system
13578	13751	error, returns the undefined value and sets L<C<$!>\|perlvar/$!> (errno).
13579	13752	If EXPR is omitted, uses L<C<$_>\|perlvar/$_>.
13580	13753
13581	13754	=end original
13582	13755
13583	13756	シンボリックリンクが実装されていれば、シンボリックリンクの値を返します。
13584	13757	実装されていないときには、例外が発生します。
13585	13758	何らかのシステムエラーが検出されると、未定義値を返し、
13586	13759	L<C<$!>\|perlvar/$!> (errno) を設定します。
13587	13760	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
13588	13761
13589	13762	=begin original
13590	13763
13591	13764	Portability issues: L<perlport/readlink>.
13592	13765
13593	13766	=end original
13594	13767
13595	13768	移植性の問題: L<perlport/readlink>。
13596	13769
13597	13770	=item readpipe EXPR
13598	13771
13599	13772	=item readpipe
13600	13773	X<readpipe>
13601	13774
13602	13775	=for Pod::Functions execute a system command and collect standard output
13603	13776
13604	13777	=begin original
13605	13778
13606	13779	EXPR is executed as a system command.
13607	13780	The collected standard output of the command is returned.
13608	13781	In scalar context, it comes back as a single (potentially
13609	13782	multi-line) string. In list context, returns a list of lines
13610	13783	(however you've defined lines with L<C<$E<sol>>\|perlvar/$E<sol>> (or
13611	13784	C<$INPUT_RECORD_SEPARATOR> in L<English>)).
13612	13785	This is the internal function implementing the C<qx/EXPR/>
13613	13786	operator, but you can use it directly. The C<qx/EXPR/>
13614	13787	operator is discussed in more detail in L<perlop/"C<qx/I<STRING>/>">.
13615	13788	If EXPR is omitted, uses L<C<$_>\|perlvar/$_>.
13616	13789
13617	13790	=end original
13618	13791
13619	13792	EXPR がシステムコマンドとして実行されます。
13620	13793	コマンドの標準出力の内容が返されます。
13621	13794	スカラコンテキストでは、単一の(内部的に複数行の)文字列を返します。
13622	13795	リストコンテキストでは、行のリストを返します
13623	13796	(但し、行は L<C<$E<sol>>\|perlvar/$E<sol>> (または L<English> モジュールでは
13624	13797	C<$INPUT_RECORD_SEPARATOR> で定義されます)。
13625	13798	これは C<qx/EXPR/> 演算子を実装する内部関数ですが、直接使うことも出来ます。
13626	13799	C<qx/EXPR/> 演算子は L<perlop/"C<qx/I<STRING>/>"> でより詳細に
13627	13800	述べられています。
13628	13801	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
13629	13802
13630	13803	=item recv SOCKET,SCALAR,LENGTH,FLAGS
13631	13804	X<recv>
13632	13805
13633	13806	=for Pod::Functions receive a message over a Socket
13634	13807
13635	13808	=begin original
13636	13809
13637	13810	Receives a message on a socket. Attempts to receive LENGTH characters
13638	13811	of data into variable SCALAR from the specified SOCKET filehandle.
13639	13812	SCALAR will be grown or shrunk to the length actually read. Takes the
13640	13813	same flags as the system call of the same name. Returns the address
13641	13814	of the sender if SOCKET's protocol supports this; returns an empty
13642	13815	string otherwise. If there's an error, returns the undefined value.
13643	13816	This call is actually implemented in terms of the L<recvfrom(2)> system call.
13644	13817	See L<perlipc/"UDP: Message Passing"> for examples.
13645	13818
13646	13819	=end original
13647	13820
13648	13821	ソケット上のメッセージを受信します。
13649	13822	指定されたファイルハンドル SOCKET から、変数 SCALAR に
13650	13823	LENGTH 文字のデータを読み込もうとします。
13651	13824	SCALAR は、実際に読まれた長さによって、大きくなったり、小さくなったりします。
13652	13825	同名のシステムコールと同じフラグが指定できます。
13653	13826	SOCKET のプロトコルが対応していれば、送信側のアドレスを返します。
13654	13827	エラー発生時には、未定義値を返します。
13655	13828	実際には、C の L<recvfrom(2)> を呼びます。
13656	13829	例については L<perlipc/"UDP: Message Passing"> を参照してください。
13657	13830
13658	13831	=begin original
13659	13832
13660	13833	Note that if the socket has been marked as C<:utf8>, C<recv> will
13661	13834	throw an exception. The C<:encoding(...)> layer implicitly introduces
13662	13835	the C<:utf8> layer. See L<C<binmode>\|/binmode FILEHANDLE, LAYER>.
13663	13836
13664	13837	=end original
13665	13838
13666	13839	ソケットが C<:utf8> としてマークされている場合、
13667	13840	C<recv> は例外を投げることに注意してください。
13668	13841	C<:encoding(...)> 層は暗黙に C<:utf8> 層を導入します。
13669	13842	L<C<binmode>\|/binmode FILEHANDLE, LAYER> を参照してください。
13670	13843
13671	13844	=item redo LABEL
13672	13845	X<redo>
13673	13846
13674	13847	=item redo EXPR
13675	13848
13676	13849	=item redo
13677	13850
13678	13851	=for Pod::Functions start this loop iteration over again
13679	13852
13680	13853	=begin original
13681	13854
13682	13855	The L<C<redo>\|/redo LABEL> command restarts the loop block without
13683	13856	evaluating the conditional again. The L<C<continue>\|/continue BLOCK>
13684	13857	block, if any, is not executed. If
13685	13858	the LABEL is omitted, the command refers to the innermost enclosing
13686	13859	loop. The C<redo EXPR> form, available starting in Perl 5.18.0, allows a
13687	13860	label name to be computed at run time, and is otherwise identical to C<redo
13688	13861	LABEL>. Programs that want to lie to themselves about what was just input
13689	13862	normally use this command:
13690	13863
13691	13864	=end original
13692	13865
13693	13866	L<C<redo>\|/redo LABEL> コマンドは、条件を再評価しないで、ループブロックの
13694	13867	始めからもう一度実行を開始します。
13695	13868	L<C<continue>\|/continue BLOCK> ブロックがあっても、実行されません。
13696	13869	LABEL が省略されると、コマンドは一番内側のループを参照します。
13697	13870	Perl 5.18.0 から利用可能な C<redo EXPR> 形式では、実行時に計算されるラベル名が
13698	13871	使えます; それ以外は C<redo LABEL> と同一です。
13699	13872	このコマンドは通常、自分への入力を欺くために使用します:
13700	13873
13701	13874	# a simpleminded Pascal comment stripper
13702	13875	# (warning: assumes no { or } in strings)
13703	13876	LINE: while (<STDIN>) {
13704	13877	while (s\|({.}.){.*}\|$1 \|) {}
13705	13878	s\|{.*}\| \|;
13706	13879	if (s\|{.*\| \|) {
13707	13880	my $front = $_;
13708	13881	while (<STDIN>) {
13709	13882	if (/}/) { # end of comment?
13710	13883	s\|^\|$front\{\|;
13711	13884	redo LINE;
13712	13885	}
13713	13886	}
13714	13887	}
13715	13888	print;
13716	13889	}
13717	13890
13718	13891	=begin original
13719	13892
13720	13893	L<C<redo>\|/redo LABEL> cannot return a value from a block that typically
13721	13894	returns a value, such as C<eval {}>, C<sub {}>, or C<do {}>. It will perform
13722	13895	its flow control behavior, which precludes any return value. It should not be
13723	13896	used to exit a L<C<grep>\|/grep BLOCK LIST> or L<C<map>\|/map BLOCK LIST>
13724	13897	operation.
13725	13898
13726	13899	=end original
13727	13900
13728	13901	L<C<redo>\|/redo LABEL> は C<eval {}>, C<sub {}>, C<do {}> といった
13729	13902	典型的には値を返すブロックから値を返せません。
13730	13903	これは、返り値を不可能にするフロー制御の振る舞いを実行します。
13731	13904	L<C<grep>\|/grep BLOCK LIST> や L<C<map>\|/map BLOCK LIST> 操作を終了するのに
13732	13905	使うべきではありません。
13733	13906
13734	13907	=begin original
13735	13908
13736	13909	Note that a block by itself is semantically identical to a loop
13737	13910	that executes once. Thus L<C<redo>\|/redo LABEL> inside such a block
13738	13911	will effectively turn it into a looping construct.
13739	13912
13740	13913	=end original
13741	13914
13742	13915	ブロック自身は一回だけ実行されるループと文法的に同一であることに
13743	13916	注意してください。
13744	13917	従って、ブロックの中で L<C<redo>\|/redo LABEL> を使うことで効果的に
13745	13918	ループ構造に変換します。
13746	13919
13747	13920	=begin original
13748	13921
13749	13922	See also L<C<continue>\|/continue BLOCK> for an illustration of how
13750	13923	L<C<last>\|/last LABEL>, L<C<next>\|/next LABEL>, and
13751	13924	L<C<redo>\|/redo LABEL> work.
13752	13925
13753	13926	=end original
13754	13927
13755	13928	L<C<last>\|/last LABEL>, L<C<next>\|/next LABEL>, L<C<redo>\|/redo LABEL> が
13756	13929	どのように働くかについては L<C<continue>\|/continue BLOCK> も参照してください。
13757	13930
13758	13931	=begin original
13759	13932
13760	13933	Unlike most named operators, this has the same precedence as assignment.
13761	13934	It is also exempt from the looks-like-a-function rule, so
13762	13935	C<redo ("foo")."bar"> will cause "bar" to be part of the argument to
13763	13936	L<C<redo>\|/redo LABEL>.
13764	13937
13765	13938	=end original
13766	13939
13767	13940	ほとんどの名前付き演算子と異なり、これは代入と同じ優先順位を持ちます。
13768	13941	また、関数のように見えるものの規則からも免れるので、C<redo ("foo")."bar"> と
13769	13942	すると "bar" は L<C<redo>\|/redo LABEL> への引数の一部となります。
13770	13943
13771	13944	=item ref EXPR
13772	13945	X<ref> X<reference>
13773	13946
13774	13947	=item ref
13775	13948
13776	13949	=for Pod::Functions find out the type of thing being referenced
13777	13950
13778	13951	=begin original
13779	13952
13780	13953	Examines the value of EXPR, expecting it to be a reference, and returns
13781	13954	a string giving information about the reference and the type of referent.
13782	13955	If EXPR is not specified, L<C<$_>\|perlvar/$_> will be used.
13783	13956
13784	13957	=end original
13785	13958
13786	13959	Examines the value of
13787	13960	リファレンスと想定される EXPR の値を調べて、
13788	13961	そのリファレンスとリファレンス先の型に関する情報を表す
13789	13962	文字列を返します。
13790	13963	EXPR が指定されていない場合、L<C<$_>\|perlvar/$_> が使われます。
13791	13964
13792	13965	=begin original
13793	13966
13794	13967	If the operand is not a reference, then the empty string will be returned.
13795	13968	An empty string will only be returned in this situation. C<ref> is often
13796	13969	useful to just test whether a value is a reference, which can be done
13797	13970	by comparing the result to the empty string. It is a common mistake
13798	13971	to use the result of C<ref> directly as a truth value: this goes wrong
13799	13972	because C<0> (which is false) can be returned for a reference.
13800	13973
13801	13974	=end original
13802	13975
13803	13976	オペランドがリファレンスでない場合、空文字列が返されます。
13804	13977	空文字列はこの場合にのみ返されます。
13805	13978	結果を空文字列を比較することでできるので、
13806	13979	C<ref> は単にある値がリファレンスかどうかを調べるのにしばしば有用です。
13807	13980	C<ref> の結果を直接真の値として使うのは良くある誤りです:
13808	13981	リファレンスの場合に (偽である) C<0> が返されることがあるので、
13809	13982	これは誤りです。
13810	13983
13811	13984	=begin original
13812	13985
13813	13986	If the operand is a reference to a blessed object, then the name of
13814	13987	the class into which the referent is blessed will be returned. C<ref>
13815	13988	doesn't care what the physical type of the referent is; blessing takes
13816	13989	precedence over such concerns. Beware that exact comparison of C<ref>
13817	13990	results against a class name doesn't perform a class membership test:
13818	13991	a class's members also include objects blessed into subclasses, for
13819	13992	which C<ref> will return the name of the subclass. Also beware that
13820	13993	class names can clash with the built-in type names (described below).
13821	13994
13822	13995	=end original
13823	13996
13824	13997	オペランドが bless されたオブジェクトへのリファレンスの場合、
13825	13998	リファレンス先が bless されているクラス名が返されます。
13826	13999	C<ref> はリファレンス先の物理的な種類については気にしません;
13827	14000	bless されているかがそのような関心より優先されます。
13828	14001	C<ref> の結果とクラス名の正確な比較は、クラスの所属のテストを
13829	14002	実行しないことに注意してください:
13830	14003	C<ref> がサブクラスの名前を返す場合、
13831	14004	あるクラスのメンバはサブクラスに bless されているオブジェクトを
13832	14005	含んでいます。
13833	14006	クラス名は(後述する)組み込みの型名と衝突することにも注意してください。
13834	14007
13835	14008	=begin original
13836	14009
13837	14010	If the operand is a reference to an unblessed object, then the return
13838	14011	value indicates the type of object. If the unblessed referent is not
13839	14012	a scalar, then the return value will be one of the strings C<ARRAY>,
13840	14013	C<HASH>, C<CODE>, C<FORMAT>, or C<IO>, indicating only which kind of
13841	14014	object it is. If the unblessed referent is a scalar, then the return
13842	14015	value will be one of the strings C<SCALAR>, C<VSTRING>, C<REF>, C<GLOB>,
13843	14016	C<LVALUE>, or C<REGEXP>, depending on the kind of value the scalar
13844	14017	currently has. But note that C<qr//> scalars are created already
13845	14018	blessed, so C<ref qr/.../> will likely return C<Regexp>. Beware that
13846	14019	these built-in type names can also be used as
13847	14020	class names, so C<ref> returning one of these names doesn't unambiguously
13848	14021	indicate that the referent is of the kind to which the name refers.
13849	14022
13850	14023	=end original
13851	14024
13852	14025	オペランドが bless されていないオブジェクトへのリファレンスの場合、
13853	14026	返り値はオブジェクトの型を示します。
13854	14027	bless されていないリファレンス先がスカラではない場合、
13855	14028	返り値はオブジェクトの種類を示す、
13856	14029	C<ARRAY>, C<HASH>, C<CODE>, C<FORMAT>, C<IO> のいずれかの文字列です。
13857	14030	bless されていないリファレンス先がスカラの場合、
13858	14031	返り値はそのスカラが現在保持している種類に依存して、
13859	14032	C<SCALAR>, C<VSTRING>, C<REF>, C<GLOB>, C<LVALUE>, C<REGEXP> の
13860	14033	いずれかの文字列です。
13861	14034	しかし、C<qr//> は既に bless されて作成されるので、
13862	14035	C<ref qr/.../> はおそらく C<Regexp> を返すことに注意してください。
13863	14036	これらの組み込み型名はまたクラス名として使われることができるので、
13864	14037	C<ref> がこれらの名前の一つを返すことは、
13865	14038	明らかにリファレンス先がその名前が示している種類のものであることを
13866	14039	示しているわけではないことに注意してください。
13867	14040
13868	14041	=begin original
13869	14042
13870	14043	The ambiguity between built-in type names and class names significantly
13871	14044	limits the utility of C<ref>. For unambiguous information, use
13872	14045	L<C<Scalar::Util::blessed()>\|Scalar::Util/blessed> for information about
13873	14046	blessing, and L<C<Scalar::Util::reftype()>\|Scalar::Util/reftype> for
13874	14047	information about physical types. Use L<the C<isa> method\|UNIVERSAL/C<<
13875	14048	$obj->isa( TYPE ) >>> for class membership tests, though one must be
13876		sure of blessedness before attempting a method call.
	14049	sure of blessedness before attempting a method call. Alternatively, the
	14050	L<C<isa> operator\|perlop/"Class Instance Operator"> can test class
	14051	membership without checking blessedness first.
13877	14052
13878	14053	=end original
13879	14054
13880	14055	組み込み型とクラス名の間の曖昧さは C<ref> の有用性を大きく制限しています。
13881	14056	曖昧でない情報のためには、bless に関する情報については
13882	14057	L<C<Scalar::Util::blessed()>\|Scalar::Util/blessed> を、
13883	14058	物理的な型の情報については
13884	14059	L<C<Scalar::Util::reftype()>\|Scalar::Util/reftype> を使ってください。
13885	14060	クラスの所属メンバテストには
13886	14061	L<the C<isa> method\|UNIVERSAL/C<<
13887	14062	$obj->isa( TYPE ) >>> を使ってください;
13888	14063	但し、メソッド呼び出しを試みる前に bless されていることを
13889	14064	確認しなければなりません。
	14065	あるいは、
	14066	L<C<isa> operator\|perlop/"Class Instance Operator"> は、
	14067	最初に bless されているかを確認することなくクラスメンバをテストできます。
13890	14068
13891	14069	=begin original
13892	14070
13893	14071	See also L<perlref> and L<perlobj>.
13894	14072
13895	14073	=end original
13896	14074
13897	14075	L<perlref> と L<perlobj> も参照してください。
13898	14076
13899	14077	=item rename OLDNAME,NEWNAME
13900	14078	X<rename> X<move> X<mv> X<ren>
13901	14079
13902	14080	=for Pod::Functions change a filename
13903	14081
13904	14082	=begin original
13905	14083
13906	14084	Changes the name of a file; an existing file NEWNAME will be
13907		clobbered. Returns true for success, false ~~oth~~erwise.
	14085	clobbered. Returns true for success; on failure returns false and sets
	14086	L<C<$!>\|perlvar/$!>.
13908	14087
13909	14088	=end original
13910	14089
13911	14090	ファイルの名前を変更します; NEWNAME というファイルが既に存在した場合、
13912	14091	上書きされるかもしれません。
13913		成功時には真を~~、さもなければ偽を~~返します。
	14092	成功時には真を返します; 失敗時には偽を返し、
	14093	L<C<$!>\|perlvar/$!> を設定します。
13914	14094
13915	14095	=begin original
13916	14096
13917	14097	Behavior of this function varies wildly depending on your system
13918	14098	implementation. For example, it will usually not work across file system
13919	14099	boundaries, even though the system I<mv> command sometimes compensates
13920	14100	for this. Other restrictions include whether it works on directories,
13921	14101	open files, or pre-existing files. Check L<perlport> and either the
13922	14102	L<rename(2)> manpage or equivalent system documentation for details.
13923	14103
13924	14104	=end original
13925	14105
13926	14106	この関数の振る舞いはシステムの実装に大きく依存して異なります。
13927	14107	例えば、普通はファイルシステムにまたがってパス名を付け替えることはできません;
13928	14108	システムの I<mv> がこれを補完している場合でもそうです。
13929	14109	その他の制限には、ディレクトリ、オープンしているファイル、既に存在している
13930	14110	ファイルに対して使えるか、といったことを含みます。
13931	14111	詳しくは、L<perlport> および L<rename(2)> man ページあるいは同様の
13932	14112	システムドキュメントを参照してください。
13933	14113
13934	14114	=begin original
13935	14115
13936	14116	For a platform independent L<C<move>\|File::Copy/move> function look at
13937	14117	the L<File::Copy> module.
13938	14118
13939	14119	=end original
13940	14120
13941	14121	プラットフォームに依存しない L<C<move>\|File::Copy/move> 関数については
13942	14122	L<File::Copy> モジュールを参照してください。
13943	14123
13944	14124	=begin original
13945	14125
13946	14126	Portability issues: L<perlport/rename>.
13947	14127
13948	14128	=end original
13949	14129
13950	14130	移植性の問題: L<perlport/rename>。
13951	14131
13952	14132	=item require VERSION
13953	14133	X<require>
13954	14134
13955	14135	=item require EXPR
13956	14136
13957	14137	=item require
13958	14138
13959	14139	=for Pod::Functions load in external functions from a library at runtime
13960	14140
13961	14141	=begin original
13962	14142
13963	14143	Demands a version of Perl specified by VERSION, or demands some semantics
13964	14144	specified by EXPR or by L<C<$_>\|perlvar/$_> if EXPR is not supplied.
13965	14145
13966	14146	=end original
13967	14147
13968	14148	VERSION で指定される Perl のバージョンを要求するか、
13969	14149	EXPR (省略時には L<C<$_>\|perlvar/$_>) によって指定されるいくつかの動作を
13970	14150	要求します。
13971	14151
13972	14152	=begin original
13973	14153
13974	14154	VERSION may be either a literal such as v5.24.1, which will be
13975	14155	compared to L<C<$^V>\|perlvar/$^V> (or C<$PERL_VERSION> in L<English>),
13976	14156	or a numeric argument of the form 5.024001, which will be compared to
13977	14157	L<C<$]>\|perlvar/$]>. An exception is raised if VERSION is greater than
13978	14158	the version of the current Perl interpreter. Compare with
13979	14159	L<C<use>\|/use Module VERSION LIST>, which can do a similar check at
13980	14160	compile time.
13981	14161
13982	14162	=end original
13983	14163
13984	14164	VERSION は、v5.24.1 のようなリテラル
13985	14165	(L<C<$^V>\|perlvar/$^V> (または L<English> モジュールでは
13986	14166	C<$PERL_VERSION>) と比較されます) か、
13987	14167	5.024001 の数値形式(L<C<$]>\|perlvar/$]> と比較されます)で指定します。
13988	14168	VERSION が Perl の現在のバージョンより大きいと、例外が発生します。
13989	14169	L<C<use>\|/use Module VERSION LIST> と似ていますが、これはコンパイル時に
13990	14170	チェックされます。
13991	14171
13992	14172	=begin original
13993	14173
13994	14174	Specifying VERSION as a numeric argument of the form 5.024001 should
13995	14175	generally be avoided as older less readable syntax compared to
13996	14176	v5.24.1. Before perl 5.8.0 (released in 2002), the more verbose numeric
13997	14177	form was the only supported syntax, which is why you might see it in
13998	14178	older code.
13999	14179
14000	14180	=end original
14001	14181
14002	14182	VERSION に 5.024001 の形の数値引数を指定することは一般的には避けるべきです;
14003	14183	v5.24.1 に比べてより古く読みにくい文法だからです。
14004	14184	(2002 年にリリースされた) perl 5.8.0 より前では、より冗長な
14005	14185	数値形式が唯一対応している文法でした; これが古いコードでこれを
14006	14186	見るかも知れない理由です。
14007	14187
14008	14188	=begin original
14009	14189
14010	14190	require v5.24.1; # run time version check
14011	14191	require 5.24.1; # ditto
14012	14192	require 5.024_001; # ditto; older syntax compatible
14013	14193	with perl 5.6
14014	14194
14015	14195	=end original
14016	14196
14017	14197	require v5.24.1; # 実行時バージョンチェック
14018	14198	require 5.24.1; # 同様
14019	14199	require 5.024_001; # 同様; perl 5.6 と互換性のある古い文法
14020	14200
14021	14201	=begin original
14022	14202
14023	14203	Otherwise, L<C<require>\|/require VERSION> demands that a library file be
14024	14204	included if it hasn't already been included. The file is included via
14025	14205	the do-FILE mechanism, which is essentially just a variety of
14026	14206	L<C<eval>\|/eval EXPR> with the
14027	14207	caveat that lexical variables in the invoking script will be invisible
14028	14208	to the included code. If it were implemented in pure Perl, it
14029	14209	would have semantics similar to the following:
14030	14210
14031	14211	=end original
14032	14212
14033	14213	それ以外の場合には、L<C<require>\|/require VERSION> は、既に
14034	14214	読み込まれていないときに読み込むライブラリファイルを要求するものとなります。
14035	14215	そのファイルは、基本的には L<C<eval>\|/eval EXPR> の一種である、
14036	14216	do-FILE によって読み込まれますが、起動したスクリプトのレキシカル変数は
14037	14217	読み込まれたコードから見えないという欠点があります。
14038	14218	ピュア Perl で実装した場合、意味的には、次のようなサブルーチンと
14039	14219	同じようなものです:
14040	14220
14041	14221	use Carp 'croak';
14042	14222	use version;
14043	14223
14044	14224	sub require {
14045	14225	my ($filename) = @_;
14046	14226	if ( my $version = eval { version->parse($filename) } ) {
14047	14227	if ( $version > $^V ) {
14048	14228	my $vn = $version->normal;
14049	14229	croak "Perl $vn required--this is only $^V, stopped";
14050	14230	}
14051	14231	return 1;
14052	14232	}
14053	14233
14054	14234	if (exists $INC{$filename}) {
14055	14235	return 1 if $INC{$filename};
14056	14236	croak "Compilation failed in require";
14057	14237	}
14058	14238
14059	14239	foreach $prefix (@INC) {
14060	14240	if (ref($prefix)) {
14061	14241	#... do other stuff - see text below ....
14062	14242	}
14063	14243	# (see text below about possible appending of .pmc
14064	14244	# suffix to $filename)
14065	14245	my $realfilename = "$prefix/$filename";
14066	14246	next if ! -e $realfilename \|\| -d _ \|\| -b _;
14067	14247	$INC{$filename} = $realfilename;
14068	14248	my $result = do($realfilename);
14069	14249	# but run in caller's namespace
14070	14250
14071	14251	if (!defined $result) {
14072	14252	$INC{$filename} = undef;
14073	14253	croak $@ ? "$@Compilation failed in require"
14074	14254	: "Can't locate $filename: $!\n";
14075	14255	}
14076	14256	if (!$result) {
14077	14257	delete $INC{$filename};
14078	14258	croak "$filename did not return true value";
14079	14259	}
14080	14260	$! = 0;
14081	14261	return $result;
14082	14262	}
14083	14263	croak "Can't locate $filename in \@INC ...";
14084	14264	}
14085	14265
14086	14266	=begin original
14087	14267
14088	14268	Note that the file will not be included twice under the same specified
14089	14269	name.
14090	14270
14091	14271	=end original
14092	14272
14093	14273	ファイルは、同じ名前で 2 回読み込まれることはないことに注意してください。
14094	14274
14095	14275	=begin original
14096	14276
14097	14277	The file must return true as the last statement to indicate
14098	14278	successful execution of any initialization code, so it's customary to
14099	14279	end such a file with C<1;> unless you're sure it'll return true
14100	14280	otherwise. But it's better just to put the C<1;>, in case you add more
14101	14281	statements.
14102	14282
14103	14283	=end original
14104	14284
14105	14285	初期化コードの実行がうまくいったことを示すために、ファイルは真を
14106	14286	返さなければならないので、真を返すようになっている自信がある場合を除いては、
14107	14287	ファイルの最後に C<1;> と書くのが習慣です。
14108	14288	しかし、実行文を追加するような場合に備えて、C<1;> と書いておいた方が良いです。
14109	14289
14110	14290	=begin original
14111	14291
14112	14292	If EXPR is a bareword, L<C<require>\|/require VERSION> assumes a F<.pm>
14113	14293	extension and replaces C<::> with C</> in the filename for you,
14114	14294	to make it easy to load standard modules. This form of loading of
14115	14295	modules does not risk altering your namespace, however it will autovivify
14116	14296	the stash for the required module.
14117	14297
14118	14298	=end original
14119	14299
14120	14300	EXPR が裸の単語であるときには、標準モジュールのロードを簡単にするように、
14121	14301	L<C<require>\|/require VERSION> は拡張子が F<.pm> であり、C<::> を C</> に
14122	14302	変えたものがファイル名であると仮定します。
14123	14303	この形式のモジュールロードは、名前空間を変更してしまう危険はありませんが、
14124	14304	要求されたモジュールのためのスタッシュが自動有効化されます。
14125	14305
14126	14306	=begin original
14127	14307
14128	14308	In other words, if you try this:
14129	14309
14130	14310	=end original
14131	14311
14132	14312	言い換えると、以下のようにすると:
14133	14313
14134	14314	require Foo::Bar; # a splendid bareword
14135	14315
14136	14316	=begin original
14137	14317
14138	14318	The require function will actually look for the F<Foo/Bar.pm> file in the
14139	14319	directories specified in the L<C<@INC>\|perlvar/@INC> array, and it will
14140	14320	autovivify the C<Foo::Bar::> stash at compile time.
14141	14321
14142	14322	=end original
14143	14323
14144	14324	require 関数は L<C<@INC>\|perlvar/@INC> 配列で指定されたディレクトリにある
14145	14325	F<Foo/Bar.pm> ファイルを探し、コンパイル時に
14146	14326	C<Foo::Bar::> のスタッシュを自動有効化します。
14147	14327
14148	14328	=begin original
14149	14329
14150	14330	But if you try this:
14151	14331
14152	14332	=end original
14153	14333
14154	14334	しかし、以下のようにすると:
14155	14335
14156	14336	my $class = 'Foo::Bar';
14157	14337	require $class; # $class is not a bareword
14158	14338	#or
14159	14339	require "Foo::Bar"; # not a bareword because of the ""
14160	14340
14161	14341	=begin original
14162	14342
14163	14343	The require function will look for the F<Foo::Bar> file in the
14164	14344	L<C<@INC>\|perlvar/@INC> array and
14165	14345	will complain about not finding F<Foo::Bar> there. In this case you can do:
14166	14346
14167	14347	=end original
14168	14348
14169	14349	require 関数は L<C<@INC>\|perlvar/@INC> 配列の F<Foo::Bar> ファイルを探し、
14170	14350	おそらくそこに F<Foo::Bar> がないと文句をいうことになるでしょう。
14171	14351	このような場合には、以下のように:
14172	14352
14173	14353	eval "require $class";
14174	14354
14175	14355	=begin original
14176	14356
14177	14357	or you could do
14178	14358
14179	14359	=end original
14180	14360
14181	14361	あるいは次のようにも出来ます
14182	14362
14183	14363	require "Foo/Bar.pm";
14184	14364
14185	14365	=begin original
14186	14366
14187	14367	Neither of these forms will autovivify any stashes at compile time and
14188	14368	only have run time effects.
14189	14369
14190	14370	=end original
14191	14371
14192	14372	これらのどちらもコンパイル時にスタッシュを自動有効化せず、
14193	14373	実行時の効果のみを持ちます。
14194	14374
14195	14375	=begin original
14196	14376
14197	14377	Now that you understand how L<C<require>\|/require VERSION> looks for
14198	14378	files with a bareword argument, there is a little extra functionality
14199	14379	going on behind the scenes. Before L<C<require>\|/require VERSION> looks
14200	14380	for a F<.pm> extension, it will first look for a similar filename with a
14201	14381	F<.pmc> extension. If this file is found, it will be loaded in place of
14202	14382	any file ending in a F<.pm> extension. This applies to both the explicit
14203	14383	C<require "Foo/Bar.pm";> form and the C<require Foo::Bar;> form.
14204	14384
14205	14385	=end original
14206	14386
14207	14387	引数が裸の単語の場合、L<C<require>\|/require VERSION> がどのようにファイルを
14208	14388	探すかを理解してください; 水面下でちょっとした追加の機能があります。
14209	14389	L<C<require>\|/require VERSION> が拡張子 F<.pm> のファイルを探す前に、まず
14210	14390	拡張子 F<.pmc> を持つファイルを探します。
14211	14391	このファイルが見つかると、このファイルが拡張子 F<.pm> の代わりに
14212	14392	読み込まれます。
14213	14393	これは明示的な C<require "Foo/Bar.pm";> 形式と C<require Foo::Bar;> 形式の
14214	14394	両方に適用されます。
14215	14395
14216	14396	=begin original
14217	14397
14218	14398	You can also insert hooks into the import facility by putting Perl code
14219	14399	directly into the L<C<@INC>\|perlvar/@INC> array. There are three forms
14220	14400	of hooks: subroutine references, array references, and blessed objects.
14221	14401
14222	14402	=end original
14223	14403
14224	14404	L<C<@INC>\|perlvar/@INC> 配列に直接 Perl コードを入れることで、インポート機能に
14225	14405	フックを挿入できます。
14226	14406	3 種類のフックがあります: サブルーチンリファレンス、配列リファレンス、
14227	14407	bless されたオブジェクトです。
14228	14408
14229	14409	=begin original
14230	14410
14231	14411	Subroutine references are the simplest case. When the inclusion system
14232	14412	walks through L<C<@INC>\|perlvar/@INC> and encounters a subroutine, this
14233	14413	subroutine gets called with two parameters, the first a reference to
14234	14414	itself, and the second the name of the file to be included (e.g.,
14235	14415	F<Foo/Bar.pm>). The subroutine should return either nothing or else a
14236	14416	list of up to four values in the following order:
14237	14417
14238	14418	=end original
14239	14419
14240	14420	サブルーチンへのリファレンスは一番単純な場合です。
14241	14421	インクルード機能が L<C<@INC>\|perlvar/@INC> を走査してサブルーチンに
14242	14422	出会った場合、このサブルーチンは二つの引数と共に呼び出されます;
14243	14423	一つ目は自身へのリファレンス、二つ目はインクルードされるファイル名
14244	14424	(F<Foo/Bar.pm> など)です。
14245	14425	サブルーチンは何も返さないか、以下の順で最大四つの値のリストを返します。
14246	14426
14247	14427	=over
14248	14428
14249	14429	=item 1
14250	14430
14251	14431	=begin original
14252	14432
14253	14433	A reference to a scalar, containing any initial source code to prepend to
14254	14434	the file or generator output.
14255	14435
14256	14436	=end original
14257	14437
14258	14438	ファイルやジェネレータの出力の前に追加される初期化ソースコードを含む
14259	14439	スカラへのリファレンス。
14260	14440
14261	14441	=item 2
14262	14442
14263	14443	=begin original
14264	14444
14265	14445	A filehandle, from which the file will be read.
14266	14446
14267	14447	=end original
14268	14448
14269	14449	ファイルが読み込まれるファイルハンドル。
14270	14450
14271	14451	=item 3
14272	14452
14273	14453	=begin original
14274	14454
14275	14455	A reference to a subroutine. If there is no filehandle (previous item),
14276	14456	then this subroutine is expected to generate one line of source code per
14277	14457	call, writing the line into L<C<$_>\|perlvar/$_> and returning 1, then
14278	14458	finally at end of file returning 0. If there is a filehandle, then the
14279	14459	subroutine will be called to act as a simple source filter, with the
14280	14460	line as read in L<C<$_>\|perlvar/$_>.
14281	14461	Again, return 1 for each valid line, and 0 after all lines have been
14282	14462	returned.
14283	14463	For historical reasons the subroutine will receive a meaningless argument
14284	14464	(in fact always the numeric value zero) as C<$_[0]>.
14285	14465
14286	14466	=end original
14287	14467
14288	14468	サブルーチンへのリファレンス。
14289	14469	(一つ前のアイテムである)ファイルハンドルがない場合、サブルーチンは呼び出し毎に
14290	14470	一行のソースコードを生成し、その行を L<C<$_>\|perlvar/$_> に書き込んで 1 を
14291	14471	返し、それから最終的にファイル終端で 0 を返すものと想定されます。
14292	14472	ファイルハンドルがある場合、サブルーチンは単純なソースフィルタとして
14293	14473	振舞うように呼び出され、行は L<C<$_>\|perlvar/$_> から読み込まれます。
14294	14474	再び、有効な行ごとに 1 を返し、全ての行を返した後では 0 を返します。
14295	14475	歴史的な理由により、サブルーチンは C<$_[0]> として意味のない引数
14296	14476	(実際には常に数値 0) を受け取ります。
14297	14477
14298	14478	=item 4
14299	14479
14300	14480	=begin original
14301	14481
14302	14482	Optional state for the subroutine. The state is passed in as C<$_[1]>.
14303	14483
14304	14484	=end original
14305	14485
14306	14486	サブルーチンのための状態(オプション)。
14307	14487	状態は C<$_[1]> として渡されます。
14308	14488
14309	14489	=back
14310	14490
14311	14491	=begin original
14312	14492
14313	14493	If an empty list, L<C<undef>\|/undef EXPR>, or nothing that matches the
14314	14494	first 3 values above is returned, then L<C<require>\|/require VERSION>
14315	14495	looks at the remaining elements of L<C<@INC>\|perlvar/@INC>.
14316	14496	Note that this filehandle must be a real filehandle (strictly a typeglob
14317	14497	or reference to a typeglob, whether blessed or unblessed); tied filehandles
14318	14498	will be ignored and processing will stop there.
14319	14499
14320	14500	=end original
14321	14501
14322	14502	空リスト、L<C<undef>\|/undef EXPR>、または上記の最初の三つの値のどれとも
14323	14503	一致しないものが返されると、L<C<require>\|/require VERSION> は
14324	14504	L<C<@INC>\|perlvar/@INC> の残りの要素を見ます。
14325	14505	このファイルハンドルは実際のファイルハンドル(厳密には型グロブ、型グロブへの
14326	14506	リファレンス、bless されているかに関わらず)でなければなりません;
14327	14507	tie されたファイルハンドルは無視され、返り値の処理はそこで停止します。
14328	14508
14329	14509	=begin original
14330	14510
14331	14511	If the hook is an array reference, its first element must be a subroutine
14332	14512	reference. This subroutine is called as above, but the first parameter is
14333	14513	the array reference. This lets you indirectly pass arguments to
14334	14514	the subroutine.
14335	14515
14336	14516	=end original
14337	14517
14338	14518	フックが配列のリファレンスの場合、その最初の要素はサブルーチンへの
14339	14519	リファレンスでなければなりません。
14340	14520	このサブルーチンは上述のように呼び出されますが、その最初の引数は
14341	14521	配列のリファレンスです。
14342	14522	これによって、間接的にサブルーチンに引数を渡すことが出来ます。
14343	14523
14344	14524	=begin original
14345	14525
14346	14526	In other words, you can write:
14347	14527
14348	14528	=end original
14349	14529
14350	14530	言い換えると、以下のように書いたり:
14351	14531
14352	14532	push @INC, \&my_sub;
14353	14533	sub my_sub {
14354	14534	my ($coderef, $filename) = @_; # $coderef is \&my_sub
14355	14535	...
14356	14536	}
14357	14537
14358	14538	=begin original
14359	14539
14360	14540	or:
14361	14541
14362	14542	=end original
14363	14543
14364	14544	または以下のように書けます:
14365	14545
14366	14546	push @INC, [ \&my_sub, $x, $y, ... ];
14367	14547	sub my_sub {
14368	14548	my ($arrayref, $filename) = @_;
14369	14549	# Retrieve $x, $y, ...
14370	14550	my (undef, @parameters) = @$arrayref;
14371	14551	...
14372	14552	}
14373	14553
14374	14554	=begin original
14375	14555
14376	14556	If the hook is an object, it must provide an C<INC> method that will be
14377	14557	called as above, the first parameter being the object itself. (Note that
14378	14558	you must fully qualify the sub's name, as unqualified C<INC> is always forced
14379	14559	into package C<main>.) Here is a typical code layout:
14380	14560
14381	14561	=end original
14382	14562
14383	14563	フックがオブジェクトの場合、C<INC> メソッドを提供している必要があります;
14384	14564	それが、最初の引数をオブジェクト自身として上述のように呼び出されます。
14385	14565	(修飾されていない C<INC> は常にパッケージ C<main> に強制されるため、
14386	14566	サブルーチン名は完全修飾する必要があることに注意してください。)
14387	14567	以下は典型的なコードレイアウトです:
14388	14568
14389	14569	# In Foo.pm
14390	14570	package Foo;
14391	14571	sub new { ... }
14392	14572	sub Foo::INC {
14393	14573	my ($self, $filename) = @_;
14394	14574	...
14395	14575	}
14396	14576
14397	14577	# In the main program
14398	14578	push @INC, Foo->new(...);
14399	14579
14400	14580	=begin original
14401	14581
14402	14582	These hooks are also permitted to set the L<C<%INC>\|perlvar/%INC> entry
14403	14583	corresponding to the files they have loaded. See L<perlvar/%INC>.
14404	14584
14405	14585	=end original
14406	14586
14407	14587	これらのフックは、読み込まれるファイルに対応する
14408	14588	L<C<%INC>\|perlvar/%INC> エントリをセットすることも許可します。
14409	14589	L<perlvar/%INC> を参照してください。
14410	14590
14411	14591	=begin original
14412	14592
14413	14593	For a yet-more-powerful import facility, see
14414	14594	L<C<use>\|/use Module VERSION LIST> and L<perlmod>.
14415	14595
14416	14596	=end original
14417	14597
14418	14598	より強力な import 機能については、このドキュメントの
14419	14599	L<C<use>\|/use Module VERSION LIST> の項と、L<perlmod> を参照してください。
14420	14600
14421	14601	=item reset EXPR
14422	14602	X<reset>
14423	14603
14424	14604	=item reset
14425	14605
14426	14606	=for Pod::Functions clear all variables of a given name
14427	14607
14428	14608	=begin original
14429	14609
14430	14610	Generally used in a L<C<continue>\|/continue BLOCK> block at the end of a
14431	14611	loop to clear variables and reset C<m?pattern?> searches so that they
14432	14612	work again. The
14433	14613	expression is interpreted as a list of single characters (hyphens
14434	14614	allowed for ranges). All variables (scalars, arrays, and hashes)
14435	14615	in the current package beginning with one of
14436	14616	those letters are reset to their pristine state. If the expression is
14437	14617	omitted, one-match searches (C<m?pattern?>) are reset to match again.
14438	14618	Only resets variables or searches in the current package. Always returns
14439	14619	1. Examples:
14440	14620
14441	14621	=end original
14442	14622
14443	14623	通常、ループの最後に、変数をクリアし、C<m?pattern?> 検索を再び動作するように
14444	14624	リセットするため、L<C<continue>\|/continue BLOCK> ブロックで使われます。
14445	14625	EXPR は、文字を並べたもの (範囲を指定するのに、ハイフンが使えます) と
14446	14626	解釈されます。
14447	14627	名前がその文字のいずれかで始まる、現在のパッケージの全ての変数
14448	14628	(スカラ、配列、ハッシュ)は、
14449	14629	最初の状態にリセットされます。
14450	14630	EXPR を省略すると、1 回検索 (C<m?pattern?>) を再びマッチするように
14451	14631	リセットできます。
14452	14632	カレントパッケージの変数もしくは検索だけがリセットされます。
14453	14633	常に 1 を返します。
14454	14634	例:
14455	14635
14456	14636	reset 'X'; # reset all X variables
14457	14637	reset 'a-z'; # reset lower case variables
14458	14638	reset; # just reset m?one-time? searches
14459	14639
14460	14640	=begin original
14461	14641
14462	14642	Resetting C<"A-Z"> is not recommended because you'll wipe out your
14463	14643	L<C<@ARGV>\|perlvar/@ARGV> and L<C<@INC>\|perlvar/@INC> arrays and your
14464	14644	L<C<%ENV>\|perlvar/%ENV> hash.
14465	14645
14466	14646	=end original
14467	14647
14468	14648	reset C<"A-Z"> とすると、L<C<@ARGV>\|perlvar/@ARGV>,
14469	14649	L<C<@INC>\|perlvar/@INC> 配列や L<C<%ENV>\|perlvar/%ENV> ハッシュも
14470	14650	なくなってしまうので、止めた方が良いでしょう。
14471	14651
14472	14652	=begin original
14473	14653
14474	14654	Resets only package variables; lexical variables are unaffected, but
14475	14655	they clean themselves up on scope exit anyway, so you'll probably want
14476	14656	to use them instead. See L<C<my>\|/my VARLIST>.
14477	14657
14478	14658	=end original
14479	14659
14480	14660	パッケージ変数だけがリセットされます; レキシカル変数は影響を受けませんが、
14481	14661	スコープから外れれば自動的に綺麗になるので、これからはこちらを
14482	14662	使うようにした方がよいでしょう。
14483	14663	L<C<my>\|/my VARLIST> を参照してください。
14484	14664
14485	14665	=item return EXPR
14486	14666	X<return>
14487	14667
14488	14668	=item return
14489	14669
14490	14670	=for Pod::Functions get out of a function early
14491	14671
14492	14672	=begin original
14493	14673
14494	14674	Returns from a subroutine, L<C<eval>\|/eval EXPR>,
14495	14675	L<C<do FILE>\|/do EXPR>, L<C<sort>\|/sort SUBNAME LIST> block or regex
14496	14676	eval block (but not a L<C<grep>\|/grep BLOCK LIST>,
14497	14677	L<C<map>\|/map BLOCK LIST>, or L<C<do BLOCK>\|/do BLOCK> block) with the value
14498	14678	given in EXPR. Evaluation of EXPR may be in list, scalar, or void
14499	14679	context, depending on how the return value will be used, and the context
14500	14680	may vary from one execution to the next (see
14501	14681	L<C<wantarray>\|/wantarray>). If no EXPR
14502	14682	is given, returns an empty list in list context, the undefined value in
14503	14683	scalar context, and (of course) nothing at all in void context.
14504	14684
14505	14685	=end original
14506	14686
14507	14687	サブルーチン, L<C<eval>\|/eval EXPR>, L<C<do FILE>\|/do EXPR>,
14508	14688	L<C<sort>\|/sort SUBNAME LIST> ブロックまたは正規表現 eval ブロック
14509	14689	(但し L<C<grep>\|/grep BLOCK LIST>,
14510	14690	L<C<map>\|/map BLOCK LIST>, L<C<do BLOCK>\|/do BLOCK> ブロックではない) から
14511	14691	EXPR で与えられた値をもって、リターンします。
14512	14692	EXPR の評価は、返り値がどのように使われるかによってリスト、スカラ、
14513	14693	無効コンテキストになります; またコンテキストは実行毎に変わります
14514	14694	(L<C<wantarray>\|/wantarray> を参照してください)。
14515	14695	EXPR が指定されなかった場合は、リストコンテキストでは空リストを、
14516	14696	スカラコンテキストでは未定義値を返します; そして(もちろん)
14517	14697	無効コンテキストでは何も返しません。
14518	14698
14519	14699	=begin original
14520	14700
14521	14701	(In the absence of an explicit L<C<return>\|/return EXPR>, a subroutine,
14522	14702	L<C<eval>\|/eval EXPR>,
14523	14703	or L<C<do FILE>\|/do EXPR> automatically returns the value of the last expression
14524	14704	evaluated.)
14525	14705
14526	14706	=end original
14527	14707
14528	14708	(サブルーチン, L<C<eval>\|/eval EXPR>, L<C<do FILE>\|/do EXPR> に明示的に
14529	14709	L<C<return>\|/return EXPR> がなければ、最後に評価された値で、
14530	14710	自動的にリターンします。)
14531	14711
14532	14712	=begin original
14533	14713
14534	14714	Unlike most named operators, this is also exempt from the
14535	14715	looks-like-a-function rule, so C<return ("foo")."bar"> will
14536	14716	cause C<"bar"> to be part of the argument to L<C<return>\|/return EXPR>.
14537	14717
14538	14718	=end original
14539	14719
14540	14720	ほとんどの名前付き演算子と異なり、関数のように見えるものの規則からも
14541	14721	免れるので、C<return ("foo")."bar"> とすると C<"bar"> は
14542	14722	L<C<return>\|/return EXPR> への引数の一部となります。
14543	14723
14544	14724	=item reverse LIST
14545	14725	X<reverse> X<rev> X<invert>
14546	14726
14547	14727	=for Pod::Functions flip a string or a list
14548	14728
14549	14729	=begin original
14550	14730
14551	14731	In list context, returns a list value consisting of the elements
14552	14732	of LIST in the opposite order. In scalar context, concatenates the
14553	14733	elements of LIST and returns a string value with all characters
14554	14734	in the opposite order.
14555	14735
14556	14736	=end original
14557	14737
14558	14738	リストコンテキストでは、LIST を構成する要素を逆順に並べた
14559	14739	リスト値を返します。
14560	14740	スカラコンテキストでは、LIST の要素を連結して、
14561	14741	全ての文字を逆順にした文字列を返します。
14562	14742
14563	14743	print join(", ", reverse "world", "Hello"); # Hello, world
14564	14744
14565	14745	print scalar reverse "dlrow ,", "olleH"; # Hello, world
14566	14746
14567	14747	=begin original
14568	14748
14569	14749	Used without arguments in scalar context, L<C<reverse>\|/reverse LIST>
14570	14750	reverses L<C<$_>\|perlvar/$_>.
14571	14751
14572	14752	=end original
14573	14753
14574	14754	スカラコンテキストで引数なしで使うと、L<C<reverse>\|/reverse LIST> は
14575	14755	L<C<$_>\|perlvar/$_> を逆順にします。
14576	14756
14577	14757	$_ = "dlrow ,olleH";
14578	14758	print reverse; # No output, list context
14579	14759	print scalar reverse; # Hello, world
14580	14760
14581	14761	=begin original
14582	14762
14583	14763	Note that reversing an array to itself (as in C<@a = reverse @a>) will
14584	14764	preserve non-existent elements whenever possible; i.e., for non-magical
14585	14765	arrays or for tied arrays with C<EXISTS> and C<DELETE> methods.
14586	14766
14587	14767	=end original
14588	14768
14589	14769	(C<@a = reverse @a> のように) 反転した配列を自分自身に代入すると、
14590	14770	存在しない要素は可能なら(つまりマジカルでない配列や
14591	14771	C<EXISTS> と C<DELETE> メソッドがある tie された配列)
14592	14772	いつでも保存されることに注意してください。
14593	14773
14594	14774	=begin original
14595	14775
14596	14776	This operator is also handy for inverting a hash, although there are some
14597	14777	caveats. If a value is duplicated in the original hash, only one of those
14598	14778	can be represented as a key in the inverted hash. Also, this has to
14599	14779	unwind one hash and build a whole new one, which may take some time
14600	14780	on a large hash, such as from a DBM file.
14601	14781
14602	14782	=end original
14603	14783
14604	14784	この演算子はハッシュの逆順にするのにも便利ですが、いくつかの弱点があります。
14605	14785	元のハッシュで値が重複していると、それらのうち一つだけが
14606	14786	逆順になったハッシュのキーとして表現されます。
14607	14787	また、これは一つのハッシュをほどいて完全に新しいハッシュを作るので、
14608	14788	DBM ファイルからのような大きなハッシュでは少し時間がかかります。
14609	14789
14610	14790	my %by_name = reverse %by_address; # Invert the hash
14611	14791
14612	14792	=item rewinddir DIRHANDLE
14613	14793	X<rewinddir>
14614	14794
14615	14795	=for Pod::Functions reset directory handle
14616	14796
14617	14797	=begin original
14618	14798
14619	14799	Sets the current position to the beginning of the directory for the
14620	14800	L<C<readdir>\|/readdir DIRHANDLE> routine on DIRHANDLE.
14621	14801
14622	14802	=end original
14623	14803
14624	14804	DIRHANDLE に対する L<C<readdir>\|/readdir DIRHANDLE> ルーチンの現在位置を
14625	14805	ディレクトリの最初に設定します。
14626	14806
14627	14807	=begin original
14628	14808
14629	14809	Portability issues: L<perlport/rewinddir>.
14630	14810
14631	14811	=end original
14632	14812
14633	14813	移植性の問題: L<perlport/rewinddir>。
14634	14814
14635	14815	=item rindex STR,SUBSTR,POSITION
14636	14816	X<rindex>
14637	14817
14638	14818	=item rindex STR,SUBSTR
14639	14819
14640	14820	=for Pod::Functions right-to-left substring search
14641	14821
14642	14822	=begin original
14643	14823
14644	14824	Works just like L<C<index>\|/index STR,SUBSTR,POSITION> except that it
14645	14825	returns the position of the I<last>
14646	14826	occurrence of SUBSTR in STR. If POSITION is specified, returns the
14647	14827	last occurrence beginning at or before that position.
14648	14828
14649	14829	=end original
14650	14830
14651	14831	STR 中で I<最後に> 見つかった SUBSTR の位置を返すことを除いて、
14652	14832	L<C<index>\|/index STR,SUBSTR,POSITION> と同じように動作します。
14653	14833	POSITION を指定すると、その位置から始まるか、その位置より前の、
14654	14834	最後の位置を返します。
14655	14835
14656	14836	=item rmdir FILENAME
14657	14837	X<rmdir> X<rd> X<directory, remove>
14658	14838
14659	14839	=item rmdir
14660	14840
14661	14841	=for Pod::Functions remove a directory
14662	14842
14663	14843	=begin original
14664	14844
14665	14845	Deletes the directory specified by FILENAME if that directory is
14666	14846	empty. If it succeeds it returns true; otherwise it returns false and
14667	14847	sets L<C<$!>\|perlvar/$!> (errno). If FILENAME is omitted, uses
14668	14848	L<C<$_>\|perlvar/$_>.
14669	14849
14670	14850	=end original
14671	14851
14672	14852	FILENAME で指定したディレクトリが空であれば、
14673	14853	そのディレクトリを削除します。
14674		成功時には真を返します; さもなければ偽を返して L<C<$!>\|perlvar/$!> ~~(errno) を~~
	14854	成功時には真を返します; さもなければ偽を返して L<C<$!>\|perlvar/$!>
14675		設定します。
	14855	(errno) を設定します。
14676	14856	FILENAME を省略した場合には、L<C<$_>\|perlvar/$_> を使用します。
14677	14857
14678	14858	=begin original
14679	14859
14680	14860	To remove a directory tree recursively (C<rm -rf> on Unix) look at
14681	14861	the L<C<rmtree>\|File::Path/rmtree( $dir )> function of the L<File::Path>
14682	14862	module.
14683	14863
14684	14864	=end original
14685	14865
14686	14866	ディレクトリツリーを再帰的に削除したい (Unix での C<rm -rf>) 場合、
14687	14867	L<File::Path> モジュールの L<C<rmtree>\|File::Path/rmtree( $dir )> 関数を
14688	14868	参照してください。
14689	14869
14690	14870	=item s///
14691	14871
14692	14872	=for Pod::Functions replace a pattern with a string
14693	14873
14694	14874	=begin original
14695	14875
14696	14876	The substitution operator. See L<perlop/"Regexp Quote-Like Operators">.
14697	14877
14698	14878	=end original
14699	14879
14700	14880	置換演算子。
14701	14881	L<perlop/"Regexp Quote-Like Operators"> を参照してください。
14702	14882
14703	14883	=item say FILEHANDLE LIST
14704	14884	X<say>
14705	14885
14706	14886	=item say FILEHANDLE
14707	14887
14708	14888	=item say LIST
14709	14889
14710	14890	=item say
14711	14891
14712	14892	=for Pod::Functions +say output a list to a filehandle, appending a newline
14713	14893
14714	14894	=begin original
14715	14895
14716	14896	Just like L<C<print>\|/print FILEHANDLE LIST>, but implicitly appends a
14717	14897	newline at the end of the LIST instead of any value L<C<$\>\|perlvar/$\>
14718	14898	might have. To use FILEHANDLE without a LIST to
14719	14899	print the contents of L<C<$_>\|perlvar/$_> to it, you must use a bareword
14720	14900	filehandle like C<FH>, not an indirect one like C<$fh>.
14721	14901
14722	14902	=end original
14723	14903
14724	14904	L<C<print>\|/print FILEHANDLE LIST> と同様ですが、
14725	14905	L<C<$\>\|perlvar/$\> の値の代わりに LIST の末尾に
14726	14906	改行が暗黙に追加されます。
14727	14907	L<C<$_>\|perlvar/$_> の内容を表示するために LIST なしで FILEHANDLE を
14728	14908	使用するには、C<$fh> のような間接ファイルハンドルではなく、C<FH> のような
14729	14909	裸の単語のファイルハンドルを使わなければなりません。
14730	14910
14731	14911	=begin original
14732	14912
14733	14913	L<C<say>\|/say FILEHANDLE LIST> is available only if the
14734	14914	L<C<"say"> feature\|feature/The 'say' feature> is enabled or if it is
14735	14915	prefixed with C<CORE::>. The
14736	14916	L<C<"say"> feature\|feature/The 'say' feature> is enabled automatically
14737	14917	with a C<use v5.10> (or higher) declaration in the current scope.
14738	14918
14739	14919	=end original
14740	14920
14741	14921	L<C<say>\|/say FILEHANDLE LIST> は
14742	14922	L<C<"say"> 機能\|feature/The 'say' feature> が有効か C<CORE::> が
14743	14923	前置されたときにのみ利用可能です。
14744	14924	L<C<"say"> 機能\|feature/The 'say' feature> は現在のスコープで
14745	14925	C<use v5.10> (またはそれ以上) が宣言されると自動的に有効になります。
14746	14926
14747	14927	=item scalar EXPR
14748	14928	X<scalar> X<context>
14749	14929
14750	14930	=for Pod::Functions force a scalar context
14751	14931
14752	14932	=begin original
14753	14933
14754	14934	Forces EXPR to be interpreted in scalar context and returns the value
14755	14935	of EXPR.
14756	14936
14757	14937	=end original
14758	14938
14759	14939	EXPR を強制的にスカラコンテキストで解釈されるようにして、
14760	14940	EXPR の値を返します。
14761	14941
14762	14942	my @counts = ( scalar @a, scalar @b, scalar @c );
14763	14943
14764	14944	=begin original
14765	14945
14766	14946	There is no equivalent operator to force an expression to
14767	14947	be interpolated in list context because in practice, this is never
14768	14948	needed. If you really wanted to do so, however, you could use
14769	14949	the construction C<@{[ (some expression) ]}>, but usually a simple
14770	14950	C<(some expression)> suffices.
14771	14951
14772	14952	=end original
14773	14953
14774	14954	式を強制的にリストコンテキストで解釈させるようにする演算子はありません;
14775	14955	理論的には不要だからです。
14776	14956	それでも、もしそうしたいのなら、C<@{[ (some expression) ]}> という構造を
14777	14957	使えます; しかし、普通は単に C<(some expression)> とすれば十分です。
14778	14958
14779	14959	=begin original
14780	14960
14781	14961	Because L<C<scalar>\|/scalar EXPR> is a unary operator, if you
14782	14962	accidentally use a
14783	14963	parenthesized list for the EXPR, this behaves as a scalar comma expression,
14784	14964	evaluating all but the last element in void context and returning the final
14785	14965	element evaluated in scalar context. This is seldom what you want.
14786	14966
14787	14967	=end original
14788	14968
14789	14969	L<C<scalar>\|/scalar EXPR> は単項演算子なので、EXPR として括弧でくくった
14790	14970	リストを使った場合、これはスカラカンマ表現として振舞い、最後以外の全ては
14791	14971	無効コンテキストとして扱われ、最後の要素をスカラコンテキストとして扱った
14792	14972	結果が返されます。
14793	14973	これがあなたの望むものであることはめったにないでしょう。
14794	14974
14795	14975	=begin original
14796	14976
14797	14977	The following single statement:
14798	14978
14799	14979	=end original
14800	14980
14801	14981	以下の一つの文は:
14802	14982
14803	14983	print uc(scalar(foo(), $bar)), $baz;
14804	14984
14805	14985	=begin original
14806	14986
14807	14987	is the moral equivalent of these two:
14808	14988
14809	14989	=end original
14810	14990
14811	14991	以下の二つの文と等価です。
14812	14992
14813	14993	foo();
14814	14994	print(uc($bar), $baz);
14815	14995
14816	14996	=begin original
14817	14997
14818	14998	See L<perlop> for more details on unary operators and the comma operator,
14819		and L<perldata> for details on evaluating a hash in scalar contex.
	14999	and L<perldata> for details on evaluating a hash in scalar context.
14820	15000
14821	15001	=end original
14822	15002
14823	15003	単項演算子とカンマ演算子に関する詳細については L<perlop> を、
14824	15004	スカラコンテキストでのハッシュの評価に関する詳細については L<perldata> を
14825	15005	参照してください。
14826	15006
14827	15007	=item seek FILEHANDLE,POSITION,WHENCE
14828	15008	X<seek> X<fseek> X<filehandle, position>
14829	15009
14830	15010	=for Pod::Functions reposition file pointer for random-access I/O
14831	15011
14832	15012	=begin original
14833	15013
14834	15014	Sets FILEHANDLE's position, just like the L<fseek(3)> call of C C<stdio>.
14835	15015	FILEHANDLE may be an expression whose value gives the name of the
14836	15016	filehandle. The values for WHENCE are C<0> to set the new position
14837	15017	I<in bytes> to POSITION; C<1> to set it to the current position plus
14838	15018	POSITION; and C<2> to set it to EOF plus POSITION, typically
14839	15019	negative. For WHENCE you may use the constants C<SEEK_SET>,
14840	15020	C<SEEK_CUR>, and C<SEEK_END> (start of the file, current position, end
14841	15021	of the file) from the L<Fcntl> module. Returns C<1> on success, false
14842	15022	otherwise.
14843	15023
14844	15024	=end original
14845	15025
14846	15026	C の C<stdio> ライブラリの L<fseek(3)> 関数のように、FILEHANDLE の
14847	15027	ファイルポインタを任意の位置に設定します。
14848	15028	FILEHANDLE は、実際のファイルハンドル名を与える式でもかまいません。
14849	15029	WHENCE の値が、C<0> ならば、新しい位置を I<バイト単位で> POSITION の位置へ
14850	15030	設定します; C<1> ならば、現在位置から POSITION 加えた位置へ
14851	15031	設定します; C<2> ならば、EOF からPOSITION だけ加えた位置へ、新しい位置を
14852	15032	設定します。
14853	15033	この値には、L<Fcntl> モジュールで使われている C<SEEK_SET>、C<SEEK_CUR>、
14854	15034	C<SEEK_END> (ファイルの先頭、現在位置、ファイルの最後)という定数を
14855	15035	使うこともできます。
14856	15036	成功時には、C<1> を、失敗時にはそれ以外を返します。
14857	15037
14858	15038	=begin original
14859	15039
14860	15040	Note the emphasis on bytes: even if the filehandle has been set to operate
14861	15041	on characters (for example using the C<:encoding(UTF-8)> I/O layer), the
14862	15042	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
14863	15043	L<C<tell>\|/tell FILEHANDLE>, and
14864	15044	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE>
14865	15045	family of functions use byte offsets, not character offsets,
14866	15046	because seeking to a character offset would be very slow in a UTF-8 file.
14867	15047
14868	15048	=end original
14869	15049
14870	15050	バイト単位に対する注意: 例え(例えば C<:encoding(UTF-8)> I/O 層を使うなどして)
14871	15051	ファイルハンドルが文字単位で処理するように設定されていたとしても、
14872	15052	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
14873	15053	L<C<tell>\|/tell FILEHANDLE>,
14874	15054	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> シリーズの関数は
14875	15055	文字オフセットではなくバイトオフセットを使います;
14876	15056	文字オフセットでシークするのは UTF-8 ファイルではとても遅いからです。
14877	15057
14878	15058	=begin original
14879	15059
14880	15060	If you want to position the file for
14881	15061	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> or
14882	15062	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>, don't use
14883	15063	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>, because buffering makes its
14884	15064	effect on the file's read-write position unpredictable and non-portable.
14885	15065	Use L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> instead.
14886	15066
14887	15067	=end original
14888	15068
14889	15069	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> や
14890	15070	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET> のためにファイルの
14891	15071	位置を指定したい場合は、L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> は
14892	15072	使えません; なぜならバッファリングのためにファイルの読み込み位置は
14893	15073	動作は予測不能で移植性のないものになってしまいます。
14894	15074	代わりに L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> を使ってください。
14895	15075
14896	15076	=begin original
14897	15077
14898	15078	Due to the rules and rigors of ANSI C, on some systems you have to do a
14899	15079	seek whenever you switch between reading and writing. Amongst other
14900	15080	things, this may have the effect of calling stdio's L<clearerr(3)>.
14901	15081	A WHENCE of C<1> (C<SEEK_CUR>) is useful for not moving the file position:
14902	15082
14903	15083	=end original
14904	15084
14905	15085	ANSI C の規則と困難により、システムによっては読み込みと書き込みを
14906	15086	切り替える度にシークしなければならない場合があります。
14907	15087	その他のことの中で、これは stdio の L<clearerr(3)> を呼び出す効果があります。
14908	15088	WHENCE の C<1> (C<SEEK_CUR>) が、ファイル位置を変えないので有用です:
14909	15089
14910	15090	seek($fh, 0, 1);
14911	15091
14912	15092	=begin original
14913	15093
14914	15094	This is also useful for applications emulating C<tail -f>. Once you hit
14915	15095	EOF on your read and then sleep for a while, you (probably) have to stick in a
14916	15096	dummy L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> to reset things. The
14917	15097	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> doesn't change the position,
14918	15098	but it I<does> clear the end-of-file condition on the handle, so that the
14919	15099	next C<readline FILE> makes Perl try again to read something. (We hope.)
14920	15100
14921	15101	=end original
14922	15102
14923	15103	これはアプリケーションで C<tail -f> をエミュレートするのにも有用です。
14924	15104	一度読み込み時に EOF に到達すると、しばらくスリープし、
14925	15105	(おそらく) ダミーの L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> をすることで
14926	15106	リセットする必要があります。
14927	15107	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE> は現在の位置を変更しませんが、
14928	15108	ハンドルの EOF 状態をI<クリアします> ので、次の C<readline FILE> で Perl は
14929	15109	再び何かを読み込もうとします。(そのはずです。)
14930	15110
14931	15111	=begin original
14932	15112
14933	15113	If that doesn't work (some I/O implementations are particularly
14934	15114	cantankerous), you might need something like this:
14935	15115
14936	15116	=end original
14937	15117
14938	15118	これが動かない場合(特に意地の悪い I/O 実装もあります)、
14939	15119	以下のようなことをする必要があります:
14940	15120
14941	15121	for (;;) {
14942	15122	for ($curpos = tell($fh); $_ = readline($fh);
14943	15123	$curpos = tell($fh)) {
14944	15124	# search for some stuff and put it into files
14945	15125	}
14946	15126	sleep($for_a_while);
14947	15127	seek($fh, $curpos, 0);
14948	15128	}
14949	15129
14950	15130	=item seekdir DIRHANDLE,POS
14951	15131	X<seekdir>
14952	15132
14953	15133	=for Pod::Functions reposition directory pointer
14954	15134
14955	15135	=begin original
14956	15136
14957	15137	Sets the current position for the L<C<readdir>\|/readdir DIRHANDLE>
14958	15138	routine on DIRHANDLE. POS must be a value returned by
14959	15139	L<C<telldir>\|/telldir DIRHANDLE>. L<C<seekdir>\|/seekdir DIRHANDLE,POS>
14960	15140	also has the same caveats about possible directory compaction as the
14961	15141	corresponding system library routine.
14962	15142
14963	15143	=end original
14964	15144
14965	15145	DIRHANDLE での L<C<readdir>\|/readdir DIRHANDLE> ルーチンの現在位置を
14966	15146	設定します。
14967	15147	POS は、L<C<telldir>\|/telldir DIRHANDLE> が返す値でなければなりません。
14968	15148	L<C<seekdir>\|/seekdir DIRHANDLE,POS> は同名のシステムライブラリルーチンと
14969	15149	同じく、ディレクトリ縮小時の問題が考えられます。
14970	15150
14971	15151	=item select FILEHANDLE
14972	15152	X<select> X<filehandle, default>
14973	15153
14974	15154	=item select
14975	15155
14976	15156	=for Pod::Functions reset default output or do I/O multiplexing
14977	15157
14978	15158	=begin original
14979	15159
14980	15160	Returns the currently selected filehandle. If FILEHANDLE is supplied,
14981	15161	sets the new current default filehandle for output. This has two
14982	15162	effects: first, a L<C<write>\|/write FILEHANDLE> or a L<C<print>\|/print
14983	15163	FILEHANDLE LIST> without a filehandle
14984	15164	default to this FILEHANDLE. Second, references to variables related to
14985	15165	output will refer to this output channel.
14986	15166
14987	15167	=end original
14988	15168
14989	15169	その時点で、選択されていたファイルハンドルを返します。
14990	15170	FILEHANDLE を指定した場合には、その値を出力のデフォルトファイルハンドルに
14991	15171	設定します。
14992	15172	これには、2 つの効果があります: まず、ファイルハンドルを指定しないで
14993	15173	L<C<write>\|/write FILEHANDLE> や L<C<print>\|/print FILEHANDLE LIST> を
14994	15174	行なった場合のデフォルトが、この FILEHANDLE になります。
14995	15175	もう一つは、出力関連の変数への参照は、この出力チャネルを
14996	15176	参照するようになります。
14997	15177
14998	15178	=begin original
14999	15179
15000	15180	For example, to set the top-of-form format for more than one
15001	15181	output channel, you might do the following:
15002	15182
15003	15183	=end original
15004	15184
15005	15185	例えば、複数の出力チャネルに対して、ページ先頭フォーマットを
15006	15186	設定するには:
15007	15187
15008	15188	select(REPORT1);
15009	15189	$^ = 'report1_top';
15010	15190	select(REPORT2);
15011	15191	$^ = 'report2_top';
15012	15192
15013	15193	=begin original
15014	15194
15015	15195	FILEHANDLE may be an expression whose value gives the name of the
15016	15196	actual filehandle. Thus:
15017	15197
15018	15198	=end original
15019	15199
15020	15200	FILEHANDLE は、実際のファイルハンドル名を示す式でもかまいません。
15021	15201	つまり、以下のようなものです:
15022	15202
15023	15203	my $oldfh = select(STDERR); $\| = 1; select($oldfh);
15024	15204
15025	15205	=begin original
15026	15206
15027	15207	Some programmers may prefer to think of filehandles as objects with
15028	15208	methods, preferring to write the last example as:
15029	15209
15030	15210	=end original
15031	15211
15032	15212	ファイルハンドルはメソッドを持ったオブジェクトであると考えることを好む
15033	15213	プログラマもいるかもしれません; そのような場合のための最後の例は
15034	15214	以下のようなものです:
15035	15215
15036	15216	STDERR->autoflush(1);
15037	15217
15038	15218	=begin original
15039	15219
15040	15220	(Prior to Perl version 5.14, you have to C<use IO::Handle;> explicitly
15041	15221	first.)
15042	15222
15043	15223	=end original
15044	15224
15045	15225	(Perl バージョン 5.14 以前では、まず明示的に C<use IO::Handle;> とする
15046	15226	必要があります。)
15047	15227
15048	15228	=begin original
15049	15229
15050	15230	Portability issues: L<perlport/select>.
15051	15231
15052	15232	=end original
15053	15233
15054	15234	移植性の問題: L<perlport/select>。
15055	15235
15056	15236	=item select RBITS,WBITS,EBITS,TIMEOUT
15057	15237	X<select>
15058	15238
15059	15239	=begin original
15060	15240
15061	15241	This calls the L<select(2)> syscall with the bit masks specified, which
15062	15242	can be constructed using L<C<fileno>\|/fileno FILEHANDLE> and
15063	15243	L<C<vec>\|/vec EXPR,OFFSET,BITS>, along these lines:
15064	15244
15065	15245	=end original
15066	15246
15067	15247	これは、L<select(2)> システムコールを、指定したビットマスクで呼び出します;
15068	15248	ビットマスクは、L<C<fileno>\|/fileno FILEHANDLE> と
15069	15249	L<C<vec>\|/vec EXPR,OFFSET,BITS> を使って、以下のようにして作成できます:
15070	15250
15071	15251	my $rin = my $win = my $ein = '';
15072	15252	vec($rin, fileno(STDIN), 1) = 1;
15073	15253	vec($win, fileno(STDOUT), 1) = 1;
15074	15254	$ein = $rin \| $win;
15075	15255
15076	15256	=begin original
15077	15257
15078	15258	If you want to select on many filehandles, you may wish to write a
15079	15259	subroutine like this:
15080	15260
15081	15261	=end original
15082	15262
15083	15263	複数のファイルハンドルに select を行ないたいのであれば、
15084	15264	以下のようにします:
15085	15265
15086	15266	sub fhbits {
15087	15267	my @fhlist = @_;
15088	15268	my $bits = "";
15089	15269	for my $fh (@fhlist) {
15090	15270	vec($bits, fileno($fh), 1) = 1;
15091	15271	}
15092	15272	return $bits;
15093	15273	}
15094	15274	my $rin = fhbits(\*STDIN, $tty, $mysock);
15095	15275
15096	15276	=begin original
15097	15277
15098	15278	The usual idiom is:
15099	15279
15100	15280	=end original
15101	15281
15102	15282	通常は、
15103	15283
15104	15284	my ($nfound, $timeleft) =
15105	15285	select(my $rout = $rin, my $wout = $win, my $eout = $ein,
15106	15286	$timeout);
15107	15287
15108	15288	=begin original
15109	15289
15110	15290	or to block until something becomes ready just do this
15111	15291
15112	15292	=end original
15113	15293
15114	15294	のように使い、いずれかの準備が整うまでブロックするには、
15115	15295	以下のようにします。
15116	15296
15117	15297	my $nfound =
15118	15298	select(my $rout = $rin, my $wout = $win, my $eout = $ein, undef);
15119	15299
15120	15300	=begin original
15121	15301
15122	15302	Most systems do not bother to return anything useful in C<$timeleft>, so
15123	15303	calling L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> in scalar context
15124	15304	just returns C<$nfound>.
15125	15305
15126	15306	=end original
15127	15307
15128	15308	ほとんどのシステムではわざわざ意味のある値を C<$timeleft> に返さないので、
15129	15309	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> をスカラコンテキストで
15130	15310	呼び出すと、単に C<$nfound> を返します。
15131	15311
15132	15312	=begin original
15133	15313
15134	15314	Any of the bit masks can also be L<C<undef>\|/undef EXPR>. The timeout,
15135	15315	if specified, is
15136	15316	in seconds, which may be fractional. Note: not all implementations are
15137	15317	capable of returning the C<$timeleft>. If not, they always return
15138	15318	C<$timeleft> equal to the supplied C<$timeout>.
15139	15319
15140	15320	=end original
15141	15321
15142	15322	どのビットマスクにも L<C<undef>\|/undef EXPR> を設定することができます。
15143	15323	TIMEOUT を指定するときは、秒数で指定し、小数でかまいません。
15144	15324	注: すべての実装で、C<$timeleft> が返せるものではありません。
15145	15325	その場合、C<$timeleft> には、常に指定した C<$timeout> と同じ値が返されます。
15146	15326
15147	15327	=begin original
15148	15328
15149	15329	You can effect a sleep of 250 milliseconds this way:
15150	15330
15151	15331	=end original
15152	15332
15153	15333	250 ミリ秒の sleep と同じ効果が、以下のようにして得られます。
15154	15334
15155	15335	select(undef, undef, undef, 0.25);
15156	15336
15157	15337	=begin original
15158	15338
15159	15339	Note that whether L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> gets
15160	15340	restarted after signals (say, SIGALRM) is implementation-dependent. See
15161	15341	also L<perlport> for notes on the portability of
15162	15342	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT>.
15163	15343
15164	15344	=end original
15165	15345
15166	15346	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> がシグナル (例えば、SIGALRM) の
15167	15347	後に再起動するかどうかは実装依存であることに注意してください。
15168	15348	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> の移植性に関する
15169	15349	注意については L<perlport> も参照してください。
15170	15350
15171	15351	=begin original
15172	15352
15173	15353	On error, L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> behaves just
15174	15354	like L<select(2)>: it returns C<-1> and sets L<C<$!>\|perlvar/$!>.
15175	15355
15176	15356	=end original
15177	15357
15178	15358	エラー時は、L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> は
15179	15359	L<select(2)> のように振舞います:
15180	15360	C<-1> を返し、L<C<$!>\|perlvar/$!> をセットします。
15181	15361
15182	15362	=begin original
15183	15363
15184	15364	On some Unixes, L<select(2)> may report a socket file descriptor as
15185	15365	"ready for reading" even when no data is available, and thus any
15186	15366	subsequent L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET> would block.
15187	15367	This can be avoided if you always use C<O_NONBLOCK> on the socket. See
15188	15368	L<select(2)> and L<fcntl(2)> for further details.
15189	15369
15190	15370	=end original
15191	15371
15192	15372	Unix の中には、実際に利用可能なデータがないために引き続く
15193	15373	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET> が
15194	15374	ブロックされる場合でも、L<select(2)> が、ソケットファイル記述子が
15195	15375	「読み込み準備中」であると報告するものもあります。
15196	15376	これは、ソケットに対して常に C<O_NONBLOCK> フラグを使うことで回避できます。
15197	15377	さらなる詳細については L<select(2)> と L<fcntl(2)> を参照してください。
15198	15378
15199	15379	=begin original
15200	15380
15201	15381	The standard L<C<IO::Select>\|IO::Select> module provides a
15202	15382	user-friendlier interface to
15203	15383	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT>, mostly because it does
15204	15384	all the bit-mask work for you.
15205	15385
15206	15386	=end original
15207	15387
15208	15388	標準の L<C<IO::Select>\|IO::Select> モジュールは
15209	15389	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> へのよりユーザーフレンドリーな
15210	15390	インターフェースを提供します; 主な理由はビットマスクの仕事を
15211	15391	してくれることです。
15212	15392
15213	15393	=begin original
15214	15394
15215	15395	B<WARNING>: One should not attempt to mix buffered I/O (like
15216	15396	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET> or
15217	15397	L<C<readline>\|/readline EXPR>) with
15218	15398	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT>, except as permitted by
15219	15399	POSIX, and even then only on POSIX systems. You have to use
15220	15400	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> instead.
15221	15401
15222	15402	=end original
15223	15403
15224	15404	B<警告>: バッファ付き I/O (L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET> や
15225	15405	L<C<readline>\|/readline EXPR>) と
15226	15406	L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> を
15227	15407	混ぜて使ってはいけません(例外: POSIX で認められている形で使い、
15228	15408	POSIX システムでだけ動かす場合を除きます)。
15229	15409	代わりに L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> を
15230	15410	使わなければなりません。
15231	15411
15232	15412	=begin original
15233	15413
15234	15414	Portability issues: L<perlport/select>.
15235	15415
15236	15416	=end original
15237	15417
15238	15418	移植性の問題: L<perlport/select>。
15239	15419
15240	15420	=item semctl ID,SEMNUM,CMD,ARG
15241	15421	X<semctl>
15242	15422
15243	15423	=for Pod::Functions SysV semaphore control operations
15244	15424
15245	15425	=begin original
15246	15426
15247	15427	Calls the System V IPC function L<semctl(2)>. You'll probably have to say
15248	15428
15249	15429	=end original
15250	15430
15251	15431	System V IPC 関数 L<semctl(2)> を呼び出します。
15252	15432	正しい定数定義を得るために、まず
15253	15433
15254	15434	use IPC::SysV;
15255	15435
15256	15436	=begin original
15257	15437
15258	15438	first to get the correct constant definitions. If CMD is IPC_STAT or
15259	15439	GETALL, then ARG must be a variable that will hold the returned
15260	15440	semid_ds structure or semaphore value array. Returns like
15261	15441	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR>:
15262	15442	the undefined value for error, "C<0 but true>" for zero, or the actual
15263	15443	return value otherwise. The ARG must consist of a vector of native
15264	15444	short integers, which may be created with C<pack("s!",(0)x$nsem)>.
15265	15445	See also L<perlipc/"SysV IPC"> and the documentation for
15266	15446	L<C<IPC::SysV>\|IPC::SysV> and L<C<IPC::Semaphore>\|IPC::Semaphore>.
15267	15447
15268	15448	=end original
15269	15449
15270	15450	と書くことが必要でしょう。
15271	15451	CMD が、IPC_STAT か GETALL のときには、ARG は、返される
15272	15452	semid_ds 構造体か、セマフォ値の配列を納める変数でなければなりません。
15273	15453	L<C<ioctl>\|/ioctl FILEHANDLE,FUNCTION,SCALAR> と同じように、エラー時には
15274	15454	未定義値、ゼロのときは C<"0 だが真">、それ以外なら、その値そのものを返します。
15275	15455	ARG はネイティブな short int のベクターから成っていなければなりません; これは
15276	15456	C<pack("s!",(0)x$nsem)> で作成できます。
15277		L<perlipc/"SysV IPC"> と、
	15457	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> と
15278		L<C<IPC::S~~ysV>\|IPC::SysV>, L<C<IPC::S~~emaphore>\|IPC::Semaphore> の文書も
	15458	L<C<IPC::Semaphore>\|IPC::Semaphore> の文書も参照してください。
15279		参照してください。
15280	15459
15281	15460	=begin original
15282	15461
15283	15462	Portability issues: L<perlport/semctl>.
15284	15463
15285	15464	=end original
15286	15465
15287	15466	移植性の問題: L<perlport/semctl>。
15288	15467
15289	15468	=item semget KEY,NSEMS,FLAGS
15290	15469	X<semget>
15291	15470
15292	15471	=for Pod::Functions get set of SysV semaphores
15293	15472
15294	15473	=begin original
15295	15474
15296	15475	Calls the System V IPC function L<semget(2)>. Returns the semaphore id, or
15297	15476	the undefined value on error. See also
15298	15477	L<perlipc/"SysV IPC"> and the documentation for
15299	15478	L<C<IPC::SysV>\|IPC::SysV> and L<C<IPC::Semaphore>\|IPC::Semaphore>.
15300	15479
15301	15480	=end original
15302	15481
15303	15482	System V IPC 関数 L<semget(2)> を呼び出します。
15304	15483	セマフォ ID か、エラー時には未定義値を返します。
15305		L<perlipc/"SysV IPC"> と、L<C<IPC::SysV>\|IPC::SysV>,
	15484	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> と
15306		L<C<IPC::Semaphore>\|IPC::Semaphore> 文書も参照してください。
	15485	L<C<IPC::Semaphore>\|IPC::Semaphore> の文書も参照してください。
15307	15486
15308	15487	=begin original
15309	15488
15310	15489	Portability issues: L<perlport/semget>.
15311	15490
15312	15491	=end original
15313	15492
15314	15493	移植性の問題: L<perlport/semget>。
15315	15494
15316	15495	=item semop KEY,OPSTRING
15317	15496	X<semop>
15318	15497
15319	15498	=for Pod::Functions SysV semaphore operations
15320	15499
15321	15500	=begin original
15322	15501
15323	15502	Calls the System V IPC function L<semop(2)> for semaphore operations
15324	15503	such as signalling and waiting. OPSTRING must be a packed array of
15325	15504	semop structures. Each semop structure can be generated with
15326	15505	C<pack("s!3", $semnum, $semop, $semflag)>. The length of OPSTRING
15327	15506	implies the number of semaphore operations. Returns true if
15328	15507	successful, false on error. As an example, the
15329	15508	following code waits on semaphore $semnum of semaphore id $semid:
15330	15509
15331	15510	=end original
15332	15511
15333	15512	シグナルを送信や、待ち合わせなどのセマフォ操作を行なうために、
15334	15513	System V IPC 関数 L<semop(2)> を呼び出します。
15335	15514	OPSTRING は、semop 構造体の pack された配列でなければなりません。
15336	15515	semop 構造体は、それぞれ、C<pack("s!3", $semnum, $semop, $semflag)> のように
15337	15516	作ることができます。
15338	15517	セマフォ操作の数は、OPSTRING の長さからわかります。
15339	15518	成功時には真を、エラー時には偽を返します。
15340	15519	以下の例は、セマフォ ID $semid のセマフォ $semnum で
15341	15520	待ち合わせを行ないます。
15342	15521
15343	15522	my $semop = pack("s!3", $semnum, -1, 0);
15344	15523	die "Semaphore trouble: $!\n" unless semop($semid, $semop);
15345	15524
15346	15525	=begin original
15347	15526
15348	15527	To signal the semaphore, replace C<-1> with C<1>. See also
15349	15528	L<perlipc/"SysV IPC"> and the documentation for
15350	15529	L<C<IPC::SysV>\|IPC::SysV> and L<C<IPC::Semaphore>\|IPC::Semaphore>.
15351	15530
15352	15531	=end original
15353	15532
15354	15533	セマフォにシグナルを送るには、C<-1> を C<1> に変更してください。
15355		L<perlipc/"SysV IPC"> と L<C<IPC::SysV>\|IPC::SysV>,
	15534	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> と
15356	15535	L<C<IPC::Semaphore>\|IPC::Semaphore> の文書も参照してください。
15357	15536
15358	15537	=begin original
15359	15538
15360	15539	Portability issues: L<perlport/semop>.
15361	15540
15362	15541	=end original
15363	15542
15364	15543	移植性の問題: L<perlport/semop>。
15365	15544
15366	15545	=item send SOCKET,MSG,FLAGS,TO
15367	15546	X<send>
15368	15547
15369	15548	=item send SOCKET,MSG,FLAGS
15370	15549
15371	15550	=for Pod::Functions send a message over a socket
15372	15551
15373	15552	=begin original
15374	15553
15375	15554	Sends a message on a socket. Attempts to send the scalar MSG to the SOCKET
15376	15555	filehandle. Takes the same flags as the system call of the same name. On
15377	15556	unconnected sockets, you must specify a destination to I<send to>, in which
15378	15557	case it does a L<sendto(2)> syscall. Returns the number of characters sent,
15379	15558	or the undefined value on error. The L<sendmsg(2)> syscall is currently
15380	15559	unimplemented. See L<perlipc/"UDP: Message Passing"> for examples.
15381	15560
15382	15561	=end original
15383	15562
15384	15563	ソケットにメッセージを送ります。
15385	15564	スカラ MSG をファイルハンドル SOCKET に送ろうとします。
15386	15565	同名のシステムコールと同じフラグが指定できます。
15387	15566	接続していないソケットには、I<send to> に接続先を指定しなければならず、
15388	15567	この場合、L<sendto(2)> を実行します。
15389	15568	送信した文字数か、エラー時には、未定義値を返します。
15390	15569	システムコール L<sendmsg(2)> は現在実装されていません。
15391	15570	例については L<perlipc/"UDP: Message Passing"> を参照してください。
15392	15571
15393	15572	=begin original
15394	15573
15395	15574	Note that if the socket has been marked as C<:utf8>, C<send> will
15396	15575	throw an exception. The C<:encoding(...)> layer implicitly introduces
15397	15576	the C<:utf8> layer. See L<C<binmode>\|/binmode FILEHANDLE, LAYER>.
15398	15577
15399	15578	=end original
15400	15579
15401	15580	ソケットが C<:utf8> とマークされている場合、
15402	15581	C<send> は例外を投げることに注意してください。
15403	15582	C<:encoding(...)> 層は暗黙に C<:utf8> 層を導入します。
15404	15583	L<C<binmode>\|/binmode FILEHANDLE, LAYER> を参照してください。
15405	15584
15406	15585	=item setpgrp PID,PGRP
15407	15586	X<setpgrp> X<group>
15408	15587
15409	15588	=for Pod::Functions set the process group of a process
15410	15589
15411	15590	=begin original
15412	15591
15413	15592	Sets the current process group for the specified PID, C<0> for the current
15414	15593	process. Raises an exception when used on a machine that doesn't
15415	15594	implement POSIX L<setpgid(2)> or BSD L<setpgrp(2)>. If the arguments
15416	15595	are omitted, it defaults to C<0,0>. Note that the BSD 4.2 version of
15417	15596	L<C<setpgrp>\|/setpgrp PID,PGRP> does not accept any arguments, so only
15418	15597	C<setpgrp(0,0)> is portable. See also
15419	15598	L<C<POSIX::setsid()>\|POSIX/C<setsid>>.
15420	15599
15421	15600	=end original
15422	15601
15423	15602	指定した PID (C<0> を指定するとカレントプロセス) に
15424	15603	対するプロセスグループを設定します。
15425	15604	POSIX L<setpgrp(2)> または BSD L<setpgrp(2)> が実装されていないマシンでは、
15426	15605	例外が発生します。
15427	15606	引数が省略された場合は、C<0,0>が使われます。
15428	15607	BSD 4.2 版の L<C<setpgrp>\|/setpgrp PID,PGRP> は引数を取ることができないので、
15429	15608	C<setpgrp(0,0)> のみが移植性があることに注意してください。
15430	15609	L<C<POSIX::setsid()>\|POSIX/C<setsid>> も参照してください。
15431	15610
15432	15611	=begin original
15433	15612
15434	15613	Portability issues: L<perlport/setpgrp>.
15435	15614
15436	15615	=end original
15437	15616
15438	15617	移植性の問題: L<perlport/setpgrp>。
15439	15618
15440	15619	=item setpriority WHICH,WHO,PRIORITY
15441	15620	X<setpriority> X<priority> X<nice> X<renice>
15442	15621
15443	15622	=for Pod::Functions set a process's nice value
15444	15623
15445	15624	=begin original
15446	15625
15447	15626	Sets the current priority for a process, a process group, or a user.
15448	15627	(See L<setpriority(2)>.) Raises an exception when used on a machine
15449	15628	that doesn't implement L<setpriority(2)>.
15450	15629
15451	15630	=end original
15452	15631
15453	15632	プロセス、プロセスグループ、ユーザに対する優先順位を設定します。
15454	15633	(L<setpriority(2)> を参照してください。)
15455	15634	L<setpriority(2)> が実装されていないマシンでは、例外が発生します。
15456	15635
15457	15636	=begin original
15458	15637
15459	15638	C<WHICH> can be any of C<PRIO_PROCESS>, C<PRIO_PGRP> or C<PRIO_USER>
15460	15639	imported from L<POSIX/RESOURCE CONSTANTS>.
15461	15640
15462	15641	=end original
15463	15642
15464	15643	C<WHICH> は、L<POSIX/RESOURCE CONSTANTS> からインポートされた
15465	15644	C<PRIO_PROCESS>, C<PRIO_PGRP>, C<PRIO_USER> のいずれかです。
15466	15645
15467	15646	=begin original
15468	15647
15469	15648	Portability issues: L<perlport/setpriority>.
15470	15649
15471	15650	=end original
15472	15651
15473	15652	移植性の問題: L<perlport/setpriority>。
15474	15653
15475	15654	=item setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL
15476	15655	X<setsockopt>
15477	15656
15478	15657	=for Pod::Functions set some socket options
15479	15658
15480	15659	=begin original
15481	15660
15482	15661	Sets the socket option requested. Returns L<C<undef>\|/undef EXPR> on
15483	15662	error. Use integer constants provided by the L<C<Socket>\|Socket> module
15484	15663	for
15485	15664	LEVEL and OPNAME. Values for LEVEL can also be obtained from
15486	15665	getprotobyname. OPTVAL might either be a packed string or an integer.
15487	15666	An integer OPTVAL is shorthand for pack("i", OPTVAL).
15488	15667
15489	15668	=end original
15490	15669
15491	15670	要求したソケットオプションを設定します。
15492	15671	エラー時には、L<C<undef>\|/undef EXPR> を返します。
15493	15672	LEVEL と OPNAME には L<C<Socket>\|Socket> モジュールが提供する
15494	15673	整数定数を使います。
15495	15674	LEVEL の値は getprotobyname から得ることもできます。
15496	15675	OPTVAL は pack された文字列か整数です。
15497	15676	整数の OPTVAL は pack("i", OPTVAL) の省略表現です。
15498	15677
15499	15678	=begin original
15500	15679
15501	15680	An example disabling Nagle's algorithm on a socket:
15502	15681
15503	15682	=end original
15504	15683
15505	15684	ソケットに対する Nagle のアルゴリズムを無効にする例です:
15506	15685
15507	15686	use Socket qw(IPPROTO_TCP TCP_NODELAY);
15508	15687	setsockopt($socket, IPPROTO_TCP, TCP_NODELAY, 1);
15509	15688
15510	15689	=begin original
15511	15690
15512	15691	Portability issues: L<perlport/setsockopt>.
15513	15692
15514	15693	=end original
15515	15694
15516	15695	移植性の問題: L<perlport/setsockopt>。
15517	15696
15518	15697	=item shift ARRAY
15519	15698	X<shift>
15520	15699
15521	15700	=item shift
15522	15701
15523	15702	=for Pod::Functions remove the first element of an array, and return it
15524	15703
15525	15704	=begin original
15526	15705
15527	15706	Shifts the first value of the array off and returns it, shortening the
15528	15707	array by 1 and moving everything down. If there are no elements in the
15529	15708	array, returns the undefined value. If ARRAY is omitted, shifts the
15530	15709	L<C<@_>\|perlvar/@_> array within the lexical scope of subroutines and
15531	15710	formats, and the L<C<@ARGV>\|perlvar/@ARGV> array outside a subroutine
15532	15711	and also within the lexical scopes
15533	15712	established by the C<eval STRING>, C<BEGIN {}>, C<INIT {}>, C<CHECK {}>,
15534	15713	C<UNITCHECK {}>, and C<END {}> constructs.
15535	15714
15536	15715	=end original
15537	15716
15538	15717	配列の最初の値を取り出して、その値を返し、配列を一つ短くして、すべての要素を
15539	15718	前へずらします。
15540	15719	配列に要素がなければ、未定義値を返します。
15541	15720	ARRAY を省略すると、サブルーチンやフォーマットのレキシカルスコープでは
15542	15721	L<C<@_>\|perlvar/@_> を、サブルーチンの外側で、C<eval STRING>, C<BEGIN {}>,
15543	15722	C<INIT {}>, C<CHECK {}>, C<UNITCHECK {}>, C<END {}> で作成された
15544	15723	レキシカルスコープでは L<C<@ARGV>\|perlvar/@ARGV> が用いられます。
15545	15724
15546	15725	=begin original
15547	15726
15548	15727	Starting with Perl 5.14, an experimental feature allowed
15549	15728	L<C<shift>\|/shift ARRAY> to take a
15550	15729	scalar expression. This experiment has been deemed unsuccessful, and was
15551	15730	removed as of Perl 5.24.
15552	15731
15553	15732	=end original
15554	15733
15555	15734	Perl 5.14 から、L<C<shift>\|/shift ARRAY> がスカラ式を取ることが出来るという
15556	15735	実験的機能がありました。
15557	15736	この実験は失敗と見なされ、Perl 5.24 で削除されました。
15558	15737
15559	15738	=begin original
15560	15739
15561	15740	See also L<C<unshift>\|/unshift ARRAY,LIST>, L<C<push>\|/push ARRAY,LIST>,
15562	15741	and L<C<pop>\|/pop ARRAY>. L<C<shift>\|/shift ARRAY> and
15563	15742	L<C<unshift>\|/unshift ARRAY,LIST> do the same thing to the left end of
15564	15743	an array that L<C<pop>\|/pop ARRAY> and L<C<push>\|/push ARRAY,LIST> do to
15565	15744	the right end.
15566	15745
15567	15746	=end original
15568	15747
15569	15748	L<C<unshift>\|/unshift ARRAY,LIST>、L<C<push>\|/push ARRAY,LIST>、
15570	15749	L<C<pop>\|/pop ARRAY> も参照してください。
15571	15750	L<C<shift>\|/shift ARRAY> と L<C<unshift>\|/unshift ARRAY,LIST> は、
15572	15751	L<C<pop>\|/pop ARRAY> と L<C<push>\|/push ARRAY,LIST> が配列の右端で
15573	15752	行なうことを、左端で行ないます。
15574	15753
15575	15754	=item shmctl ID,CMD,ARG
15576	15755	X<shmctl>
15577	15756
15578	15757	=for Pod::Functions SysV shared memory operations
15579	15758
15580	15759	=begin original
15581	15760
15582	15761	Calls the System V IPC function shmctl. You'll probably have to say
15583	15762
15584	15763	=end original
15585	15764
15586	15765	System V IPC 関数 shmctl を呼び出します。
15587	15766	正しい定数定義を得るために、まず
15588	15767
15589	15768	use IPC::SysV;
15590	15769
15591	15770	=begin original
15592	15771
15593	15772	first to get the correct constant definitions. If CMD is C<IPC_STAT>,
15594	15773	then ARG must be a variable that will hold the returned C<shmid_ds>
15595	15774	structure. Returns like ioctl: L<C<undef>\|/undef EXPR> for error; "C<0>
15596	15775	but true" for zero; and the actual return value otherwise.
15597	15776	See also L<perlipc/"SysV IPC"> and the documentation for
15598	15777	L<C<IPC::SysV>\|IPC::SysV>.
15599	15778
15600	15779	=end original
15601	15780
15602	15781	と書くことが必要でしょう。
15603	15782	CMD が、C<IPC_STAT> ならば、ARG は、返される C<shmid_ds> 構造体を
15604	15783	納める変数でなければなりません。
15605	15784	ioctl と同様です: エラー時には L<C<undef>\|/undef EXPR>; ゼロのときは
15606	15785	"C<0> だが真"; それ以外なら、その値そのものを返します。
15607		L<perlipc/"SysV IPC"> と L<C<IPC::SysV>\|IPC::SysV> の文書も~~参照してください。~~
	15786	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> の文書も
	15787	参照してください。
15608	15788
15609	15789	=begin original
15610	15790
15611	15791	Portability issues: L<perlport/shmctl>.
15612	15792
15613	15793	=end original
15614	15794
15615	15795	移植性の問題: L<perlport/shmctl>。
15616	15796
15617	15797	=item shmget KEY,SIZE,FLAGS
15618	15798	X<shmget>
15619	15799
15620	15800	=for Pod::Functions get SysV shared memory segment identifier
15621	15801
15622	15802	=begin original
15623	15803
15624	15804	Calls the System V IPC function shmget. Returns the shared memory
15625	15805	segment id, or L<C<undef>\|/undef EXPR> on error.
15626	15806	See also L<perlipc/"SysV IPC"> and the documentation for
15627	15807	L<C<IPC::SysV>\|IPC::SysV>.
15628	15808
15629	15809	=end original
15630	15810
15631	15811	System V IPC 関数 shmget を呼び出します。
15632	15812	共有メモリのセグメント ID か、エラー時には L<C<undef>\|/undef EXPR> を返します。
15633		L<perlipc/"SysV IPC"> と L<C<IPC::SysV>\|IPC::SysV> の文書も~~参照してください。~~
	15813	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> の文書も
	15814	参照してください。
15634	15815
15635	15816	=begin original
15636	15817
15637	15818	Portability issues: L<perlport/shmget>.
15638	15819
15639	15820	=end original
15640	15821
15641	15822	移植性の問題: L<perlport/shmget>。
15642	15823
15643	15824	=item shmread ID,VAR,POS,SIZE
15644	15825	X<shmread>
15645	15826	X<shmwrite>
15646	15827
15647	15828	=for Pod::Functions read SysV shared memory
15648	15829
15649	15830	=item shmwrite ID,STRING,POS,SIZE
15650	15831
15651	15832	=for Pod::Functions write SysV shared memory
15652	15833
15653	15834	=begin original
15654	15835
15655	15836	Reads or writes the System V shared memory segment ID starting at
15656	15837	position POS for size SIZE by attaching to it, copying in/out, and
15657	15838	detaching from it. When reading, VAR must be a variable that will
15658	15839	hold the data read. When writing, if STRING is too long, only SIZE
15659	15840	bytes are used; if STRING is too short, nulls are written to fill out
15660	15841	SIZE bytes. Return true if successful, false on error.
15661	15842	L<C<shmread>\|/shmread ID,VAR,POS,SIZE> taints the variable. See also
15662	15843	L<perlipc/"SysV IPC"> and the documentation for
15663	15844	L<C<IPC::SysV>\|IPC::SysV> and the L<C<IPC::Shareable>\|IPC::Shareable>
15664	15845	module from CPAN.
15665	15846
15666	15847	=end original
15667	15848
15668	15849	System V 共有メモリセグメント ID に対し、アタッチして、コピーを行ない、
15669	15850	デタッチするという形で、位置 POS から、サイズ SIZE だけ、読み込みか書き込みを
15670	15851	行ないます。
15671	15852	読み込み時には、VAR は読み込んだデータを納める変数でなければなりません。
15672	15853	書き込み時には、STRING が長すぎても、SIZE バイトだけが使われます; STRING が
15673	15854	短すぎる場合には、SIZE バイトを埋めるために、ヌル文字が書き込まれます。
15674	15855	成功時には真を、エラー時には偽を返します。
15675	15856	L<C<shmread>\|/shmread ID,VAR,POS,SIZE> は変数を汚染します。
15676	15857	L<perlipc/"SysV IPC"> および、L<C<IPC::SysV>\|IPC::SysV> と CPAN の
15677	15858	L<C<IPC::Shareable>\|IPC::Shareable> の文書も参照してください。
15678	15859
15679	15860	=begin original
15680	15861
15681	15862	Portability issues: L<perlport/shmread> and L<perlport/shmwrite>.
15682	15863
15683	15864	=end original
15684	15865
15685	15866	移植性の問題: L<perlport/shmread> と L<perlport/shmwrite>。
15686	15867
15687	15868	=item shutdown SOCKET,HOW
15688	15869	X<shutdown>
15689	15870
15690	15871	=for Pod::Functions close down just half of a socket connection
15691	15872
15692	15873	=begin original
15693	15874
15694	15875	Shuts down a socket connection in the manner indicated by HOW, which
15695	15876	has the same interpretation as in the syscall of the same name.
15696	15877
15697	15878	=end original
15698	15879
15699	15880	同名のシステムコールと同じように解釈される HOW によって、
15700	15881	指定された方法でソケット接続のシャットダウンを行ないます。
15701	15882
15702	15883	shutdown($socket, 0); # I/we have stopped reading data
15703	15884	shutdown($socket, 1); # I/we have stopped writing data
15704	15885	shutdown($socket, 2); # I/we have stopped using this socket
15705	15886
15706	15887	=begin original
15707	15888
15708	15889	This is useful with sockets when you want to tell the other
15709	15890	side you're done writing but not done reading, or vice versa.
15710	15891	It's also a more insistent form of close because it also
15711	15892	disables the file descriptor in any forked copies in other
15712	15893	processes.
15713	15894
15714	15895	=end original
15715	15896
15716	15897	これは、こちらがソケットを書き終わったが読み終わっていない、
15717	15898	またはその逆を相手側に伝えたいときに便利です。
15718	15899	これはその他のプロセスでフォークしたファイル記述子のコピーも
15719	15900	無効にするので、よりしつこい閉じ方です。
15720	15901
15721	15902	=begin original
15722	15903
15723	15904	Returns C<1> for success; on error, returns L<C<undef>\|/undef EXPR> if
15724	15905	the first argument is not a valid filehandle, or returns C<0> and sets
15725	15906	L<C<$!>\|perlvar/$!> for any other failure.
15726	15907
15727	15908	=end original
15728	15909
15729	15910	成功時には C<1> を返します;
15730	15911	エラーの場合、最初の引数が有効なファイルハンドルでない場合は
15731	15912	L<C<undef>\|/undef EXPR> を返し、その他のエラーの場合は C<0> を返して
15732	15913	L<C<$!>\|perlvar/$!> をセットします。
15733	15914
15734	15915	=item sin EXPR
15735	15916	X<sin> X<sine> X<asin> X<arcsine>
15736	15917
15737	15918	=item sin
15738	15919
15739	15920	=for Pod::Functions return the sine of a number
15740	15921
15741	15922	=begin original
15742	15923
15743	15924	Returns the sine of EXPR (expressed in radians). If EXPR is omitted,
15744	15925	returns sine of L<C<$_>\|perlvar/$_>.
15745	15926
15746	15927	=end original
15747	15928
15748	15929	(ラジアンで示した) EXPR の正弦を返します。
15749	15930	EXPR が省略されたときには、L<C<$_>\|perlvar/$_> の正弦を返します。
15750	15931
15751	15932	=begin original
15752	15933
15753	15934	For the inverse sine operation, you may use the C<Math::Trig::asin>
15754	15935	function, or use this relation:
15755	15936
15756	15937	=end original
15757	15938
15758	15939	逆正弦を求めるためには、C<Math::Trig::asin> 関数を使うか、
15759	15940	以下の関係を使ってください:
15760	15941
15761	15942	sub asin { atan2($_[0], sqrt(1 - $_[0] * $_[0])) }
15762	15943
15763	15944	=item sleep EXPR
15764	15945	X<sleep> X<pause>
15765	15946
15766	15947	=item sleep
15767	15948
15768	15949	=for Pod::Functions block for some number of seconds
15769	15950
15770	15951	=begin original
15771	15952
15772	15953	Causes the script to sleep for (integer) EXPR seconds, or forever if no
15773	15954	argument is given. Returns the integer number of seconds actually slept.
15774	15955
15775	15956	=end original
15776	15957
15777	15958	スクリプトを(整数の) EXPR で指定した秒数 (省略時には、永久に)
15778	15959	スリープさせます。
15779	15960	実際にスリープした秒数を返します。
15780	15961
15781	15962	=begin original
15782	15963
	15964	EXPR should be a positive integer. If called with a negative integer,
	15965	L<C<sleep>\|/sleep EXPR> does not sleep but instead emits a warning, sets
	15966	$! (C<errno>), and returns zero.
	15967
	15968	=end original
	15969
	15970	EXPR は正の整数である必要があります。
	15971	負の整数で呼び出すと、 L<C<sleep>\|/sleep EXPR> はスリープせず、
	15972	警告を出力して、$! (C<errno>) を設定し、ゼロを返します。
	15973
	15974	=begin original
	15975
	15976	C<sleep 0> is permitted, but a function call to the underlying platform
	15977	implementation still occurs, with any side effects that may have.
	15978	C<sleep 0> is therefore not exactly identical to not sleeping at all.
	15979
	15980	=end original
	15981
	15982	C<sleep 0> は許されていますが、基となるプラットフォーム実装への
	15983	関数呼び出しはやはり行われ、どのような副作用も起こり得ます。
	15984	従って、C<sleep 0> は全くスリープしないのと正確に同じではありません。
	15985
	15986	=begin original
	15987
15783	15988	May be interrupted if the process receives a signal such as C<SIGALRM>.
15784	15989
15785	15990	=end original
15786	15991
15787	15992	そのプロセスが C<SIGALRM>のようなシグナルを受信すると、
15788	15993	割り込みがかかります。
15789	15994
15790	15995	eval {
15791	15996	local $SIG{ALRM} = sub { die "Alarm!\n" };
15792	15997	sleep;
15793	15998	};
15794	15999	die $@ unless $@ eq "Alarm!\n";
15795	16000
15796	16001	=begin original
15797	16002
15798	16003	You probably cannot mix L<C<alarm>\|/alarm SECONDS> and
15799	16004	L<C<sleep>\|/sleep EXPR> calls, because L<C<sleep>\|/sleep EXPR> is often
15800	16005	implemented using L<C<alarm>\|/alarm SECONDS>.
15801	16006
15802	16007	=end original
15803	16008
15804	16009	L<C<sleep>\|/sleep EXPR> は、L<C<alarm>\|/alarm SECONDS> を使って
15805	16010	実装されることが多いので、L<C<alarm>\|/alarm SECONDS> と
15806	16011	L<C<sleep>\|/sleep EXPR> は、混ぜて使用することはおそらくできません。
15807	16012
15808	16013	=begin original
15809	16014
15810	16015	On some older systems, it may sleep up to a full second less than what
15811	16016	you requested, depending on how it counts seconds. Most modern systems
15812	16017	always sleep the full amount. They may appear to sleep longer than that,
15813	16018	however, because your process might not be scheduled right away in a
15814	16019	busy multitasking system.
15815	16020
15816	16021	=end original
15817	16022
15818	16023	古いシステムでは、どのように秒を数えるかによって、要求した秒数に完全に
15819	16024	満たないうちに、スリープから抜ける場合があります。
15820	16025	最近のシステムでは、常に完全にスリープします。
15821	16026	しかし、負荷の高いマルチタスクシステムでは
15822	16027	正しくスケジューリングされないがために
15823	16028	より長い時間スリープすることがあります。
15824	16029
15825	16030	=begin original
15826	16031
15827	16032	For delays of finer granularity than one second, the L<Time::HiRes>
15828	16033	module (from CPAN, and starting from Perl 5.8 part of the standard
15829	16034	distribution) provides L<C<usleep>\|Time::HiRes/usleep ( $useconds )>.
15830	16035	You may also use Perl's four-argument
15831	16036	version of L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> leaving the
15832	16037	first three arguments undefined, or you might be able to use the
15833	16038	L<C<syscall>\|/syscall NUMBER, LIST> interface to access L<setitimer(2)>
15834	16039	if your system supports it. See L<perlfaq8> for details.
15835	16040
15836	16041	=end original
15837	16042
15838	16043	1 秒より精度の高いスリープを行なうには、L<Time::HiRes> モジュール(CPAN から、
15839	16044	また Perl 5.8 からは標準配布されています) が
15840	16045	L<C<usleep>\|Time::HiRes/usleep ( $useconds )> を提供します。
15841	16046	Perl の 4 引数版 L<C<select>\|/select RBITS,WBITS,EBITS,TIMEOUT> を最初の
15842	16047	3 引数を未定義にして使うか、L<setitimer(2)> をサポートしているシステムでは、
15843	16048	Perl の L<C<syscall>\|/syscall NUMBER, LIST> インタフェースを使って
15844	16049	アクセスすることもできます。
15845	16050	詳しくは L<perlfaq8> を参照してください。
15846	16051
15847	16052	=begin original
15848	16053
15849	16054	See also the L<POSIX> module's L<C<pause>\|POSIX/C<pause>> function.
15850	16055
15851	16056	=end original
15852	16057
15853	16058	L<POSIX> モジュールの L<C<pause>\|POSIX/C<pause>> 関数も参照してください。
15854	16059
15855	16060	=item socket SOCKET,DOMAIN,TYPE,PROTOCOL
15856	16061	X<socket>
15857	16062
15858	16063	=for Pod::Functions create a socket
15859	16064
15860	16065	=begin original
15861	16066
15862	16067	Opens a socket of the specified kind and attaches it to filehandle
15863	16068	SOCKET. DOMAIN, TYPE, and PROTOCOL are specified the same as for
15864	16069	the syscall of the same name. You should C<use Socket> first
15865	16070	to get the proper definitions imported. See the examples in
15866	16071	L<perlipc/"Sockets: Client/Server Communication">.
15867	16072
15868	16073	=end original
15869	16074
15870	16075	指定した種類のソケットをオープンし、ファイルハンドル SOCKET にアタッチします。
15871	16076	DOMAIN, TYPE, PROTOCOL は、同名のシステムコールと同じように指定します。
15872	16077	適切な定義を import するために、まず、C<use Socket> とするとよいでしょう。
15873	16078	L<perlipc/"Sockets: Client/Server Communication"> の例を参照してください。
15874	16079
15875	16080	=begin original
15876	16081
15877	16082	On systems that support a close-on-exec flag on files, the flag will
15878	16083	be set for the newly opened file descriptor, as determined by the
15879	16084	value of L<C<$^F>\|perlvar/$^F>. See L<perlvar/$^F>.
15880	16085
15881	16086	=end original
15882	16087
15883	16088	ファイルに対する close-on-exec フラグをサポートしているシステムでは、
15884	16089	フラグは L<C<$^F>\|perlvar/$^F> の値で決定される、新しくオープンされた
15885	16090	ファイル記述子に対してセットされます。
15886	16091	L<perlvar/$^F> を参照してください。
15887	16092
15888	16093	=item socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL
15889	16094	X<socketpair>
15890	16095
15891	16096	=for Pod::Functions create a pair of sockets
15892	16097
15893	16098	=begin original
15894	16099
15895	16100	Creates an unnamed pair of sockets in the specified domain, of the
15896	16101	specified type. DOMAIN, TYPE, and PROTOCOL are specified the same as
15897	16102	for the syscall of the same name. If unimplemented, raises an exception.
15898	16103	Returns true if successful.
15899	16104
15900	16105	=end original
15901	16106
15902	16107	指定した DOMAIN に、指定した TYPE で名前の無いソケットのペアを生成します。
15903	16108	DOMAIN, TYPE, PROTOCOL は、同名のシステムコールと同じように指定します。
15904	16109	実装されていない場合には、例外が発生します。
15905	16110	成功時には真を返します。
15906	16111
15907	16112	=begin original
15908	16113
15909	16114	On systems that support a close-on-exec flag on files, the flag will
15910	16115	be set for the newly opened file descriptors, as determined by the value
15911	16116	of L<C<$^F>\|perlvar/$^F>. See L<perlvar/$^F>.
15912	16117
15913	16118	=end original
15914	16119
15915	16120	ファイルに対する close-on-exec フラグをサポートしているシステムでは、
15916	16121	フラグは L<C<$^F>\|perlvar/$^F> の値で決定される、新しくオープンされた
15917	16122	ファイル記述子に対してセットされます。
15918	16123	L<perlvar/$^F> を参照してください。
15919	16124
15920	16125	=begin original
15921	16126
15922	16127	Some systems define L<C<pipe>\|/pipe READHANDLE,WRITEHANDLE> in terms of
15923	16128	L<C<socketpair>\|/socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL>, in
15924	16129	which a call to C<pipe($rdr, $wtr)> is essentially:
15925	16130
15926	16131	=end original
15927	16132
15928	16133	L<C<pipe>\|/pipe READHANDLE,WRITEHANDLE> を
15929	16134	L<C<socketpair>\|/socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL> を使って
15930	16135	定義しているシステムもあります;
15931	16136	C<pipe($rdr, $wtr)> は本質的には以下のようになります:
15932	16137
15933	16138	use Socket;
15934	16139	socketpair(my $rdr, my $wtr, AF_UNIX, SOCK_STREAM, PF_UNSPEC);
15935	16140	shutdown($rdr, 1); # no more writing for reader
15936	16141	shutdown($wtr, 0); # no more reading for writer
15937	16142
15938	16143	=begin original
15939	16144
15940	16145	See L<perlipc> for an example of socketpair use. Perl 5.8 and later will
15941	16146	emulate socketpair using IP sockets to localhost if your system implements
15942	16147	sockets but not socketpair.
15943	16148
15944	16149	=end original
15945	16150
15946	16151	socketpair の使用例については L<perlipc> を参照してください。
15947	16152	Perl 5.8 以降では、システムがソケットを実装しているが socketpair を
15948	16153	実装していない場合、localhost に対して IP ソケットを使うことで
15949	16154	socketpair をエミュレートします。
15950	16155
15951	16156	=begin original
15952	16157
15953	16158	Portability issues: L<perlport/socketpair>.
15954	16159
15955	16160	=end original
15956	16161
15957	16162	移植性の問題: L<perlport/socketpair>。
15958	16163
15959	16164	=item sort SUBNAME LIST
15960	16165	X<sort>
15961	16166
15962	16167	=item sort BLOCK LIST
15963	16168
15964	16169	=item sort LIST
15965	16170
15966	16171	=for Pod::Functions sort a list of values
15967	16172
15968	16173	=begin original
15969	16174
15970	16175	In list context, this sorts the LIST and returns the sorted list value.
15971	16176	In scalar context, the behaviour of L<C<sort>\|/sort SUBNAME LIST> is
15972	16177	undefined.
15973	16178
15974	16179	=end original
15975	16180
15976	16181	リストコンテキストでは、LIST をソートし、ソートされたリスト値を返します。
15977	16182	スカラコンテキストでは、L<C<sort>\|/sort SUBNAME LIST> の振る舞いは未定義です。
15978	16183
15979	16184	=begin original
15980	16185
15981	16186	If SUBNAME or BLOCK is omitted, L<C<sort>\|/sort SUBNAME LIST>s in
15982	16187	standard string comparison
15983	16188	order. If SUBNAME is specified, it gives the name of a subroutine
15984	16189	that returns an integer less than, equal to, or greater than C<0>,
15985	16190	depending on how the elements of the list are to be ordered. (The
15986	16191	C<< <=> >> and C<cmp> operators are extremely useful in such routines.)
15987	16192	SUBNAME may be a scalar variable name (unsubscripted), in which case
15988	16193	the value provides the name of (or a reference to) the actual
15989	16194	subroutine to use. In place of a SUBNAME, you can provide a BLOCK as
15990	16195	an anonymous, in-line sort subroutine.
15991	16196
15992	16197	=end original
15993	16198
15994	16199	SUBNAME や BLOCK を省略すると、L<C<sort>\|/sort SUBNAME LIST> は標準の
15995	16200	文字列比較の順番で行なわれます。
15996	16201	SUBNAME を指定すると、それは、リストの要素をどのような順番に並べるかに
15997	16202	応じて、負の整数、C<0>、正の整数を返すサブルーチンの名前であると解釈されます。
15998	16203	(このようなルーチンには、C<< <=> >> 演算子や C<cmp> 演算子が、
15999	16204	たいへん便利です。)
16000	16205	SUBNAME は、スカラ変数名(添字なし)でもよく、その場合には、その値が使用する
16001	16206	実際のサブルーチンの名前(またはそのリファレンス)と解釈されます。
16002	16207	SUBNAME の代わりに、無名のインラインソートルーチンとして、BLOCK を
16003	16208	書くことができます。
16004	16209
16005	16210	=begin original
16006	16211
16007	16212	If the subroutine's prototype is C<($$)>, the elements to be compared are
16008	16213	passed by reference in L<C<@_>\|perlvar/@_>, as for a normal subroutine.
16009	16214	This is slower than unprototyped subroutines, where the elements to be
16010	16215	compared are passed into the subroutine as the package global variables
16011	16216	C<$a> and C<$b> (see example below).
16012	16217
16013	16218	=end original
16014	16219
16015	16220	サブルーチンのプロトタイプが C<($$)>の場合、比較する要素は通常のサブルーチンと
16016	16221	同じように L<C<@_>\|perlvar/@_> の中にリファレンスとして渡されます。
16017	16222	これはプロトタイプなしのサブルーチンより遅いです; この場合は比較のため
16018	16223	サブルーチンに渡される二つの要素は、パッケージのグローバル変数 C<$a> と
16019	16224	C<$b> で渡されます(次の例を参照してください)。
16020	16225
16021	16226	=begin original
16022	16227
16023	16228	If the subroutine is an XSUB, the elements to be compared are pushed on
16024	16229	to the stack, the way arguments are usually passed to XSUBs. C<$a> and
16025	16230	C<$b> are not set.
16026	16231
16027	16232	=end original
16028	16233
16029	16234	サブルーチンが XSUB の場合、比較される要素は、普通に引数を XSUB に渡す形で、
16030	16235	スタックにプッシュされます。
16031	16236	C<$a> と C<$b> は設定されません。
16032	16237
16033	16238	=begin original
16034	16239
16035	16240	The values to be compared are always passed by reference and should not
16036	16241	be modified.
16037	16242
16038	16243	=end original
16039	16244
16040	16245	比較される値はリファレンスによって渡されるので、変更するべきではありません。
16041	16246
16042	16247	=begin original
16043	16248
16044	16249	You also cannot exit out of the sort block or subroutine using any of the
16045	16250	loop control operators described in L<perlsyn> or with
16046	16251	L<C<goto>\|/goto LABEL>.
16047	16252
16048	16253	=end original
16049	16254
16050	16255	また、ソートブロックやサブルーチンから L<perlsyn> で説明されている
16051	16256	ループ制御子や L<C<goto>\|/goto LABEL> を使って抜けてはいけません。
16052	16257
16053	16258	=begin original
16054	16259
16055	16260	When L<C<use locale>\|locale> (but not C<use locale ':not_characters'>)
16056	16261	is in effect, C<sort LIST> sorts LIST according to the
16057	16262	current collation locale. See L<perllocale>.
16058	16263
16059	16264	=end original
16060	16265
16061	16266	L<C<use locale>\|locale> が有効(そして C<use locale ':not_characters'> が
16062	16267	有効でない)の場合、C<sort LIST> は LIST を現在の比較ロケールに従って
16063	16268	ソートします。
16064	16269	L<perllocale> を参照してください。
16065	16270
16066	16271	=begin original
16067	16272
16068	16273	L<C<sort>\|/sort SUBNAME LIST> returns aliases into the original list,
16069	16274	much as a for loop's index variable aliases the list elements. That is,
16070	16275	modifying an element of a list returned by L<C<sort>\|/sort SUBNAME LIST>
16071	16276	(for example, in a C<foreach>, L<C<map>\|/map BLOCK LIST> or
16072	16277	L<C<grep>\|/grep BLOCK LIST>)
16073	16278	actually modifies the element in the original list. This is usually
16074	16279	something to be avoided when writing clear code.
16075	16280
16076	16281	=end original
16077	16282
16078	16283	L<C<sort>\|/sort SUBNAME LIST> は元のリストへのエイリアスを返します;
16079	16284	for ループのインデックス変数がリスト要素へのエイリアスと同様です。
16080	16285	つまり、L<C<sort>\|/sort SUBNAME LIST> で返されるリストの要素を(例えば、
16081	16286	C<foreach> や L<C<map>\|/map BLOCK LIST> や
16082	16287	L<C<grep>\|/grep BLOCK LIST> で)変更すると、実際に元のリストの要素が
16083	16288	変更されます。
16084	16289	これはきれいなコードを書くときには普通は回避されます。
16085	16290
16086	16291	=begin original
16087	16292
16088	16293	Historically Perl has varied in whether sorting is stable by default.
16089	16294	If stability matters, it can be controlled explicitly by using the
16090	16295	L<sort> pragma.
16091	16296
16092	16297	=end original
16093	16298
16094	16299	歴史的には、ソートがデフォルトで安定かどうかは様々です。
16095	16300	安定性が問題になる場合は、L<sort> プラグマを使うことで明示的に制御できます。
16096	16301
16097	16302	=begin original
16098	16303
16099	16304	Examples:
16100	16305
16101	16306	=end original
16102	16307
16103	16308	例:
16104	16309
16105	16310	# sort lexically
16106	16311	my @articles = sort @files;
16107	16312
16108	16313	# same thing, but with explicit sort routine
16109	16314	my @articles = sort {$a cmp $b} @files;
16110	16315
16111	16316	# now case-insensitively
16112	16317	my @articles = sort {fc($a) cmp fc($b)} @files;
16113	16318
16114	16319	# same thing in reversed order
16115	16320	my @articles = sort {$b cmp $a} @files;
16116	16321
16117	16322	# sort numerically ascending
16118	16323	my @articles = sort {$a <=> $b} @files;
16119	16324
16120	16325	# sort numerically descending
16121	16326	my @articles = sort {$b <=> $a} @files;
16122	16327
16123	16328	# this sorts the %age hash by value instead of key
16124	16329	# using an in-line function
16125	16330	my @eldest = sort { $age{$b} <=> $age{$a} } keys %age;
16126	16331
16127	16332	# sort using explicit subroutine name
16128	16333	sub byage {
16129	16334	$age{$a} <=> $age{$b}; # presuming numeric
16130	16335	}
16131	16336	my @sortedclass = sort byage @class;
16132	16337
16133	16338	sub backwards { $b cmp $a }
16134	16339	my @harry = qw(dog cat x Cain Abel);
16135	16340	my @george = qw(gone chased yz Punished Axed);
16136	16341	print sort @harry;
16137	16342	# prints AbelCaincatdogx
16138	16343	print sort backwards @harry;
16139	16344	# prints xdogcatCainAbel
16140	16345	print sort @george, 'to', @harry;
16141	16346	# prints AbelAxedCainPunishedcatchaseddoggonetoxyz
16142	16347
16143	16348	# inefficiently sort by descending numeric compare using
16144	16349	# the first integer after the first = sign, or the
16145	16350	# whole record case-insensitively otherwise
16146	16351
16147	16352	my @new = sort {
16148	16353	($b =~ /=(\d+)/)[0] <=> ($a =~ /=(\d+)/)[0]
16149	16354	\|\|
16150	16355	fc($a) cmp fc($b)
16151	16356	} @old;
16152	16357
16153	16358	# same thing, but much more efficiently;
16154	16359	# we'll build auxiliary indices instead
16155	16360	# for speed
16156	16361	my (@nums, @caps);
16157	16362	for (@old) {
16158	16363	push @nums, ( /=(\d+)/ ? $1 : undef );
16159	16364	push @caps, fc($_);
16160	16365	}
16161	16366
16162	16367	my @new = @old[ sort {
16163	16368	$nums[$b] <=> $nums[$a]
16164	16369	\|\|
16165	16370	$caps[$a] cmp $caps[$b]
16166	16371	} 0..$#old
16167	16372	];
16168	16373
16169	16374	# same thing, but without any temps
16170	16375	my @new = map { $_->[0] }
16171	16376	sort { $b->[1] <=> $a->[1]
16172	16377	\|\|
16173	16378	$a->[2] cmp $b->[2]
16174	16379	} map { [$_, /=(\d+)/, fc($_)] } @old;
16175	16380
16176	16381	# using a prototype allows you to use any comparison subroutine
16177	16382	# as a sort subroutine (including other package's subroutines)
16178	16383	package Other;
16179	16384	sub backwards ($$) { $_[1] cmp $_[0]; } # $a and $b are
16180	16385	# not set here
16181	16386	package main;
16182	16387	my @new = sort Other::backwards @old;
16183	16388
	16389	## using a prototype with function signature
	16390	use feature 'signatures';
	16391	sub function_with_signature :prototype($$) ($one, $two) {
	16392	return $one <=> $two
	16393	}
	16394
	16395	my @new = sort function_with_signature @old;
	16396
16184	16397	# guarantee stability
16185	16398	use sort 'stable';
16186	16399	my @new = sort { substr($a, 3, 5) cmp substr($b, 3, 5) } @old;
16187	16400
16188	16401	=begin original
16189	16402
16190	16403	Warning: syntactical care is required when sorting the list returned from
16191	16404	a function. If you want to sort the list returned by the function call
16192	16405	C<find_records(@key)>, you can use:
16193	16406
16194	16407	=end original
16195	16408
16196	16409	警告: 関数から返されたリストをソートするときには文法上の注意が必要です。
16197	16410	関数呼び出し C<find_records(@key)> から返されたリストをソートしたい場合、
16198	16411	以下のように出来ます:
16199	16412
16200	16413	my @contact = sort { $a cmp $b } find_records @key;
16201	16414	my @contact = sort +find_records(@key);
16202	16415	my @contact = sort &find_records(@key);
16203	16416	my @contact = sort(find_records(@key));
16204	16417
16205	16418	=begin original
16206	16419
16207	16420	If instead you want to sort the array C<@key> with the comparison routine
16208	16421	C<find_records()> then you can use:
16209	16422
16210	16423	=end original
16211	16424
16212	16425	一方、配列 C<@key> を比較ルーチン C<find_records()> でソートしたい場合は、
16213	16426	以下のように出来ます:
16214	16427
16215	16428	my @contact = sort { find_records() } @key;
16216	16429	my @contact = sort find_records(@key);
16217	16430	my @contact = sort(find_records @key);
16218	16431	my @contact = sort(find_records (@key));
16219	16432
16220	16433	=begin original
16221	16434
16222	16435	C<$a> and C<$b> are set as package globals in the package the sort() is
16223	16436	called from. That means C<$main::a> and C<$main::b> (or C<$::a> and
16224	16437	C<$::b>) in the C<main> package, C<$FooPack::a> and C<$FooPack::b> in the
16225	16438	C<FooPack> package, etc. If the sort block is in scope of a C<my> or
16226	16439	C<state> declaration of C<$a> and/or C<$b>, you I<must> spell out the full
16227	16440	name of the variables in the sort block :
16228	16441
16229	16442	=end original
16230	16443
16231	16444	C<$a> と C<$b> は、sort() を呼び出したパッケージのパッケージグローバルとして
16232	16445	設定されます。
16233	16446	つまり、C<main> パッケージの C<$main::a> と C<$main::b>
16234	16447	(あるいは C<$::a> と C<$::b>) 、
16235	16448	C<FooPack> パッケージの C<$FooPack::a> と C<$FooPack::b>、などです。
16236	16449	ソートブロックが C<$a> や C<$b> の C<my> または C<state> のスコープ内の場合、
16237	16450	ソートブロックの変数の完全名を I<指定しなければなりません>:
16238	16451
16239	16452	package main;
16240	16453	my $a = "C"; # DANGER, Will Robinson, DANGER !!!
16241	16454
16242	16455	print sort { $a cmp $b } qw(A C E G B D F H);
16243	16456	# WRONG
16244	16457	sub badlexi { $a cmp $b }
16245	16458	print sort badlexi qw(A C E G B D F H);
16246	16459	# WRONG
16247	16460	# the above prints BACFEDGH or some other incorrect ordering
16248	16461
16249	16462	print sort { $::a cmp $::b } qw(A C E G B D F H);
16250	16463	# OK
16251	16464	print sort { our $a cmp our $b } qw(A C E G B D F H);
16252	16465	# also OK
16253	16466	print sort { our ($a, $b); $a cmp $b } qw(A C E G B D F H);
16254	16467	# also OK
16255	16468	sub lexi { our $a cmp our $b }
16256	16469	print sort lexi qw(A C E G B D F H);
16257	16470	# also OK
16258	16471	# the above print ABCDEFGH
16259	16472
16260	16473	=begin original
16261	16474
16262	16475	With proper care you may mix package and my (or state) C<$a> and/or C<$b>:
16263	16476
16264	16477	=end original
16265	16478
16266	16479	適切に注意すれば、パッケージと my (あるいは state) C<$a> や C<$b> を
16267	16480	混ぜることができます:
16268	16481
16269	16482	my $a = {
16270	16483	tiny => -2,
16271	16484	small => -1,
16272	16485	normal => 0,
16273	16486	big => 1,
16274	16487	huge => 2
16275	16488	};
16276	16489
16277	16490	say sort { $a->{our $a} <=> $a->{our $b} }
16278	16491	qw{ huge normal tiny small big};
16279	16492
16280	16493	# prints tinysmallnormalbighuge
16281	16494
16282	16495	=begin original
16283	16496
16284	16497	C<$a> and C<$b> are implicitly local to the sort() execution and regain their
16285	16498	former values upon completing the sort.
16286	16499
16287	16500	=end original
16288	16501
16289	16502	C<$a> と C<$b> は sort() の実行中は暗黙にローカル化され、ソート終了時に
16290	16503	元の値に戻ります。
16291	16504
16292	16505	=begin original
16293	16506
16294	16507	Sort subroutines written using C<$a> and C<$b> are bound to their calling
16295	16508	package. It is possible, but of limited interest, to define them in a
16296	16509	different package, since the subroutine must still refer to the calling
16297	16510	package's C<$a> and C<$b> :
16298	16511
16299	16512	=end original
16300	16513
16301	16514	C<$a> と C<$b> を使って書かれたソートサブルーチンはその呼び出しパッケージに
16302	16515	しなければなりません。
16303	16516	異なるパッケージに定義することは可能ですが、
16304	16517	これは可能ですが、限られた関心しかありません;
16305	16518	サブルーチンは呼び出しパッケージの C<$a> と C<$b> を
16306	16519	参照しなければならないからです:
16307	16520
16308	16521	package Foo;
16309	16522	sub lexi { $Bar::a cmp $Bar::b }
16310	16523	package Bar;
16311	16524	... sort Foo::lexi ...
16312	16525
16313	16526	=begin original
16314	16527
16315	16528	Use the prototyped versions (see above) for a more generic alternative.
16316	16529
16317	16530	=end original
16318	16531
16319	16532	より一般的な代替案としては(前述の)プロトタイプ版を使ってください。
16320	16533
16321	16534	=begin original
16322	16535
16323	16536	The comparison function is required to behave. If it returns
16324	16537	inconsistent results (sometimes saying C<$x[1]> is less than C<$x[2]> and
16325	16538	sometimes saying the opposite, for example) the results are not
16326	16539	well-defined.
16327	16540
16328	16541	=end original
16329	16542
16330	16543	比較関数は一貫した振る舞いをすることが求められます。
16331	16544	一貫しない結果を返す(例えば、あるときは C<$x[1]> が C<$x[2]> より
16332	16545	小さいと返し、またあるときは逆を返す)場合、結果は未定義です。
16333	16546
16334	16547	=begin original
16335	16548
16336	16549	Because C<< <=> >> returns L<C<undef>\|/undef EXPR> when either operand
16337	16550	is C<NaN> (not-a-number), be careful when sorting with a
16338	16551	comparison function like C<< $a <=> $b >> any lists that might contain a
16339	16552	C<NaN>. The following example takes advantage that C<NaN != NaN> to
16340	16553	eliminate any C<NaN>s from the input list.
16341	16554
16342	16555	=end original
16343	16556
16344	16557	C<< <=> >> はどちらかのオペランドが C<NaN> (not-a-number) のときに
16345	16558	L<C<undef>\|/undef EXPR> を返すので、C<< $a <=> $b >> といった比較関数で
16346	16559	ソートする場合はリストに C<NaN> が含まれないように注意してください。
16347	16560	以下の例は入力リストから C<NaN> を取り除くために C<NaN != NaN> という性質を
16348	16561	利用しています。
16349	16562
16350	16563	my @result = sort { $a <=> $b } grep { $_ == $_ } @input;
16351	16564
	16565	=begin original
	16566
	16567	In this version of F<perl>, the C<sort> function is implemented via the
	16568	mergesort algorithm.
	16569
	16570	=end original
	16571
	16572	このバージョンの F<perl> では、C<sort> 関数はマージソートアルゴリズムで
	16573	実装されています。
	16574
16352	16575	=item splice ARRAY,OFFSET,LENGTH,LIST
16353	16576	X<splice>
16354	16577
16355	16578	=item splice ARRAY,OFFSET,LENGTH
16356	16579
16357	16580	=item splice ARRAY,OFFSET
16358	16581
16359	16582	=item splice ARRAY
16360	16583
16361	16584	=for Pod::Functions add or remove elements anywhere in an array
16362	16585
16363	16586	=begin original
16364	16587
16365	16588	Removes the elements designated by OFFSET and LENGTH from an array, and
16366	16589	replaces them with the elements of LIST, if any. In list context,
16367	16590	returns the elements removed from the array. In scalar context,
16368	16591	returns the last element removed, or L<C<undef>\|/undef EXPR> if no
16369	16592	elements are
16370	16593	removed. The array grows or shrinks as necessary.
16371	16594	If OFFSET is negative then it starts that far from the end of the array.
16372	16595	If LENGTH is omitted, removes everything from OFFSET onward.
16373	16596	If LENGTH is negative, removes the elements from OFFSET onward
16374	16597	except for -LENGTH elements at the end of the array.
16375	16598	If both OFFSET and LENGTH are omitted, removes everything. If OFFSET is
16376	16599	past the end of the array and a LENGTH was provided, Perl issues a warning,
16377	16600	and splices at the end of the array.
16378	16601
16379	16602	=end original
16380	16603
16381	16604	ARRAY から OFFSET、LENGTH で指定される要素を取り除き、
16382	16605	LIST があれば、それを代わりに挿入します。
16383	16606	リストコンテキストでは、配列から取り除かれた要素を返します。
16384	16607	スカラコンテキストでは、取り除かれた最後の要素を返します; 要素が
16385	16608	取り除かれなかった場合は L<C<undef>\|/undef EXPR> を返します。
16386	16609	配列は、必要に応じて、大きくなったり、小さくなったりします。
16387	16610	OFFSET が負の数の場合は、配列の最後からの距離を示します。
16388	16611	LENGTH が省略されると、OFFSET 以降のすべての要素を取り除きます。
16389	16612	LENGTH が負の数の場合は、OFFSET から前方へ、配列の最後から -LENGTH 要素を
16390	16613	除いて取り除きます。
16391	16614	OFFSET と LENGTH の両方が省略されると、全ての要素を取り除きます。
16392	16615	OFFSET が配列の最後より後ろで、 LENGTH が指定されていると、Perl は警告を出し、
16393	16616	配列の最後に対して処理します。
16394	16617
16395	16618	=begin original
16396	16619
16397	16620	The following equivalences hold (assuming C<< $#a >= $i >> )
16398	16621
16399	16622	=end original
16400	16623
16401	16624	以下は、(C<< $#a >= $i >> と仮定すると) それぞれ、等価です。
16402	16625
16403	16626	push(@a,$x,$y) splice(@a,@a,0,$x,$y)
16404	16627	pop(@a) splice(@a,-1)
16405	16628	shift(@a) splice(@a,0,1)
16406	16629	unshift(@a,$x,$y) splice(@a,0,0,$x,$y)
16407	16630	$a[$i] = $y splice(@a,$i,1,$y)
16408	16631
16409	16632	=begin original
16410	16633
16411	16634	L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST> can be used, for example,
16412	16635	to implement n-ary queue processing:
16413	16636
16414	16637	=end original
16415	16638
16416	16639	L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST> は、例えば、n-ary キュー処理の
16417	16640	実装に使えます:
16418	16641
16419	16642	sub nary_print {
16420	16643	my $n = shift;
16421	16644	while (my @next_n = splice @_, 0, $n) {
16422	16645	say join q{ -- }, @next_n;
16423	16646	}
16424	16647	}
16425	16648
16426	16649	nary_print(3, qw(a b c d e f g h));
16427	16650	# prints:
16428	16651	# a -- b -- c
16429	16652	# d -- e -- f
16430	16653	# g -- h
16431	16654
16432	16655	=begin original
16433	16656
16434	16657	Starting with Perl 5.14, an experimental feature allowed
16435	16658	L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST> to take a
16436	16659	scalar expression. This experiment has been deemed unsuccessful, and was
16437	16660	removed as of Perl 5.24.
16438	16661
16439	16662	=end original
16440	16663
16441	16664	Perl 5.14 から、L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST> がスカラ式を
16442	16665	取ることが出来るという実験的機能がありました。
16443	16666	この実験は失敗と見なされ、Perl 5.24 で削除されました。
16444	16667
16445	16668	=item split /PATTERN/,EXPR,LIMIT
16446	16669	X<split>
16447	16670
16448	16671	=item split /PATTERN/,EXPR
16449	16672
16450	16673	=item split /PATTERN/
16451	16674
16452	16675	=item split
16453	16676
16454	16677	=for Pod::Functions split up a string using a regexp delimiter
16455	16678
16456	16679	=begin original
16457	16680
16458	16681	Splits the string EXPR into a list of strings and returns the
16459	16682	list in list context, or the size of the list in scalar context.
16460	16683	(Prior to Perl 5.11, it also overwrote C<@_> with the list in
16461	16684	void and scalar context. If you target old perls, beware.)
16462	16685
16463	16686	=end original
16464	16687
16465	16688	文字列 EXPR を文字列のリストに分割して、リストコンテキストではそのリストを
16466	16689	返し、スカラコンテキストではリストの大きさを返します。
16467	16690	(Perl 5.11 以前では、無効コンテキストやスカラコンテキストの場合は
16468	16691	C<@_> をリストで上書きします。
16469	16692	もし古い perl を対象にするなら、注意してください。)
16470	16693
16471	16694	=begin original
16472	16695
16473	16696	If only PATTERN is given, EXPR defaults to L<C<$_>\|perlvar/$_>.
16474	16697
16475	16698	=end original
16476	16699
16477	16700	PATTERN のみが与えられた場合、EXPR のデフォルトは L<C<$_>\|perlvar/$_> です。
16478	16701
16479	16702	=begin original
16480	16703
16481	16704	Anything in EXPR that matches PATTERN is taken to be a separator
16482	16705	that separates the EXPR into substrings (called "I<fields>") that
16483	16706	do B<not> include the separator. Note that a separator may be
16484	16707	longer than one character or even have no characters at all (the
16485	16708	empty string, which is a zero-width match).
16486	16709
16487	16710	=end original
16488	16711
16489	16712	EXPR の中で PATTERN にマッチングするものは何でも EXPR を("I<fields>" と
16490	16713	呼ばれる)セパレータを B<含まない> 部分文字列に分割するための
16491	16714	セパレータとなります。
16492	16715	セパレータは一文字より長くてもよく、全く文字がなくてもよい(空文字列は
16493	16716	ゼロ幅マッチングです)ということに注意してください。
16494	16717
16495	16718	=begin original
16496	16719
16497	16720	The PATTERN need not be constant; an expression may be used
16498	16721	to specify a pattern that varies at runtime.
16499	16722
16500	16723	=end original
16501	16724
16502	16725	PATTERN は定数である必要はありません; 実行時に変更されるパターンを
16503	16726	指定するために式を使えます。
16504	16727
16505	16728	=begin original
16506	16729
16507	16730	If PATTERN matches the empty string, the EXPR is split at the match
16508	16731	position (between characters). As an example, the following:
16509	16732
16510	16733	=end original
16511	16734
16512	16735	PATTERN が空文字列にマッチングする場合、EXPR はマッチング位置
16513	16736	(文字の間)で分割されます。
16514	16737	例えば、以下のものは:
16515	16738
16516		~~print~~ ~~join(':',~~ split(/b/, 'abc')), "\n";
	16739	my @x = split(/b/, "abc"); # ("a", "c")
16517	16740
16518	16741	=begin original
16519	16742
16520		uses the C<b> in C<'abc'> as a separator to produce the out~~put~~ C<a:c>.
	16743	uses the C<b> in C<'abc'> as a separator to produce the list ("a", "c").
16521	16744	However, this:
16522	16745
16523	16746	=end original
16524	16747
16525		C<'abc'> の C<b> をセパレータとして使って出力 C<a:c> を生成します。
	16748	C<'abc'> の C<b> をセパレータとして使ってリスト ("a", "c") を生成します。
16526	16749	しかし、これは:
16527	16750
16528		~~print~~ ~~join(':',~~ split(//, 'abc')), "\n";
	16751	my @x = split(//, "abc"); # ("a", "b", "c")
16529	16752
16530	16753	=begin original
16531	16754
16532		uses empty string matches as separators t~~o prod~~uce the ~~out~~put
	16755	uses empty string matches as separators; thus, the empty string
16533		~~C<a:b:c>; thus, the e~~m~~pty string m~~ay be used to split EXPR into a
	16756	may be used to split EXPR into a list of its component characters.
16534		list of its component characters.
16535	16757
16536	16758	=end original
16537	16759
16538		空文字列マッチングをセパレータとして使~~って出力 C<a:b:c> を生成し~~ます; 従って、
	16760	空文字列マッチングをセパレータとして使います; 従って、
16539	16761	空文字列は EXPR を構成する文字のリストに分割するために使われます。
16540	16762
16541	16763	=begin original
16542	16764
16543	16765	As a special case for L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT>,
16544	16766	the empty pattern given in
16545	16767	L<match operator\|perlop/"m/PATTERN/msixpodualngc"> syntax (C<//>)
16546	16768	specifically matches the empty string, which is contrary to its usual
16547	16769	interpretation as the last successful match.
16548	16770
16549	16771	=end original
16550	16772
16551	16773	L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT> の特殊な場合として、
16552	16774	L<マッチング演算子\|perlop/"m/PATTERN/msixpodualngc"> 文法で与えられた
16553	16775	空パターン (C<//>) は特に空文字列にマッチングし、最後に成功した
16554	16776	マッチングという普通の解釈と異なります。
16555	16777
16556	16778	=begin original
16557	16779
16558	16780	If PATTERN is C</^/>, then it is treated as if it used the
16559	16781	L<multiline modifier\|perlreref/OPERATORS> (C</^/m>), since it
16560	16782	isn't much use otherwise.
16561	16783
16562	16784	=end original
16563	16785
16564	16786	PATTERN が C</^/> の場合、L<複数行修飾子\|perlreref/OPERATORS>
16565	16787	(C</^/m>) が使われたかのように扱われます; そうでなければほとんど
16566	16788	使えないからです。
16567	16789
16568	16790	=begin original
16569	16791
16570	16792	C<E<sol>m> and any of the other pattern modifiers valid for C<qr>
16571	16793	(summarized in L<perlop/qrE<sol>STRINGE<sol>msixpodualn>) may be
16572	16794	specified explicitly.
16573	16795
16574	16796	=end original
16575	16797
16576	16798	C<qr> で有効な C<E<sol>m> 及びその他のパターン修飾子
16577	16799	(L<perlop/qrE<sol>STRINGE<sol>msixpodualn> にまとめられています) は
16578	16800	明示的に定義されます。
16579	16801
16580	16802	=begin original
16581	16803
16582	16804	As another special case,
16583	16805	L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT> emulates the default
16584	16806	behavior of the
16585	16807	command line tool B<awk> when the PATTERN is either omitted or a
16586	16808	string composed of a single space character (such as S<C<' '>> or
16587	16809	S<C<"\x20">>, but not e.g. S<C</ />>). In this case, any leading
16588	16810	whitespace in EXPR is removed before splitting occurs, and the PATTERN is
16589	16811	instead treated as if it were C</\s+/>; in particular, this means that
16590	16812	I<any> contiguous whitespace (not just a single space character) is used as
16591		a separator. ~~However, this special treatment can be avoided by specifying~~
	16813	a separator.
16592		the pattern S<C</ />> instead of the string S<C<" ">>, thereby allowing
16593		only a single space character to be a separator. In earlier Perls this
16594		special case was restricted to the use of a plain S<C<" ">> as the
16595		pattern argument to split; in Perl 5.18.0 and later this special case is
16596		triggered by any expression which evaluates to the simple string S<C<" ">>.
16597	16814
16598	16815	=end original
16599	16816
16600	16817	もう一つの特別な場合として、
16601	16818	L<C<split>\|/split E<sol>PATTERNE<sol>,EXPR,LIMIT> は
16602	16819	PATTERN が省略されるか単一のスペース文字からなる文字列 (つまり例えば
16603	16820	S<C</ />> ではなく S<C<' '>> や S<C<"\x20">>) の場合、コマンドラインツール
16604	16821	B<awk> のデフォルトの振る舞いをエミュレートします。
16605	16822	この場合、EXPR の先頭の空白は分割を行う前に削除され、PATTERN は
16606	16823	C</\s+/> であったかのように扱われます; 特に、これは (単に単一の
16607	16824	スペース文字ではなく) I<あらゆる> 連続した空白がセパレータとして
16608	16825	使われるということです。
	16826
	16827	my @x = split(" ", " Quick brown fox\n");
	16828	# ("Quick", "brown", "fox")
	16829
	16830	my @x = split(" ", "RED\tGREEN\tBLUE");
	16831	# ("RED", "GREEN", "BLUE")
	16832
	16833	=begin original
	16834
	16835	Using split in this fashion is very similar to how
	16836	L<C<qwE<sol>E<sol>>\|/qwE<sol>STRINGE<sol>> works.
	16837
	16838	=end original
	16839
	16840	この方法で split を使うのは、
	16841	L<C<qwE<sol>E<sol>>\|/qwE<sol>STRINGE<sol>> の動作と非常に似ています。
	16842
	16843	=begin original
	16844
	16845	However, this special treatment can be avoided by specifying
	16846	the pattern S<C</ />> instead of the string S<C<" ">>, thereby allowing
	16847	only a single space character to be a separator. In earlier Perls this
	16848	special case was restricted to the use of a plain S<C<" ">> as the
	16849	pattern argument to split; in Perl 5.18.0 and later this special case is
	16850	triggered by any expression which evaluates to the simple string S<C<" ">>.
	16851
	16852	=end original
	16853
16609	16854	しかし、この特別の扱いは文字列 S<C<" ">> の代わりにパターン S<C</ />> を
16610	16855	指定することで回避でき、それによってセパレータとして単一の
16611	16856	スペース文字のみが使われます。
16612	16857	以前の Perl ではこの特別な場合は split のパターン引数として単に S<C<" ">> を
16613	16858	使った場合に制限されていました; Perl 5.18.0 以降では、この特別な場合は
16614	16859	単純な文字列 S<C<" ">> と評価される任意の式によって引き起こされます。
16615	16860
16616	16861	=begin original
16617	16862
16618	16863	As of Perl 5.28, this special-cased whitespace splitting works as expected in
16619		the scope of L<< S<C<"use feature 'unicode_strings">>\|feature/The
	16864	the scope of L<< S<C<"use feature 'unicode_strings'">>\|feature/The
16620	16865	'unicode_strings' feature >>. In previous versions, and outside the scope of
16621	16866	that feature, it exhibits L<perlunicode/The "Unicode Bug">: characters that are
16622	16867	whitespace according to Unicode rules but not according to ASCII rules can be
16623	16868	treated as part of fields rather than as field separators, depending on the
16624	16869	string's internal encoding.
16625	16870
16626	16871	=end original
16627	16872
16628	16873	Perl 5.28 から、この特別な場合の空白分割は
16629		L<< S<C<"use feature 'unicode_strings">>\|feature/The
	16874	L<< S<C<"use feature 'unicode_strings'">>\|feature/The
16630	16875	'unicode_strings' feature >> のスコープの中では想定通りに動作します。
16631	16876	以前のバージョンでは、そしてこの機能のスコープの外側では、
16632	16877	これは L<perlunicode/The "Unicode Bug"> を引き起こします:
16633	16878	Unicode によれば空白だけれども ASCII の規則ではそうではない文字は、
16634	16879	文字列の内部エンコーディングに依存して、
16635	16880	フィールドの区切りではなくフィールドの一部として扱われることがあります。
16636	16881
16637	16882	=begin original
16638	16883
16639	16884	If omitted, PATTERN defaults to a single space, S<C<" ">>, triggering
16640	16885	the previously described I<awk> emulation.
16641	16886
16642	16887	=end original
16643	16888
16644	16889	省略されると、PATTERN のデフォルトは単一のスペース S<C<" ">> になり、
16645	16890	先に記述した I<awk> エミュレーションを起動します。
16646	16891
16647	16892	=begin original
16648	16893
16649	16894	If LIMIT is specified and positive, it represents the maximum number
16650	16895	of fields into which the EXPR may be split; in other words, LIMIT is
16651	16896	one greater than the maximum number of times EXPR may be split. Thus,
16652	16897	the LIMIT value C<1> means that EXPR may be split a maximum of zero
16653	16898	times, producing a maximum of one field (namely, the entire value of
16654	16899	EXPR). For instance:
16655	16900
16656	16901	=end original
16657	16902
16658	16903	LIMIT が指定された正数の場合、EXPR が分割されるフィールドの最大数を
16659	16904	表現します; 言い換えると、 LIMIT は EXPR が分割される数より一つ大きい数です。
16660	16905	従って、LIMIT の値 C<1> は EXPR が最大 0 回分割されるということで、
16661	16906	最大で一つのフィールドを生成します (言い換えると、EXPR 全体の値です)。
16662	16907	例えば:
16663	16908
16664		~~print~~ ~~join(':',~~ split(//, 'abc', 1)), "\n";
	16909	my @x = split(//, "abc", 1); # ("abc")
	16910	my @x = split(//, "abc", 2); # ("a", "bc")
	16911	my @x = split(//, "abc", 3); # ("a", "b", "c")
	16912	my @x = split(//, "abc", 4); # ("a", "b", "c")
16665	16913
16666	16914	=begin original
16667	16915
16668		produces the output C<abc>, and this:
16669
16670		=end original
16671
16672		これは C<abc> を出力し、次のものは:
16673
16674		print join(':', split(//, 'abc', 2)), "\n";
16675
16676		=begin original
16677
16678		produces the output C<a:bc>, and each of these:
16679
16680		=end original
16681
16682		C<a:bc> を出力し、以下のものそれぞれは:
16683
16684		print join(':', split(//, 'abc', 3)), "\n";
16685		print join(':', split(//, 'abc', 4)), "\n";
16686
16687		=begin original
16688
16689		produces the output C<a:b:c>.
16690
16691		=end original
16692
16693		C<a:b:c> を出力します。
16694
16695		=begin original
16696
16697	16916	If LIMIT is negative, it is treated as if it were instead arbitrarily
16698	16917	large; as many fields as possible are produced.
16699	16918
16700	16919	=end original
16701	16920
16702	16921	LIMIT が負数なら、非常に大きい数であるかのように扱われます; できるだけ多くの
16703	16922	フィールドが生成されます。
16704	16923
16705	16924	=begin original
16706	16925
16707	16926	If LIMIT is omitted (or, equivalently, zero), then it is usually
16708	16927	treated as if it were instead negative but with the exception that
16709	16928	trailing empty fields are stripped (empty leading fields are always
16710	16929	preserved); if all fields are empty, then all fields are considered to
16711	16930	be trailing (and are thus stripped in this case). Thus, the following:
16712	16931
16713	16932	=end original
16714	16933
16715	16934	LIMIT が省略されると(あるいは等価な 0 なら)、普通は負数が指定されたかのように
16716	16935	動作しますが、末尾の空フィールドは取り除かれるという例外があります
16717	16936	(先頭の空フィールドは常に保存されます); もし全てのフィールドが空なら、
16718	16937	全てのフィールドが末尾として扱われます(そしてこの場合取り除かれます)。
16719	16938	従って、以下のようにすると:
16720	16939
16721		~~print~~ ~~join(':',~~ split(/,/, 'a,b,c,,,')), "\n";
	16940	my @x = split(/,/, "a,b,c,,,"); # ("a", "b", "c")
16722	16941
16723	16942	=begin original
16724	16943
16725		produces ~~the~~ o~~utput~~ C<a~~:b:c>,~~ but the followi~~ng:~~
	16944	produces only a three element list.
16726	16945
16727	16946	=end original
16728	16947
16729		出力 ~~C<a:b:c>~~ を生成します~~が、以下のようにすると:~~
	16948	3 要素だけのリストを生成します。
16730	16949
16731		~~print~~ ~~join(':',~~ split(/,/, 'a,b,c,,,', -1)), "\n";
	16950	my @x = split(/,/, "a,b,c,,,", -1); # ("a", "b", "c", "", "", "")
16732	16951
16733	16952	=begin original
16734	16953
16735		produces ~~the~~ out~~put~~ ~~C<a:b:c:::>~~.
	16954	produces a six element list.
16736	16955
16737	16956	=end original
16738	16957
16739		出力 ~~C<a:b:c:::>~~ を生成します。
	16958	6 要素のリストを生成します。
16740	16959
16741	16960	=begin original
16742	16961
16743	16962	In time-critical applications, it is worthwhile to avoid splitting
16744	16963	into more fields than necessary. Thus, when assigning to a list,
16745	16964	if LIMIT is omitted (or zero), then LIMIT is treated as though it
16746	16965	were one larger than the number of variables in the list; for the
16747	16966	following, LIMIT is implicitly 3:
16748	16967
16749	16968	=end original
16750	16969
16751	16970	時間に厳しいアプリケーションでは、必要でないフィールドの分割を避けるのは
16752	16971	価値があります。
16753	16972	従って、リストに代入される場合に、LIMIT が省略される(または 0)と、
16754	16973	LIMIT はリストにある変数の数より一つ大きい数のように扱われます;
16755	16974	次の場合、LIMIT は暗黙に 3 になります:
16756	16975
16757	16976	my ($login, $passwd) = split(/:/);
16758	16977
16759	16978	=begin original
16760	16979
16761	16980	Note that splitting an EXPR that evaluates to the empty string always
16762	16981	produces zero fields, regardless of the LIMIT specified.
16763	16982
16764	16983	=end original
16765	16984
16766	16985	LIMIT の指定に関わらず、空文字列に評価される EXPR を分割すると常に 0 個の
16767	16986	フィールドを生成することに注意してください。
16768	16987
16769	16988	=begin original
16770	16989
16771	16990	An empty leading field is produced when there is a positive-width
16772	16991	match at the beginning of EXPR. For instance:
16773	16992
16774	16993	=end original
16775	16994
16776	16995	EXPR の先頭で正数幅でマッチングしたときには先頭に空のフィールドが
16777	16996	生成されます。
16778	16997	例えば:
16779	16998
16780		~~print~~ ~~join(':',~~ split(/ /, ' abc')), "\n";
	16999	my @x = split(/ /, " abc"); # ("", "abc")
16781	17000
16782	17001	=begin original
16783	17002
16784		p~~roduce~~s the out~~put~~ ~~C<:abc>~~. However, a zero-width match at the
	17003	splits into two elements. However, a zero-width match at the
16785	17004	beginning of EXPR never produces an empty field, so that:
16786	17005
16787	17006	=end original
16788	17007
16789		これは出力 ~~C<:abc>~~ ~~を生成~~します。
	17008	これは 2 要素に分割します。
16790	17009	しかし、EXPR の先頭でのゼロ幅マッチングは決して空フィールドを生成しないので:
16791	17010
16792		~~print~~ ~~join(':',~~ split(//, ' abc'));
	17011	my @x = split(//, " abc"); # (" ", "a", "b", "c")
16793	17012
16794	17013	=begin original
16795	17014
16796		p~~roduce~~s the ou~~tput S<C< :a:b:c>> (~~r~~ath~~er than ~~S<C<:~~ ~~:a:b:c>>)~~.
	17015	splits into four elements instead of five.
16797	17016
16798	17017	=end original
16799	17018
16800		これは~~(S<C<:~~ ~~:a:b:c>>~~ ではなく~~)出力~~ ~~S<C<~~ ~~:a:b:c>> を生成~~します。
	17019	これは 5 要素ではなく 4 要素に分割します。
16801	17020
16802	17021	=begin original
16803	17022
16804	17023	An empty trailing field, on the other hand, is produced when there is a
16805	17024	match at the end of EXPR, regardless of the length of the match
16806	17025	(of course, unless a non-zero LIMIT is given explicitly, such fields are
16807	17026	removed, as in the last example). Thus:
16808	17027
16809	17028	=end original
16810	17029
16811	17030	一方、末尾の空のフィールドは、マッチングの長さに関わらず、EXPR の末尾で
16812	17031	マッチングしたときに生成されます(もちろん非 0 の LIMIT が明示的に
16813	17032	指定されていない場合です; このようなフィールドは前の例のように
16814	17033	取り除かれます)。
16815	17034	従って:
16816	17035
16817		~~print~~ ~~join(':',~~ split(//, ' abc', -1)), "\n";
	17036	my @x = split(//, " abc", -1); # (" ", "a", "b", "c", "")
16818	17037
16819	17038	=begin original
16820	17039
16821		produces the output S<C< :a:b:c:>>.
16822
16823		=end original
16824
16825		これは出力 S<C< :a:b:c:>> を生成します。
16826
16827		=begin original
16828
16829	17040	If the PATTERN contains
16830	17041	L<capturing groups\|perlretut/Grouping things and hierarchical matching>,
16831	17042	then for each separator, an additional field is produced for each substring
16832	17043	captured by a group (in the order in which the groups are specified,
16833	17044	as per L<backreferences\|perlretut/Backreferences>); if any group does not
16834	17045	match, then it captures the L<C<undef>\|/undef EXPR> value instead of a
16835	17046	substring. Also,
16836	17047	note that any such additional field is produced whenever there is a
16837	17048	separator (that is, whenever a split occurs), and such an additional field
16838	17049	does B<not> count towards the LIMIT. Consider the following expressions
16839	17050	evaluated in list context (each returned list is provided in the associated
16840	17051	comment):
16841	17052
16842	17053	=end original
16843	17054
16844	17055	PATTERN が
16845	17056	L<捕捉グループ\|perlretut/Grouping things and hierarchical matching> を
16846	17057	含んでいる場合、それぞれのセパレータについて、
16847	17058	(L<後方参照\|perlretut/Backreferences> のようにグループが指定された)
16848	17059	グループによって捕捉されたそれぞれの部分文字列について追加のフィールドが
16849	17060	生成されます; どのグループもマッチングしなかった場合、部分文字列の代わりに
16850	17061	L<C<undef>\|/undef EXPR> 値を捕捉します。
16851	17062	また、このような追加のフィールドはセパレータがあるとき(つまり、分割が
16852	17063	行われるとき)はいつでも生成され、このような追加のフィールドは
16853	17064	LIMIT に関してはカウント B<されない> ことに注意してください。
16854	17065	リストコンテキストで評価される以下のような式を考えます
16855	17066	(それぞれの返されるリストは関連づけられたコメントで提供されます):
16856	17067
16857		split(/-\|,/, "1-10,20", 3)
	17068	my @x = split(/-\|,/ , "1-10,20", 3);
16858		# ('1', '10', '20')
	17069	# ("1", "10", "20")
16859	17070
16860		split(/(-\|,)/, "1-10,20", 3)
	17071	my @x = split(/(-\|,)/ , "1-10,20", 3);
16861		# ('1', '-', '10', ',', '20')
	17072	# ("1", "-", "10", ",", "20")
16862	17073
16863		split(/-\|(,)/, "1-10,20", 3)
	17074	my @x = split(/-\|(,)/ , "1-10,20", 3);
16864		# ('1', undef, '10', ',', '20')
	17075	# ("1", undef, "10", ",", "20")
16865	17076
16866		split(/(-)\|,/, "1-10,20", 3)
	17077	my @x = split(/(-)\|,/ , "1-10,20", 3);
16867		# ('1', '-', '10', undef, '20')
	17078	# ("1", "-", "10", undef, "20")
16868	17079
16869		split(/(-)\|(,)/, "1-10,20", 3)
	17080	my @x = split(/(-)\|(,)/, "1-10,20", 3);
16870		# ('1', '-', undef, '10', undef, ',', '20')
	17081	# ("1", "-", undef, "10", undef, ",", "20")
16871	17082
16872	17083	=item sprintf FORMAT, LIST
16873	17084	X<sprintf>
16874	17085
16875	17086	=for Pod::Functions formatted print into a string
16876	17087
16877	17088	=begin original
16878	17089
16879	17090	Returns a string formatted by the usual
16880	17091	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST> conventions of the C
16881	17092	library function L<C<sprintf>\|/sprintf FORMAT, LIST>. See below for
16882	17093	more details and see L<sprintf(3)> or L<printf(3)> on your system for an
16883	17094	explanation of the general principles.
16884	17095
16885	17096	=end original
16886	17097
16887	17098	C ライブラリ関数 L<C<sprintf>\|/sprintf FORMAT, LIST> の
16888	17099	普通の L<C<printf>\|/printf FILEHANDLE FORMAT, LIST> 記法の
16889	17100	整形された文字列を返します。
16890	17101	一般的な原則の説明については以下の説明と、システムの
16891	17102	L<sprintf(3)> または L<printf(3)> の説明を参照してください。
16892	17103
16893	17104	=begin original
16894	17105
16895	17106	For example:
16896	17107
16897	17108	=end original
16898	17109
16899	17110	例えば:
16900	17111
16901	17112	# Format number with up to 8 leading zeroes
16902	17113	my $result = sprintf("%08d", $number);
16903	17114
16904	17115	# Round number to 3 digits after decimal point
16905	17116	my $rounded = sprintf("%.3f", $number);
16906	17117
16907	17118	=begin original
16908	17119
16909	17120	Perl does its own L<C<sprintf>\|/sprintf FORMAT, LIST> formatting: it
16910	17121	emulates the C
16911	17122	function L<sprintf(3)>, but doesn't use it except for floating-point
16912	17123	numbers, and even then only standard modifiers are allowed.
16913	17124	Non-standard extensions in your local L<sprintf(3)> are
16914	17125	therefore unavailable from Perl.
16915	17126
16916	17127	=end original
16917	17128
16918	17129	Perl は L<C<sprintf>\|/sprintf FORMAT, LIST> フォーマット処理を自力で行います:
16919	17130	これは C の L<sprintf(3)> 関数をエミュレートしますが、C の関数は使いません
16920	17131	(浮動小数点を除きますが、それでも標準の記述子のみが利用できます)。
16921	17132	従って、ローカルな非標準の L<sprintf(3)> 拡張機能は Perl では使えません。
16922	17133
16923	17134	=begin original
16924	17135
16925	17136	Unlike L<C<printf>\|/printf FILEHANDLE FORMAT, LIST>,
16926	17137	L<C<sprintf>\|/sprintf FORMAT, LIST> does not do what you probably mean
16927	17138	when you pass it an array as your first argument.
16928	17139	The array is given scalar context,
16929	17140	and instead of using the 0th element of the array as the format, Perl will
16930	17141	use the count of elements in the array as the format, which is almost never
16931	17142	useful.
16932	17143
16933	17144	=end original
16934	17145
16935	17146	L<C<printf>\|/printf FILEHANDLE FORMAT, LIST> と違って、
16936	17147	L<C<sprintf>\|/sprintf FORMAT, LIST> の最初の引数に配列を渡しても
16937	17148	あなたが多分望むとおりには動作しません。
16938	17149	配列はスカラコンテキストで渡されるので、配列の 0 番目の要素ではなく、
16939	17150	配列の要素数をフォーマットとして扱います; これはほとんど役に立ちません。
16940	17151
16941	17152	=begin original
16942	17153
16943	17154	Perl's L<C<sprintf>\|/sprintf FORMAT, LIST> permits the following
16944	17155	universally-known conversions:
16945	17156
16946	17157	=end original
16947	17158
16948	17159	Perl の L<C<sprintf>\|/sprintf FORMAT, LIST> は以下の一般に知られている変換に
16949	17160	対応しています:
16950	17161
16951	17162	=begin original
16952	17163
16953	17164	%% a percent sign
16954	17165	%c a character with the given number
16955	17166	%s a string
16956	17167	%d a signed integer, in decimal
16957	17168	%u an unsigned integer, in decimal
16958	17169	%o an unsigned integer, in octal
16959	17170	%x an unsigned integer, in hexadecimal
16960	17171	%e a floating-point number, in scientific notation
16961	17172	%f a floating-point number, in fixed decimal notation
16962	17173	%g a floating-point number, in %e or %f notation
16963	17174
16964	17175	=end original
16965	17176
16966	17177	%% パーセントマーク
16967	17178	%c 与えられた番号の文字
16968	17179	%s 文字列
16969	17180	%d 符号付き 10 進数
16970	17181	%u 符号なし 10 進数
16971	17182	%o 符号なし 8 進数
16972	17183	%x 符号なし 16 進数
16973	17184	%e 科学的表記の浮動小数点数
16974	17185	%f 固定 10 進数表記の浮動小数点数
16975	17186	%g %e か %f の表記の浮動小数点数
16976	17187
16977	17188	=begin original
16978	17189
16979	17190	In addition, Perl permits the following widely-supported conversions:
16980	17191
16981	17192	=end original
16982	17193
16983	17194	さらに、Perl では以下のよく使われている変換に対応しています:
16984	17195
16985	17196	=begin original
16986	17197
16987	17198	%X like %x, but using upper-case letters
16988	17199	%E like %e, but using an upper-case "E"
16989	17200	%G like %g, but with an upper-case "E" (if applicable)
16990	17201	%b an unsigned integer, in binary
16991	17202	%B like %b, but using an upper-case "B" with the # flag
16992	17203	%p a pointer (outputs the Perl value's address in hexadecimal)
16993	17204	%n special: stores the number of characters output so far
16994	17205	into the next argument in the parameter list
16995	17206	%a hexadecimal floating point
16996	17207	%A like %a, but using upper-case letters
16997	17208
16998	17209	=end original
16999	17210
17000	17211	%X %x と同様だが大文字を使う
17001	17212	%E %e と同様だが大文字の "E" を使う
17002	17213	%G %g と同様だが(適切なら)大文字の "E" を使う
17003	17214	%b 符号なし 2 進数
17004	17215	%B %b と同様だが、# フラグで大文字の "B" を使う
17005	17216	%p ポインタ (Perl の値のアドレスを 16 進数で出力する)
17006	17217	%n 特殊: 出力文字数を引数リストの次の変数に「格納」する
17007	17218	%a 16 進浮動小数点
17008	17219	%A %a と同様だが、大文字を使う
17009	17220
17010	17221	=begin original
17011	17222
17012	17223	Finally, for backward (and we do mean "backward") compatibility, Perl
17013	17224	permits these unnecessary but widely-supported conversions:
17014	17225
17015	17226	=end original
17016	17227
17017	17228	最後に、過去との互換性(これは「過去」だと考えています)のために、
17018	17229	Perl は以下の不要ではあるけれども広く使われている変換に対応しています。
17019	17230
17020	17231	=begin original
17021	17232
17022	17233	%i a synonym for %d
17023	17234	%D a synonym for %ld
17024	17235	%U a synonym for %lu
17025	17236	%O a synonym for %lo
17026	17237	%F a synonym for %f
17027	17238
17028	17239	=end original
17029	17240
17030	17241	%i %d の同義語
17031	17242	%D %ld の同義語
17032	17243	%U %lu の同義語
17033	17244	%O %lo の同義語
17034	17245	%F %f の同義語
17035	17246
17036	17247	=begin original
17037	17248
17038	17249	Note that the number of exponent digits in the scientific notation produced
17039	17250	by C<%e>, C<%E>, C<%g> and C<%G> for numbers with the modulus of the
17040	17251	exponent less than 100 is system-dependent: it may be three or less
17041	17252	(zero-padded as necessary). In other words, 1.23 times ten to the
17042	17253	99th may be either "1.23e99" or "1.23e099". Similarly for C<%a> and C<%A>:
17043	17254	the exponent or the hexadecimal digits may float: especially the
17044	17255	"long doubles" Perl configuration option may cause surprises.
17045	17256
17046	17257	=end original
17047	17258
17048	17259	C<%e>, C<%E>, C<%g>, C<%G> において、指数部が 100 未満の場合の
17049	17260	指数部の科学的な表記法はシステム依存であることに注意してください:
17050	17261	3 桁かもしれませんし、それ以下かもしれません(必要に応じて 0 で
17051	17262	パッディングされます)。
17052	17263	言い換えると、 1.23 掛ける 10 の 99 乗は "1.23e99" かもしれませんし
17053	17264	"1.23e099" かもしれません。
17054	17265	同様に C<%a> と C<%A> の場合:
17055	17266	指数部と 16 進数が浮動小数点かもしれません:
17056	17267	特に "long doubles" Perl 設定オプションが驚きを引き起こすかもしれません。
17057	17268
17058	17269	=begin original
17059	17270
17060	17271	Between the C<%> and the format letter, you may specify several
17061	17272	additional attributes controlling the interpretation of the format.
17062	17273	In order, these are:
17063	17274
17064	17275	=end original
17065	17276
17066	17277	C<%> とフォーマット文字の間に、フォーマットの解釈を制御するための、
17067	17278	いくつかの追加の属性を指定できます。
17068	17279	順番に、以下のものがあります:
17069	17280
17070	17281	=over 4
17071	17282
17072	17283	=item format parameter index
17073	17284
17074	17285	(フォーマットパラメータインデックス)
17075	17286
17076	17287	=begin original
17077	17288
17078	17289	An explicit format parameter index, such as C<2$>. By default sprintf
17079	17290	will format the next unused argument in the list, but this allows you
17080	17291	to take the arguments out of order:
17081	17292
17082	17293	=end original
17083	17294
17084	17295	C<2$> のような明示的なフォーマットパラメータインデックス。
17085	17296	デフォルトでは sprintf はリストの次の使われていない引数を
17086	17297	フォーマットしますが、これによって異なった順番の引数を使えるようにします:
17087	17298
17088	17299	printf '%2$d %1$d', 12, 34; # prints "34 12"
17089	17300	printf '%3$d %d %1$d', 1, 2, 3; # prints "3 1 1"
17090	17301
17091	17302	=item flags
17092	17303
17093	17304	(フラグ)
17094	17305
17095	17306	=begin original
17096	17307
17097	17308	one or more of:
17098	17309
17099	17310	=end original
17100	17311
17101	17312	以下のうちの一つまたは複数指定できます:
17102	17313
17103	17314	=begin original
17104	17315
17105	17316	space prefix non-negative number with a space
17106	17317	+ prefix non-negative number with a plus sign
17107	17318	- left-justify within the field
17108	17319	0 use zeros, not spaces, to right-justify
17109	17320	# ensure the leading "0" for any octal,
17110	17321	prefix non-zero hexadecimal with "0x" or "0X",
17111	17322	prefix non-zero binary with "0b" or "0B"
17112	17323
17113	17324	=end original
17114	17325
17115	17326	space 非負数の前に空白をつける
17116	17327	+ 非負数の前にプラス記号をつける
17117	17328	- フィールド内で左詰めする
17118	17329	0 右詰めに空白ではなくゼロを使う
17119	17330	# 8 進数では確実に先頭に "0" をつける;
17120	17331	非 0 の 16 進数では "0x" か "0X" をつける;
17121	17332	非 0 の 2 進数では "0b" か "0B" をつける
17122	17333
17123	17334	=begin original
17124	17335
17125	17336	For example:
17126	17337
17127	17338	=end original
17128	17339
17129	17340	例えば:
17130	17341
17131	17342	printf '<% d>', 12; # prints "< 12>"
17132	17343	printf '<% d>', 0; # prints "< 0>"
17133	17344	printf '<% d>', -12; # prints "<-12>"
17134	17345	printf '<%+d>', 12; # prints "<+12>"
17135	17346	printf '<%+d>', 0; # prints "<+0>"
17136	17347	printf '<%+d>', -12; # prints "<-12>"
17137	17348	printf '<%6s>', 12; # prints "< 12>"
17138	17349	printf '<%-6s>', 12; # prints "<12 >"
17139	17350	printf '<%06s>', 12; # prints "<000012>"
17140	17351	printf '<%#o>', 12; # prints "<014>"
17141	17352	printf '<%#x>', 12; # prints "<0xc>"
17142	17353	printf '<%#X>', 12; # prints "<0XC>"
17143	17354	printf '<%#b>', 12; # prints "<0b1100>"
17144	17355	printf '<%#B>', 12; # prints "<0B1100>"
17145	17356
17146	17357	=begin original
17147	17358
17148	17359	When a space and a plus sign are given as the flags at once,
17149	17360	the space is ignored.
17150	17361
17151	17362	=end original
17152	17363
17153	17364	空白とプラス記号がフラグとして同時に与えられると、
17154	17365	空白は無視されます。
17155	17366
17156	17367	printf '<%+ d>', 12; # prints "<+12>"
17157	17368	printf '<% +d>', 12; # prints "<+12>"
17158	17369
17159	17370	=begin original
17160	17371
17161	17372	When the # flag and a precision are given in the %o conversion,
17162	17373	the precision is incremented if it's necessary for the leading "0".
17163	17374
17164	17375	=end original
17165	17376
17166	17377	%o 変換に # フラグと精度が与えられると、先頭の "0" が必要な場合は
17167	17378	精度に 1 が加えられます。
17168	17379
17169	17380	printf '<%#.5o>', 012; # prints "<00012>"
17170	17381	printf '<%#.5o>', 012345; # prints "<012345>"
17171	17382	printf '<%#.0o>', 0; # prints "<0>"
17172	17383
17173	17384	=item vector flag
17174	17385
17175	17386	(ベクタフラグ)
17176	17387
17177	17388	=begin original
17178	17389
17179	17390	This flag tells Perl to interpret the supplied string as a vector of
17180	17391	integers, one for each character in the string. Perl applies the format to
17181	17392	each integer in turn, then joins the resulting strings with a separator (a
17182	17393	dot C<.> by default). This can be useful for displaying ordinal values of
17183	17394	characters in arbitrary strings:
17184	17395
17185	17396	=end original
17186	17397
17187	17398	このフラグは Perl に、与えられた文字列を、文字毎に一つの整数のベクタとして
17188	17399	解釈させます。
17189	17400	Perl は各数値をフォーマットし、それから結果の文字列をセパレータ
17190	17401	(デフォルトでは C<.>)で連結します。
17191	17402	これは任意の文字列の文字を順序付きの値として表示するのに便利です:
17192	17403
17193	17404	printf "%vd", "AB\x{100}"; # prints "65.66.256"
17194	17405	printf "version is v%vd\n", $^V; # Perl's version
17195	17406
17196	17407	=begin original
17197	17408
17198	17409	Put an asterisk C<*> before the C<v> to override the string to
17199	17410	use to separate the numbers:
17200	17411
17201	17412	=end original
17202	17413
17203	17414	アスタリスク C<*> を C<v> の前に置くと、数値を分けるために使われる文字列を
17204	17415	上書きします:
17205	17416
17206	17417	printf "address is %*vX\n", ":", $addr; # IPv6 address
17207	17418	printf "bits are %0*v8b\n", " ", $bits; # random bitstring
17208	17419
17209	17420	=begin original
17210	17421
17211	17422	You can also explicitly specify the argument number to use for
17212	17423	the join string using something like C<*2$v>; for example:
17213	17424
17214	17425	=end original
17215	17426
17216	17427	また、C<*2$v> のように、連結する文字列として使う引数の番号を明示的に
17217	17428	指定できます; 例えば:
17218	17429
17219	17430	printf '%4$vX %4$vX %*4$vX', # 3 IPv6 addresses
17220	17431	@addr[1..3], ":";
17221	17432
17222	17433	=item (minimum) width
17223	17434
17224	17435	((最小)幅)
17225	17436
17226	17437	=begin original
17227	17438
17228	17439	Arguments are usually formatted to be only as wide as required to
17229	17440	display the given value. You can override the width by putting
17230	17441	a number here, or get the width from the next argument (with C<*>)
17231	17442	or from a specified argument (e.g., with C<*2$>):
17232	17443
17233	17444	=end original
17234	17445
17235	17446	引数は、普通は値を表示するのに必要なちょうどの幅でフォーマットされます。
17236	17447	ここに数値を置くか、(C<> で)次の引数か(C<2$> で)明示的に指定した引数で
17237	17448	幅を上書きできます。
17238	17449
17239	17450	printf "<%s>", "a"; # prints "<a>"
17240	17451	printf "<%6s>", "a"; # prints "< a>"
17241	17452	printf "<%*s>", 6, "a"; # prints "< a>"
17242	17453	printf '<%*2$s>', "a", 6; # prints "< a>"
17243	17454	printf "<%2s>", "long"; # prints "<long>" (does not truncate)
17244	17455
17245	17456	=begin original
17246	17457
17247	17458	If a field width obtained through C<*> is negative, it has the same
17248	17459	effect as the C<-> flag: left-justification.
17249	17460
17250	17461	=end original
17251	17462
17252	17463	C<*> を通して得られたフィールドの値が負数の場合、C<-> フラグと
17253	17464	同様の効果 (左詰め) があります。
17254	17465
17255	17466	=item precision, or maximum width
17256	17467	X<precision>
17257	17468
17258	17469	(精度あるいは最大幅)
17259	17470
17260	17471	=begin original
17261	17472
17262	17473	You can specify a precision (for numeric conversions) or a maximum
17263	17474	width (for string conversions) by specifying a C<.> followed by a number.
17264	17475	For floating-point formats except C<g> and C<G>, this specifies
17265	17476	how many places right of the decimal point to show (the default being 6).
17266	17477	For example:
17267	17478
17268	17479	=end original
17269	17480
17270	17481	C<.> の後に数値を指定することで、(数値変換の場合)精度や(文字列変換の場合)
17271	17482	最大幅を指定できます。
17272	17483	小数点数フォーマットの場合、C<g> と C<G> を除いて、表示する小数点以下の
17273	17484	桁数を指定します(デフォルトは 6 です)。
17274	17485	例えば:
17275	17486
17276	17487	# these examples are subject to system-specific variation
17277	17488	printf '<%f>', 1; # prints "<1.000000>"
17278	17489	printf '<%.1f>', 1; # prints "<1.0>"
17279	17490	printf '<%.0f>', 1; # prints "<1>"
17280	17491	printf '<%e>', 10; # prints "<1.000000e+01>"
17281	17492	printf '<%.1e>', 10; # prints "<1.0e+01>"
17282	17493
17283	17494	=begin original
17284	17495
17285	17496	For "g" and "G", this specifies the maximum number of significant digits to
17286	17497	show; for example:
17287	17498
17288	17499	=end original
17289	17500
17290	17501	"g" と "G" の場合、これは最大有効数字を指定します; 例えば:
17291	17502
17292	17503	# These examples are subject to system-specific variation.
17293	17504	printf '<%g>', 1; # prints "<1>"
17294	17505	printf '<%.10g>', 1; # prints "<1>"
17295	17506	printf '<%g>', 100; # prints "<100>"
17296	17507	printf '<%.1g>', 100; # prints "<1e+02>"
17297	17508	printf '<%.2g>', 100.01; # prints "<1e+02>"
17298	17509	printf '<%.5g>', 100.01; # prints "<100.01>"
17299	17510	printf '<%.4g>', 100.01; # prints "<100>"
17300	17511	printf '<%.1g>', 0.0111; # prints "<0.01>"
17301	17512	printf '<%.2g>', 0.0111; # prints "<0.011>"
17302	17513	printf '<%.3g>', 0.0111; # prints "<0.0111>"
17303	17514
17304	17515	=begin original
17305	17516
17306	17517	For integer conversions, specifying a precision implies that the
17307	17518	output of the number itself should be zero-padded to this width,
17308	17519	where the 0 flag is ignored:
17309	17520
17310	17521	=end original
17311	17522
17312	17523	整数変換の場合、精度を指定すると、数値自体の出力はこの幅に 0 で
17313	17524	パッディングするべきであることを暗に示すことになり、0 フラグは
17314	17525	無視されます:
17315	17526
17316	17527	printf '<%.6d>', 1; # prints "<000001>"
17317	17528	printf '<%+.6d>', 1; # prints "<+000001>"
17318	17529	printf '<%-10.6d>', 1; # prints "<000001 >"
17319	17530	printf '<%10.6d>', 1; # prints "< 000001>"
17320	17531	printf '<%010.6d>', 1; # prints "< 000001>"
17321	17532	printf '<%+10.6d>', 1; # prints "< +000001>"
17322	17533
17323	17534	printf '<%.6x>', 1; # prints "<000001>"
17324	17535	printf '<%#.6x>', 1; # prints "<0x000001>"
17325	17536	printf '<%-10.6x>', 1; # prints "<000001 >"
17326	17537	printf '<%10.6x>', 1; # prints "< 000001>"
17327	17538	printf '<%010.6x>', 1; # prints "< 000001>"
17328	17539	printf '<%#10.6x>', 1; # prints "< 0x000001>"
17329	17540
17330	17541	=begin original
17331	17542
17332	17543	For string conversions, specifying a precision truncates the string
17333	17544	to fit the specified width:
17334	17545
17335	17546	=end original
17336	17547
17337	17548	文字列変換の場合、精度を指定すると、指定された幅に収まるように文字列を
17338	17549	切り詰めます:
17339	17550
17340	17551	printf '<%.5s>', "truncated"; # prints "<trunc>"
17341	17552	printf '<%10.5s>', "truncated"; # prints "< trunc>"
17342	17553
17343	17554	=begin original
17344	17555
17345	17556	You can also get the precision from the next argument using C<.*>, or from a
17346	17557	specified argument (e.g., with C<.*2$>):
17347	17558
17348	17559	=end original
17349	17560
17350	17561	C<.*> を使って精度を次の引数から取ったり、
17351	17562	(C<.*2$> のように) 指定した引数から取ったりすることもできます:
17352	17563
17353	17564	printf '<%.6x>', 1; # prints "<000001>"
17354	17565	printf '<%.*x>', 6, 1; # prints "<000001>"
17355	17566
17356	17567	printf '<%.*2$x>', 1, 6; # prints "<000001>"
17357	17568
17358	17569	printf '<%6.*2$x>', 1, 4; # prints "< 0001>"
17359	17570
17360	17571	=begin original
17361	17572
17362	17573	If a precision obtained through C<*> is negative, it counts
17363	17574	as having no precision at all.
17364	17575
17365	17576	=end original
17366	17577
17367	17578	C<*> によって得られた精度が負数の場合、精度が指定されなかった場合と
17368	17579	同じ効果となります。
17369	17580
17370	17581	printf '<%.*s>', 7, "string"; # prints "<string>"
17371	17582	printf '<%.*s>', 3, "string"; # prints "<str>"
17372	17583	printf '<%.*s>', 0, "string"; # prints "<>"
17373	17584	printf '<%.*s>', -1, "string"; # prints "<string>"
17374	17585
17375	17586	printf '<%.*d>', 1, 0; # prints "<0>"
17376	17587	printf '<%.*d>', 0, 0; # prints "<>"
17377	17588	printf '<%.*d>', -1, 0; # prints "<0>"
17378	17589
17379	17590	=item size
17380	17591
17381	17592	(サイズ)
17382	17593
17383	17594	=begin original
17384	17595
17385	17596	For numeric conversions, you can specify the size to interpret the
17386	17597	number as using C<l>, C<h>, C<V>, C<q>, C<L>, or C<ll>. For integer
17387	17598	conversions (C<d u o x X b i D U O>), numbers are usually assumed to be
17388	17599	whatever the default integer size is on your platform (usually 32 or 64
17389	17600	bits), but you can override this to use instead one of the standard C types,
17390	17601	as supported by the compiler used to build Perl:
17391	17602
17392	17603	=end original
17393	17604
17394	17605	数値変換では、C<l>, C<h>, C<V>, C<q>, C<L>, C<ll> を使って解釈する数値の
17395	17606	大きさを指定できます。
17396	17607	整数変換 (C<d u o x X b i D U O>) では、数値は通常プラットフォームの
17397	17608	デフォルトの整数のサイズ (通常は 32 ビットか 64 ビット) を仮定しますが、
17398	17609	これを Perl がビルドされたコンパイラが対応している標準 C の型の一つで
17399	17610	上書きできます:
17400	17611
17401	17612	=begin original
17402	17613
17403	17614	hh interpret integer as C type "char" or "unsigned
17404	17615	char" on Perl 5.14 or later
17405	17616	h interpret integer as C type "short" or
17406	17617	"unsigned short"
17407	17618	j interpret integer as C type "intmax_t" on Perl
17408	17619	5.14 or later; and prior to Perl 5.30, only with
17409	17620	a C99 compiler (unportable)
17410	17621	l interpret integer as C type "long" or
17411	17622	"unsigned long"
17412	17623	q, L, or ll interpret integer as C type "long long",
17413	17624	"unsigned long long", or "quad" (typically
17414	17625	64-bit integers)
17415	17626	t interpret integer as C type "ptrdiff_t" on Perl
17416	17627	5.14 or later
17417	17628	z interpret integer as C types "size_t" or
17418	17629	"ssize_t" on Perl 5.14 or later
17419	17630
17420	17631	=end original
17421	17632
17422	17633	hh Perl 5.14 以降で整数を C の "char" または "unsigned char"
17423	17634	型として解釈する
17424	17635	h 整数を C の "char" または "unsigned char" 型として解釈する
17425	17636	j Perl 5.14 以降 Perl 5.30 以前の C99 コンパイラのみで整数を
17426	17637	C の "intmax_t" 型として解釈する (移植性なし)
17427	17638	l 整数を C の "long" または "unsigned long" と解釈する
17428	17639	h 整数を C の "short" または "unsigned short" と解釈する
17429	17640	q, L or ll 整数を C の "long long", "unsigned long long",
17430	17641	"quads"(典型的には 64 ビット整数) のどれかと解釈する
17431	17642	t Perl 5.14 以降で整数を C の "ptrdiff_t" 型として解釈する
17432	17643	z Perl 5.14 以降で整数を C の "size_t" 型または "ssize_t" 型
17433	17644	として解釈する
17434	17645
17435	17646	=begin original
17436	17647
	17648	Note that, in general, using the C<l> modifier (for example, when writing
	17649	C<"%ld"> or C<"%lu"> instead of C<"%d"> and C<"%u">) is unnecessary
	17650	when used from Perl code. Moreover, it may be harmful, for example on
	17651	Windows 64-bit where a long is 32-bits.
	17652
	17653	=end original
	17654
	17655	一般的に、C<l> 修飾子を使う (例えば、C<"%d"> と C<"%u"> ではなく
	17656	C<"%ld"> や C<"%lu"> と書く) ことは、Perl のコードから使われる場合は
	17657	不要であることに注意してください。
	17658	さらに、例えば long が 32 ビットのときの 64 ビット Windows のように、
	17659	有害な場合もあります。
	17660
	17661	=begin original
	17662
17437	17663	As of 5.14, none of these raises an exception if they are not supported on
17438	17664	your platform. However, if warnings are enabled, a warning of the
17439	17665	L<C<printf>\|warnings> warning class is issued on an unsupported
17440	17666	conversion flag. Should you instead prefer an exception, do this:
17441	17667
17442	17668	=end original
17443	17669
17444	17670	5.14 から、プラットフォームがこれらに対応していないときでも例外が
17445	17671	発生しなくなりました。
17446	17672	しかし、もし警告が有効になっているなら、
17447	17673	非対応変換フラグに関して L<C<printf>\|warnings> 警告クラスの警告が発生します。
17448	17674	例外の方がお好みなら、以下のようにします:
17449	17675
17450	17676	use warnings FATAL => "printf";
17451	17677
17452	17678	=begin original
17453	17679
17454	17680	If you would like to know about a version dependency before you
17455	17681	start running the program, put something like this at its top:
17456	17682
17457	17683	=end original
17458	17684
17459	17685	プログラムの実行開始前にバージョン依存について知りたいなら、先頭に
17460	17686	以下のようなものを書きます:
17461	17687
17462		use 5.014; # for hh/j/t/z/ printf modifiers
	17688	use v5.14; # for hh/j/t/z/ printf modifiers
17463	17689
17464	17690	=begin original
17465	17691
17466	17692	You can find out whether your Perl supports quads via L<Config>:
17467	17693
17468	17694	=end original
17469	17695
17470	17696	Perl が 64 ビット整数に対応しているかどうかは L<Config> を使って
17471	17697	調べられます:
17472	17698
17473	17699	use Config;
17474	17700	if ($Config{use64bitint} eq "define"
17475	17701	\|\| $Config{longsize} >= 8) {
17476	17702	print "Nice quads!\n";
17477	17703	}
17478	17704
17479	17705	=begin original
17480	17706
17481	17707	For floating-point conversions (C<e f g E F G>), numbers are usually assumed
17482	17708	to be the default floating-point size on your platform (double or long double),
17483	17709	but you can force "long double" with C<q>, C<L>, or C<ll> if your
17484	17710	platform supports them. You can find out whether your Perl supports long
17485	17711	doubles via L<Config>:
17486	17712
17487	17713	=end original
17488	17714
17489	17715	浮動小数点数変換 (C<e f g E F G>) では、普通はプラットフォームのデフォルトの
17490	17716	不動小数点数のサイズ (double か long double) を仮定しますが、
17491	17717	プラットフォームが対応しているなら、C<q>, C<L>, C<ll> に対して
17492	17718	"long double" を強制できます。
17493	17719	Perl が long double に対応しているかどうかは L<Config> を使って
17494	17720	調べられます:
17495	17721
17496	17722	use Config;
17497	17723	print "long doubles\n" if $Config{d_longdbl} eq "define";
17498	17724
17499	17725	=begin original
17500	17726
17501	17727	You can find out whether Perl considers "long double" to be the default
17502	17728	floating-point size to use on your platform via L<Config>:
17503	17729
17504	17730	=end original
17505	17731
17506	17732	Perl が "long double" をデフォルトの浮動小数点数として扱っているかどうかは
17507	17733	L<Config> を使って調べられます:
17508	17734
17509	17735	use Config;
17510	17736	if ($Config{uselongdouble} eq "define") {
17511	17737	print "long doubles by default\n";
17512	17738	}
17513	17739
17514	17740	=begin original
17515	17741
17516	17742	It can also be that long doubles and doubles are the same thing:
17517	17743
17518	17744	=end original
17519	17745
17520	17746	long double と double が同じ場合もあります:
17521	17747
17522	17748	use Config;
17523	17749	($Config{doublesize} == $Config{longdblsize}) &&
17524	17750	print "doubles are long doubles\n";
17525	17751
17526	17752	=begin original
17527	17753
17528	17754	The size specifier C<V> has no effect for Perl code, but is supported for
17529	17755	compatibility with XS code. It means "use the standard size for a Perl
17530	17756	integer or floating-point number", which is the default.
17531	17757
17532	17758	=end original
17533	17759
17534	17760	サイズ指定子 C<V> は Perl のコードには何の影響もありませんが、これは
17535	17761	XS コードとの互換性のために対応しています。
17536	17762	これは「Perl 整数 (または浮動小数点数) として標準的なサイズを使う」ことを
17537	17763	意味し、これはデフォルトです。
17538	17764
17539	17765	=item order of arguments
17540	17766
17541	17767	(引数の順序)
17542	17768
17543	17769	=begin original
17544	17770
17545	17771	Normally, L<C<sprintf>\|/sprintf FORMAT, LIST> takes the next unused
17546	17772	argument as the value to
17547	17773	format for each format specification. If the format specification
17548	17774	uses C<*> to require additional arguments, these are consumed from
17549	17775	the argument list in the order they appear in the format
17550	17776	specification I<before> the value to format. Where an argument is
17551	17777	specified by an explicit index, this does not affect the normal
17552	17778	order for the arguments, even when the explicitly specified index
17553	17779	would have been the next argument.
17554	17780
17555	17781	=end original
17556	17782
17557	17783	通常、L<C<sprintf>\|/sprintf FORMAT, LIST> は各フォーマット指定について、
17558	17784	使われていない次の引数を
17559	17785	フォーマットする値として使います。
17560	17786	追加の引数を要求するためにフォーマット指定 C<*> を使うと、
17561	17787	これらはフォーマットする値の I<前> のフォーマット指定に現れる順番に
17562	17788	引数リストから消費されます。
17563	17789	引数の位置が明示的なインデックスを使って指定された場合、
17564	17790	(明示的に指定したインデックスが次の引数の場合でも)
17565	17791	これは通常の引数の順番に影響を与えません。
17566	17792
17567	17793	=begin original
17568	17794
17569	17795	So:
17570	17796
17571	17797	=end original
17572	17798
17573	17799	それで:
17574	17800
17575	17801	printf "<%.s>", $a, $b, $c;
17576	17802
17577	17803	=begin original
17578	17804
17579	17805	uses C<$a> for the width, C<$b> for the precision, and C<$c>
17580	17806	as the value to format; while:
17581	17807
17582	17808	=end original
17583	17809
17584	17810	とすると C<$a> を幅に、C<$b> を精度に、C<$c> をフォーマットの値に
17585	17811	使います; 一方:
17586	17812
17587	17813	printf '<%1$.s>', $a, $b;
17588	17814
17589	17815	=begin original
17590	17816
17591	17817	would use C<$a> for the width and precision, and C<$b> as the
17592	17818	value to format.
17593	17819
17594	17820	=end original
17595	17821
17596	17822	とすると C<$a> を幅と精度に、C<$b> をフォーマットの値に使います。
17597	17823
17598	17824	=begin original
17599	17825
17600	17826	Here are some more examples; be aware that when using an explicit
17601	17827	index, the C<$> may need escaping:
17602	17828
17603	17829	=end original
17604	17830
17605	17831	以下にさらなる例を示します; 明示的にインデックスを使う場合、C<$> は
17606	17832	エスケープする必要があることに注意してください:
17607	17833
17608	17834	printf "%2\$d %d\n", 12, 34; # will print "34 12\n"
17609	17835	printf "%2\$d %d %d\n", 12, 34; # will print "34 12 34\n"
17610	17836	printf "%3\$d %d %d\n", 12, 34, 56; # will print "56 12 34\n"
17611	17837	printf "%2\$*3\$d %d\n", 12, 34, 3; # will print " 34 12\n"
17612	17838	printf "%1\$.f\n", 4, 5, 10; # will print "5.0000\n"
17613	17839
17614	17840	=back
17615	17841
17616	17842	=begin original
17617	17843
17618	17844	If L<C<use locale>\|locale> (including C<use locale ':not_characters'>)
17619	17845	is in effect and L<C<POSIX::setlocale>\|POSIX/C<setlocale>> has been
17620	17846	called,
17621	17847	the character used for the decimal separator in formatted floating-point
17622	17848	numbers is affected by the C<LC_NUMERIC> locale. See L<perllocale>
17623	17849	and L<POSIX>.
17624	17850
17625	17851	=end original
17626	17852
17627	17853	(C<use locale ':not_characters'> を含む)L<C<use locale>\|locale> が有効で、
17628	17854	L<C<POSIX::setlocale>\|POSIX/C<setlocale>> が呼び出されている場合、
17629	17855	フォーマットされた浮動小数点数の小数点として使われる文字は
17630	17856	C<LC_NUMERIC> ロケールの影響を受けます。
17631	17857	L<perllocale> と L<POSIX> を参照してください。
17632	17858
17633	17859	=item sqrt EXPR
17634	17860	X<sqrt> X<root> X<square root>
17635	17861
17636	17862	=item sqrt
17637	17863
17638	17864	=for Pod::Functions square root function
17639	17865
17640	17866	=begin original
17641	17867
17642	17868	Return the positive square root of EXPR. If EXPR is omitted, uses
17643	17869	L<C<$_>\|perlvar/$_>. Works only for non-negative operands unless you've
17644	17870	loaded the L<C<Math::Complex>\|Math::Complex> module.
17645	17871
17646	17872	=end original
17647	17873
17648	17874	EXPR の正の平方根を返します。
17649	17875	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
17650	17876	L<C<Math::Complex>\|Math::Complex> モジュールを使わない場合は、負の数の引数は
17651	17877	扱えません。
17652	17878
17653	17879	use Math::Complex;
17654	17880	print sqrt(-4); # prints 2i
17655	17881
17656	17882	=item srand EXPR
17657	17883	X<srand> X<seed> X<randseed>
17658	17884
17659	17885	=item srand
17660	17886
17661	17887	=for Pod::Functions seed the random number generator
17662	17888
17663	17889	=begin original
17664	17890
17665	17891	Sets and returns the random number seed for the L<C<rand>\|/rand EXPR>
17666	17892	operator.
17667	17893
17668	17894	=end original
17669	17895
17670	17896	L<C<rand>\|/rand EXPR> 演算子のためのシード値を設定して返します。
17671	17897
17672	17898	=begin original
17673	17899
17674	17900	The point of the function is to "seed" the L<C<rand>\|/rand EXPR>
17675	17901	function so that L<C<rand>\|/rand EXPR> can produce a different sequence
17676	17902	each time you run your program. When called with a parameter,
17677	17903	L<C<srand>\|/srand EXPR> uses that for the seed; otherwise it
17678	17904	(semi-)randomly chooses a seed. In either case, starting with Perl 5.14,
17679	17905	it returns the seed. To signal that your code will work I<only> on Perls
17680	17906	of a recent vintage:
17681	17907
17682	17908	=end original
17683	17909
17684	17910	この関数のポイントは、プログラムを実行するごとに L<C<rand>\|/rand EXPR> 関数が
17685	17911	異なる乱数列を生成できるように L<C<rand>\|/rand EXPR> 関数の「種」を
17686	17912	設定することです。
17687	17913	L<C<srand>\|/srand EXPR> を引数付きで呼び出すと、これを種として使います;
17688	17914	さもなければ(だいたい)ランダムに種を選びます。
17689	17915	どちらの場合でも、Perl 5.14 からは種を返します。
17690	17916	特定の時期の Perl I<でのみ> 動作することを知らせるには以下のようにします:
17691	17917
17692		use 5.014; # so srand returns the seed
	17918	use v5.14; # so srand returns the seed
17693	17919
17694	17920	=begin original
17695	17921
17696	17922	If L<C<srand>\|/srand EXPR> is not called explicitly, it is called
17697	17923	implicitly without a parameter at the first use of the
17698	17924	L<C<rand>\|/rand EXPR> operator. However, there are a few situations
17699	17925	where programs are likely to want to call L<C<srand>\|/srand EXPR>. One
17700	17926	is for generating predictable results, generally for testing or
17701	17927	debugging. There, you use C<srand($seed)>, with the same C<$seed> each
17702	17928	time. Another case is that you may want to call L<C<srand>\|/srand EXPR>
17703	17929	after a L<C<fork>\|/fork> to avoid child processes sharing the same seed
17704	17930	value as the parent (and consequently each other).
17705	17931
17706	17932	=end original
17707	17933
17708	17934	L<C<srand>\|/srand EXPR> が明示的に呼び出されなかった場合、最初に
17709	17935	L<C<rand>\|/rand EXPR> 演算子を使った時点で暗黙に引数なしで呼び出されます。
17710	17936	しかし、最近の Perl でプログラムが L<C<srand>\|/srand EXPR> を
17711	17937	呼び出したいであろう状況がいくつかあります。
17712	17938	一つはテストやデバッグのために予測可能な結果を生成するためです。
17713	17939	この場合、C<srand($seed)> (C<$seed> は毎回同じ値を使う) を使います。
17714	17940	もう一つの場合としては、子プロセスが親や他の子プロセスと同じ種の値を
17715	17941	共有することを避けるために、L<C<fork>\|/fork> の後に L<C<srand>\|/srand EXPR> を
17716	17942	呼び出したいかもしれません。
17717	17943
17718	17944	=begin original
17719	17945
17720	17946	Do B<not> call C<srand()> (i.e., without an argument) more than once per
17721	17947	process. The internal state of the random number generator should
17722	17948	contain more entropy than can be provided by any seed, so calling
17723	17949	L<C<srand>\|/srand EXPR> again actually I<loses> randomness.
17724	17950
17725	17951	=end original
17726	17952
17727	17953	L<C<srand>\|/srand EXPR> (引数なし)をプロセス中で複数回
17728	17954	呼び出しては B<いけません>。
17729	17955	乱数生成器の内部状態はどのような種によって提供されるものよりも
17730	17956	高いエントロピーを持っているので、C<srand()> を再び呼び出すと
17731	17957	ランダム性が I<失われます>。
17732	17958
17733	17959	=begin original
17734	17960
17735	17961	Most implementations of L<C<srand>\|/srand EXPR> take an integer and will
17736	17962	silently
17737	17963	truncate decimal numbers. This means C<srand(42)> will usually
17738	17964	produce the same results as C<srand(42.1)>. To be safe, always pass
17739	17965	L<C<srand>\|/srand EXPR> an integer.
17740	17966
17741	17967	=end original
17742	17968
17743	17969	L<C<srand>\|/srand EXPR> のほとんどの実装では整数を取り、小数を暗黙に
17744	17970	切り捨てます。
17745	17971	これは、C<srand(42)> は普通 C<srand(42.1)> と同じ結果になることを意味します。
17746	17972	安全のために、L<C<srand>\|/srand EXPR> には常に整数を渡しましょう。
17747	17973
17748	17974	=begin original
17749	17975
17750	17976	A typical use of the returned seed is for a test program which has too many
17751	17977	combinations to test comprehensively in the time available to it each run. It
17752	17978	can test a random subset each time, and should there be a failure, log the seed
17753	17979	used for that run so that it can later be used to reproduce the same results.
17754	17980
17755	17981	=end original
17756	17982
17757	17983	返された種の典型的な利用法は、実行毎のテストを利用可能な時間内に完全に
17758	17984	行うには組み合わせが多すぎるテストプログラム用です。
17759	17985	毎回ランダムなサブセットをテストし、もし失敗したら、その実行で使った
17760	17986	種をログに出力することで、後で同じ結果を再現するために使えます。
17761	17987
17762	17988	=begin original
17763	17989
17764	17990	B<L<C<rand>\|/rand EXPR> is not cryptographically secure. You should not rely
17765	17991	on it in security-sensitive situations.> As of this writing, a
17766	17992	number of third-party CPAN modules offer random number generators
17767	17993	intended by their authors to be cryptographically secure,
17768	17994	including: L<Data::Entropy>, L<Crypt::Random>, L<Math::Random::Secure>,
17769	17995	and L<Math::TrulyRandom>.
17770	17996
17771	17997	=end original
17772	17998
17773	17999	B<L<C<rand>\|/rand EXPR> は暗号学的に安全ではありません。
17774	18000	セキュリティ的に重要な状況でこれに頼るべきではありません。>
17775	18001	これを書いている時点で、いくつかのサードパーティ CPAN モジュールが
17776	18002	作者によって暗号学的に安全であることを目的とした乱数生成器を
17777	18003	提供しています: L<Data::Entropy>, L<Crypt::Random>, L<Math::Random::Secure>,
17778	18004	L<Math::TrulyRandom> などです。
17779	18005
17780	18006	=item stat FILEHANDLE
17781	18007	X<stat> X<file, status> X<ctime>
17782	18008
17783	18009	=item stat EXPR
17784	18010
17785	18011	=item stat DIRHANDLE
17786	18012
17787	18013	=item stat
17788	18014
17789	18015	=for Pod::Functions get a file's status information
17790	18016
17791	18017	=begin original
17792	18018
17793	18019	Returns a 13-element list giving the status info for a file, either
17794	18020	the file opened via FILEHANDLE or DIRHANDLE, or named by EXPR. If EXPR is
17795	18021	omitted, it stats L<C<$_>\|perlvar/$_> (not C<_>!). Returns the empty
17796	18022	list if L<C<stat>\|/stat FILEHANDLE> fails. Typically
17797	18023	used as follows:
17798	18024
17799	18025	=end original
17800	18026
17801	18027	FILEHANDLE か DIRHANDLE を通じてオープンされているファイルか、
17802	18028	EXPR で指定されるファイルの情報を与える、13 要素のリストを返します。
17803	18029	EXPR が省略されると、 L<C<$_>\|perlvar/$_> が用いられます
17804	18030	(C<_> ではありません!)。
17805	18031	L<C<stat>\|/stat FILEHANDLE> に失敗した場合には、空リストを返します。
17806	18032	普通は、以下のようにして使います:
17807	18033
17808	18034	my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
17809	18035	$atime,$mtime,$ctime,$blksize,$blocks)
17810	18036	= stat($filename);
17811	18037
17812	18038	=begin original
17813	18039
17814	18040	Not all fields are supported on all filesystem types. Here are the
17815	18041	meanings of the fields:
17816	18042
17817	18043	=end original
17818	18044
17819	18045	全てのファイルシステムで全てのフィールドに対応しているわけではありません。
17820	18046	フィールドの意味は以下の通りです。
17821	18047
17822	18048	=begin original
17823	18049
17824	18050	0 dev device number of filesystem
17825	18051	1 ino inode number
17826	18052	2 mode file mode (type and permissions)
17827	18053	3 nlink number of (hard) links to the file
17828	18054	4 uid numeric user ID of file's owner
17829	18055	5 gid numeric group ID of file's owner
17830	18056	6 rdev the device identifier (special files only)
17831	18057	7 size total size of file, in bytes
17832	18058	8 atime last access time in seconds since the epoch
17833	18059	9 mtime last modify time in seconds since the epoch
17834	18060	10 ctime inode change time in seconds since the epoch (*)
17835	18061	11 blksize preferred I/O size in bytes for interacting with the
17836	18062	file (may vary from file to file)
17837	18063	12 blocks actual number of system-specific blocks allocated
17838	18064	on disk (often, but not always, 512 bytes each)
17839	18065
17840	18066	=end original
17841	18067
17842	18068	0 dev ファイルシステムのデバイス番号
17843	18069	1 ino inode 番号
17844	18070	2 mode ファイルモード (タイプとパーミッション)
17845	18071	3 nlink ファイルへの(ハード)リンクの数
17846	18072	4 uid ファイル所有者のユーザー ID の数値
17847	18073	5 gid ファイル所有者のグループ ID の数値
17848	18074	6 rdev デバイス識別子(特殊ファイルのみ)
17849	18075	7 size ファイルサイズ(バイト単位)
17850	18076	8 atime 紀元から、最後にアクセスされた時刻までの秒数
17851	18077	9 mtime 紀元から、最後に修正(modify)された時刻までの秒数
17852	18078	10 ctime 紀元から、inode 変更(change)された時刻までの秒数 (*)
17853	18079	11 blksize ファイルとの相互作用のために適した I/O バイト数
17854	18080	(ファイルごとに異なるかもしれない)
17855	18081	12 blocks ディスクに割り当てたシステム依存のブロック(常にでは
17856	18082	ありませんがたいていはそれぞれ 512 バイト)の数
17857	18083
17858	18084	=begin original
17859	18085
17860	18086	(The epoch was at 00:00 January 1, 1970 GMT.)
17861	18087
17862	18088	=end original
17863	18089
17864	18090	(紀元は GMT で 1970/01/01 00:00:00。)
17865	18091
17866	18092	=begin original
17867	18093
17868	18094	(*) Not all fields are supported on all filesystem types. Notably, the
17869	18095	ctime field is non-portable. In particular, you cannot expect it to be a
17870	18096	"creation time"; see L<perlport/"Files and Filesystems"> for details.
17871	18097
17872	18098	=end original
17873	18099
17874	18100	(*) 全てのフィールドが全てのファイルシステムタイプで対応しているわけでは
17875	18101	ありません。
17876	18102	明らかに、ctime のフィールドは移植性がありません。
17877	18103	特に、これから「作成時刻」を想定することは出来ません;
17878	18104	詳細については L<perlport/"Files and Filesystems"> を参照してください。
17879	18105
17880	18106	=begin original
17881	18107
17882	18108	If L<C<stat>\|/stat FILEHANDLE> is passed the special filehandle
17883	18109	consisting of an underline, no stat is done, but the current contents of
17884	18110	the stat structure from the last L<C<stat>\|/stat FILEHANDLE>,
17885	18111	L<C<lstat>\|/lstat FILEHANDLE>, or filetest are returned. Example:
17886	18112
17887	18113	=end original
17888	18114
17889	18115	下線だけの _ という特別なファイルハンドルを L<C<stat>\|/stat FILEHANDLE> に
17890	18116	渡すと、実際には stat を行なわず、stat 構造体に残っている
17891	18117	前回の L<C<stat>\|/stat FILEHANDLE>, L<C<lstat>\|/lstat FILEHANDLE> や
17892	18118	ファイルテストの情報が返されます。
17893	18119	例:
17894	18120
17895	18121	if (-x $file && (($d) = stat(_)) && $d < 0) {
17896	18122	print "$file is executable NFS file\n";
17897	18123	}
17898	18124
17899	18125	=begin original
17900	18126
17901	18127	(This works on machines only for which the device number is negative
17902	18128	under NFS.)
17903	18129
17904	18130	=end original
17905	18131
17906	18132	(これは、NFS のもとでデバイス番号が負になるマシンでのみ動作します。)
17907	18133
17908	18134	=begin original
17909	18135
17910	18136	On some platforms inode numbers are of a type larger than perl knows how
17911	18137	to handle as integer numerical values. If necessary, an inode number will
17912	18138	be returned as a decimal string in order to preserve the entire value.
17913	18139	If used in a numeric context, this will be converted to a floating-point
17914	18140	numerical value, with rounding, a fate that is best avoided. Therefore,
17915	18141	you should prefer to compare inode numbers using C<eq> rather than C<==>.
17916	18142	C<eq> will work fine on inode numbers that are represented numerically,
17917	18143	as well as those represented as strings.
17918	18144
17919	18145	=end original
17920	18146
17921	18147	一部のプラットフォームでは、inode 番号は perl が整数値として
17922	18148	扱い方を知っているものよりも大きい型になっています。
17923	18149	もし必要なら、inode 番号は、値全体を保存するために 10 進文字列として
17924	18150	返されます。
17925	18151	数値コンテキストで使うと、これは丸めを伴う浮動小数点数に変換され、
17926	18152	できるだけ避けるべき結果になります。
17927	18153	従って、inode 番号の比較には C<==> ではなく C<eq> を使うべきです。
17928	18154	C<eq> は、inode 番号が数値で表現されていても、文字列で表現されていても
17929	18155	うまく動作します。
17930	18156
17931	18157	=begin original
17932	18158
17933	18159	Because the mode contains both the file type and its permissions, you
17934	18160	should mask off the file type portion and (s)printf using a C<"%o">
17935	18161	if you want to see the real permissions.
17936	18162
17937	18163	=end original
17938	18164
17939	18165	モードにはファイルタイプとその権限の両方が含まれているので、
17940	18166	本当の権限を見たい場合は、(s)printf で C<"%"> を使うことで
17941	18167	ファイルタイプをマスクするべきです。
17942	18168
17943	18169	my $mode = (stat($filename))[2];
17944	18170	printf "Permissions are %04o\n", $mode & 07777;
17945	18171
17946	18172	=begin original
17947	18173
17948	18174	In scalar context, L<C<stat>\|/stat FILEHANDLE> returns a boolean value
17949	18175	indicating success
17950	18176	or failure, and, if successful, sets the information associated with
17951	18177	the special filehandle C<_>.
17952	18178
17953	18179	=end original
17954	18180
17955	18181	スカラコンテキストでは、L<C<stat>\|/stat FILEHANDLE> は成功か失敗を表す真偽値を
17956	18182	返し、成功した場合は、特別なファイルハンドル C<_> に結び付けられた
17957	18183	情報をセットします。
17958	18184
17959	18185	=begin original
17960	18186
17961	18187	The L<File::stat> module provides a convenient, by-name access mechanism:
17962	18188
17963	18189	=end original
17964	18190
17965	18191	L<File::stat> モジュールは、便利な名前によるアクセス機構を提供します。
17966	18192
17967	18193	use File::stat;
17968	18194	my $sb = stat($filename);
17969	18195	printf "File is %s, size is %s, perm %04o, mtime %s\n",
17970	18196	$filename, $sb->size, $sb->mode & 07777,
17971	18197	scalar localtime $sb->mtime;
17972	18198
17973	18199	=begin original
17974	18200
17975	18201	You can import symbolic mode constants (C<S_IF*>) and functions
17976	18202	(C<S_IS*>) from the L<Fcntl> module:
17977	18203
17978	18204	=end original
17979	18205
17980	18206	モード定数 (C<S_IF>) と関数 (C<S_IS>) を L<Fcntl> モジュールから
17981	18207	インポートできます。
17982	18208
17983	18209	use Fcntl ':mode';
17984	18210
17985	18211	my $mode = (stat($filename))[2];
17986	18212
17987	18213	my $user_rwx = ($mode & S_IRWXU) >> 6;
17988	18214	my $group_read = ($mode & S_IRGRP) >> 3;
17989	18215	my $other_execute = $mode & S_IXOTH;
17990	18216
17991	18217	printf "Permissions are %04o\n", S_IMODE($mode), "\n";
17992	18218
17993	18219	my $is_setuid = $mode & S_ISUID;
17994	18220	my $is_directory = S_ISDIR($mode);
17995	18221
17996	18222	=begin original
17997	18223
17998	18224	You could write the last two using the C<-u> and C<-d> operators.
17999	18225	Commonly available C<S_IF*> constants are:
18000	18226
18001	18227	=end original
18002	18228
18003	18229	最後の二つは C<-u> と C<-d> 演算子を使っても書けます。
18004	18230	一般に利用可能な C<S_IF*> 定数は以下のものです。
18005	18231
18006	18232	# Permissions: read, write, execute, for user, group, others.
18007	18233
18008	18234	S_IRWXU S_IRUSR S_IWUSR S_IXUSR
18009	18235	S_IRWXG S_IRGRP S_IWGRP S_IXGRP
18010	18236	S_IRWXO S_IROTH S_IWOTH S_IXOTH
18011	18237
18012	18238	# Setuid/Setgid/Stickiness/SaveText.
18013	18239	# Note that the exact meaning of these is system-dependent.
18014	18240
18015	18241	S_ISUID S_ISGID S_ISVTX S_ISTXT
18016	18242
18017	18243	# File types. Not all are necessarily available on
18018	18244	# your system.
18019	18245
18020	18246	S_IFREG S_IFDIR S_IFLNK S_IFBLK S_IFCHR
18021	18247	S_IFIFO S_IFSOCK S_IFWHT S_ENFMT
18022	18248
18023	18249	# The following are compatibility aliases for S_IRUSR,
18024	18250	# S_IWUSR, and S_IXUSR.
18025	18251
18026	18252	S_IREAD S_IWRITE S_IEXEC
18027	18253
18028	18254	=begin original
18029	18255
18030	18256	and the C<S_IF*> functions are
18031	18257
18032	18258	=end original
18033	18259
18034	18260	一般に利用可能な C<S_IF*> 関数は以下のものです。
18035	18261
18036	18262	S_IMODE($mode) the part of $mode containing the permission
18037	18263	bits and the setuid/setgid/sticky bits
18038	18264
18039	18265	S_IFMT($mode) the part of $mode containing the file type
18040	18266	which can be bit-anded with (for example)
18041	18267	S_IFREG or with the following functions
18042	18268
18043	18269	# The operators -f, -d, -l, -b, -c, -p, and -S.
18044	18270
18045	18271	S_ISREG($mode) S_ISDIR($mode) S_ISLNK($mode)
18046	18272	S_ISBLK($mode) S_ISCHR($mode) S_ISFIFO($mode) S_ISSOCK($mode)
18047	18273
18048	18274	# No direct -X operator counterpart, but for the first one
18049	18275	# the -g operator is often equivalent. The ENFMT stands for
18050	18276	# record flocking enforcement, a platform-dependent feature.
18051	18277
18052	18278	S_ISENFMT($mode) S_ISWHT($mode)
18053	18279
18054	18280	=begin original
18055	18281
18056	18282	See your native L<chmod(2)> and L<stat(2)> documentation for more details
18057	18283	about the C<S_*> constants. To get status info for a symbolic link
18058	18284	instead of the target file behind the link, use the
18059	18285	L<C<lstat>\|/lstat FILEHANDLE> function.
18060	18286
18061	18287	=end original
18062	18288
18063	18289	C<S_*> 定数に関する詳細についてはネイティブの L<chmod(2)> と L<stat(2)> の
18064	18290	ドキュメントを参照してください。
18065	18291	リンクの先にあるファイルではなく、シンボリックリンクそのものの情報を
18066	18292	得たい場合は、L<C<lstat>\|/lstat FILEHANDLE> 関数を使ってください。
18067	18293
18068	18294	=begin original
18069	18295
18070	18296	Portability issues: L<perlport/stat>.
18071	18297
18072	18298	=end original
18073	18299
18074	18300	移植性の問題: L<perlport/stat>。
18075	18301
18076	18302	=item state VARLIST
18077	18303	X<state>
18078	18304
18079	18305	=item state TYPE VARLIST
18080	18306
18081	18307	=item state VARLIST : ATTRS
18082	18308
18083	18309	=item state TYPE VARLIST : ATTRS
18084	18310
18085	18311	=for Pod::Functions +state declare and assign a persistent lexical variable
18086	18312
18087	18313	=begin original
18088	18314
18089	18315	L<C<state>\|/state VARLIST> declares a lexically scoped variable, just
18090	18316	like L<C<my>\|/my VARLIST>.
18091	18317	However, those variables will never be reinitialized, contrary to
18092	18318	lexical variables that are reinitialized each time their enclosing block
18093	18319	is entered.
18094	18320	See L<perlsub/"Persistent Private Variables"> for details.
18095	18321
18096	18322	=end original
18097	18323
18098	18324	L<C<state>\|/state VARLIST> はちょうど L<C<my>\|/my VARLIST> と同様に、
18099	18325	レキシカルなスコープの変数を宣言します。
18100	18326	しかし、レキシカル変数がブロックに入る毎に再初期化されるのと異なり、
18101	18327	この変数は決して再初期化されません。
18102	18328	詳しくは L<perlsub/"Persistent Private Variables"> を参照してください。
18103	18329
18104	18330	=begin original
18105	18331
18106	18332	If more than one variable is listed, the list must be placed in
18107	18333	parentheses. With a parenthesised list, L<C<undef>\|/undef EXPR> can be
18108	18334	used as a
18109	18335	dummy placeholder. However, since initialization of state variables in
18110	18336	such lists is currently not possible this would serve no purpose.
18111	18337
18112	18338	=end original
18113	18339
18114		複数の変数を指定する場合、かっこで囲まなければなりません。
	18340	複数の変数を指定する場合は、リストはかっこで囲まなければなりません。
18115	18341	かっこで囲まれたリストでは、L<C<undef>\|/undef EXPR> はダミーの
18116	18342	プレースホルダとして使えます。
18117	18343	しかし、そのようなリストでの state 変数の初期化は現在のところできないので、
18118	18344	これは無意味です。
18119	18345
18120	18346	=begin original
18121	18347
	18348	Redeclaring a variable in the same scope or statement will "shadow" the
	18349	previous declaration, creating a new instance and preventing access to
	18350	the previous one. This is usually undesired and, if warnings are enabled,
	18351	will result in a warning in the C<shadow> category.
	18352
	18353	=end original
	18354
	18355	同じスコープや文で変数を再宣言すると、以前の宣言を「隠し」、
	18356	新しい実体を作って、以前の実体にアクセスできなくなります。
	18357	これは普通は望まれているものではなく、警告が有効なら、
	18358	C<shadow> カテゴリの警告が出ます。
	18359
	18360	=begin original
	18361
18122	18362	L<C<state>\|/state VARLIST> is available only if the
18123	18363	L<C<"state"> feature\|feature/The 'state' feature> is enabled or if it is
18124	18364	prefixed with C<CORE::>. The
18125	18365	L<C<"state"> feature\|feature/The 'state' feature> is enabled
18126	18366	automatically with a C<use v5.10> (or higher) declaration in the current
18127	18367	scope.
18128	18368
18129	18369	=end original
18130	18370
18131	18371	L<C<state>\|/state VARLIST> は
18132	18372	L<C<"state"> 機能\|feature/The 'state' feature> が有効か C<CORE::> を
18133	18373	前置した場合にのみ利用可能です。
18134	18374	L<C<"state"> 機能\|feature/The 'state' feature> は現在のスコープで
18135	18375	C<use v5.10> (またはそれ以上) を宣言した場合自動的に有効になります。
18136	18376
18137	18377	=item study SCALAR
18138	18378	X<study>
18139	18379
18140	18380	=item study
18141	18381
18142	18382	=for Pod::Functions no-op, formerly optimized input data for repeated searches
18143	18383
18144	18384	=begin original
18145	18385
18146	18386	At this time, C<study> does nothing. This may change in the future.
18147	18387
18148	18388	=end original
18149	18389
18150	18390	現時点では、C<study> は何もしません。
18151	18391	これは将来変更されるかもしれません。
18152	18392
18153	18393	=begin original
18154	18394
18155	18395	Prior to Perl version 5.16, it would create an inverted index of all characters
18156	18396	that occurred in the given SCALAR (or L<C<$_>\|perlvar/$_> if unspecified). When
18157	18397	matching a pattern, the rarest character from the pattern would be looked up in
18158	18398	this index. Rarity was based on some static frequency tables constructed from
18159	18399	some C programs and English text.
18160	18400
18161	18401	=end original
18162	18402
18163	18403	Perl バージョン 5.16 より前では、
18164	18404	与えられた SCALAR (または指定されていなかった場合は L<C<$_>\|perlvar/$_>)に
18165	18405	現れた全ての文字の転置インデックスを作ります。
18166	18406	パターンにマッチングしたとき、
18167	18407	パターン中の最も頻度の少ない文字がこのインデックスから探されます。
18168	18408	頻度は、C プログラムと英語の文章から構築された静的頻度テーブルを
18169	18409	基にしています。
18170	18410
18171	18411	=item sub NAME BLOCK
18172	18412	X<sub>
18173	18413
18174	18414	=item sub NAME (PROTO) BLOCK
18175	18415
18176	18416	=item sub NAME : ATTRS BLOCK
18177	18417
18178	18418	=item sub NAME (PROTO) : ATTRS BLOCK
18179	18419
18180	18420	=for Pod::Functions declare a subroutine, possibly anonymously
18181	18421
18182	18422	=begin original
18183	18423
18184	18424	This is subroutine definition, not a real function I<per se>. Without a
18185	18425	BLOCK it's just a forward declaration. Without a NAME, it's an anonymous
18186	18426	function declaration, so does return a value: the CODE ref of the closure
18187	18427	just created.
18188	18428
18189	18429	=end original
18190	18430
18191	18431	これはサブルーチン定義であり、I<本質的には> 実際の関数ではありません。
18192	18432	BLOCK なしの場合、これは単に前方宣言です。
18193	18433	NAME なしの場合は、無名関数定義であり、値(作成したブロックの
18194	18434	コードリファレンス)を返します: 単にクロージャの CODE リファレンスが
18195	18435	作成されます。
18196	18436
18197	18437	=begin original
18198	18438
18199	18439	See L<perlsub> and L<perlref> for details about subroutines and
18200	18440	references; see L<attributes> and L<Attribute::Handlers> for more
18201	18441	information about attributes.
18202	18442
18203	18443	=end original
18204	18444
18205	18445	サブルーチンとリファレンスに関する詳細については、L<perlsub> と
18206	18446	L<perlref> を参照してください; 属性に関する更なる情報については
18207	18447	L<attributes> と L<Attribute::Handlers> を参照してください。
18208	18448
18209	18449	=item __SUB__
18210	18450	X<__SUB__>
18211	18451
18212	18452	=for Pod::Functions +current_sub the current subroutine, or C<undef> if not in a subroutine
18213	18453
18214	18454	=begin original
18215	18455
18216	18456	A special token that returns a reference to the current subroutine, or
18217	18457	L<C<undef>\|/undef EXPR> outside of a subroutine.
18218	18458
18219	18459	=end original
18220	18460
18221	18461	現在のサブルーチンのリファレンスを返す特殊トークン; サブルーチンの外側では
18222	18462	L<C<undef>\|/undef EXPR>。
18223	18463
18224	18464	=begin original
18225	18465
18226	18466	The behaviour of L<C<__SUB__>\|/__SUB__> within a regex code block (such
18227	18467	as C</(?{...})/>) is subject to change.
18228	18468
18229	18469	=end original
18230	18470
18231	18471	(C</(?{...})/> のような) 正規表現コードブロックの中の
18232	18472	L<C<__SUB__>\|/__SUB__> の振る舞いは変更される予定です。
18233	18473
18234	18474	=begin original
18235	18475
18236	18476	This token is only available under C<use v5.16> or the
18237	18477	L<C<"current_sub"> feature\|feature/The 'current_sub' feature>.
18238	18478	See L<feature>.
18239	18479
18240	18480	=end original
18241	18481
18242	18482	このトークンは C<use v5.16> または
18243	18483	L<C<"current_sub"> 機能\|feature/The 'current_sub' feature> でのみ
18244	18484	利用可能です。
18245	18485	L<feature> を参照してください。
18246	18486
18247	18487	=item substr EXPR,OFFSET,LENGTH,REPLACEMENT
18248	18488	X<substr> X<substring> X<mid> X<left> X<right>
18249	18489
18250	18490	=item substr EXPR,OFFSET,LENGTH
18251	18491
18252	18492	=item substr EXPR,OFFSET
18253	18493
18254	18494	=for Pod::Functions get or alter a portion of a string
18255	18495
18256	18496	=begin original
18257	18497
18258	18498	Extracts a substring out of EXPR and returns it. First character is at
18259	18499	offset zero. If OFFSET is negative, starts
18260	18500	that far back from the end of the string. If LENGTH is omitted, returns
18261	18501	everything through the end of the string. If LENGTH is negative, leaves that
18262	18502	many characters off the end of the string.
18263	18503
18264	18504	=end original
18265	18505
18266	18506	EXPR から、部分文字列を取り出して返します。
18267	18507	最初の文字がオフセット 0 となります。
18268	18508	OFFSET に負の値を設定すると、EXPR の終わりからのオフセットとなります。
18269	18509	LENGTH を省略すると、EXPR の最後まですべてが返されます。
18270	18510	LENGTH が負の値だと、文字列の最後から指定された数だけ文字を取り除きます。
18271	18511
18272	18512	my $s = "The black cat climbed the green tree";
18273	18513	my $color = substr $s, 4, 5; # black
18274	18514	my $middle = substr $s, 4, -11; # black cat climbed the
18275	18515	my $end = substr $s, 14; # climbed the green tree
18276	18516	my $tail = substr $s, -4; # tree
18277	18517	my $z = substr $s, -4, 2; # tr
18278	18518
18279	18519	=begin original
18280	18520
18281	18521	You can use the L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT>
18282	18522	function as an lvalue, in which case EXPR
18283	18523	must itself be an lvalue. If you assign something shorter than LENGTH,
18284	18524	the string will shrink, and if you assign something longer than LENGTH,
18285	18525	the string will grow to accommodate it. To keep the string the same
18286	18526	length, you may need to pad or chop your value using
18287	18527	L<C<sprintf>\|/sprintf FORMAT, LIST>.
18288	18528
18289	18529	=end original
18290	18530
18291	18531	L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> を左辺値として
18292	18532	使用することも可能で、その場合には、EXPR が自身左辺値でなければなりません。
18293	18533	LENGTH より短いものを代入したときには、
18294	18534	EXPR は短くなり、LENGTH より長いものを代入したときには、
18295	18535	EXPR はそれに合わせて伸びることになります。
18296	18536	EXPR の長さを一定に保つためには、L<C<sprintf>\|/sprintf FORMAT, LIST> を
18297	18537	使って、代入する値の長さを調整することが、必要になるかもしれません。
18298	18538
18299	18539	=begin original
18300	18540
18301	18541	If OFFSET and LENGTH specify a substring that is partly outside the
18302	18542	string, only the part within the string is returned. If the substring
18303	18543	is beyond either end of the string,
18304	18544	L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> returns the undefined
18305	18545	value and produces a warning. When used as an lvalue, specifying a
18306	18546	substring that is entirely outside the string raises an exception.
18307	18547	Here's an example showing the behavior for boundary cases:
18308	18548
18309	18549	=end original
18310	18550
18311	18551	OFFSET と LENGTH として文字列の外側を含むような部分文字列が指定されると、
18312	18552	文字列の内側の部分だけが返されます。
18313	18553	部分文字列が文字列の両端の外側の場合、
18314	18554	L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> は未定義値を返し、
18315	18555	警告が出力されます。
18316	18556	左辺値として使った場合、文字列の完全に外側を部分文字列として指定すると
18317	18557	例外が発生します。
18318	18558	以下は境界条件の振る舞いを示す例です:
18319	18559
18320	18560	my $name = 'fred';
18321	18561	substr($name, 4) = 'dy'; # $name is now 'freddy'
18322	18562	my $null = substr $name, 6, 2; # returns "" (no warning)
18323	18563	my $oops = substr $name, 7; # returns undef, with warning
18324	18564	substr($name, 7) = 'gap'; # raises an exception
18325	18565
18326	18566	=begin original
18327	18567
18328	18568	An alternative to using
18329	18569	L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> as an lvalue is to
18330	18570	specify the
18331	18571	replacement string as the 4th argument. This allows you to replace
18332	18572	parts of the EXPR and return what was there before in one operation,
18333	18573	just as you can with
18334	18574	L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST>.
18335	18575
18336	18576	=end original
18337	18577
18338	18578	L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> を左辺値として使う
18339	18579	代わりの方法は、置き換える文字列を 4 番目の引数として指定することです。
18340	18580	これにより、EXPR の一部を置き換え、置き換える前が何であったかを返す、
18341	18581	ということを(L<C<splice>\|/splice ARRAY,OFFSET,LENGTH,LIST> と同様)
18342	18582	1 動作で行えます。
18343	18583
18344	18584	my $s = "The black cat climbed the green tree";
18345	18585	my $z = substr $s, 14, 7, "jumped from"; # climbed
18346	18586	# $s is now "The black cat jumped from the green tree"
18347	18587
18348	18588	=begin original
18349	18589
18350	18590	Note that the lvalue returned by the three-argument version of
18351	18591	L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> acts as
18352	18592	a 'magic bullet'; each time it is assigned to, it remembers which part
18353	18593	of the original string is being modified; for example:
18354	18594
18355	18595	=end original
18356	18596
18357	18597	3 引数の L<C<substr>\|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> によって返された
18358	18598	左辺値は「魔法の弾丸」のように振舞うことに注意してください;
18359	18599	これが代入される毎に、元の文字列のどの部分が変更されたかが思い出されます;
18360	18600	例えば:
18361	18601
18362	18602	my $x = '1234';
18363	18603	for (substr($x,1,2)) {
18364	18604	$_ = 'a'; print $x,"\n"; # prints 1a4
18365	18605	$_ = 'xyz'; print $x,"\n"; # prints 1xyz4
18366	18606	$x = '56789';
18367	18607	$_ = 'pq'; print $x,"\n"; # prints 5pq9
18368	18608	}
18369	18609
18370	18610	=begin original
18371	18611
18372	18612	With negative offsets, it remembers its position from the end of the string
18373	18613	when the target string is modified:
18374	18614
18375	18615	=end original
18376	18616
18377	18617	負数のオフセットの場合、ターゲット文字列が修正されたときに文字列の末尾からの
18378	18618	位置を覚えます:
18379	18619
18380	18620	my $x = '1234';
18381	18621	for (substr($x, -3, 2)) {
18382	18622	$_ = 'a'; print $x,"\n"; # prints 1a4, as above
18383	18623	$x = 'abcdefg';
18384	18624	print $_,"\n"; # prints f
18385	18625	}
18386	18626
18387	18627	=begin original
18388	18628
18389	18629	Prior to Perl version 5.10, the result of using an lvalue multiple times was
18390	18630	unspecified. Prior to 5.16, the result with negative offsets was
18391	18631	unspecified.
18392	18632
18393	18633	=end original
18394	18634
18395	18635	バージョン 5.10 より前の Perl では、複数回左辺値を使った場合の結果は
18396	18636	未定義でした。
18397	18637	5.16 より前では、負のオフセットの結果は未定義です。
18398	18638
18399	18639	=item symlink OLDFILE,NEWFILE
18400	18640	X<symlink> X<link> X<symbolic link> X<link, symbolic>
18401	18641
18402	18642	=for Pod::Functions create a symbolic link to a file
18403	18643
18404	18644	=begin original
18405	18645
18406	18646	Creates a new filename symbolically linked to the old filename.
18407	18647	Returns C<1> for success, C<0> otherwise. On systems that don't support
18408	18648	symbolic links, raises an exception. To check for that,
18409	18649	use eval:
18410	18650
18411	18651	=end original
18412	18652
18413	18653	NEWFILE として、OLDFILE へのシンボリックリンクを生成します。
18414	18654	成功時には C<1> を返し、失敗時には C<0> を返します。
18415	18655	シンボリックリンクをサポートしていないシステムでは、
18416	18656	例外が発生します。
18417	18657	これをチェックするには、eval を使用します:
18418	18658
18419	18659	my $symlink_exists = eval { symlink("",""); 1 };
18420	18660
18421	18661	=begin original
18422	18662
18423	18663	Portability issues: L<perlport/symlink>.
18424	18664
18425	18665	=end original
18426	18666
18427	18667	移植性の問題: L<perlport/symlink>。
18428	18668
18429	18669	=item syscall NUMBER, LIST
18430	18670	X<syscall> X<system call>
18431	18671
18432	18672	=for Pod::Functions execute an arbitrary system call
18433	18673
18434	18674	=begin original
18435	18675
18436	18676	Calls the system call specified as the first element of the list,
18437	18677	passing the remaining elements as arguments to the system call. If
18438	18678	unimplemented, raises an exception. The arguments are interpreted
18439	18679	as follows: if a given argument is numeric, the argument is passed as
18440	18680	an int. If not, the pointer to the string value is passed. You are
18441	18681	responsible to make sure a string is pre-extended long enough to
18442	18682	receive any result that might be written into a string. You can't use a
18443	18683	string literal (or other read-only string) as an argument to
18444	18684	L<C<syscall>\|/syscall NUMBER, LIST> because Perl has to assume that any
18445	18685	string pointer might be written through. If your
18446	18686	integer arguments are not literals and have never been interpreted in a
18447	18687	numeric context, you may need to add C<0> to them to force them to look
18448	18688	like numbers. This emulates the
18449	18689	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET> function (or
18450	18690	vice versa):
18451	18691
18452	18692	=end original
18453	18693
18454	18694	LIST の最初の要素で指定するシステムコールを、残りの要素をその
18455	18695	システムコールの引数として呼び出します。
18456	18696	実装されていない場合には、例外が発生します。
18457	18697	引数は、以下のように解釈されます: 引数が数字であれば、int として
18458	18698	引数を渡します。
18459	18699	そうでなければ、文字列値へのポインタが渡されます。
18460	18700	文字列に結果を受け取るときには、その結果を受け取るのに十分なくらいに、
18461	18701	文字列を予め伸ばしておく必要があります。
18462	18702	文字列リテラル(あるいはその他の読み込み専用の文字列)を
18463	18703	L<C<syscall>\|/syscall NUMBER, LIST> の引数として使うことはできません;
18464	18704	Perl は全ての文字列ポインタは書き込まれると仮定しなければならないからです。
18465	18705	整数引数が、リテラルでなく、数値コンテキストで評価されたことのない
18466	18706	ものであれば、数値として解釈されるように、
18467	18707	C<0> を足しておく必要があるかもしれません。
18468	18708	以下は L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET> 関数(あるいは
18469	18709	その逆)をエミュレートします。
18470	18710
18471	18711	require 'syscall.ph'; # may need to run h2ph
18472	18712	my $s = "hi there\n";
18473	18713	syscall(SYS_write(), fileno(STDOUT), $s, length $s);
18474	18714
18475	18715	=begin original
18476	18716
18477	18717	Note that Perl supports passing of up to only 14 arguments to your syscall,
18478	18718	which in practice should (usually) suffice.
18479	18719
18480	18720	=end original
18481	18721
18482	18722	Perl は、システムコールに最大 14 個の引数しか渡せませんが、
18483	18723	(普通は)実用上問題はないでしょう。
18484	18724
18485	18725	=begin original
18486	18726
18487	18727	Syscall returns whatever value returned by the system call it calls.
18488	18728	If the system call fails, L<C<syscall>\|/syscall NUMBER, LIST> returns
18489	18729	C<-1> and sets L<C<$!>\|perlvar/$!> (errno).
18490	18730	Note that some system calls I<can> legitimately return C<-1>. The proper
18491	18731	way to handle such calls is to assign C<$! = 0> before the call, then
18492	18732	check the value of L<C<$!>\|perlvar/$!> if
18493	18733	L<C<syscall>\|/syscall NUMBER, LIST> returns C<-1>.
18494	18734
18495	18735	=end original
18496	18736
18497	18737	syscall は、呼び出したシステムコールが返した値を返します。
18498	18738	システムコールが失敗すると、L<C<syscall>\|/syscall NUMBER, LIST> は C<-1> を
18499	18739	返し、L<C<$!>\|perlvar/$!>(errno) を設定します。
18500	18740	システムコールが正常に C<-1> を返す I<場合がある> ことに注意してください。
18501	18741	このようなシステムコールを正しく扱うには、
18502	18742	C<$! = 0> をシステムコールの前に実行し、それから
18503	18743	L<C<syscall>\|/syscall NUMBER, LIST> が C<-1> を返した時には
18504	18744	L<C<$!>\|perlvar/$!> の値を調べてください。
18505	18745
18506	18746	=begin original
18507	18747
18508	18748	There's a problem with C<syscall(SYS_pipe())>: it returns the file
18509	18749	number of the read end of the pipe it creates, but there is no way
18510	18750	to retrieve the file number of the other end. You can avoid this
18511	18751	problem by using L<C<pipe>\|/pipe READHANDLE,WRITEHANDLE> instead.
18512	18752
18513	18753	=end original
18514	18754
18515	18755	C<syscall(&SYS_pipe)> には問題があり、作ったパイプの、読み出し側の
18516	18756	ファイル番号を返しますが、もう一方のファイル番号を得る方法がありません。
18517	18757	この問題を避けるためには、代わりに L<C<pipe>\|/pipe READHANDLE,WRITEHANDLE> を
18518	18758	使ってください。
18519	18759
18520	18760	=begin original
18521	18761
18522	18762	Portability issues: L<perlport/syscall>.
18523	18763
18524	18764	=end original
18525	18765
18526	18766	移植性の問題: L<perlport/syscall>。
18527	18767
18528	18768	=item sysopen FILEHANDLE,FILENAME,MODE
18529	18769	X<sysopen>
18530	18770
18531	18771	=item sysopen FILEHANDLE,FILENAME,MODE,PERMS
18532	18772
18533	18773	=for Pod::Functions +5.002 open a file, pipe, or descriptor
18534	18774
18535	18775	=begin original
18536	18776
18537	18777	Opens the file whose filename is given by FILENAME, and associates it with
18538	18778	FILEHANDLE. If FILEHANDLE is an expression, its value is used as the real
18539	18779	filehandle wanted; an undefined scalar will be suitably autovivified. This
18540	18780	function calls the underlying operating system's L<open(2)> function with the
18541	18781	parameters FILENAME, MODE, and PERMS.
18542	18782
18543	18783	=end original
18544	18784
18545	18785	FILENAME で与えられたファイル名のファイルをオープンし、
18546	18786	FILEHANDLE と結び付けます。
18547	18787	FILEHANDLE が式の場合、その値は実際の求めているファイルハンドルの名前として
18548	18788	扱われます; 未定義のスカラは適切に自動有効化されます。
18549	18789	この関数呼び出しはシステムの L<open(2)> 関数を FILENAME, MODE, PERMS の
18550	18790	引数で呼び出すことを基礎としています。
18551	18791
18552	18792	=begin original
18553	18793
18554	18794	Returns true on success and L<C<undef>\|/undef EXPR> otherwise.
18555	18795
18556	18796	=end original
18557	18797
18558	18798	成功時は真を、さもなければ L<C<undef>\|/undef EXPR> を返します。
18559	18799
18560	18800	=begin original
18561	18801
18562	18802	L<PerlIO> layers will be applied to the handle the same way they would in an
18563	18803	L<C<open>\|/open FILEHANDLE,MODE,EXPR> call that does not specify layers. That is,
18564	18804	the current value of L<C<${^OPEN}>\|perlvar/${^OPEN}> as set by the L<open>
18565	18805	pragma in a lexical scope, or the C<-C> commandline option or C<PERL_UNICODE>
18566	18806	environment variable in the main program scope, falling back to the platform
18567	18807	defaults as described in L<PerlIO/Defaults and how to override them>. If you
18568	18808	want to remove any layers that may transform the byte stream, use
18569	18809	L<C<binmode>\|/binmode FILEHANDLE, LAYER> after opening it.
18570	18810
18571	18811	=end original
18572	18812
18573	18813	L<PerlIO> 層は、層を指定しない L<C<open>\|/open FILEHANDLE,MODE,EXPR>
18574	18814	呼び出しでするのと同じ方法でハンドルに適用されます。
18575	18815	これは、レキシカルスコープの L<open> プラグマで設定された
18576	18816	L<C<${^OPEN}>\|perlvar/${^OPEN}> の現在の値、
18577	18817	またはメインプログラムスコープの C<-C> コマンドラインオプションまたは
18578	18818	C<PERL_UNICODE> 環境変数、L<PerlIO/Defaults and how to override them> で
18579	18819	記述されているようにプラットフォームのデフォルトに
18580	18820	フォールバックしたものです。
18581	18821	バイトストリームを変換する全ての層を除去したい場合は、
18582	18822	それを開いた後に L<C<binmode>\|/binmode FILEHANDLE, LAYER> を使ってください。
18583	18823
18584	18824	=begin original
18585	18825
18586	18826	The possible values and flag bits of the MODE parameter are
18587	18827	system-dependent; they are available via the standard module
18588	18828	L<C<Fcntl>\|Fcntl>. See the documentation of your operating system's
18589	18829	L<open(2)> syscall to see
18590	18830	which values and flag bits are available. You may combine several flags
18591	18831	using the C<\|>-operator.
18592	18832
18593	18833	=end original
18594	18834
18595	18835	MODE パラメータに指定できるフラグビットと値はシステム依存です;
18596	18836	これは標準モジュール L<C<Fcntl>\|Fcntl> 経由で利用可能です。
18597	18837	どのようなフラグビットと値が利用可能であるかについては、
18598	18838	OS の L<open(2)> システムコールに関する文書を参照してください。
18599	18839	C<\|> 演算子を使って複数のフラグを結合することができます。
18600	18840
18601	18841	=begin original
18602	18842
18603	18843	Some of the most common values are C<O_RDONLY> for opening the file in
18604	18844	read-only mode, C<O_WRONLY> for opening the file in write-only mode,
18605	18845	and C<O_RDWR> for opening the file in read-write mode.
18606	18846	X<O_RDONLY> X<O_RDWR> X<O_WRONLY>
18607	18847
18608	18848	=end original
18609	18849
18610	18850	もっともよく使われる値は、ファイルを読み込み専用で開く C<O_RDONLY>、
18611	18851	ファイルを書き込み専用で開く C<O_WRONLY>、
18612	18852	ファイルを読み書き両用で開く C<O_RDWR> です。
18613	18853	X<O_RDONLY> X<O_RDWR> X<O_WRONLY>
18614	18854
18615	18855	=begin original
18616	18856
18617	18857	For historical reasons, some values work on almost every system
18618	18858	supported by Perl: 0 means read-only, 1 means write-only, and 2
18619	18859	means read/write. We know that these values do I<not> work under
18620		OS/390 ~~and on the Macintosh~~; you probably don't want to
	18860	OS/390; you probably don't want to use them in new code.
18621		use them in new code.
18622	18861
18623	18862	=end original
18624	18863
18625	18864	歴史的な理由により、Perl が対応しているほとんどのシステムで使える値が
18626	18865	あります:0 は読み込み専用、1 は書き込み専用、2 は読み書き両用を意味します。
18627		OS/390 ~~と Macintosh~~ では動作 I<しない> ことが分かっています;
	18866	OS/390 では動作 I<しない> ことが分かっています;
18628	18867	新しく書くコードではこれらは使わないほうがよいでしょう。
18629	18868
18630	18869	=begin original
18631	18870
18632	18871	If the file named by FILENAME does not exist and the
18633	18872	L<C<open>\|/open FILEHANDLE,MODE,EXPR> call creates
18634	18873	it (typically because MODE includes the C<O_CREAT> flag), then the value of
18635	18874	PERMS specifies the permissions of the newly created file. If you omit
18636	18875	the PERMS argument to L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE>,
18637	18876	Perl uses the octal value C<0666>.
18638	18877	These permission values need to be in octal, and are modified by your
18639	18878	process's current L<C<umask>\|/umask EXPR>.
18640	18879	X<O_CREAT>
18641	18880
18642	18881	=end original
18643	18882
18644	18883	FILENAME という名前のファイルが存在せず、(典型的には MODE が
18645	18884	C<O_CREAT> フラグを含んでいたために)
18646	18885	L<C<open>\|/open FILEHANDLE,MODE,EXPR> 呼び出しがそれを作った場合、
18647	18886	PERMS の値は新しく作られたファイルの権限を指定します。
18648	18887	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> の PERMS 引数を省略した場合、
18649	18888	Perl は 8 進数 C<0666> を使います。
18650	18889	これらの権限は 8 進数である必要があり、プロセスの現在の
18651	18890	L<C<umask>\|/umask EXPR> で修正されます。
18652	18891	X<O_CREAT>
18653	18892
18654	18893	=begin original
18655	18894
18656	18895	In many systems the C<O_EXCL> flag is available for opening files in
18657	18896	exclusive mode. This is B<not> locking: exclusiveness means here that
18658	18897	if the file already exists,
18659	18898	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> fails. C<O_EXCL> may
18660	18899	not work
18661	18900	on network filesystems, and has no effect unless the C<O_CREAT> flag
18662	18901	is set as well. Setting C<O_CREAT\|O_EXCL> prevents the file from
18663	18902	being opened if it is a symbolic link. It does not protect against
18664	18903	symbolic links in the file's path.
18665	18904	X<O_EXCL>
18666	18905
18667	18906	=end original
18668	18907
18669	18908	多くのシステムではファイルを排他モードで開くために C<O_EXCL> が
18670	18909	利用可能です。
18671	18910	これはロック B<ではありません>: 排他性というのは既にファイルが
18672	18911	存在していた場合、L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> が
18673	18912	失敗することを意味します。
18674	18913	C<O_EXCL> はネットワークファイルシステムでは動作せず、
18675	18914	またC<O_CREAT> フラグも有効でない限りは効果がありません。
18676	18915	C<O_CREAT\|O_EXCL> をセットすると、これがシンボリックリンクだった場合は
18677	18916	ファイルを開くことを妨げます。
18678	18917	これはファイルパス中のシンボリックリンクは守りません。
18679	18918	X<O_EXCL>
18680	18919
18681	18920	=begin original
18682	18921
18683	18922	Sometimes you may want to truncate an already-existing file. This
18684	18923	can be done using the C<O_TRUNC> flag. The behavior of
18685	18924	C<O_TRUNC> with C<O_RDONLY> is undefined.
18686	18925	X<O_TRUNC>
18687	18926
18688	18927	=end original
18689	18928
18690	18929	既に存在しているファイルを切り詰めたい場合もあるかもしれません。
18691	18930	これは C<O_TRUNC> フラグを使うことで行えます。
18692	18931	C<O_RDONLY> と C<O_TRUNC> を同時に指定したときの振る舞いは未定義です。
18693	18932	X<O_TRUNC>
18694	18933
18695	18934	=begin original
18696	18935
18697	18936	You should seldom if ever use C<0644> as argument to
18698	18937	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE>, because
18699	18938	that takes away the user's option to have a more permissive umask.
18700	18939	Better to omit it. See L<C<umask>\|/umask EXPR> for more on this.
18701	18940
18702	18941	=end original
18703	18942
18704	18943	めったなことでは L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> の引数に
18705	18944	C<0644> を指定するべきではないでしょう:
18706	18945	ユーザーがより寛大な umask を指定する選択肢を奪うからです。
18707	18946	省略した方がいいです。
18708	18947	これに関するさらなる情報については L<C<umask>\|/umask EXPR> を
18709	18948	参照してください。
18710	18949
18711	18950	=begin original
18712	18951
18713	18952	This function has no direct relation to the usage of
18714	18953	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
18715	18954	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>,
18716	18955	or L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE>. A handle opened with
18717	18956	this function can be used with buffered IO just as one opened with
18718	18957	L<C<open>\|/open FILEHANDLE,MODE,EXPR> can be used with unbuffered IO.
18719	18958
18720	18959	=end original
18721	18960
18722	18961	この関数は、
18723	18962	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
18724	18963	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>,
18725	18964	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> の使用法と
18726	18965	直接の関係はありません。
18727	18966	この関数で開かれたハンドルがバッファリングされた IO で使えるのと同様、
18728	18967	L<C<open>\|/open FILEHANDLE,MODE,EXPR> で開かれたものは
18729	18968	バッファリングされない IO で使えます。
18730	18969
18731	18970	=begin original
18732	18971
18733	18972	Note that under Perls older than 5.8.0,
18734	18973	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> depends on the
18735	18974	L<fdopen(3)> C library function. On many Unix systems, L<fdopen(3)> is known
18736	18975	to fail when file descriptors exceed a certain value, typically 255. If
18737	18976	you need more file descriptors than that, consider using the
18738	18977	L<C<POSIX::open>\|POSIX/C<open>> function. For Perls 5.8.0 and later,
18739	18978	PerlIO is (most often) the default.
18740	18979
18741	18980	=end original
18742	18981
18743	18982	5.8.0 より古い Perl では、
18744	18983	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> は
18745	18984	C の L<fdopen(3)> ライブラリ関数に依存していることに注意してください。
18746	18985	多くの Unix システムでは、L<fdopen(3)> はファイル記述子がある値(例えば 255)を
18747	18986	超えると失敗することが知られています。
18748	18987	これより多くのファイル記述子が必要な場合は、
18749	18988	L<C<POSIX::open>\|POSIX/C<open>> 関数を使うことを検討してください。
18750		~~Perl~~ 5.8.0 以降では、(ほぼ確実に) PerlIO がデフォルトです。
	18989	5.8.0 以降の Perl では、(ほぼ確実に) PerlIO がデフォルトです。
18751	18990
18752	18991	=begin original
18753	18992
18754	18993	See L<perlopentut> for a kinder, gentler explanation of opening files.
18755	18994
18756	18995	=end original
18757	18996
18758	18997	ファイルを開くことに関するより親切な説明については L<perlopentut> を
18759	18998	参照してください。
18760	18999
18761	19000	=begin original
18762	19001
18763	19002	Portability issues: L<perlport/sysopen>.
18764	19003
18765	19004	=end original
18766	19005
18767	19006	移植性の問題: L<perlport/sysopen>。
18768	19007
18769	19008	=item sysread FILEHANDLE,SCALAR,LENGTH,OFFSET
18770	19009	X<sysread>
18771	19010
18772	19011	=item sysread FILEHANDLE,SCALAR,LENGTH
18773	19012
18774	19013	=for Pod::Functions fixed-length unbuffered input from a filehandle
18775	19014
18776	19015	=begin original
18777	19016
18778	19017	Attempts to read LENGTH bytes of data into variable SCALAR from the
18779	19018	specified FILEHANDLE, using L<read(2)>. It bypasses any L<PerlIO> layers
18780	19019	including buffered IO (but is affected by the presence of the C<:utf8>
18781	19020	layer as described later), so mixing this with other kinds of reads,
18782	19021	L<C<print>\|/print FILEHANDLE LIST>, L<C<write>\|/write FILEHANDLE>,
18783	19022	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
18784	19023	L<C<tell>\|/tell FILEHANDLE>, or L<C<eof>\|/eof FILEHANDLE> can cause
18785	19024	confusion because the
18786	19025	C<:perlio> or C<:crlf> layers usually buffer data. Returns the number of
18787	19026	bytes actually read, C<0> at end of file, or undef if there was an
18788	19027	error (in the latter case L<C<$!>\|perlvar/$!> is also set). SCALAR will
18789	19028	be grown or
18790	19029	shrunk so that the last byte actually read is the last byte of the
18791	19030	scalar after the read.
18792	19031
18793	19032	=end original
18794	19033
18795	19034	L<read(2)> を用いて、指定した FILEHANDLE から、変数 SCALAR へ、LENGTH バイトの
18796	19035	データの読み込みを試みます。
18797	19036	これは、バッファ付き IO ルーチンを含むどの L<PerlIO> も通らないので
18798	19037	(しかし、後述するように C<:utf8> の存在の影響を受けます)、他の入力関数、
18799	19038	L<C<print>\|/print FILEHANDLE LIST>, L<C<write>\|/write FILEHANDLE>,
18800	19039	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>, L<C<tell>\|/tell FILEHANDLE>,
18801	19040	L<C<eof>\|/eof FILEHANDLE> と混ぜて使うと、入力がおかしくなるかも
18802	19041	しれません;
18803	19042	C<:perlio> 層や C<:crlf> 層は普通データをバッファリングするからです。
18804	19043	ファイルの最後では C<0>が、エラー時には undef が、それ以外では実際に
18805	19044	読み込まれたデータの長さが返されます (後者の場合は L<C<$!>\|perlvar/$!> も
18806	19045	セットされます)。
18807	19046	実際に読み込んだ最後のバイトが read した後の最後のバイトになるので、
18808	19047	SCALAR は伸び縮みします。
18809	19048
18810	19049	=begin original
18811	19050
18812	19051	An OFFSET may be specified to place the read data at some place in the
18813	19052	string other than the beginning. A negative OFFSET specifies
18814	19053	placement at that many characters counting backwards from the end of
18815	19054	the string. A positive OFFSET greater than the length of SCALAR
18816	19055	results in the string being padded to the required size with C<"\0">
18817	19056	bytes before the result of the read is appended.
18818	19057
18819	19058	=end original
18820	19059
18821	19060	OFFSET を指定すると、文字列の先頭以外の場所から読み込みを行なえます。
18822	19061	OFFSET に負の値を指定すると、文字列の最後から逆向きに何文字目かで
18823	19062	位置を指定します。
18824	19063	OFFSET が正の値で、SCALAR の長さよりも大きかった場合、文字列は読み込みの結果が
18825	19064	追加される前に、必要なサイズまで C<"\0"> のバイトでパッディングされます。
18826	19065
18827	19066	=begin original
18828	19067
18829	19068	There is no syseof() function, which is ok, since
18830	19069	L<C<eof>\|/eof FILEHANDLE> doesn't work well on device files (like ttys)
18831	19070	anyway. Use L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> and
18832	19071	check for a return value of 0 to decide whether you're done.
18833	19072
18834	19073	=end original
18835	19074
18836	19075	syseof() 関数はありませんが、問題ありません; どちらにしろ
18837	19076	L<C<eof>\|/eof FILEHANDLE> は
18838	19077	(tty のような)デバイスファイルに対してはうまく動作しないからです。
18839	19078	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> を使って、
18840	19079	返り値が 0 かどうかで最後まで読んだかを判断してください。
18841	19080
18842	19081	=begin original
18843	19082
18844	19083	Note that if the filehandle has been marked as C<:utf8>, C<sysread> will
18845	19084	throw an exception. The C<:encoding(...)> layer implicitly
18846	19085	introduces the C<:utf8> layer. See
18847	19086	L<C<binmode>\|/binmode FILEHANDLE, LAYER>,
18848	19087	L<C<open>\|/open FILEHANDLE,MODE,EXPR>, and the L<open> pragma.
18849	19088
18850	19089	=end original
18851	19090
18852	19091	ファイルハンドルが C<:utf8> であるとマークが付けられていると、
18853	19092	C<sysread> は例外を投げます。
18854		C<:encoding(...)> 層は暗黙~~のうち~~に C<:utf8> 層が導入されます。
	19093	C<:encoding(...)> 層は暗黙に C<:utf8> 層を導入します。
18855	19094	L<C<binmode>\|/binmode FILEHANDLE, LAYER>,
18856	19095	L<C<open>\|/open FILEHANDLE,MODE,EXPR>, L<open> プラグマを参照してください。
18857	19096
18858	19097	=item sysseek FILEHANDLE,POSITION,WHENCE
18859	19098	X<sysseek> X<lseek>
18860	19099
18861	19100	=for Pod::Functions +5.004 position I/O pointer on handle used with sysread and syswrite
18862	19101
18863	19102	=begin original
18864	19103
18865	19104	Sets FILEHANDLE's system position I<in bytes> using L<lseek(2)>. FILEHANDLE may
18866	19105	be an expression whose value gives the name of the filehandle. The values
18867	19106	for WHENCE are C<0> to set the new position to POSITION; C<1> to set it
18868	19107	to the current position plus POSITION; and C<2> to set it to EOF plus
18869	19108	POSITION, typically negative.
18870	19109
18871	19110	=end original
18872	19111
18873	19112	FILEHANDLE のシステム位置を I<バイト単位> で L<lseek(2)> を使って設定します。
18874	19113	FILEHANDLE は、実際のファイルハンドル名を与える式でもかまいません。
18875	19114	WHENCE の値が、C<0> ならば、新しい位置を POSITION の位置へ設定します;
18876	19115	C<1> ならば、現在位置から POSITION 加えた位置へ設定します; C<2> ならば、
18877	19116	EOF から POSITION だけ(普通は負の数です)加えた位置へ、新しい位置を
18878	19117	設定します。
18879	19118
18880	19119	=begin original
18881	19120
18882	19121	Note the emphasis on bytes: even if the filehandle has been set to operate
18883	19122	on characters (for example using the C<:encoding(UTF-8)> I/O layer), the
18884	19123	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
18885	19124	L<C<tell>\|/tell FILEHANDLE>, and
18886	19125	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE>
18887	19126	family of functions use byte offsets, not character offsets,
18888	19127	because seeking to a character offset would be very slow in a UTF-8 file.
18889	19128
18890	19129	=end original
18891	19130
18892	19131	バイト単位に対する注意: 例え(例えば C<:encoding(UTF-8)> I/O 層を使うなどして)
18893	19132	ファイルハンドルが文字単位で処理するように設定されていたとしても、
18894	19133	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
18895	19134	L<C<tell>\|/tell FILEHANDLE>,
18896	19135	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> シリーズの関数は
18897	19136	文字オフセットではなくバイトオフセットを使います;
18898	19137	文字オフセットでシークするのは UTF-8 ファイルではとても遅いからです。
18899	19138
18900	19139	=begin original
18901	19140
18902	19141	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> bypasses normal
18903	19142	buffered IO, so mixing it with reads other than
18904	19143	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> (for example
18905	19144	L<C<readline>\|/readline EXPR> or
18906	19145	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>),
18907	19146	L<C<print>\|/print FILEHANDLE LIST>, L<C<write>\|/write FILEHANDLE>,
18908	19147	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
18909	19148	L<C<tell>\|/tell FILEHANDLE>, or L<C<eof>\|/eof FILEHANDLE> may cause
18910	19149	confusion.
18911	19150
18912	19151	=end original
18913	19152
18914	19153	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> は普通のバッファ付き IO を
18915	19154	バイパスしますので、
18916	19155	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> 以外の (例えば
18917	19156	L<C<readline>\|/readline EXPR> や
18918	19157	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET> の)読み込み、
18919	19158	L<C<print>\|/print FILEHANDLE LIST>, L<C<write>\|/write FILEHANDLE>,
18920	19159	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>, L<C<tell>\|/tell FILEHANDLE>,
18921	19160	L<C<eof>\|/eof FILEHANDLE> と混ぜて使うと混乱を引き起こします。
18922	19161
18923	19162	=begin original
18924	19163
18925	19164	For WHENCE, you may also use the constants C<SEEK_SET>, C<SEEK_CUR>,
18926	19165	and C<SEEK_END> (start of the file, current position, end of the file)
18927	19166	from the L<Fcntl> module. Use of the constants is also more portable
18928	19167	than relying on 0, 1, and 2. For example to define a "systell" function:
18929	19168
18930	19169	=end original
18931	19170
18932	19171	WHENCE には、L<Fcntl> モジュールで使われている C<SEEK_SET>, C<SEEK_CUR>,
18933	19172	C<SEEK_END> (ファイルの先頭、現在位置、ファイルの最後)という定数を
18934	19173	使うこともできます。
18935	19174	定数の使用は 0, 1, 2 に依存するよりも移植性があります。
18936	19175	例えば "systell" 関数を定義するには:
18937	19176
18938	19177	use Fcntl 'SEEK_CUR';
18939	19178	sub systell { sysseek($_[0], 0, SEEK_CUR) }
18940	19179
18941	19180	=begin original
18942	19181
18943	19182	Returns the new position, or the undefined value on failure. A position
18944	19183	of zero is returned as the string C<"0 but true">; thus
18945	19184	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> returns
18946	19185	true on success and false on failure, yet you can still easily determine
18947	19186	the new position.
18948	19187
18949	19188	=end original
18950	19189
18951	19190	新しい位置を返します; 失敗したときは未定義値を返します。
18952	19191	位置がゼロの場合は、C<"0 but true"> の文字列として返されます; 従って
18953	19192	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> は成功時に真を返し、
18954	19193	失敗時に偽を返しますが、簡単に新しい位置を判定できます。
18955	19194
18956	19195	=item system LIST
18957	19196	X<system> X<shell>
18958	19197
18959	19198	=item system PROGRAM LIST
18960	19199
18961	19200	=for Pod::Functions run a separate program
18962	19201
18963	19202	=begin original
18964	19203
18965	19204	Does exactly the same thing as L<C<exec>\|/exec LIST>, except that a fork is
18966	19205	done first and the parent process waits for the child process to
18967	19206	exit. Note that argument processing varies depending on the
18968	19207	number of arguments. If there is more than one argument in LIST,
18969	19208	or if LIST is an array with more than one value, starts the program
18970	19209	given by the first element of the list with arguments given by the
18971	19210	rest of the list. If there is only one scalar argument, the argument
18972	19211	is checked for shell metacharacters, and if there are any, the
18973	19212	entire argument is passed to the system's command shell for parsing
18974	19213	(this is C</bin/sh -c> on Unix platforms, but varies on other
18975	19214	platforms). If there are no shell metacharacters in the argument,
18976	19215	it is split into words and passed directly to C<execvp>, which is
18977	19216	more efficient. On Windows, only the C<system PROGRAM LIST> syntax will
18978	19217	reliably avoid using the shell; C<system LIST>, even with more than one
18979	19218	element, will fall back to the shell if the first spawn fails.
18980	19219
18981	19220	=end original
18982	19221
18983	19222	L<C<exec>\|/exec LIST> とほとんど同じですが、まず fork を行ない、
18984	19223	親プロセスではチャイルドプロセスが終了するのを wait します。
18985	19224	exec の項で述べたように、引数の処理は、引数の数によって異なることに
18986	19225	注意してください。
18987	19226	LIST に複数の引数がある場合、または LIST が複数の要素からなる配列の場合、
18988	19227	リストの最初の要素で与えられるプログラムを、リストの残りの要素を引数として
18989	19228	起動します。
18990	19229	スカラの引数が一つだけの場合、引数はシェルのメタ文字をチェックされ、もし
18991	19230	あればパースのために引数全体がシステムコマンドシェル (これは
18992	19231	Unix プラットフォームでは C</bin/sh -c> ですが、他のプラットフォームでは
18993	19232	異なります)に渡されます。
18994	19233	シェルのメタ文字がなかった場合、引数は単語に分解されて直接 C<execvp> に
18995	19234	渡されます; この方がより効率的です。
18996	19235	Windows では、C<system PROGRAM LIST> 構文のみが安定してシェルの使用を
18997	19236	回避します; C<system LIST> は、2 要素以上でも、最初の spawn が失敗すると
18998	19237	シェルにフォールバックします。
18999	19238
19000	19239	=begin original
19001	19240
19002	19241	Perl will attempt to flush all files opened for
19003	19242	output before any operation that may do a fork, but this may not be
19004	19243	supported on some platforms (see L<perlport>). To be safe, you may need
19005	19244	to set L<C<$E<verbar>>\|perlvar/$E<verbar>> (C<$AUTOFLUSH> in L<English>)
19006	19245	or call the C<autoflush> method of L<C<IO::Handle>\|IO::Handle/METHODS>
19007	19246	on any open handles.
19008	19247
19009	19248	=end original
19010	19249
19011		~~v5.6.0 から、~~Perl は書き込み用に開いている全てのファイルに対して
	19250	Perl は書き込み用に開いている全てのファイルに対して
19012	19251	fork を行う前にフラッシュしようとしますが、これに対応していない
19013	19252	プラットフォームもあります(L<perlport> を参照してください)。
19014	19253	安全のために、L<C<$E<verbar>>\|perlvar/$E<verbar>> (L<English> モジュールでは
19015	19254	C<$AUTOFLUSH>) をセットするか、全ての開いているハンドルに対して
19016	19255	L<C<IO::Handle>\|IO::Handle/METHODS> の C<autoflush> メソッドを
19017	19256	呼び出す必要があるかもしれません。
19018	19257
19019	19258	=begin original
19020	19259
19021	19260	The return value is the exit status of the program as returned by the
19022	19261	L<C<wait>\|/wait> call. To get the actual exit value, shift right by
19023	19262	eight (see below). See also L<C<exec>\|/exec LIST>. This is I<not> what
19024	19263	you want to use to capture the output from a command; for that you
19025	19264	should use merely backticks or
19026	19265	L<C<qxE<sol>E<sol>>\|/qxE<sol>STRINGE<sol>>, as described in
19027	19266	L<perlop/"`STRING`">. Return value of -1 indicates a failure to start
19028	19267	the program or an error of the L<wait(2)> system call (inspect
19029	19268	L<C<$!>\|perlvar/$!> for the reason).
19030	19269
19031	19270	=end original
19032	19271
19033	19272	返り値は、L<C<wait>\|/wait> が返すプログラムの exit 状態です。
19034	19273	実際の exit 値を得るには右に 8 ビットシフトしてください(後述)。
19035	19274	L<C<exec>\|/exec LIST> も参照してください。
19036	19275	これはコマンドからの出力を捕らえるために使うものI<ではありません>;
19037	19276	そのような用途には、L<perlop/"`STRING`"> に記述されている
19038	19277	逆クォートや L<C<qxE<sol>E<sol>>\|/qxE<sol>STRINGE<sol>> を使用してください。
19039	19278	-1 の返り値はプログラムを開始させることに失敗したか、L<wait(2)>
19040	19279	システムコールがエラーを出したことを示します
19041	19280	(理由は L<C<$!>\|perlvar/$!> を調べてください)。
19042	19281
19043	19282	=begin original
19044	19283
19045	19284	If you'd like to make L<C<system>\|/system LIST> (and many other bits of
19046	19285	Perl) die on error, have a look at the L<autodie> pragma.
19047	19286
19048	19287	=end original
19049	19288
19050	19289	もし L<C<system>\|/system LIST> (及び Perl のその他の多くの部分) でエラー時に
19051	19290	die したいなら、L<autodie> プラグマを見てみてください。
19052	19291
19053	19292	=begin original
19054	19293
19055	19294	Like L<C<exec>\|/exec LIST>, L<C<system>\|/system LIST> allows you to lie
19056	19295	to a program about its name if you use the C<system PROGRAM LIST>
19057	19296	syntax. Again, see L<C<exec>\|/exec LIST>.
19058	19297
19059	19298	=end original
19060	19299
19061	19300	L<C<exec>\|/exec LIST> と同様に、L<C<system>\|/system LIST> でも
19062	19301	C<system PROGRAM LIST> の文法を使うことで、プログラムに対してその名前を
19063	19302	嘘をつくことができます。
19064	19303	再び、L<C<exec>\|/exec LIST> を参照してください。
19065	19304
19066	19305	=begin original
19067	19306
19068	19307	Since C<SIGINT> and C<SIGQUIT> are ignored during the execution of
19069	19308	L<C<system>\|/system LIST>, if you expect your program to terminate on
19070	19309	receipt of these signals you will need to arrange to do so yourself
19071	19310	based on the return value.
19072	19311
19073	19312	=end original
19074	19313
19075	19314	C<SIGINT> と C<SIGQUIT> は L<C<system>\|/system LIST> の実行中は無視されるので、
19076	19315	これらのシグナルを受信して終了させることを想定したプログラムの場合、
19077	19316	返り値を利用するように変更する必要があります。
19078	19317
19079	19318	my @args = ("command", "arg1", "arg2");
19080	19319	system(@args) == 0
19081	19320	or die "system @args failed: $?";
19082	19321
19083	19322	=begin original
19084	19323
19085	19324	If you'd like to manually inspect L<C<system>\|/system LIST>'s failure,
19086	19325	you can check all possible failure modes by inspecting
19087	19326	L<C<$?>\|perlvar/$?> like this:
19088	19327
19089	19328	=end original
19090	19329
19091	19330	L<C<system>\|/system LIST> の失敗を手動で検査したいなら、以下のように
19092	19331	L<C<$?>\|perlvar/$?> を調べることで、全ての失敗の可能性をチェックできます:
19093	19332
19094	19333	if ($? == -1) {
19095	19334	print "failed to execute: $!\n";
19096	19335	}
19097	19336	elsif ($? & 127) {
19098	19337	printf "child died with signal %d, %s coredump\n",
19099	19338	($? & 127), ($? & 128) ? 'with' : 'without';
19100	19339	}
19101	19340	else {
19102	19341	printf "child exited with value %d\n", $? >> 8;
19103	19342	}
19104	19343
19105	19344	=begin original
19106	19345
19107	19346	Alternatively, you may inspect the value of
19108	19347	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}> with the
19109	19348	L<C<W*()>\|POSIX/C<WIFEXITED>> calls from the L<POSIX> module.
19110	19349
19111	19350	=end original
19112	19351
19113	19352	または、L<POSIX> モジュールの L<C<W*()>\|POSIX/C<WIFEXITED>> 呼び出しを使って
19114	19353	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}> の値を
19115	19354	調べることもできます。
19116	19355
19117	19356	=begin original
19118	19357
19119	19358	When L<C<system>\|/system LIST>'s arguments are executed indirectly by
19120	19359	the shell, results and return codes are subject to its quirks.
19121	19360	See L<perlop/"`STRING`"> and L<C<exec>\|/exec LIST> for details.
19122	19361
19123	19362	=end original
19124	19363
19125	19364	L<C<system>\|/system LIST> の引数がシェルによって間接的に実行された場合、
19126	19365	結果と返り値はシェルの癖によって変更されることがあります。
19127	19366	詳細については L<perlop/"`STRING`"> と L<C<exec>\|/exec LIST> を
19128	19367	参照してください。
19129	19368
19130	19369	=begin original
19131	19370
19132	19371	Since L<C<system>\|/system LIST> does a L<C<fork>\|/fork> and
19133	19372	L<C<wait>\|/wait> it may affect a C<SIGCHLD> handler. See L<perlipc> for
19134	19373	details.
19135	19374
19136	19375	=end original
19137	19376
19138	19377	L<C<system>\|/system LIST> は L<C<fork>\|/fork> と L<C<wait>\|/wait> を行うので、
19139	19378	C<SIGCHLD> ハンドラの影響を受けます。
19140	19379	詳しくは L<perlipc> を参照してください。
19141	19380
19142	19381	=begin original
19143	19382
19144	19383	Portability issues: L<perlport/system>.
19145	19384
19146	19385	=end original
19147	19386
19148	19387	移植性の問題: L<perlport/system>。
19149	19388
19150	19389	=item syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET
19151	19390	X<syswrite>
19152	19391
19153	19392	=item syswrite FILEHANDLE,SCALAR,LENGTH
19154	19393
19155	19394	=item syswrite FILEHANDLE,SCALAR
19156	19395
19157	19396	=for Pod::Functions fixed-length unbuffered output to a filehandle
19158	19397
19159	19398	=begin original
19160	19399
19161	19400	Attempts to write LENGTH bytes of data from variable SCALAR to the
19162	19401	specified FILEHANDLE, using L<write(2)>. If LENGTH is
19163	19402	not specified, writes whole SCALAR. It bypasses any L<PerlIO> layers
19164	19403	including buffered IO (but is affected by the presence of the C<:utf8>
19165	19404	layer as described later), so
19166	19405	mixing this with reads (other than C<sysread)>),
19167	19406	L<C<print>\|/print FILEHANDLE LIST>, L<C<write>\|/write FILEHANDLE>,
19168	19407	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
19169	19408	L<C<tell>\|/tell FILEHANDLE>, or L<C<eof>\|/eof FILEHANDLE> may cause
19170	19409	confusion because the C<:perlio> and C<:crlf> layers usually buffer data.
19171	19410	Returns the number of bytes actually written, or L<C<undef>\|/undef EXPR>
19172	19411	if there was an error (in this case the errno variable
19173	19412	L<C<$!>\|perlvar/$!> is also set). If the LENGTH is greater than the
19174	19413	data available in the SCALAR after the OFFSET, only as much data as is
19175	19414	available will be written.
19176	19415
19177	19416	=end original
19178	19417
19179	19418	L<write(2)> を使って、指定した FILEHANDLEへ、変数 SCALAR から、LENGTH バイトの
19180	19419	データの書き込みを試みます。
19181	19420	LENGTH が指定されなかった場合、 SCALAR 全体を書き込みます。
19182	19421	これは、バッファ付き IO ルーチンを含むどの L<PerlIO> も通らないので
19183	19422	(しかし、後述するように C<:utf8> の存在の影響を受けます)、他の入力関数、
19184	19423	他の入力関数 (C<sysread> 以外),
19185	19424	L<C<print>\|/print FILEHANDLE LIST>, L<C<write>\|/write FILEHANDLE>,
19186	19425	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>, L<C<tell>\|/tell FILEHANDLE>,
19187	19426	L<C<eof>\|/eof FILEHANDLE> と混ぜて使うと、出力がおかしくなるかもしれません;
19188	19427	C<:perlio> 層と C<:crlf> 層は普通データをバッファリングするからです。
19189	19428	実際に読み込まれたデータの長さか、エラー時には L<C<undef>\|/undef EXPR> が
19190	19429	返されます(この場合エラー変数 L<C<$!>\|perlvar/$!> もセットされます)。
19191	19430	LENGTH が OFFSET 以降の SCALAR の利用可能なデータより大きかった場合、
19192	19431	利用可能なデータのみが書き込まれます。
19193	19432
19194	19433	=begin original
19195	19434
19196	19435	An OFFSET may be specified to write the data from some part of the
19197	19436	string other than the beginning. A negative OFFSET specifies writing
19198	19437	that many characters counting backwards from the end of the string.
19199	19438	If SCALAR is of length zero, you can only use an OFFSET of 0.
19200	19439
19201	19440	=end original
19202	19441
19203	19442	OFFSET を指定すると、SCALAR の先頭以外の場所から、
19204	19443	データを取り出して、書き込みを行なうことができます。
19205	19444	OFFSET に負の値を指定すると、文字列の最後から逆向きに数えて
19206	19445	何バイト目から書き込むかを示します。
19207	19446	SCALAR の長さが 0 の場合、OFFSET は 0 のみ使用できます。
19208	19447
19209	19448	=begin original
19210	19449
19211	19450	B<WARNING>: If the filehandle is marked C<:utf8>, C<syswrite> will raise an exception.
19212	19451	The C<:encoding(...)> layer implicitly introduces the C<:utf8> layer.
19213	19452	Alternately, if the handle is not marked with an encoding but you
19214	19453	attempt to write characters with code points over 255, raises an exception.
19215	19454	See L<C<binmode>\|/binmode FILEHANDLE, LAYER>,
19216	19455	L<C<open>\|/open FILEHANDLE,MODE,EXPR>, and the L<open> pragma.
19217	19456
19218	19457	=end original
19219	19458
19220	19459	B<警告>: ファイルハンドルが C<:utf8> であるとマークが付けられていると、
19221	19460	C<syswrite> は例外を投げます。
19222		C<:encoding(...)> 層は暗黙~~のうち~~に C<:utf8> 層が導入されます。
	19461	C<:encoding(...)> 層は暗黙に C<:utf8> 層を導入します。
19223	19462	または、もしハンドルにエンコーディングが記録されていない状態で
19224	19463	255 を超える符号位置の文字を書き込もうとすると、例外が発生します。
19225	19464	L<C<binmode>\|/binmode FILEHANDLE, LAYER>,
19226	19465	L<C<open>\|/open FILEHANDLE,MODE,EXPR>,
19227	19466	L<open> プラグマを参照してください。
19228	19467
19229	19468	=item tell FILEHANDLE
19230	19469	X<tell>
19231	19470
19232	19471	=item tell
19233	19472
19234	19473	=for Pod::Functions get current seekpointer on a filehandle
19235	19474
19236	19475	=begin original
19237	19476
19238	19477	Returns the current position I<in bytes> for FILEHANDLE, or -1 on
19239	19478	error. FILEHANDLE may be an expression whose value gives the name of
19240	19479	the actual filehandle. If FILEHANDLE is omitted, assumes the file
19241	19480	last read.
19242	19481
19243	19482	=end original
19244	19483
19245	19484	FILEHANDLE の現在の位置を I<バイト数で> 返します; エラーの場合は -1 を
19246	19485	返します。
19247	19486	FILEHANDLE は、実際のファイルハンドル名を示す式でもかまいません。
19248	19487	FILEHANDLE が省略された場合には、最後に読み込みを行なったファイルについて
19249	19488	調べます。
19250	19489
19251	19490	=begin original
19252	19491
19253	19492	Note the emphasis on bytes: even if the filehandle has been set to operate
19254	19493	on characters (for example using the C<:encoding(UTF-8)> I/O layer), the
19255	19494	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
19256	19495	L<C<tell>\|/tell FILEHANDLE>, and
19257	19496	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE>
19258	19497	family of functions use byte offsets, not character offsets,
19259	19498	because seeking to a character offset would be very slow in a UTF-8 file.
19260	19499
19261	19500	=end original
19262	19501
19263	19502	バイト単位に対する注意: 例え(例えば C<:encoding(UTF-8)> I/O 層を使うなどして)
19264	19503	ファイルハンドルが文字単位で処理するように設定されていたとしても、
19265	19504	L<C<seek>\|/seek FILEHANDLE,POSITION,WHENCE>,
19266	19505	L<C<tell>\|/tell FILEHANDLE>,
19267	19506	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> シリーズの関数は
19268	19507	文字オフセットではなくバイトオフセットを使います;
19269	19508	文字オフセットでシークするのは UTF-8 ファイルではとても遅いからです。
19270	19509
19271	19510	=begin original
19272	19511
19273	19512	The return value of L<C<tell>\|/tell FILEHANDLE> for the standard streams
19274	19513	like the STDIN depends on the operating system: it may return -1 or
19275	19514	something else. L<C<tell>\|/tell FILEHANDLE> on pipes, fifos, and
19276	19515	sockets usually returns -1.
19277	19516
19278	19517	=end original
19279	19518
19280	19519	STDIN のような標準ストリームに対する L<C<tell>\|/tell FILEHANDLE> の返り値は
19281	19520	OS に依存します:
19282	19521	-1 やその他の値が返ってくるかもしれません。
19283	19522	パイプ、FIFO、ソケットに対して L<C<tell>\|/tell FILEHANDLE> を使うと、普通は
19284	19523	-1 が返ります。
19285	19524
19286	19525	=begin original
19287	19526
19288	19527	There is no C<systell> function. Use
19289	19528	L<C<sysseek($fh, 0, 1)>\|/sysseek FILEHANDLE,POSITION,WHENCE> for that.
19290	19529
19291	19530	=end original
19292	19531
19293	19532	C<systell> 関数はありません。
19294	19533	代わりに L<C<sysseek($fh, 0, 1)>\|/sysseek FILEHANDLE,POSITION,WHENCE> を
19295	19534	使ってください。
19296	19535
19297	19536	=begin original
19298	19537
19299	19538	Do not use L<C<tell>\|/tell FILEHANDLE> (or other buffered I/O
19300	19539	operations) on a filehandle that has been manipulated by
19301	19540	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
19302	19541	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>, or
19303	19542	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE>. Those functions
19304	19543	ignore the buffering, while L<C<tell>\|/tell FILEHANDLE> does not.
19305	19544
19306	19545	=end original
19307	19546
19308	19547	L<C<sysread>\|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
19309	19548	L<C<syswrite>\|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>,
19310	19549	L<C<sysseek>\|/sysseek FILEHANDLE,POSITION,WHENCE> で操作された
19311	19550	ファイルハンドルに L<C<tell>\|/tell FILEHANDLE>
19312	19551	(またはその他のバッファリング I/O 操作) を使わないでください。
19313	19552	これらの関数はバッファリングを無視しますが、L<C<tell>\|/tell FILEHANDLE> は
19314	19553	違います。
19315	19554
19316	19555	=item telldir DIRHANDLE
19317	19556	X<telldir>
19318	19557
19319	19558	=for Pod::Functions get current seekpointer on a directory handle
19320	19559
19321	19560	=begin original
19322	19561
19323	19562	Returns the current position of the L<C<readdir>\|/readdir DIRHANDLE>
19324	19563	routines on DIRHANDLE. Value may be given to
19325	19564	L<C<seekdir>\|/seekdir DIRHANDLE,POS> to access a particular location in
19326	19565	a directory. L<C<telldir>\|/telldir DIRHANDLE> has the same caveats
19327	19566	about possible directory compaction as the corresponding system library
19328	19567	routine.
19329	19568
19330	19569	=end original
19331	19570
19332	19571	DIRHANDLE 上の L<C<readdir>\|/readdir DIRHANDLE> ルーチンに対する現在位置を
19333	19572	返します。
19334	19573	値は、そのディレクトリで特定の位置をアクセスするため、
19335	19574	L<C<seekdir>\|/seekdir DIRHANDLE,POS> に渡すことができます。
19336	19575	L<C<telldir>\|/telldir DIRHANDLE> は同名のシステムライブラリルーチンと同じく、
19337	19576	ディレクトリ縮小時の問題が考えられます。
19338	19577
19339	19578	=item tie VARIABLE,CLASSNAME,LIST
19340	19579	X<tie>
19341	19580
19342	19581	=for Pod::Functions +5.002 bind a variable to an object class
19343	19582
19344	19583	=begin original
19345	19584
19346	19585	This function binds a variable to a package class that will provide the
19347	19586	implementation for the variable. VARIABLE is the name of the variable
19348	19587	to be enchanted. CLASSNAME is the name of a class implementing objects
19349	19588	of correct type. Any additional arguments are passed to the
19350	19589	appropriate constructor
19351	19590	method of the class (meaning C<TIESCALAR>, C<TIEHANDLE>, C<TIEARRAY>,
19352	19591	or C<TIEHASH>). Typically these are arguments such as might be passed
19353	19592	to the L<dbm_open(3)> function of C. The object returned by the
19354	19593	constructor is also returned by the
19355	19594	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> function, which would be useful
19356	19595	if you want to access other methods in CLASSNAME.
19357	19596
19358	19597	=end original
19359	19598
19360	19599	この関数は、変数を、その変数の実装を行なうクラスと結び付けます。
19361	19600	VARIABLE は、魔法をかける変数の名前です。
19362	19601	CLASSNAME は、正しい型のオブジェクトを実装するクラスの名前です。
19363	19602	他に引数があれば、そのクラスの適切なコンストラクタメソッドに渡されます
19364	19603	(つまり C<TIESCALAR>, C<TIEHANDLE>, C<TIEARRAY>, C<TIEHASH>)。
19365	19604	通常、これらは、C の L<dbm_open(3)> などの関数に渡す引数となります。
19366	19605	コンストラクタで返されるオブジェクトはまた
19367	19606	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> 関数でも返されます;
19368	19607	これは CLASSNAME の他のメソッドにアクセスしたいときに便利です。
19369	19608
19370	19609	=begin original
19371	19610
19372	19611	Note that functions such as L<C<keys>\|/keys HASH> and
19373	19612	L<C<values>\|/values HASH> may return huge lists when used on large
19374	19613	objects, like DBM files. You may prefer to use the L<C<each>\|/each
19375	19614	HASH> function to iterate over such. Example:
19376	19615
19377	19616	=end original
19378	19617
19379	19618	DBM ファイルのような大きなオブジェクトでは、L<C<keys>\|/keys HASH> や
19380	19619	L<C<values>\|/values HASH> のような関数は、大きなリストを返す可能性があります。
19381	19620	そのような場合では、L<C<each>\|/each HASH> 関数を使って繰り返しを行なった方が
19382	19621	よいかもしれません。
19383	19622	例:
19384	19623
19385	19624	# print out history file offsets
19386	19625	use NDBM_File;
19387	19626	tie(my %HIST, 'NDBM_File', '/usr/lib/news/history', 1, 0);
19388	19627	while (my ($key,$val) = each %HIST) {
19389	19628	print $key, ' = ', unpack('L', $val), "\n";
19390	19629	}
19391	19630
19392	19631	=begin original
19393	19632
19394	19633	A class implementing a hash should have the following methods:
19395	19634
19396	19635	=end original
19397	19636
19398	19637	ハッシュを実装するクラスでは、次のようなメソッドを用意します:
19399	19638
19400	19639	TIEHASH classname, LIST
19401	19640	FETCH this, key
19402	19641	STORE this, key, value
19403	19642	DELETE this, key
19404	19643	CLEAR this
19405	19644	EXISTS this, key
19406	19645	FIRSTKEY this
19407	19646	NEXTKEY this, lastkey
19408	19647	SCALAR this
19409	19648	DESTROY this
19410	19649	UNTIE this
19411	19650
19412	19651	=begin original
19413	19652
19414	19653	A class implementing an ordinary array should have the following methods:
19415	19654
19416	19655	=end original
19417	19656
19418	19657	通常の配列を実装するクラスでは、次のようなメソッドを用意します:
19419	19658
19420	19659	TIEARRAY classname, LIST
19421	19660	FETCH this, key
19422	19661	STORE this, key, value
19423	19662	FETCHSIZE this
19424	19663	STORESIZE this, count
19425	19664	CLEAR this
19426	19665	PUSH this, LIST
19427	19666	POP this
19428	19667	SHIFT this
19429	19668	UNSHIFT this, LIST
19430	19669	SPLICE this, offset, length, LIST
19431	19670	EXTEND this, count
19432	19671	DELETE this, key
19433	19672	EXISTS this, key
19434	19673	DESTROY this
19435	19674	UNTIE this
19436	19675
19437	19676	=begin original
19438	19677
19439	19678	A class implementing a filehandle should have the following methods:
19440	19679
19441	19680	=end original
19442	19681
19443	19682	ファイルハンドルを実装するクラスでは、次のようなメソッドを用意します:
19444	19683
19445	19684	TIEHANDLE classname, LIST
19446	19685	READ this, scalar, length, offset
19447	19686	READLINE this
19448	19687	GETC this
19449	19688	WRITE this, scalar, length, offset
19450	19689	PRINT this, LIST
19451	19690	PRINTF this, format, LIST
19452	19691	BINMODE this
19453	19692	EOF this
19454	19693	FILENO this
19455	19694	SEEK this, position, whence
19456	19695	TELL this
19457	19696	OPEN this, mode, LIST
19458	19697	CLOSE this
19459	19698	DESTROY this
19460	19699	UNTIE this
19461	19700
19462	19701	=begin original
19463	19702
19464	19703	A class implementing a scalar should have the following methods:
19465	19704
19466	19705	=end original
19467	19706
19468	19707	スカラ変数を実装するクラスでは、次のようなメソッドを用意します:
19469	19708
19470	19709	TIESCALAR classname, LIST
19471	19710	FETCH this,
19472	19711	STORE this, value
19473	19712	DESTROY this
19474	19713	UNTIE this
19475	19714
19476	19715	=begin original
19477	19716
19478	19717	Not all methods indicated above need be implemented. See L<perltie>,
19479	19718	L<Tie::Hash>, L<Tie::Array>, L<Tie::Scalar>, and L<Tie::Handle>.
19480	19719
19481	19720	=end original
19482	19721
19483	19722	上記の全てのメソッドを実装する必要はありません。
19484	19723	L<perltie>, L<Tie::Hash>, L<Tie::Array>, L<Tie::Scalar>,
19485	19724	L<Tie::Handle> を参照してください。
19486	19725
19487	19726	=begin original
19488	19727
19489	19728	Unlike L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK>, the
19490	19729	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> function will not
19491	19730	L<C<use>\|/use Module VERSION LIST> or L<C<require>\|/require VERSION> a
19492	19731	module for you; you need to do that explicitly yourself. See L<DB_File>
19493	19732	or the L<Config> module for interesting
19494	19733	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> implementations.
19495	19734
19496	19735	=end original
19497	19736
19498	19737	L<C<dbmopen>\|/dbmopen HASH,DBNAME,MASK> と違い、
19499	19738	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> 関数はモジュールを
19500	19739	L<C<use>\|/use Module VERSION LIST> したり
19501	19740	L<C<require>\|/require VERSION> したりしません;
19502	19741	自分で明示的に行う必要があります。
19503	19742	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> の興味深い実装については
19504	19743	L<DB_File> や L<Config> モジュールを参照してください。
19505	19744
19506	19745	=begin original
19507	19746
19508	19747	For further details see L<perltie>, L<C<tied>\|/tied VARIABLE>.
19509	19748
19510	19749	=end original
19511	19750
19512	19751	更なる詳細については L<perltie> や L<C<tied>\|/tied VARIABLE> を
19513	19752	参照してください。
19514	19753
19515	19754	=item tied VARIABLE
19516	19755	X<tied>
19517	19756
19518	19757	=for Pod::Functions get a reference to the object underlying a tied variable
19519	19758
19520	19759	=begin original
19521	19760
19522	19761	Returns a reference to the object underlying VARIABLE (the same value
19523	19762	that was originally returned by the
19524	19763	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> call that bound the variable
19525	19764	to a package.) Returns the undefined value if VARIABLE isn't tied to a
19526	19765	package.
19527	19766
19528	19767	=end original
19529	19768
19530	19769	VARIABLE の基となるオブジェクトへのリファレンスを返します
19531	19770	(変数をパッケージに結びつけるために
19532	19771	L<C<tie>\|/tie VARIABLE,CLASSNAME,LIST> 呼び出しをしたときの
19533	19772	返り値と同じものです)。
19534	19773	VARIABLE がパッケージと結び付けられていない場合は未定義値を返します。
19535	19774
19536	19775	=item time
19537	19776	X<time> X<epoch>
19538	19777
19539	19778	=for Pod::Functions return number of seconds since 1970
19540	19779
19541	19780	=begin original
19542	19781
19543	19782	Returns the number of non-leap seconds since whatever time the system
19544	19783	considers to be the epoch, suitable for feeding to
19545	19784	L<C<gmtime>\|/gmtime EXPR> and L<C<localtime>\|/localtime EXPR>. On most
19546	19785	systems the epoch is 00:00:00 UTC, January 1, 1970;
19547	19786	a prominent exception being Mac OS Classic which uses 00:00:00, January 1,
19548	19787	1904 in the current local time zone for its epoch.
19549	19788
19550	19789	=end original
19551	19790
19552	19791	L<C<gmtime>\|/gmtime EXPR> や L<C<localtime>\|/localtime EXPR> への入力形式に
19553	19792	合っている、システムが紀元と考える時点からの連続秒数を返します。
19554	19793	ほとんどのシステムでは紀元は UTC 1970 年 1 月 1 日 00:00:00 です;
19555	19794	特徴的な例外としては、古い Mac OS ではローカルタイムゾーンの
19556	19795	1904 年 1 月 1 日 00:00:00 を紀元として使います。
19557	19796
19558	19797	=begin original
19559	19798
19560	19799	For measuring time in better granularity than one second, use the
19561	19800	L<Time::HiRes> module from Perl 5.8 onwards (or from CPAN before then), or,
19562	19801	if you have L<gettimeofday(2)>, you may be able to use the
19563	19802	L<C<syscall>\|/syscall NUMBER, LIST> interface of Perl. See L<perlfaq8>
19564	19803	for details.
19565	19804
19566	19805	=end original
19567	19806
19568	19807	1 秒よりも細かい時間を計測するためには、Perl 5.8 以降(それ以前では
19569	19808	CPANから)の L<Time::HiRes> モジュールを使うか、
19570	19809	L<gettimeofday(2)> があるなら、Perl の
19571	19810	L<C<syscall>\|/syscall NUMBER, LIST> インターフェースを使ってください。
19572	19811	詳しくは L<perlfaq8> を参照してください。
19573	19812
19574	19813	=begin original
19575	19814
19576	19815	For date and time processing look at the many related modules on CPAN.
19577	19816	For a comprehensive date and time representation look at the
19578	19817	L<DateTime> module.
19579	19818
19580	19819	=end original
19581	19820
19582	19821	日付と時刻の処理は、多くの関連するモジュールが CPAN にあります。
19583	19822	包括的な日付と時刻の表現については、CPAN の L<DateTime> モジュールを
19584	19823	参照してください。
19585	19824
19586	19825	=item times
19587	19826	X<times>
19588	19827
19589	19828	=for Pod::Functions return elapsed time for self and child processes
19590	19829
19591	19830	=begin original
19592	19831
19593	19832	Returns a four-element list giving the user and system times in
19594	19833	seconds for this process and any exited children of this process.
19595	19834
19596	19835	=end original
19597	19836
19598	19837	現プロセス及び終了したその子プロセスに対する、ユーザ時間とシステム時間を
19599	19838	秒で示した、4 要素のリスト値を返します。
19600	19839
19601	19840	my ($user,$system,$cuser,$csystem) = times;
19602	19841
19603	19842	=begin original
19604	19843
19605	19844	In scalar context, L<C<times>\|/times> returns C<$user>.
19606	19845
19607	19846	=end original
19608	19847
19609	19848	スカラコンテキストでは、L<C<times>\|/times> は C<$user> を返します。
19610	19849
19611	19850	=begin original
19612	19851
19613	19852	Children's times are only included for terminated children.
19614	19853
19615	19854	=end original
19616	19855
19617	19856	子プロセスに対する times は、終了した子プロセスのみ含められます。
19618	19857
19619	19858	=begin original
19620	19859
19621	19860	Portability issues: L<perlport/times>.
19622	19861
19623	19862	=end original
19624	19863
19625	19864	移植性の問題: L<perlport/times>。
19626	19865
19627	19866	=item tr///
19628	19867
19629	19868	=for Pod::Functions transliterate a string
19630	19869
19631	19870	=begin original
19632	19871
19633	19872	The transliteration operator. Same as
19634	19873	L<C<yE<sol>E<sol>E<sol>>\|/yE<sol>E<sol>E<sol>>. See
19635	19874	L<perlop/"Quote-Like Operators">.
19636	19875
19637	19876	=end original
19638	19877
19639	19878	文字変換演算子です。
19640	19879	L<C<yE<sol>E<sol>E<sol>>\|/yE<sol>E<sol>E<sol>> と同じです。
19641	19880	L<perlop/"Quote-Like Operators"> を参照してください。
19642	19881
19643	19882	=item truncate FILEHANDLE,LENGTH
19644	19883	X<truncate>
19645	19884
19646	19885	=item truncate EXPR,LENGTH
19647	19886
19648	19887	=for Pod::Functions shorten a file
19649	19888
19650	19889	=begin original
19651	19890
19652	19891	Truncates the file opened on FILEHANDLE, or named by EXPR, to the
19653	19892	specified length. Raises an exception if truncate isn't implemented
19654	19893	on your system. Returns true if successful, L<C<undef>\|/undef EXPR> on
19655	19894	error.
19656	19895
19657	19896	=end original
19658	19897
19659	19898	FILEHANDLE 上にオープンされたファイルか、EXPR で名前を表わしたファイルを、
19660	19899	指定した長さに切り詰めます。
19661	19900	システム上に truncate が実装されていなければ、例外が発生します。
19662	19901	成功すれば真を、エラー時には L<C<undef>\|/undef EXPR> を返します。
19663	19902
19664	19903	=begin original
19665	19904
19666	19905	The behavior is undefined if LENGTH is greater than the length of the
19667	19906	file.
19668	19907
19669	19908	=end original
19670	19909
19671	19910	LENGTH がファイルの長さより大きい場合の振る舞いは未定義です。
19672	19911
19673	19912	=begin original
19674	19913
19675	19914	The position in the file of FILEHANDLE is left unchanged. You may want to
19676	19915	call L<seek\|/"seek FILEHANDLE,POSITION,WHENCE"> before writing to the
19677	19916	file.
19678	19917
19679	19918	=end original
19680	19919
19681	19920	FILEHANDLE のファイルの位置は変わりません。
19682	19921	ファイルに書き込む前に L<seek\|/"seek FILEHANDLE,POSITION,WHENCE"> を
19683	19922	呼び出したいかもしれません。
19684	19923
19685	19924	=begin original
19686	19925
19687	19926	Portability issues: L<perlport/truncate>.
19688	19927
19689	19928	=end original
19690	19929
19691	19930	移植性の問題: L<perlport/truncate>。
19692	19931
19693	19932	=item uc EXPR
19694	19933	X<uc> X<uppercase> X<toupper>
19695	19934
19696	19935	=item uc
19697	19936
19698	19937	=for Pod::Functions return upper-case version of a string
19699	19938
19700	19939	=begin original
19701	19940
19702		Returns an uppercased version of EXPR. ~~This~~ is ~~the~~ inte~~rnal~~ fu~~nction~~
	19941	Returns an uppercased version of EXPR. If EXPR is omitted, uses
19703		~~implementing the~~ C<\U> ~~esca~~pe ~~in doub~~l~~e-quoted st~~r~~ings~~.
	19942	L<C<$_>\|perlvar/$_>.
19704		It does not attempt to do titlecase mapping on initial letters. See
19705		L<C<ucfirst>\|/ucfirst EXPR> for that.
19706	19943
19707	19944	=end original
19708	19945
19709		EXPR を大文字~~に変換したもの~~を返します。
	19946	EXPR の大文字版を返します。
19710		これ~~は、ダブルクォート文字列におけ~~る、C<\U> ~~エスケープ~~を
	19947	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
19711		実装する内部関数です。
19712		先頭文字のタイトル文字マッピングは試みません。
19713		このためには L<C<ucfirst>\|/ucfirst EXPR> を参照してください。
19714	19948
	19949	my $str = uc("Perl is GREAT"); # "PERL IS GREAT"
	19950
19715	19951	=begin original
19716	19952
19717		~~If EXPR~~ is omitted, uses ~~L<C<$_>\|p~~erlvar~~/$_>.~~
	19953	This function behaves the same way under various pragmas, such as in a locale,
	19954	as L<C<lc>\|/lc EXPR> does.
19718	19955
19719	19956	=end original
19720	19957
19721		~~EXPR が省略されると~~、~~L<C<$_>\|perlvar/$_> を使い~~ます。
	19958	この関数は、ロケールのようなさまざまなプラグマの影響下では、
	19959	L<C<lc>\|/lc EXPR> と同様に振る舞います。
19722	19960
19723	19961	=begin original
19724	19962
19725		~~This~~ funct~~ion~~ behaves the sam~~e w~~a~~y u~~n~~der~~ ~~vari~~ous ~~pragmas, such as~~ in a l~~ocal~~e,
	19963	If you want titlecase mapping on initial letters see
19726		as L<C<lc>\|/lc EXPR> ~~doe~~s.
	19964	L<C<ucfirst>\|/ucfirst EXPR> instead.
19727	19965
19728	19966	=end original
19729	19967
19730		この~~関数は、ロケール~~の~~ようなさまざまなプラグ~~マ~~の影響下で~~は、
	19968	最初の文字のタイトル文字マッピングがほしい場合は、
19731		L<C<lc>\|/lc EXPR> ~~と同様に振る舞~~います。
	19969	代わりに L<C<ucfirst>\|/ucfirst EXPR> を使ってください。
19732	19970
	19971	=begin original
	19972
	19973	B<Note:> This is the internal function implementing the
	19974	L<C<\U>\|perlop/"Quote and Quote-like Operators"> escape in double-quoted
	19975	strings.
	19976
	19977	=end original
	19978
	19979	B<注意:> これは、ダブルクォート文字列における、
	19980	L<C<\U>\|perlop/"Quote and Quote-like Operators"> エスケープを
	19981	実装する内部関数です。
	19982
	19983	my $str = "Perl is \Ugreat\E"; # "Perl is GREAT"
	19984
19733	19985	=item ucfirst EXPR
19734	19986	X<ucfirst> X<uppercase>
19735	19987
19736	19988	=item ucfirst
19737	19989
19738	19990	=for Pod::Functions return a string with just the next letter in upper case
19739	19991
19740	19992	=begin original
19741	19993
19742	19994	Returns the value of EXPR with the first character in uppercase
19743	19995	(titlecase in Unicode). This is the internal function implementing
19744	19996	the C<\u> escape in double-quoted strings.
19745	19997
19746	19998	=end original
19747	19999
19748	20000	最初の文字だけを大文字にした、EXPR を返します
19749	20001	(Unicode では titlecase)。
19750	20002	これは、ダブルクォート文字列における、C<\u> エスケープを
19751	20003	実装する内部関数です。
19752	20004
19753	20005	=begin original
19754	20006
19755	20007	If EXPR is omitted, uses L<C<$_>\|perlvar/$_>.
19756	20008
19757	20009	=end original
19758	20010
19759	20011	EXPR が省略されると、L<C<$_>\|perlvar/$_> を使います。
19760	20012
19761	20013	=begin original
19762	20014
19763	20015	This function behaves the same way under various pragmas, such as in a locale,
19764	20016	as L<C<lc>\|/lc EXPR> does.
19765	20017
19766	20018	=end original
19767	20019
19768	20020	この関数は、ロケールのようなさまざまなプラグマの影響下では、
19769	20021	L<C<lc>\|/lc EXPR> と同様に振る舞います。
19770	20022
19771	20023	=item umask EXPR
19772	20024	X<umask>
19773	20025
19774	20026	=item umask
19775	20027
19776	20028	=for Pod::Functions set file creation mode mask
19777	20029
19778	20030	=begin original
19779	20031
19780	20032	Sets the umask for the process to EXPR and returns the previous value.
19781	20033	If EXPR is omitted, merely returns the current umask.
19782	20034
19783	20035	=end original
19784	20036
19785	20037	現在のプロセスの umask を EXPR に設定し、以前の値を返します。
19786	20038	EXPR が省略されると、単にその時点の umask の値を返します。
19787	20039
19788	20040	=begin original
19789	20041
19790	20042	The Unix permission C<rwxr-x---> is represented as three sets of three
19791	20043	bits, or three octal digits: C<0750> (the leading 0 indicates octal
19792	20044	and isn't one of the digits). The L<C<umask>\|/umask EXPR> value is such
19793	20045	a number representing disabled permissions bits. The permission (or
19794	20046	"mode") values you pass L<C<mkdir>\|/mkdir FILENAME,MODE> or
19795	20047	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> are modified by your
19796	20048	umask, so even if you tell
19797	20049	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> to create a file with
19798	20050	permissions C<0777>, if your umask is C<0022>, then the file will
19799	20051	actually be created with permissions C<0755>. If your
19800	20052	L<C<umask>\|/umask EXPR> were C<0027> (group can't write; others can't
19801	20053	read, write, or execute), then passing
19802	20054	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> C<0666> would create a
19803	20055	file with mode C<0640> (because C<0666 &~ 027> is C<0640>).
19804	20056
19805	20057	=end original
19806	20058
19807	20059	Unix パーミッション C<rwxr-x---> は 3 ビットの三つの組、
19808	20060	または 3 桁の 8 進数として表現されます:
19809	20061	C<0750> (先頭の 0 は 8 進数を意味し、実際の値ではありません)。
19810	20062	L<C<umask>\|/umask EXPR> の値は無効にするパーミッションビットのこのような
19811	20063	数値表現です。
19812	20064	L<C<mkdir>\|/mkdir FILENAME,MODE> や
19813	20065	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> で渡されたパーミッション
19814	20066	(または「モード」)の値は umask で修正され、たとえ
19815	20067	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> で C<0777> のパーミッションで
19816	20068	ファイルを作るように指定しても、umask が C<0022> なら、
19817	20069	結果としてファイルは C<0755> のパーミッションで作成されます。
19818	20070	L<C<umask>\|/umask EXPR> が C<0027> (グループは書き込めない; その他は読み込み、
19819	20071	書き込み、実行できない) のとき
19820	20072	L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> に C<0666> を渡すと、
19821	20073	ファイルはモード C<0640> (なぜなら C<0666 &~ 027> は C<0640>)で作成されます。
19822	20074
19823	20075	=begin original
19824	20076
19825	20077	Here's some advice: supply a creation mode of C<0666> for regular
19826	20078	files (in L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE>) and one of
19827	20079	C<0777> for directories (in L<C<mkdir>\|/mkdir FILENAME,MODE>) and
19828	20080	executable files. This gives users the freedom of
19829	20081	choice: if they want protected files, they might choose process umasks
19830	20082	of C<022>, C<027>, or even the particularly antisocial mask of C<077>.
19831	20083	Programs should rarely if ever make policy decisions better left to
19832	20084	the user. The exception to this is when writing files that should be
19833	20085	kept private: mail files, web browser cookies, F<.rhosts> files, and
19834	20086	so on.
19835	20087
19836	20088	=end original
19837	20089
19838	20090	以下は助言です: 作成モードとして、
19839	20091	(L<C<sysopen>\|/sysopen FILEHANDLE,FILENAME,MODE> による)通常ファイルでは
19840	20092	C<0666> を、(L<C<mkdir>\|/mkdir FILENAME,MODE> による)ディレクトリでは
19841	20093	C<0777> を指定しましょう。
19842	20094	これにより、ユーザーに選択の自由を与えます: もしファイルを守りたいなら、
19843	20095	プロセスの umask として C<022>, C<027>, あるいは特に非社交的な
19844	20096	C<077> を選択できます。
19845	20097	プログラムがユーザーより適切なポリシー選択ができることは稀です。
19846	20098	例外は、プライベートに保つべきファイル(メール、ウェブブラウザのクッキー、
19847	20099	F<.rhosts> ファイルなど)を書く場合です。
19848	20100
19849	20101	=begin original
19850	20102
19851	20103	If L<umask(2)> is not implemented on your system and you are trying to
19852	20104	restrict access for I<yourself> (i.e., C<< (EXPR & 0700) > 0 >>),
19853	20105	raises an exception. If L<umask(2)> is not implemented and you are
19854	20106	not trying to restrict access for yourself, returns
19855	20107	L<C<undef>\|/undef EXPR>.
19856	20108
19857	20109	=end original
19858	20110
19859	20111	L<umask(2)> が実装されていないシステムで、I<自分自身> へのアクセスを
19860	20112	制限しようとした(つまり C<< (EXPR & 0700) > 0 >>)場合、例外が発生します。
19861	20113	L<umask(2)> が実装されていないシステムで、自分自身へのアクセスは
19862	20114	制限しようとしなかった場合、L<C<undef>\|/undef EXPR> を返します。
19863	20115
19864	20116	=begin original
19865	20117
19866	20118	Remember that a umask is a number, usually given in octal; it is I<not> a
19867	20119	string of octal digits. See also L<C<oct>\|/oct EXPR>, if all you have
19868	20120	is a string.
19869	20121
19870	20122	=end original
19871	20123
19872	20124	umask は通常 8 進数で与えられる数値であることを忘れないでください; 8 進数の
19873	20125	文字列 I<ではありません>。
19874	20126	文字列しかない場合、 L<C<oct>\|/oct EXPR> も参照してください。
19875	20127
19876	20128	=begin original
19877	20129
19878	20130	Portability issues: L<perlport/umask>.
19879	20131
19880	20132	=end original
19881	20133
19882	20134	移植性の問題: L<perlport/umask>。
19883	20135
19884	20136	=item undef EXPR
19885	20137	X<undef> X<undefine>
19886	20138
19887	20139	=item undef
19888	20140
19889	20141	=for Pod::Functions remove a variable or function definition
19890	20142
19891	20143	=begin original
19892	20144
19893	20145	Undefines the value of EXPR, which must be an lvalue. Use only on a
19894	20146	scalar value, an array (using C<@>), a hash (using C<%>), a subroutine
19895	20147	(using C<&>), or a typeglob (using C<*>). Saying C<undef $hash{$key}>
19896	20148	will probably not do what you expect on most predefined variables or
19897	20149	DBM list values, so don't do that; see L<C<delete>\|/delete EXPR>.
19898	20150	Always returns the undefined value.
19899	20151	You can omit the EXPR, in which case nothing is
19900	20152	undefined, but you still get an undefined value that you could, for
19901	20153	instance, return from a subroutine, assign to a variable, or pass as a
19902	20154	parameter. Examples:
19903	20155
19904	20156	=end original
19905	20157
19906	20158	左辺値である EXPR の値を未定義にします。
19907	20159	スカラ値、(C<@> を使った)配列、(C<%> を使った)ハッシュ、(C<&> を使った)
19908	20160	サブルーチン、(C<*> を使った)型グロブだけに使用します。
19909	20161	特殊変数や DBM リスト値に C<undef $hash{$key}> などとしても
19910	20162	おそらく期待通りの結果にはなりませんから、しないでください;
19911	20163	L<C<delete>\|/delete EXPR> を参照してください。
19912	20164	常に未定義値を返します。
19913	20165	EXPR は省略することができ、その場合には何も未定義にされませんが
19914	20166	未定義値は返されますので、それをたとえば、
19915	20167	サブルーチンの返り値、変数への割り当て、引数などとして使うことができます。
19916	20168	例:
19917	20169
19918	20170	undef $foo;
19919	20171	undef $bar{'blurfl'}; # Compare to: delete $bar{'blurfl'};
19920	20172	undef @ary;
19921	20173	undef %hash;
19922	20174	undef &mysub;
19923	20175	undef *xyz; # destroys $xyz, @xyz, %xyz, &xyz, etc.
19924	20176	return (wantarray ? (undef, $errmsg) : undef) if $they_blew_it;
19925	20177	select undef, undef, undef, 0.25;
19926	20178	my ($x, $y, undef, $z) = foo(); # Ignore third value returned
19927	20179
19928	20180	=begin original
19929	20181
19930	20182	Note that this is a unary operator, not a list operator.
19931	20183
19932	20184	=end original
19933	20185
19934	20186	これはリスト演算子ではなく、単項演算子であることに注意してください。
19935	20187
19936	20188	=item unlink LIST
19937	20189	X<unlink> X<delete> X<remove> X<rm> X<del>
19938	20190
19939	20191	=item unlink
19940	20192
19941	20193	=for Pod::Functions remove one link to a file
19942	20194
19943	20195	=begin original
19944	20196
19945	20197	Deletes a list of files. On success, it returns the number of files
19946	20198	it successfully deleted. On failure, it returns false and sets
19947	20199	L<C<$!>\|perlvar/$!> (errno):
19948	20200
19949	20201	=end original
19950	20202
19951	20203	LIST に含まれるファイルを削除します。
19952	20204	成功時は削除に成功したファイルの数を返します。
19953	20205	失敗時は偽を返して L<C<$!>\|perlvar/$!> (error) をセットします:
19954	20206
19955	20207	my $unlinked = unlink 'a', 'b', 'c';
19956	20208	unlink @goners;
19957	20209	unlink glob "*.bak";
19958	20210
19959	20211	=begin original
19960	20212
19961	20213	On error, L<C<unlink>\|/unlink LIST> will not tell you which files it
19962	20214	could not remove.
19963	20215	If you want to know which files you could not remove, try them one
19964	20216	at a time:
19965	20217
19966	20218	=end original
19967	20219
19968	20220	エラーの場合、L<C<unlink>\|/unlink LIST> はどのファイルが削除できなかったかを
19969	20221	知らせません。
19970	20222	どのファイルが削除できなかったかを知りたい場合は、一つずつ削除してください:
19971	20223
19972	20224	foreach my $file ( @goners ) {
19973	20225	unlink $file or warn "Could not unlink $file: $!";
19974	20226	}
19975	20227
19976	20228	=begin original
19977	20229
19978	20230	Note: L<C<unlink>\|/unlink LIST> will not attempt to delete directories
19979	20231	unless you are
19980	20232	superuser and the B<-U> flag is supplied to Perl. Even if these
19981	20233	conditions are met, be warned that unlinking a directory can inflict
19982	20234	damage on your filesystem. Finally, using L<C<unlink>\|/unlink LIST> on
19983	20235	directories is not supported on many operating systems. Use
19984	20236	L<C<rmdir>\|/rmdir FILENAME> instead.
19985	20237
19986	20238	=end original
19987	20239
19988	20240	注: スーパーユーザ権限で、Perl に B<-U> を付けて実行した場合でなければ、
19989	20241	L<C<unlink>\|/unlink LIST> はディレクトリを削除しようとすることはありません。
19990	20242	この条件にあう場合にも、ディレクトリの削除は、
19991	20243	ファイルシステムに多大な損害を与える可能性があります。
19992	20244	最後に、L<C<unlink>\|/unlink LIST> をディレクトリに使うのはほとんどの OS では
19993	20245	対応していません。
19994	20246	代わりに L<C<rmdir>\|/rmdir FILENAME> を使ってください。
19995	20247
19996	20248	=begin original
19997	20249
19998	20250	If LIST is omitted, L<C<unlink>\|/unlink LIST> uses L<C<$_>\|perlvar/$_>.
19999	20251
20000	20252	=end original
20001	20253
20002	20254	LIST が省略されると、L<C<unlink>\|/unlink LIST> は L<C<$_>\|perlvar/$_> を
20003	20255	使います。
20004	20256
20005	20257	=item unpack TEMPLATE,EXPR
20006	20258	X<unpack>
20007	20259
20008	20260	=item unpack TEMPLATE
20009	20261
20010	20262	=for Pod::Functions convert binary structure into normal perl variables
20011	20263
20012	20264	=begin original
20013	20265
20014	20266	L<C<unpack>\|/unpack TEMPLATE,EXPR> does the reverse of
20015	20267	L<C<pack>\|/pack TEMPLATE,LIST>: it takes a string
20016	20268	and expands it out into a list of values.
20017	20269	(In scalar context, it returns merely the first value produced.)
20018	20270
20019	20271	=end original
20020	20272
20021	20273	L<C<unpack>\|/unpack TEMPLATE,EXPR> は L<C<pack>\|/pack TEMPLATE,LIST> の逆を
20022	20274	行ないます: 構造体を表わす文字列をとり、
20023	20275	リスト値に展開し、その配列値を返します。
20024	20276	(スカラコンテキストでは、単に最初の値を返します。)
20025	20277
20026	20278	=begin original
20027	20279
20028	20280	If EXPR is omitted, unpacks the L<C<$_>\|perlvar/$_> string.
20029	20281	See L<perlpacktut> for an introduction to this function.
20030	20282
20031	20283	=end original
20032	20284
20033	20285	EXPR が省略されると、L<C<$_>\|perlvar/$_> の文字列を unpack します。
20034	20286	この関数の説明については L<perlpacktut> を参照してください。
20035	20287
20036	20288	=begin original
20037	20289
20038	20290	The string is broken into chunks described by the TEMPLATE. Each chunk
20039	20291	is converted separately to a value. Typically, either the string is a result
20040	20292	of L<C<pack>\|/pack TEMPLATE,LIST>, or the characters of the string
20041	20293	represent a C structure of some kind.
20042	20294
20043	20295	=end original
20044	20296
20045	20297	文字列は TEMPLATE で示された固まりに分割されます。
20046	20298	それぞれの固まりは別々に値に変換されます。
20047	20299	典型的には、文字列は L<C<pack>\|/pack TEMPLATE,LIST> の結果あるいはある種の
20048	20300	C の構造体の文字列表現の文字列です。
20049	20301
20050	20302	=begin original
20051	20303
20052	20304	The TEMPLATE has the same format as in the
20053	20305	L<C<pack>\|/pack TEMPLATE,LIST> function.
20054	20306	Here's a subroutine that does substring:
20055	20307
20056	20308	=end original
20057	20309
20058	20310	TEMPLATE は、L<C<pack>\|/pack TEMPLATE,LIST> 関数と同じフォーマットを使います。
20059	20311	部分文字列を取り出すうサブルーチンの例を示します:
20060	20312
20061	20313	sub substr {
20062	20314	my ($what, $where, $howmuch) = @_;
20063	20315	unpack("x$where a$howmuch", $what);
20064	20316	}
20065	20317
20066	20318	=begin original
20067	20319
20068	20320	and then there's
20069	20321
20070	20322	=end original
20071	20323
20072	20324	これもそうです。
20073	20325
20074	20326	sub ordinal { unpack("W",$_[0]); } # same as ord()
20075	20327
20076	20328	=begin original
20077	20329
20078	20330	In addition to fields allowed in L<C<pack>\|/pack TEMPLATE,LIST>, you may
20079	20331	prefix a field with a %<number> to indicate that
20080	20332	you want a <number>-bit checksum of the items instead of the items
20081	20333	themselves. Default is a 16-bit checksum. The checksum is calculated by
20082	20334	summing numeric values of expanded values (for string fields the sum of
20083	20335	C<ord($char)> is taken; for bit fields the sum of zeroes and ones).
20084	20336
20085	20337	=end original
20086	20338
20087	20339	L<C<pack>\|/pack TEMPLATE,LIST> で利用可能なフィールドの他に、
20088	20340	フィールドの前に %<数値> というものを付けて、
20089	20341	項目自身の代わりに、その項目の <数値>-ビットのチェックサムを
20090	20342	計算させることができます。
20091	20343	デフォルトは、16-ビットチェックサムです。
20092	20344	チェックサムは展開された値の数値としての値の合計
20093	20345	(文字列フィールドの場合は C<ord($char)> の合計;
20094	20346	ビットフィールドの場合は 0 と 1 の合計) が用いられます。
20095	20347
20096	20348	=begin original
20097	20349
20098	20350	For example, the following
20099	20351	computes the same number as the System V sum program:
20100	20352
20101	20353	=end original
20102	20354
20103	20355	たとえば、以下のコードは
20104	20356	System V の sum プログラムと同じ値を計算します。
20105	20357
20106	20358	my $checksum = do {
20107	20359	local $/; # slurp!
20108	20360	unpack("%32W*", readline) % 65535;
20109	20361	};
20110	20362
20111	20363	=begin original
20112	20364
20113	20365	The following efficiently counts the number of set bits in a bit vector:
20114	20366
20115	20367	=end original
20116	20368
20117	20369	以下は、効率的にビットベクターの設定されているビットを
20118	20370	数えるものです。
20119	20371
20120	20372	my $setbits = unpack("%32b*", $selectmask);
20121	20373
20122	20374	=begin original
20123	20375
20124	20376	The C<p> and C<P> formats should be used with care. Since Perl
20125	20377	has no way of checking whether the value passed to
20126	20378	L<C<unpack>\|/unpack TEMPLATE,EXPR>
20127	20379	corresponds to a valid memory location, passing a pointer value that's
20128	20380	not known to be valid is likely to have disastrous consequences.
20129	20381
20130	20382	=end original
20131	20383
20132	20384	C<p> と C<P> は注意深く使うべきです。
20133	20385	Perl は L<C<unpack>\|/unpack TEMPLATE,EXPR> に渡された値が有効なメモリ位置を
20134	20386	指しているかどうかを確認する方法がないので、有効かどうかわからない
20135	20387	ポインタ値を渡すと悲惨な結果を引き起こすかもしれません。
20136	20388
20137	20389	=begin original
20138	20390
20139	20391	If there are more pack codes or if the repeat count of a field or a group
20140	20392	is larger than what the remainder of the input string allows, the result
20141	20393	is not well defined: the repeat count may be decreased, or
20142	20394	L<C<unpack>\|/unpack TEMPLATE,EXPR> may produce empty strings or zeros,
20143	20395	or it may raise an exception.
20144	20396	If the input string is longer than one described by the TEMPLATE,
20145	20397	the remainder of that input string is ignored.
20146	20398
20147	20399	=end original
20148	20400
20149	20401	多くの pack コードがある場合や、フィールドやグループの繰り返し回数が
20150	20402	入力文字列の残りより大きい場合、結果は未定義です:
20151	20403	繰り返し回数が減らされる場合もありますし、
20152	20404	L<C<unpack>\|/unpack TEMPLATE,EXPR> が空文字列や 0 を
20153	20405	返すこともありますし、例外が発生します。
20154	20406	もし入力文字列が TEMPLATE で表現されているものより大きい場合、
20155	20407	入力文字列の残りは無視されます。
20156	20408
20157	20409	=begin original
20158	20410
20159	20411	See L<C<pack>\|/pack TEMPLATE,LIST> for more examples and notes.
20160	20412
20161	20413	=end original
20162	20414
20163	20415	さらなる例と注意に関しては L<C<pack>\|/pack TEMPLATE,LIST> を参照してください。
20164	20416
20165	20417	=item unshift ARRAY,LIST
20166	20418	X<unshift>
20167	20419
20168	20420	=for Pod::Functions prepend more elements to the beginning of a list
20169	20421
20170	20422	=begin original
20171	20423
20172	20424	Does the opposite of a L<C<shift>\|/shift ARRAY>. Or the opposite of a
20173	20425	L<C<push>\|/push ARRAY,LIST>,
20174	20426	depending on how you look at it. Prepends list to the front of the
20175	20427	array and returns the new number of elements in the array.
20176	20428
20177	20429	=end original
20178	20430
20179	20431	L<C<shift>\|/shift ARRAY> の逆操作を行ないます。
20180	20432	見方を変えれば、L<C<push>\|/push ARRAY,LIST> の逆操作とも考えられます。
20181	20433	LIST を ARRAY の先頭に入れて、新しくできた配列の要素の数を返します。
20182	20434
20183	20435	unshift(@ARGV, '-e') unless $ARGV[0] =~ /^-/;
20184	20436
20185	20437	=begin original
20186	20438
20187	20439	Note the LIST is prepended whole, not one element at a time, so the
20188	20440	prepended elements stay in the same order. Use
20189	20441	L<C<reverse>\|/reverse LIST> to do the reverse.
20190	20442
20191	20443	=end original
20192	20444
20193	20445	LIST は、はらばらにではなく、一度に登録されるので、順番はそのままです。
20194	20446	逆順に登録するには、L<C<reverse>\|/reverse LIST> を使ってください。
20195	20447
20196	20448	=begin original
20197	20449
20198	20450	Starting with Perl 5.14, an experimental feature allowed
20199	20451	L<C<unshift>\|/unshift ARRAY,LIST> to take
20200	20452	a scalar expression. This experiment has been deemed unsuccessful, and was
20201	20453	removed as of Perl 5.24.
20202	20454
20203	20455	=end original
20204	20456
20205	20457	Perl 5.14 から、L<C<unshift>\|/unshift ARRAY,LIST> がスカラ式を
20206	20458	取ることが出来るという実験的機能がありました。
20207	20459	この実験は失敗と見なされ、Perl 5.24 で削除されました。
20208	20460
20209	20461	=item untie VARIABLE
20210	20462	X<untie>
20211	20463
20212	20464	=for Pod::Functions break a tie binding to a variable
20213	20465
20214	20466	=begin original
20215	20467
20216	20468	Breaks the binding between a variable and a package.
20217	20469	(See L<tie\|/tie VARIABLE,CLASSNAME,LIST>.)
20218	20470	Has no effect if the variable is not tied.
20219	20471
20220	20472	=end original
20221	20473
20222	20474	変数とパッケージの間の結合を解きます。
20223	20475	(L<tie\|/tie VARIABLE,CLASSNAME,LIST> を参照してください。)
20224	20476	結合されていない場合は何も起きません。
20225	20477
20226	20478	=item use Module VERSION LIST
20227	20479	X<use> X<module> X<import>
20228	20480
20229	20481	=item use Module VERSION
20230	20482
20231	20483	=item use Module LIST
20232	20484
20233	20485	=item use Module
20234	20486
20235		=item use VERSION
20236
20237	20487	=for Pod::Functions load in a module at compile time and import its namespace
20238	20488
20239	20489	=begin original
20240	20490
20241	20491	Imports some semantics into the current package from the named module,
20242	20492	generally by aliasing certain subroutine or variable names into your
20243	20493	package. It is exactly equivalent to
20244	20494
20245	20495	=end original
20246	20496
20247	20497	指定したモジュールから、現在のパッケージにさまざまな内容をインポートします;
20248	20498	多くは、パッケージのサブルーチン名や、変数名に別名を付けることで、
20249	20499	実現されています。
20250	20500	これは、以下は等価ですが:
20251	20501
20252	20502	BEGIN { require Module; Module->import( LIST ); }
20253	20503
20254	20504	=begin original
20255	20505
20256	20506	except that Module I<must> be a bareword.
20257	20507	The importation can be made conditional by using the L<if> module.
20258	20508
20259	20509	=end original
20260	20510
20261	20511	Module が I<裸の単語でなければならない> ことを除けば、です。
20262	20512	インポートは、L<if> を使って条件付きで行うことができます。
20263	20513
20264	20514	=begin original
20265	20515
20266		In the C<use VERSION> form, VERSION may be either a v-string such as
20267		v5.24.1, which will be compared to L<C<$^V>\|perlvar/$^V> (aka
20268		$PERL_VERSION), or a numeric argument of the form 5.024001, which will
20269		be compared to L<C<$]>\|perlvar/$]>. An exception is raised if VERSION
20270		is greater than the version of the current Perl interpreter; Perl will
20271		not attempt to parse the rest of the file. Compare with
20272		L<C<require>\|/require VERSION>, which can do a similar check at run
20273		time. Symmetrically, C<no VERSION> allows you to specify that you
20274		want a version of Perl older than the specified one.
20275
20276		=end original
20277
20278		C<use VERSION> の形式では、VERSION は v5.24.1 のような v-文字列
20279		(L<C<$^V>\|perlvar/$^V> (またの名を $PERL_VERSION) と比較されます)
20280		か、5.024001 の形の数値形式 (L<C<$]>\|perlvar/$]> と比較されます) で
20281		指定します。
20282		VERSION が Perl の現在のバージョンより大きいと、例外が発生します;
20283		Perl はファイルの残りを読み込みません。
20284		L<C<require>\|/require VERSION> と似ていますが、これは実行時に
20285		チェックされます。
20286		対称的に、C<no VERSION> は指定されたバージョンより古いバージョンの Perl で
20287		動作させたいことを意味します。
20288
20289		=begin original
20290
20291		Specifying VERSION as a numeric argument of the form 5.024001 should
20292		generally be avoided as older less readable syntax compared to
20293		v5.24.1. Before perl 5.8.0 released in 2002 the more verbose numeric
20294		form was the only supported syntax, which is why you might see it in
20295
20296		=end original
20297
20298		VERSION に 5.024001 の形の数値引数を指定することは一般的には避けるべきです;
20299		v5.24.1 に比べてより古く読みにくい文法だからです。
20300		(2002 年にリリースされた) perl 5.8.0 より前では、より冗長な
20301		数値形式が唯一対応している文法でした; これが古いコードでこれを
20302		見るかも知れない理由です。
20303
20304		=begin original
20305
20306		use v5.24.1; # compile time version check
20307		use 5.24.1; # ditto
20308		use 5.024_001; # ditto; older syntax compatible with perl 5.6
20309
20310		=end original
20311
20312		use v5.24.1; # 実行時バージョンチェック
20313		use 5.24.1; # 同様
20314		use 5.024_001; # 同様; perl 5.6 と互換性のある古い文法
20315
20316		=begin original
20317
20318		This is often useful if you need to check the current Perl version before
20319		L<C<use>\|/use Module VERSION LIST>ing library modules that won't work
20320		with older versions of Perl.
20321		(We try not to do this more than we have to.)
20322
20323		=end original
20324
20325		これは古いバージョンの Perl で動かなくなったライブラリモジュールを
20326		L<C<use>\|/use Module VERSION LIST> する前に、現在の Perl のバージョンを
20327		調べたい場合に有用です。
20328		(我々は必要な場合以外にそのようなことがないように努力していますが。)
20329
20330		=begin original
20331
20332		C<use VERSION> also lexically enables all features available in the requested
20333		version as defined by the L<feature> pragma, disabling any features
20334		not in the requested version's feature bundle. See L<feature>.
20335		Similarly, if the specified Perl version is greater than or equal to
20336		5.12.0, strictures are enabled lexically as
20337		with L<C<use strict>\|strict>. Any explicit use of
20338		C<use strict> or C<no strict> overrides C<use VERSION>, even if it comes
20339		before it. Later use of C<use VERSION>
20340		will override all behavior of a previous
20341		C<use VERSION>, possibly removing the C<strict> and C<feature> added by
20342		C<use VERSION>. C<use VERSION> does not
20343		load the F<feature.pm> or F<strict.pm>
20344		files.
20345
20346		=end original
20347
20348		C<use VERSION> は、L<feature> プラグマで定義されたように、指定された
20349		バージョンで利用可能な全ての機能を有効にし、指定されたバージョンの機能の
20350		束にない機能をレキシカルに無効にします。
20351		L<feature> を参照してください。
20352		同様に、指定された Perl のバージョンが 5.12.0 以上の場合、
20353		制限は L<C<use strict>\|strict> と同様にレキシカルに有効になります。
20354		明示的に C<use strict> や C<no strict> を使うと、例え先に
20355		指定されていたとしても、C<use VERSION> を上書きします。
20356		後から使った C<use VERSION> は先の
20357		C<use VERSION> の全ての振る舞いを上書きするので、
20358		C<use VERSION> によって追加された C<strict> と C<feature> を
20359		削除することがあります。
20360		C<use VERSION> は F<feature.pm> と F<strict.pm> ファイルは読み込みません。
20361
20362		=begin original
20363
20364	20516	The C<BEGIN> forces the L<C<require>\|/require VERSION> and
20365	20517	L<C<import>\|/import LIST> to happen at compile time. The
20366	20518	L<C<require>\|/require VERSION> makes sure the module is loaded into
20367	20519	memory if it hasn't been yet. The L<C<import>\|/import LIST> is not a
20368	20520	builtin; it's just an ordinary static method
20369	20521	call into the C<Module> package to tell the module to import the list of
20370	20522	features back into the current package. The module can implement its
20371	20523	L<C<import>\|/import LIST> method any way it likes, though most modules
20372	20524	just choose to derive their L<C<import>\|/import LIST> method via
20373	20525	inheritance from the C<Exporter> class that is defined in the
20374	20526	L<C<Exporter>\|Exporter> module. See L<Exporter>. If no
20375	20527	L<C<import>\|/import LIST> method can be found, then the call is skipped,
20376	20528	even if there is an AUTOLOAD method.
20377	20529
20378	20530	=end original
20379	20531
20380	20532	C<BEGIN> によって、L<C<require>\|/require VERSION> や
20381	20533	L<C<import>\|/import LIST> は、コンパイル時に
20382	20534	実行されることになります。
20383	20535	L<C<require>\|/require VERSION> は、モジュールがまだメモリに
20384	20536	ロードされていなければ、ロードします。
20385	20537	L<C<import>\|/import LIST> は、組込みの関数ではありません; さまざまな機能を
20386	20538	現在のパッケージにインポートするように C<Module> パッケージに伝えるために
20387	20539	呼ばれる、通常の静的メソッドです。
20388	20540	モジュール側では、L<C<import>\|/import LIST> メソッドをどのようにでも
20389	20541	実装することができますが、多くのモジュールでは、
20390	20542	L<C<Exporter>\|Exporter> モジュールで定義された、
20391	20543	C<Exporter> クラスからの継承によって、L<C<import>\|/import LIST> メソッドを
20392	20544	行なうようにしています。
20393	20545	L<Exporter>モジュールを参照してください。
20394	20546	L<C<import>\|/import LIST>メソッドが見つからなかった場合、AUTOLOAD メソッドが
20395	20547	あったとしても呼び出しはスキップされます。
20396	20548
20397	20549	=begin original
20398	20550
20399	20551	If you do not want to call the package's L<C<import>\|/import LIST>
20400	20552	method (for instance,
20401	20553	to stop your namespace from being altered), explicitly supply the empty list:
20402	20554
20403	20555	=end original
20404	20556
20405	20557	パッケージの L<C<import>\|/import LIST> メソッドを呼び出したくない場合(例えば、
20406	20558	名前空間を変更したくない場合など)は、明示的に空リストを指定してください:
20407	20559
20408	20560	use Module ();
20409	20561
20410	20562	=begin original
20411	20563
20412	20564	That is exactly equivalent to
20413	20565
20414	20566	=end original
20415	20567
20416	20568	これは以下と完全に等価です:
20417	20569
20418	20570	BEGIN { require Module }
20419	20571
20420	20572	=begin original
20421	20573
20422	20574	If the VERSION argument is present between Module and LIST, then the
20423	20575	L<C<use>\|/use Module VERSION LIST> will call the C<VERSION> method in
20424	20576	class Module with the given version as an argument:
20425	20577
20426	20578	=end original
20427	20579
20428	20580	Module と LIST の間に VERSION 引数がある場合、
20429	20581	L<C<use>\|/use Module VERSION LIST> は Module クラスの
20430	20582	C<VERSION> メソッドを、与えられたバージョンを引数として呼び出します:
20431	20583
20432	20584	use Module 12.34;
20433	20585
20434	20586	=begin original
20435	20587
20436	20588	is equivalent to:
20437	20589
20438	20590	=end original
20439	20591
20440	20592	は以下と等価です:
20441	20593
20442	20594	BEGIN { require Module; Module->VERSION(12.34) }
20443	20595
20444	20596	=begin original
20445	20597
20446	20598	The L<default C<VERSION> method\|UNIVERSAL/C<VERSION ( [ REQUIRE ] )>>,
20447	20599	inherited from the L<C<UNIVERSAL>\|UNIVERSAL> class, croaks if the given
20448	20600	version is larger than the value of the variable C<$Module::VERSION>.
20449	20601
20450	20602	=end original
20451	20603
20452	20604	デフォルトの
20453	20605	L<default C<VERSION> メソッド\|UNIVERSAL/C<VERSION ( [ REQUIRE ] )>> は、
20454	20606	L<C<UNIVERSAL>\|UNIVERSAL> クラスから継承したもので、
20455	20607	与えられたバージョンが変数 C<$Module::VERSION> の値より大きい場合に
20456	20608	警告を出します。
20457	20609
20458	20610	=begin original
20459	20611
20460	20612	The VERSION argument cannot be an arbitrary expression. It only counts
20461	20613	as a VERSION argument if it is a version number literal, starting with
20462	20614	either a digit or C<v> followed by a digit. Anything that doesn't
20463	20615	look like a version literal will be parsed as the start of the LIST.
20464	20616	Nevertheless, many attempts to use an arbitrary expression as a VERSION
20465	20617	argument will appear to work, because L<Exporter>'s C<import> method
20466	20618	handles numeric arguments specially, performing version checks rather
20467	20619	than treating them as things to export.
20468	20620
20469	20621	=end original
20470	20622
20471	20623	VERSION 引数は任意の式ではありません。
20472	20624	VERSION 引数が数値または C<v> に引き続いて数値であるバージョン番号リテラルの
20473	20625	場合にのみ扱われます。
20474	20626	バージョンリテラルのように見えないものは LIST の開始としてパースされます。
20475	20627	それにも関わらず、VERSION 引数として任意の式を使おうとする
20476	20628	多くの試みは動作しているように見えます; なぜなら
20477	20629	L<Exporter> の C<import> メソッドは数値引数を特別に扱い、
20478	20630	それらをエクスポートするべきものと扱わずにバージョンチェックを
20479	20631	実行するからです。
20480	20632
20481	20633	=begin original
20482	20634
20483	20635	Again, there is a distinction between omitting LIST (L<C<import>\|/import
20484	20636	LIST> called with no arguments) and an explicit empty LIST C<()>
20485	20637	(L<C<import>\|/import LIST> not called). Note that there is no comma
20486	20638	after VERSION!
20487	20639
20488	20640	=end original
20489	20641
20490	20642	繰り返すと、LIST を省略する(L<C<import>\|/import LIST> が引数なしで
20491	20643	呼び出される)ことと明示的に空の LIST C<()> を指定する
20492	20644	(L<C<import>\|/import LIST> は呼び出されない)ことは違います。
20493	20645	VERSION の後ろにカンマが不要なことに注意してください!
20494	20646
20495	20647	=begin original
20496	20648
20497	20649	Because this is a wide-open interface, pragmas (compiler directives)
20498	20650	are also implemented this way. Some of the currently implemented
20499	20651	pragmas are:
20500	20652
20501	20653	=end original
20502	20654
20503	20655	これは、広く公開されているインタフェースですので、
20504	20656	プラグマ (コンパイラディレクティブ) も、この方法で実装されています。
20505	20657	現在実装されているプラグマには、以下のようなものがあります:
20506	20658
20507	20659	use constant;
20508	20660	use diagnostics;
20509	20661	use integer;
20510	20662	use sigtrap qw(SEGV BUS);
20511	20663	use strict qw(subs vars refs);
20512	20664	use subs qw(afunc blurfl);
20513	20665	use warnings qw(all);
20514	20666	use sort qw(stable);
20515	20667
20516	20668	=begin original
20517	20669
20518	20670	Some of these pseudo-modules import semantics into the current
20519	20671	block scope (like L<C<strict>\|strict> or L<C<integer>\|integer>, unlike
20520	20672	ordinary modules, which import symbols into the current package (which
20521	20673	are effective through the end of the file).
20522	20674
20523	20675	=end original
20524	20676
20525	20677	通常のモジュールが、現在のパッケージにシンボルをインポートする
20526	20678	(これは、ファイルの終わりまで有効です) のに対して、これらの擬似モジュールの
20527	20679	一部(L<C<strict>\|strict> や L<C<integer>\|integer> など)は、現在の
20528	20680	ブロックスコープにインポートを行ないます。
20529	20681
20530	20682	=begin original
20531	20683
20532	20684	Because L<C<use>\|/use Module VERSION LIST> takes effect at compile time,
20533	20685	it doesn't respect the ordinary flow control of the code being compiled.
20534	20686	In particular, putting a L<C<use>\|/use Module VERSION LIST> inside the
20535	20687	false branch of a conditional doesn't prevent it
20536	20688	from being processed. If a module or pragma only needs to be loaded
20537	20689	conditionally, this can be done using the L<if> pragma:
20538	20690
20539	20691	=end original
20540	20692
20541	20693	L<C<use>\|/use Module VERSION LIST> はコンパイル時に有効なので、コードが
20542	20694	コンパイルされる際の通常の流れ制御には従いません。
20543	20695	特に、条件文のうち成立しない側の中に L<C<use>\|/use Module VERSION LIST> を
20544	20696	書いても、処理を妨げられません。
20545	20697	モジュールやプラグマを条件付きでのみ読み込みたい場合、
20546	20698	L<if> プラグマを使って実現できます:
20547	20699
20548	20700	use if $] < 5.008, "utf8";
20549	20701	use if WANT_WARNINGS, warnings => qw(all);
20550	20702
20551	20703	=begin original
20552	20704
20553	20705	There's a corresponding L<C<no>\|/no MODULE VERSION LIST> declaration
20554	20706	that unimports meanings imported by L<C<use>\|/use Module VERSION LIST>,
20555	20707	i.e., it calls C<< Module->unimport(LIST) >> instead of
20556	20708	L<C<import>\|/import LIST>. It behaves just as L<C<import>\|/import LIST>
20557	20709	does with VERSION, an omitted or empty LIST,
20558	20710	or no unimport method being found.
20559	20711
20560	20712	=end original
20561	20713
20562	20714	これに対して、L<C<no>\|/no MODULE VERSION LIST> 宣言という、
20563	20715	L<C<use>\|/use Module VERSION LIST> によってインポートされたものを、
20564	20716	インポートされていないことにするものがあります; つまり、
20565	20717	L<C<import>\|/import LIST> の代わりに
20566	20718	C<< Module->unimport(LIST) >> を呼び出します。
20567	20719	これは VERSION、省略された LIST、空の LIST、unimport メソッドが見つからない
20568	20720	場合などの観点では、L<C<import>\|/import LIST> と同様に振る舞います。
20569	20721
20570	20722	no integer;
20571	20723	no strict 'refs';
20572	20724	no warnings;
20573	20725
20574	20726	=begin original
20575	20727
20576		Care should be taken when using the C<no VERSION> form of L<C<no>\|/no
20577		MODULE VERSION LIST>. It is
20578		I<only> meant to be used to assert that the running Perl is of a earlier
20579		version than its argument and I<not> to undo the feature-enabling side effects
20580		of C<use VERSION>.
20581
20582		=end original
20583
20584		L<C<no>\|/no MODULE VERSION LIST> の C<no VERSION> 形式を使うときには
20585		注意を払うべきです。
20586		これは引数で指定されたバージョンよりも前の Perl で実行されたときに
20587		アサートされることを意味する I<だけ> で、C<use VERSION> によって
20588		有効にされた副作用をなかったことにするもの I<ではありません>。
20589
20590		=begin original
20591
20592	20728	See L<perlmodlib> for a list of standard modules and pragmas. See
20593	20729	L<perlrun\|perlrun/-m[-]module> for the C<-M> and C<-m> command-line
20594	20730	options to Perl that give L<C<use>\|/use Module VERSION LIST>
20595	20731	functionality from the command-line.
20596	20732
20597	20733	=end original
20598	20734
20599	20735	標準モジュールやプラグマの一覧は、L<perlmodlib> を参照してください。
20600	20736	コマンドラインから L<C<use>\|/use Module VERSION LIST> 機能を
20601	20737	指定するための C<-M> と C<-m> の
20602	20738	コマンドラインオプションについては
20603	20739	L<perlrun\|perlrun/-m[-]module> を参照してください。
20604	20740
	20741	=item use VERSION
	20742
	20743	=for Pod::Functions enable Perl language features and declare required version
	20744
	20745	=begin original
	20746
	20747	Lexically enables all features available in the requested version as
	20748	defined by the L<feature> pragma, disabling any features not in the
	20749	requested version's feature bundle. See L<feature>.
	20750
	20751	=end original
	20752
	20753	L<feature> プラグマで定義された、指定されたバージョンで利用可能な
	20754	全ての機能を有効にし、指定されたバージョンの機能の束で要求されていない
	20755	全ての機能を無効にします。
	20756	L<feature> を参照してください。
	20757
	20758	=begin original
	20759
	20760	VERSION may be either a v-string such as v5.24.1, which will be compared
	20761	to L<C<$^V>\|perlvar/$^V> (aka $PERL_VERSION), or a numeric argument of the
	20762	form 5.024001, which will be compared to L<C<$]>\|perlvar/$]>. An
	20763	exception is raised if VERSION is greater than the version of the current
	20764	Perl interpreter; Perl will not attempt to parse the rest of the file.
	20765	Compare with L<C<require>\|/require VERSION>, which can do a similar check
	20766	at run time.
	20767
	20768	=end original
	20769
	20770	VERSION は v5.24.1 のような v-文字列
	20771	(L<C<$^V>\|perlvar/$^V> (またの名を $PERL_VERSION) と比較されます)
	20772	か、5.024001 の形の数値形式 (L<C<$]>\|perlvar/$]> と比較されます) で
	20773	指定します。
	20774	VERSION が Perl の現在のバージョンより大きいと、例外が発生します;
	20775	Perl はファイルの残りを読み込みません。
	20776	L<C<require>\|/require VERSION> と似ていますが、これは実行時に
	20777	チェックされます。
	20778
	20779	=begin original
	20780
	20781	If the specified Perl version is 5.12 or higher, strictures are enabled
	20782	lexically as with L<C<use strict>\|strict>. Similarly, if the specified
	20783	Perl version is 5.35.0 or higher, L<warnings> are enabled. Later use of
	20784	C<use VERSION> will override all behavior of a previous C<use VERSION>,
	20785	possibly removing the C<strict>, C<warnings>, and C<feature> added by it.
	20786	C<use VERSION> does not load the F<feature.pm>, F<strict.pm>, or
	20787	F<warnings.pm> files.
	20788
	20789	=end original
	20790
	20791	指定された Perl のバージョンが 5.12 以上の場合、
	20792	L<C<use strict>\|strict> と同様に、strict 機能がレキシカルに有効になります。
	20793	同様に、指定された Perl のバージョンが 5.35.0 以上の場合、
	20794	L<warnings> が有効になります。
	20795	後から使った C<use VERSION> は先の
	20796	C<use VERSION> の全ての振る舞いを上書きするので、
	20797	それによって追加された C<strict>, C<feature>, C<feature> を
	20798	削除することがあります。
	20799	C<use VERSION> は F<feature.pm>, F<strict.pm>, F<warnings.pm> ファイルは
	20800	読み込みません。
	20801
	20802	=begin original
	20803
	20804	In the current implementation, any explicit use of C<use strict> or
	20805	C<no strict> overrides C<use VERSION>, even if it comes before it.
	20806	However, this may be subject to change in a future release of Perl, so new
	20807	code should not rely on this fact. It is recommended that a
	20808	C<use VERSION> declaration be the first significant statement within a
	20809	file (possibly after a C<package> statement or any amount of whitespace or
	20810	comment), so that its effects happen first, and other pragmata are applied
	20811	after it.
	20812
	20813	=end original
	20814
	20815	現在の実装では、明示的に C<use strict> や C<no strict> を使うと、例え先に
	20816	指定されていたとしても、C<use VERSION> を上書きします。
	20817	しかし、これは将来のリリースの Perl で変更されるかもしれないので、
	20818	新しいコードはこの事実に依存するべきではありません。
	20819	(場合によっては C<package> 文や任意の量の空白やコメントの後の)ファイルの
	20820	最初の有効な文として C<use VERSION> 宣言することを勧めます;
	20821	この機能が最初に怒り、その他のプラグマはその後に適用されるからです。
	20822
	20823	=begin original
	20824
	20825	Specifying VERSION as a numeric argument of the form 5.024001 should
	20826	generally be avoided as older less readable syntax compared to
	20827	v5.24.1. Before perl 5.8.0 released in 2002 the more verbose numeric
	20828	form was the only supported syntax, which is why you might see it in
	20829	older code.
	20830
	20831	=end original
	20832
	20833	VERSION に 5.024001 の形の数値引数を指定することは一般的には避けるべきです;
	20834	v5.24.1 に比べてより古く読みにくい文法だからです。
	20835	(2002 年にリリースされた) perl 5.8.0 より前では、より冗長な
	20836	数値形式が唯一対応している文法でした; これが古いコードでこれを
	20837	見るかも知れない理由です。
	20838
	20839	=begin original
	20840
	20841	use v5.24.1; # compile time version check
	20842	use 5.24.1; # ditto
	20843	use 5.024_001; # ditto; older syntax compatible with perl 5.6
	20844
	20845	=end original
	20846
	20847	use v5.24.1; # 実行時バージョンチェック
	20848	use 5.24.1; # 同様
	20849	use 5.024_001; # 同様; perl 5.6 と互換性のある古い文法
	20850
	20851	=begin original
	20852
	20853	This is often useful if you need to check the current Perl version before
	20854	L<C<use>\|/use Module VERSION LIST>ing library modules that won't work
	20855	with older versions of Perl.
	20856	(We try not to do this more than we have to.)
	20857
	20858	=end original
	20859
	20860	これは古いバージョンの Perl で動かなくなったライブラリモジュールを
	20861	L<C<use>\|/use Module VERSION LIST> する前に、現在の Perl のバージョンを
	20862	調べたい場合に有用です。
	20863	(我々は必要な場合以外にそのようなことがないように努力していますが。)
	20864
	20865	=begin original
	20866
	20867	Symmetrically, C<no VERSION> allows you to specify that you want a version
	20868	of Perl older than the specified one. Historically this was added during
	20869	early designs of the Raku language (formerly "Perl 6"), so that a Perl 5
	20870	program could begin
	20871
	20872	=end original
	20873
	20874	対称的に、C<no VERSION> は指定されたバージョンより古いバージョンの Perl で
	20875	動作させたいことを意味します。
	20876	歴史的には、これは Raku 言語 (以前は "Perl 6") の初期仕様で加えられたので、
	20877	Perl 5 のプログラムは次のもので始めて:
	20878
	20879	no 6;
	20880
	20881	=begin original
	20882
	20883	to declare that it is not a Perl 6 program. As the two languages have
	20884	different implementations, file naming conventions, and other
	20885	infrastructure, this feature is now little used in practice and should be
	20886	avoided in newly-written code.
	20887
	20888	=end original
	20889
	20890	Perl 6 プログラムでないことを宣言できました。
	20891	二つの言語は異なる実装、命名規則、およびその他のインフラを持つので、
	20892	今ではこの機能は実際にはほとんど使われておらず、新しいコードでは
	20893	避けるべきです。
	20894
	20895	=begin original
	20896
	20897	Care should be taken when using the C<no VERSION> form, as it is I<only>
	20898	meant to be used to assert that the running Perl is of a earlier version
	20899	than its argument and I<not> to undo the feature-enabling side effects
	20900	of C<use VERSION>.
	20901
	20902	=end original
	20903
	20904	C<no VERSION> 形式を使うときには注意を払うべきです;
	20905	これは引数で指定されたバージョンよりも前の Perl で実行されたときに
	20906	アサートされることを意味する I<だけ> で、C<use VERSION> によって
	20907	有効にされた副作用をなかったことにするもの I<ではありません>。
	20908
20605	20909	=item utime LIST
20606	20910	X<utime>
20607	20911
20608	20912	=for Pod::Functions set a file's last access and modify times
20609	20913
20610	20914	=begin original
20611	20915
20612	20916	Changes the access and modification times on each file of a list of
20613	20917	files. The first two elements of the list must be the NUMERIC access
20614	20918	and modification times, in that order. Returns the number of files
20615	20919	successfully changed. The inode change time of each file is set
20616	20920	to the current time. For example, this code has the same effect as the
20617	20921	Unix L<touch(1)> command when the files I<already exist> and belong to
20618	20922	the user running the program:
20619	20923
20620	20924	=end original
20621	20925
20622	20926	ファイルのアクセス時刻と修正(modification) 時刻を変更します。
20623	20927	LIST の最初の二つの要素に、数値で表わしたアクセス時刻と修正時刻を
20624	20928	順に指定します。
20625	20929	変更に成功したファイルの数を返します。
20626	20930	各ファイルの inode 変更(change)時刻には、その時点の時刻が設定されます。
20627	20931	例えば、このコードはファイルが I<既に存在して> いて、ユーザーが
20628	20932	実行しているプログラムに従っているなら、
20629	20933	Unix の L<touch(1)> コマンドと同じ効果があります。
20630	20934
20631	20935	#!/usr/bin/perl
20632	20936	my $atime = my $mtime = time;
20633	20937	utime $atime, $mtime, @ARGV;
20634	20938
20635	20939	=begin original
20636	20940
20637	20941	Since Perl 5.8.0, if the first two elements of the list are
20638	20942	L<C<undef>\|/undef EXPR>,
20639	20943	the L<utime(2)> syscall from your C library is called with a null second
20640	20944	argument. On most systems, this will set the file's access and
20641	20945	modification times to the current time (i.e., equivalent to the example
20642	20946	above) and will work even on files you don't own provided you have write
20643	20947	permission:
20644	20948
20645	20949	=end original
20646	20950
20647	20951	Perl 5.8.0 から、リストの最初の二つの要素が L<C<undef>\|/undef EXPR> である
20648	20952	場合、C ライブラリの L<utime(2)> システムコールを、秒の引数を null として
20649	20953	呼び出します。
20650	20954	ほとんどのシステムでは、これによってファイルのアクセス時刻と修正時刻を
20651	20955	現在の時刻にセットし(つまり、上記の例と等価です)、
20652	20956	書き込み権限があれば他のユーザーのファイルに対しても動作します。
20653	20957
20654	20958	for my $file (@ARGV) {
20655	20959	utime(undef, undef, $file)
20656	20960	\|\| warn "Couldn't touch $file: $!";
20657	20961	}
20658	20962
20659	20963	=begin original
20660	20964
20661	20965	Under NFS this will use the time of the NFS server, not the time of
20662	20966	the local machine. If there is a time synchronization problem, the
20663	20967	NFS server and local machine will have different times. The Unix
20664	20968	L<touch(1)> command will in fact normally use this form instead of the
20665	20969	one shown in the first example.
20666	20970
20667	20971	=end original
20668	20972
20669	20973	NFS では、これはローカルマシンの時刻ではなく、NFS サーバーの時刻が
20670	20974	使われます。
20671	20975	時刻同期に問題がある場合、NFS サーバーとローカルマシンで違う時刻に
20672	20976	なっている場合があります。
20673	20977	実際のところ、Unix の L<touch(1)> コマンドは普通、最初の例ではなく、
20674	20978	この形を使います。
20675	20979
20676	20980	=begin original
20677	20981
20678	20982	Passing only one of the first two elements as L<C<undef>\|/undef EXPR> is
20679	20983	equivalent to passing a 0 and will not have the effect described when
20680	20984	both are L<C<undef>\|/undef EXPR>. This also triggers an
20681	20985	uninitialized warning.
20682	20986
20683	20987	=end original
20684	20988
20685	20989	最初の二つの要素のうち、一つだけに L<C<undef>\|/undef EXPR> を渡すと、その
20686	20990	要素は 0 を渡すのと等価となり、上述の、両方に L<C<undef>\|/undef EXPR> を
20687	20991	渡した時と同じ効果ではありません。
20688	20992	この場合は、未初期化の警告が出ます。
20689	20993
20690	20994	=begin original
20691	20995
20692	20996	On systems that support L<futimes(2)>, you may pass filehandles among the
20693	20997	files. On systems that don't support L<futimes(2)>, passing filehandles raises
20694	20998	an exception. Filehandles must be passed as globs or glob references to be
20695	20999	recognized; barewords are considered filenames.
20696	21000
20697	21001	=end original
20698	21002
20699	21003	L<futimes(2)> に対応しているシステムでは、ファイルハンドルを引数として
20700	21004	渡せます。
20701	21005	L<futimes(2)> に対応していないシステムでは、ファイルハンドルを渡すと
20702	21006	例外が発生します。
20703	21007	ファイルハンドルを認識させるためには、グロブまたはリファレンスとして
20704	21008	渡されなければなりません; 裸の単語はファイル名として扱われます。
20705	21009
20706	21010	=begin original
20707	21011
20708	21012	Portability issues: L<perlport/utime>.
20709	21013
20710	21014	=end original
20711	21015
20712	21016	移植性の問題: L<perlport/utime>。
20713	21017
20714	21018	=item values HASH
20715	21019	X<values>
20716	21020
20717	21021	=item values ARRAY
20718	21022
20719	21023	=for Pod::Functions return a list of the values in a hash
20720	21024
20721	21025	=begin original
20722	21026
20723	21027	In list context, returns a list consisting of all the values of the named
20724	21028	hash. In Perl 5.12 or later only, will also return a list of the values of
20725	21029	an array; prior to that release, attempting to use an array argument will
20726	21030	produce a syntax error. In scalar context, returns the number of values.
20727	21031
20728	21032	=end original
20729	21033
20730	21034	リストコンテキストでは、指定したハッシュのすべての値を返します。
20731	21035	Perl 5.12 以降でのみ、配列の全ての値からなるリストも返します;
20732	21036	このリリースの前では、配列要素に使おうとすると文法エラーが発生します。
20733	21037	スカラコンテキストでは、値の数を返します。
20734	21038
20735	21039	=begin original
20736	21040
20737	21041	Hash entries are returned in an apparently random order. The actual random
20738	21042	order is specific to a given hash; the exact same series of operations
20739	21043	on two hashes may result in a different order for each hash. Any insertion
20740	21044	into the hash may change the order, as will any deletion, with the exception
20741	21045	that the most recent key returned by L<C<each>\|/each HASH> or
20742	21046	L<C<keys>\|/keys HASH> may be deleted without changing the order. So
20743	21047	long as a given hash is unmodified you may rely on
20744	21048	L<C<keys>\|/keys HASH>, L<C<values>\|/values HASH> and
20745	21049	L<C<each>\|/each HASH> to repeatedly return the same order
20746	21050	as each other. See L<perlsec/"Algorithmic Complexity Attacks"> for
20747	21051	details on why hash order is randomized. Aside from the guarantees
20748	21052	provided here the exact details of Perl's hash algorithm and the hash
20749	21053	traversal order are subject to change in any release of Perl. Tied hashes
20750	21054	may behave differently to Perl's hashes with respect to changes in order on
20751	21055	insertion and deletion of items.
20752	21056
20753	21057	=end original
20754	21058
20755	21059	ハッシュ要素は見かけ上、ランダムな順序で返されます。
20756	21060	実際のランダムな順序はハッシュに固有です; 二つのハッシュに全く同じ一連の
20757	21061	操作を行っても、ハッシュによって異なった順序になります。
20758	21062	ハッシュへの挿入によって順序が変わることがあります; 削除も同様ですが、
20759	21063	L<C<each>\|/each HASH> または L<C<keys>\|/keys HASH> によって返されたもっとも
20760	21064	最近のキーは順序を変えることなく削除できます。
20761	21065	ハッシュが変更されない限り、L<C<keys>\|/keys HASH>, L<C<values>\|/values HASH>,
20762	21066	L<C<each>\|/each HASH> が繰り返し同じ順序で返すことに依存してもかまいません。
20763	21067	なぜハッシュの順序がランダム化されているかの詳細については
20764	21068	L<perlsec/"Algorithmic Complexity Attacks"> を参照してください。
20765	21069	ここで保証したことを除いて、Perl のハッシュアルゴリズムとハッシュ横断順序の
20766	21070	正確な詳細は Perl のリリースによって変更される可能性があります。
20767	21071	tie されたハッシュは、アイテムの挿入と削除の順序に関して Perl のハッシュと
20768	21072	異なった振る舞いをします。
20769	21073
20770	21074	=begin original
20771	21075
20772	21076	As a side effect, calling L<C<values>\|/values HASH> resets the HASH or
20773	21077	ARRAY's internal iterator (see L<C<each>\|/each HASH>) before yielding the
20774	21078	values. In particular,
20775	21079	calling L<C<values>\|/values HASH> in void context resets the iterator
20776	21080	with no other overhead.
20777	21081
20778	21082	=end original
20779	21083
20780	21084	副作用として、L<C<values>\|/values HASH> を呼び出すと、
20781	21085	値を取り出す前に HASH や ARRAY の
20782	21086	内部反復子(L<C<each>\|/each HASH> 参照)をリセットします。
20783	21087	特に、L<C<values>\|/values HASH> を無効コンテキストで呼び出すとその他の
20784	21088	オーバーヘッドなしで反復子をリセットします。
20785	21089
20786	21090	=begin original
20787	21091
20788	21092	Apart from resetting the iterator,
20789	21093	C<values @array> in list context is the same as plain C<@array>.
20790	21094	(We recommend that you use void context C<keys @array> for this, but
20791	21095	reasoned that taking C<values @array> out would require more
20792	21096	documentation than leaving it in.)
20793	21097
20794	21098	=end original
20795	21099
20796	21100	反復子をリセットするということを除けば、
20797	21101	リストコンテキストでの C<values @array> は単なる C<@array> と同じです。
20798	21102	この目的のためには無効コンテキストで C<keys @array> を使うことを
20799	21103	お勧めしますが、C<values @array> を取り出すにはそのままにするよりも
20800	21104	より多くの文書が必要だと判断しました。)
20801	21105
20802	21106	=begin original
20803	21107
20804	21108	Note that the values are not copied, which means modifying them will
20805	21109	modify the contents of the hash:
20806	21110
20807	21111	=end original
20808	21112
20809	21113	値はコピーされないので、返されたリストを変更すると
20810	21114	ハッシュの中身が変更されることに注意してください。
20811	21115
20812	21116	for (values %hash) { s/foo/bar/g } # modifies %hash values
20813	21117	for (@hash{keys %hash}) { s/foo/bar/g } # same
20814	21118
20815	21119	=begin original
20816	21120
20817	21121	Starting with Perl 5.14, an experimental feature allowed
20818	21122	L<C<values>\|/values HASH> to take a
20819	21123	scalar expression. This experiment has been deemed unsuccessful, and was
20820	21124	removed as of Perl 5.24.
20821	21125
20822	21126	=end original
20823	21127
20824	21128	Perl 5.14 から、L<C<values>\|/values HASH> がスカラ式を取ることが出来るという
20825	21129	実験的機能がありました。
20826	21130	この実験は失敗と見なされ、Perl 5.24 で削除されました。
20827	21131
20828	21132	=begin original
20829	21133
20830	21134	To avoid confusing would-be users of your code who are running earlier
20831	21135	versions of Perl with mysterious syntax errors, put this sort of thing at
20832	21136	the top of your file to signal that your code will work I<only> on Perls of
20833	21137	a recent vintage:
20834	21138
20835	21139	=end original
20836	21140
20837	21141	あなたのコードを以前のバージョンの Perl で実行したユーザーが不思議な
20838	21142	文法エラーで混乱することを避けるために、コードが最近のバージョンの Perl で
20839	21143	I<のみ> 動作することを示すためにファイルの先頭に以下のようなことを
20840	21144	書いてください:
20841	21145
20842		use 5.012; # so keys/values/each work on arrays
	21146	use v5.12; # so keys/values/each work on arrays
20843	21147
20844	21148	=begin original
20845	21149
20846	21150	See also L<C<keys>\|/keys HASH>, L<C<each>\|/each HASH>, and
20847	21151	L<C<sort>\|/sort SUBNAME LIST>.
20848	21152
20849	21153	=end original
20850	21154
20851	21155	L<C<keys>\|/keys HASH>, L<C<each>\|/each HASH>, L<C<sort>\|/sort SUBNAME LIST> も
20852	21156	参照してください。
20853	21157
20854	21158	=item vec EXPR,OFFSET,BITS
20855	21159	X<vec> X<bit> X<bit vector>
20856	21160
20857	21161	=for Pod::Functions test or set particular bits in a string
20858	21162
20859	21163	=begin original
20860	21164
20861	21165	Treats the string in EXPR as a bit vector made up of elements of
20862	21166	width BITS and returns the value of the element specified by OFFSET
20863	21167	as an unsigned integer. BITS therefore specifies the number of bits
20864	21168	that are reserved for each element in the bit vector. This must
20865	21169	be a power of two from 1 to 32 (or 64, if your platform supports
20866	21170	that).
20867	21171
20868	21172	=end original
20869	21173
20870	21174	文字列 EXPR を BITS 幅の要素からなるビットベクターとして扱い、
20871	21175	OFFSET で指定された要素を符号なし整数として返します。
20872	21176	従って、 BITS はビットベクターの中の各要素について予約されるビット数です。
20873	21177	BIT は、1 から 32 まで(プラットホームが
20874	21178	対応していれば 64 まで) の 2 のべき乗でなければなりません。
20875	21179
20876	21180	=begin original
20877	21181
20878	21182	If BITS is 8, "elements" coincide with bytes of the input string.
20879	21183
20880	21184	=end original
20881	21185
20882	21186	BITS が 8 の場合、「要素」は入力文字列の各バイトと一致します。
20883	21187
20884	21188	=begin original
20885	21189
20886	21190	If BITS is 16 or more, bytes of the input string are grouped into chunks
20887	21191	of size BITS/8, and each group is converted to a number as with
20888	21192	L<C<pack>\|/pack TEMPLATE,LIST>/L<C<unpack>\|/unpack TEMPLATE,EXPR> with
20889	21193	big-endian formats C<n>/C<N> (and analogously for BITS==64). See
20890	21194	L<C<pack>\|/pack TEMPLATE,LIST> for details.
20891	21195
20892	21196	=end original
20893	21197
20894	21198	BITS が 16 以上の場合、入力のバイト列は BITS/8 のサイズの固まりに
20895	21199	グループ化され、各グループは L<C<pack>\|/pack TEMPLATE,LIST>/
20896	21200	L<C<unpack>\|/unpack TEMPLATE,EXPR> のビッグエンディアン
20897	21201	フォーマット C<n>/C<N> を用いて(BITS==64 の類似として)数値に変換されます。
20898	21202	詳細は L<C<pack>\|/pack TEMPLATE,LIST> を参照してください。
20899	21203
20900	21204	=begin original
20901	21205
20902	21206	If bits is 4 or less, the string is broken into bytes, then the bits
20903	21207	of each byte are broken into 8/BITS groups. Bits of a byte are
20904	21208	numbered in a little-endian-ish way, as in C<0x01>, C<0x02>,
20905	21209	C<0x04>, C<0x08>, C<0x10>, C<0x20>, C<0x40>, C<0x80>. For example,
20906	21210	breaking the single input byte C<chr(0x36)> into two groups gives a list
20907	21211	C<(0x6, 0x3)>; breaking it into 4 groups gives C<(0x2, 0x1, 0x3, 0x0)>.
20908	21212
20909	21213	=end original
20910	21214
20911	21215	BITS が 4 以下の場合、文字列はバイトに分解され、バイトの各ビットは
20912	21216	8/BITS 個のグループに分割されます。
20913	21217	ビットはリトルエンディアン風に、C<0x01>, C<0x02>,
20914	21218	C<0x04>, C<0x08>, C<0x10>, C<0x20>, C<0x40>, C<0x80> の順になります。
20915	21219	例えば、入力バイト C<chr(0x36)> を二つのグループに分割すると、
20916	21220	C<(0x6, 0x3)> になります; 4 つに分割すると C<(0x2, 0x1, 0x3, 0x0)> に
20917	21221	なります。
20918	21222
20919	21223	=begin original
20920	21224
20921	21225	L<C<vec>\|/vec EXPR,OFFSET,BITS> may also be assigned to, in which case
20922	21226	parentheses are needed
20923	21227	to give the expression the correct precedence as in
20924	21228
20925	21229	=end original
20926	21230
20927	21231	L<C<vec>\|/vec EXPR,OFFSET,BITS> は左辺値として、代入の
20928	21232	対象にすることもできます; この場合、式を正しく
20929	21233	先行させるために以下のように括弧が必要です:
20930	21234
20931	21235	vec($image, $max_x * $x + $y, 8) = 3;
20932	21236
20933	21237	=begin original
20934	21238
20935	21239	If the selected element is outside the string, the value 0 is returned.
20936	21240	If an element off the end of the string is written to, Perl will first
20937	21241	extend the string with sufficiently many zero bytes. It is an error
20938	21242	to try to write off the beginning of the string (i.e., negative OFFSET).
20939	21243
20940	21244	=end original
20941	21245
20942	21246	選択された要素が文字列の外側だった場合、値 0 が返されます。
20943	21247	文字列の最後よりも後ろの要素に書き込もうとした場合、
20944	21248	Perl はまず文字列を必要な分だけ 0 のバイトで拡張します。
20945	21249	文字列の先頭より前に書き込もうとした(つまり OFFSET が負の数だった)
20946	21250	場合はエラーとなります。
20947	21251
20948	21252	=begin original
20949	21253
20950	21254	If the string happens to be encoded as UTF-8 internally (and thus has
20951	21255	the UTF8 flag set), L<C<vec>\|/vec EXPR,OFFSET,BITS> tries to convert it
20952	21256	to use a one-byte-per-character internal representation. However, if the
20953	21257	string contains characters with values of 256 or higher, a fatal error
20954	21258	will occur.
20955	21259
20956	21260	=end original
20957	21261
20958	21262	文字列がたまたま内部で UTF-8 でエンコードされている場合(したがって
20959	21263	UTF8 フラグがセットされている場合)、
20960	21264	L<C<vec>\|/vec EXPR,OFFSET,BITS> はこれを単一バイト文字内部表現に
20961	21265	変換しようとします。
20962	21266	しかし、この文字列に値が 256 以上の文字が含まれている場合、
20963	21267	致命的エラーが発生します。
20964	21268
20965	21269	=begin original
20966	21270
20967	21271	Strings created with L<C<vec>\|/vec EXPR,OFFSET,BITS> can also be
20968	21272	manipulated with the logical
20969	21273	operators C<\|>, C<&>, C<^>, and C<~>. These operators will assume a bit
20970	21274	vector operation is desired when both operands are strings.
20971	21275	See L<perlop/"Bitwise String Operators">.
20972	21276
20973	21277	=end original
20974	21278
20975	21279	L<C<vec>\|/vec EXPR,OFFSET,BITS> で作られた文字列は、論理演算子 C<\|>、C<&>、
20976	21280	C<^>, C<~> で扱うこともできます。
20977	21281	これらの演算子は、両方の被演算子に文字列を使うと、
20978	21282	ビットベクター演算を行ないます。
20979	21283	L<perlop/"Bitwise String Operators"> を参照してください。
20980	21284
20981	21285	=begin original
20982	21286
20983	21287	The following code will build up an ASCII string saying C<'PerlPerlPerl'>.
20984	21288	The comments show the string after each step. Note that this code works
20985	21289	in the same way on big-endian or little-endian machines.
20986	21290
20987	21291	=end original
20988	21292
20989	21293	次のコードは C<'PerlPerlPerl'> という ASCII 文字列を作成します。
20990	21294	コメントは各行の実行後の文字列を示します。
20991	21295	このコードはビッグエンディアンでもリトルエンディアンでも同じように
20992	21296	動作することに注意してください。
20993	21297
20994	21298	my $foo = '';
20995	21299	vec($foo, 0, 32) = 0x5065726C; # 'Perl'
20996	21300
20997	21301	# $foo eq "Perl" eq "\x50\x65\x72\x6C", 32 bits
20998	21302	print vec($foo, 0, 8); # prints 80 == 0x50 == ord('P')
20999	21303
21000	21304	vec($foo, 2, 16) = 0x5065; # 'PerlPe'
21001	21305	vec($foo, 3, 16) = 0x726C; # 'PerlPerl'
21002	21306	vec($foo, 8, 8) = 0x50; # 'PerlPerlP'
21003	21307	vec($foo, 9, 8) = 0x65; # 'PerlPerlPe'
21004	21308	vec($foo, 20, 4) = 2; # 'PerlPerlPe' . "\x02"
21005	21309	vec($foo, 21, 4) = 7; # 'PerlPerlPer'
21006	21310	# 'r' is "\x72"
21007	21311	vec($foo, 45, 2) = 3; # 'PerlPerlPer' . "\x0c"
21008	21312	vec($foo, 93, 1) = 1; # 'PerlPerlPer' . "\x2c"
21009	21313	vec($foo, 94, 1) = 1; # 'PerlPerlPerl'
21010	21314	# 'l' is "\x6c"
21011	21315
21012	21316	=begin original
21013	21317
21014	21318	To transform a bit vector into a string or list of 0's and 1's, use these:
21015	21319
21016	21320	=end original
21017	21321
21018	21322	ビットベクターを、0 と 1 の文字列や配列に変換するには、
21019	21323	以下のようにします。
21020	21324
21021	21325	my $bits = unpack("b*", $vector);
21022	21326	my @bits = split(//, unpack("b*", $vector));
21023	21327
21024	21328	=begin original
21025	21329
21026	21330	If you know the exact length in bits, it can be used in place of the C<*>.
21027	21331
21028	21332	=end original
21029	21333
21030	21334	ビット長が分かっていれば、C<*> の代わりにその長さを使うことができます。
21031	21335
21032	21336	=begin original
21033	21337
21034	21338	Here is an example to illustrate how the bits actually fall in place:
21035	21339
21036	21340	=end original
21037	21341
21038	21342	これはビットが実際にどのような位置に入るかを図示する例です。
21039	21343
21040	21344	#!/usr/bin/perl -wl
21041	21345
21042	21346	print <<'EOT';
21043	21347	0 1 2 3
21044	21348	unpack("V",$_) 01234567890123456789012345678901
21045	21349	------------------------------------------------------------------
21046	21350	EOT
21047	21351
21048	21352	for $w (0..3) {
21049	21353	$width = 2**$w;
21050	21354	for ($shift=0; $shift < $width; ++$shift) {
21051	21355	for ($off=0; $off < 32/$width; ++$off) {
21052	21356	$str = pack("B*", "0"x32);
21053	21357	$bits = (1<<$shift);
21054	21358	vec($str, $off, $width) = $bits;
21055	21359	$res = unpack("b*",$str);
21056	21360	$val = unpack("V", $str);
21057	21361	write;
21058	21362	}
21059	21363	}
21060	21364	}
21061	21365
21062	21366	format STDOUT =
21063	21367	vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
21064	21368	$off, $width, $bits, $val, $res
21065	21369	.
21066	21370	__END__
21067	21371
21068	21372	=begin original
21069	21373
21070	21374	Regardless of the machine architecture on which it runs, the
21071	21375	example above should print the following table:
21072	21376
21073	21377	=end original
21074	21378
21075	21379	実行するマシンのアーキテクチャに関わらず、
21076	21380	上記の例は以下の表を出力します。
21077	21381
21078	21382	0 1 2 3
21079	21383	unpack("V",$_) 01234567890123456789012345678901
21080	21384	------------------------------------------------------------------
21081	21385	vec($_, 0, 1) = 1 == 1 10000000000000000000000000000000
21082	21386	vec($_, 1, 1) = 1 == 2 01000000000000000000000000000000
21083	21387	vec($_, 2, 1) = 1 == 4 00100000000000000000000000000000
21084	21388	vec($_, 3, 1) = 1 == 8 00010000000000000000000000000000
21085	21389	vec($_, 4, 1) = 1 == 16 00001000000000000000000000000000
21086	21390	vec($_, 5, 1) = 1 == 32 00000100000000000000000000000000
21087	21391	vec($_, 6, 1) = 1 == 64 00000010000000000000000000000000
21088	21392	vec($_, 7, 1) = 1 == 128 00000001000000000000000000000000
21089	21393	vec($_, 8, 1) = 1 == 256 00000000100000000000000000000000
21090	21394	vec($_, 9, 1) = 1 == 512 00000000010000000000000000000000
21091	21395	vec($_,10, 1) = 1 == 1024 00000000001000000000000000000000
21092	21396	vec($_,11, 1) = 1 == 2048 00000000000100000000000000000000
21093	21397	vec($_,12, 1) = 1 == 4096 00000000000010000000000000000000
21094	21398	vec($_,13, 1) = 1 == 8192 00000000000001000000000000000000
21095	21399	vec($_,14, 1) = 1 == 16384 00000000000000100000000000000000
21096	21400	vec($_,15, 1) = 1 == 32768 00000000000000010000000000000000
21097	21401	vec($_,16, 1) = 1 == 65536 00000000000000001000000000000000
21098	21402	vec($_,17, 1) = 1 == 131072 00000000000000000100000000000000
21099	21403	vec($_,18, 1) = 1 == 262144 00000000000000000010000000000000
21100	21404	vec($_,19, 1) = 1 == 524288 00000000000000000001000000000000
21101	21405	vec($_,20, 1) = 1 == 1048576 00000000000000000000100000000000
21102	21406	vec($_,21, 1) = 1 == 2097152 00000000000000000000010000000000
21103	21407	vec($_,22, 1) = 1 == 4194304 00000000000000000000001000000000
21104	21408	vec($_,23, 1) = 1 == 8388608 00000000000000000000000100000000
21105	21409	vec($_,24, 1) = 1 == 16777216 00000000000000000000000010000000
21106	21410	vec($_,25, 1) = 1 == 33554432 00000000000000000000000001000000
21107	21411	vec($_,26, 1) = 1 == 67108864 00000000000000000000000000100000
21108	21412	vec($_,27, 1) = 1 == 134217728 00000000000000000000000000010000
21109	21413	vec($_,28, 1) = 1 == 268435456 00000000000000000000000000001000
21110	21414	vec($_,29, 1) = 1 == 536870912 00000000000000000000000000000100
21111	21415	vec($_,30, 1) = 1 == 1073741824 00000000000000000000000000000010
21112	21416	vec($_,31, 1) = 1 == 2147483648 00000000000000000000000000000001
21113	21417	vec($_, 0, 2) = 1 == 1 10000000000000000000000000000000
21114	21418	vec($_, 1, 2) = 1 == 4 00100000000000000000000000000000
21115	21419	vec($_, 2, 2) = 1 == 16 00001000000000000000000000000000
21116	21420	vec($_, 3, 2) = 1 == 64 00000010000000000000000000000000
21117	21421	vec($_, 4, 2) = 1 == 256 00000000100000000000000000000000
21118	21422	vec($_, 5, 2) = 1 == 1024 00000000001000000000000000000000
21119	21423	vec($_, 6, 2) = 1 == 4096 00000000000010000000000000000000
21120	21424	vec($_, 7, 2) = 1 == 16384 00000000000000100000000000000000
21121	21425	vec($_, 8, 2) = 1 == 65536 00000000000000001000000000000000
21122	21426	vec($_, 9, 2) = 1 == 262144 00000000000000000010000000000000
21123	21427	vec($_,10, 2) = 1 == 1048576 00000000000000000000100000000000
21124	21428	vec($_,11, 2) = 1 == 4194304 00000000000000000000001000000000
21125	21429	vec($_,12, 2) = 1 == 16777216 00000000000000000000000010000000
21126	21430	vec($_,13, 2) = 1 == 67108864 00000000000000000000000000100000
21127	21431	vec($_,14, 2) = 1 == 268435456 00000000000000000000000000001000
21128	21432	vec($_,15, 2) = 1 == 1073741824 00000000000000000000000000000010
21129	21433	vec($_, 0, 2) = 2 == 2 01000000000000000000000000000000
21130	21434	vec($_, 1, 2) = 2 == 8 00010000000000000000000000000000
21131	21435	vec($_, 2, 2) = 2 == 32 00000100000000000000000000000000
21132	21436	vec($_, 3, 2) = 2 == 128 00000001000000000000000000000000
21133	21437	vec($_, 4, 2) = 2 == 512 00000000010000000000000000000000
21134	21438	vec($_, 5, 2) = 2 == 2048 00000000000100000000000000000000
21135	21439	vec($_, 6, 2) = 2 == 8192 00000000000001000000000000000000
21136	21440	vec($_, 7, 2) = 2 == 32768 00000000000000010000000000000000
21137	21441	vec($_, 8, 2) = 2 == 131072 00000000000000000100000000000000
21138	21442	vec($_, 9, 2) = 2 == 524288 00000000000000000001000000000000
21139	21443	vec($_,10, 2) = 2 == 2097152 00000000000000000000010000000000
21140	21444	vec($_,11, 2) = 2 == 8388608 00000000000000000000000100000000
21141	21445	vec($_,12, 2) = 2 == 33554432 00000000000000000000000001000000
21142	21446	vec($_,13, 2) = 2 == 134217728 00000000000000000000000000010000
21143	21447	vec($_,14, 2) = 2 == 536870912 00000000000000000000000000000100
21144	21448	vec($_,15, 2) = 2 == 2147483648 00000000000000000000000000000001
21145	21449	vec($_, 0, 4) = 1 == 1 10000000000000000000000000000000
21146	21450	vec($_, 1, 4) = 1 == 16 00001000000000000000000000000000
21147	21451	vec($_, 2, 4) = 1 == 256 00000000100000000000000000000000
21148	21452	vec($_, 3, 4) = 1 == 4096 00000000000010000000000000000000
21149	21453	vec($_, 4, 4) = 1 == 65536 00000000000000001000000000000000
21150	21454	vec($_, 5, 4) = 1 == 1048576 00000000000000000000100000000000
21151	21455	vec($_, 6, 4) = 1 == 16777216 00000000000000000000000010000000
21152	21456	vec($_, 7, 4) = 1 == 268435456 00000000000000000000000000001000
21153	21457	vec($_, 0, 4) = 2 == 2 01000000000000000000000000000000
21154	21458	vec($_, 1, 4) = 2 == 32 00000100000000000000000000000000
21155	21459	vec($_, 2, 4) = 2 == 512 00000000010000000000000000000000
21156	21460	vec($_, 3, 4) = 2 == 8192 00000000000001000000000000000000
21157	21461	vec($_, 4, 4) = 2 == 131072 00000000000000000100000000000000
21158	21462	vec($_, 5, 4) = 2 == 2097152 00000000000000000000010000000000
21159	21463	vec($_, 6, 4) = 2 == 33554432 00000000000000000000000001000000
21160	21464	vec($_, 7, 4) = 2 == 536870912 00000000000000000000000000000100
21161	21465	vec($_, 0, 4) = 4 == 4 00100000000000000000000000000000
21162	21466	vec($_, 1, 4) = 4 == 64 00000010000000000000000000000000
21163	21467	vec($_, 2, 4) = 4 == 1024 00000000001000000000000000000000
21164	21468	vec($_, 3, 4) = 4 == 16384 00000000000000100000000000000000
21165	21469	vec($_, 4, 4) = 4 == 262144 00000000000000000010000000000000
21166	21470	vec($_, 5, 4) = 4 == 4194304 00000000000000000000001000000000
21167	21471	vec($_, 6, 4) = 4 == 67108864 00000000000000000000000000100000
21168	21472	vec($_, 7, 4) = 4 == 1073741824 00000000000000000000000000000010
21169	21473	vec($_, 0, 4) = 8 == 8 00010000000000000000000000000000
21170	21474	vec($_, 1, 4) = 8 == 128 00000001000000000000000000000000
21171	21475	vec($_, 2, 4) = 8 == 2048 00000000000100000000000000000000
21172	21476	vec($_, 3, 4) = 8 == 32768 00000000000000010000000000000000
21173	21477	vec($_, 4, 4) = 8 == 524288 00000000000000000001000000000000
21174	21478	vec($_, 5, 4) = 8 == 8388608 00000000000000000000000100000000
21175	21479	vec($_, 6, 4) = 8 == 134217728 00000000000000000000000000010000
21176	21480	vec($_, 7, 4) = 8 == 2147483648 00000000000000000000000000000001
21177	21481	vec($_, 0, 8) = 1 == 1 10000000000000000000000000000000
21178	21482	vec($_, 1, 8) = 1 == 256 00000000100000000000000000000000
21179	21483	vec($_, 2, 8) = 1 == 65536 00000000000000001000000000000000
21180	21484	vec($_, 3, 8) = 1 == 16777216 00000000000000000000000010000000
21181	21485	vec($_, 0, 8) = 2 == 2 01000000000000000000000000000000
21182	21486	vec($_, 1, 8) = 2 == 512 00000000010000000000000000000000
21183	21487	vec($_, 2, 8) = 2 == 131072 00000000000000000100000000000000
21184	21488	vec($_, 3, 8) = 2 == 33554432 00000000000000000000000001000000
21185	21489	vec($_, 0, 8) = 4 == 4 00100000000000000000000000000000
21186	21490	vec($_, 1, 8) = 4 == 1024 00000000001000000000000000000000
21187	21491	vec($_, 2, 8) = 4 == 262144 00000000000000000010000000000000
21188	21492	vec($_, 3, 8) = 4 == 67108864 00000000000000000000000000100000
21189	21493	vec($_, 0, 8) = 8 == 8 00010000000000000000000000000000
21190	21494	vec($_, 1, 8) = 8 == 2048 00000000000100000000000000000000
21191	21495	vec($_, 2, 8) = 8 == 524288 00000000000000000001000000000000
21192	21496	vec($_, 3, 8) = 8 == 134217728 00000000000000000000000000010000
21193	21497	vec($_, 0, 8) = 16 == 16 00001000000000000000000000000000
21194	21498	vec($_, 1, 8) = 16 == 4096 00000000000010000000000000000000
21195	21499	vec($_, 2, 8) = 16 == 1048576 00000000000000000000100000000000
21196	21500	vec($_, 3, 8) = 16 == 268435456 00000000000000000000000000001000
21197	21501	vec($_, 0, 8) = 32 == 32 00000100000000000000000000000000
21198	21502	vec($_, 1, 8) = 32 == 8192 00000000000001000000000000000000
21199	21503	vec($_, 2, 8) = 32 == 2097152 00000000000000000000010000000000
21200	21504	vec($_, 3, 8) = 32 == 536870912 00000000000000000000000000000100
21201	21505	vec($_, 0, 8) = 64 == 64 00000010000000000000000000000000
21202	21506	vec($_, 1, 8) = 64 == 16384 00000000000000100000000000000000
21203	21507	vec($_, 2, 8) = 64 == 4194304 00000000000000000000001000000000
21204	21508	vec($_, 3, 8) = 64 == 1073741824 00000000000000000000000000000010
21205	21509	vec($_, 0, 8) = 128 == 128 00000001000000000000000000000000
21206	21510	vec($_, 1, 8) = 128 == 32768 00000000000000010000000000000000
21207	21511	vec($_, 2, 8) = 128 == 8388608 00000000000000000000000100000000
21208	21512	vec($_, 3, 8) = 128 == 2147483648 00000000000000000000000000000001
21209	21513
21210	21514	=item wait
21211	21515	X<wait>
21212	21516
21213	21517	=for Pod::Functions wait for any child process to die
21214	21518
21215	21519	=begin original
21216	21520
21217	21521	Behaves like L<wait(2)> on your system: it waits for a child
21218	21522	process to terminate and returns the pid of the deceased process, or
21219	21523	C<-1> if there are no child processes. The status is returned in
21220	21524	L<C<$?>\|perlvar/$?> and
21221	21525	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}>.
21222	21526	Note that a return value of C<-1> could mean that child processes are
21223	21527	being automatically reaped, as described in L<perlipc>.
21224	21528
21225	21529	=end original
21226	21530
21227	21531	L<wait(2)> と同様に振る舞います: チャイルドプロセスが終了するのを待ち、
21228	21532	消滅したプロセスの pid を返します; チャイルドプロセスが存在しないときには、
21229	21533	C<-1> を返します。
21230	21534	ステータスは L<C<$?>\|perlvar/$?> と
21231	21535	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}> に返されます。
21232	21536	L<perlipc> に書いているように、返り値が C<-1> の場合は子プロセスが
21233	21537	自動的に刈り取られたことを意味するかもしれないことに注意してください。
21234	21538
21235	21539	=begin original
21236	21540
21237	21541	If you use L<C<wait>\|/wait> in your handler for
21238	21542	L<C<$SIG{CHLD}>\|perlvar/%SIG>, it may accidentally wait for the child
21239	21543	created by L<C<qx>\|/qxE<sol>STRINGE<sol>> or L<C<system>\|/system LIST>.
21240	21544	See L<perlipc> for details.
21241	21545
21242	21546	=end original
21243	21547
21244	21548	L<C<wait>\|/wait> を L<C<$SIG{CHLD}>\|perlvar/%SIG> のハンドラで使うと、誤って
21245	21549	L<C<qx>\|/qxE<sol>STRINGE<sol>> や L<C<system>\|/system LIST> によって
21246	21550	作られた子を待つことになるかも知れません。
21247	21551	詳しくは L<perlipc> を参照してください。
21248	21552
21249	21553	=begin original
21250	21554
21251	21555	Portability issues: L<perlport/wait>.
21252	21556
21253	21557	=end original
21254	21558
21255	21559	移植性の問題: L<perlport/wait>。
21256	21560
21257	21561	=item waitpid PID,FLAGS
21258	21562	X<waitpid>
21259	21563
21260	21564	=for Pod::Functions wait for a particular child process to die
21261	21565
21262	21566	=begin original
21263	21567
21264	21568	Waits for a particular child process to terminate and returns the pid of
21265	21569	the deceased process, or C<-1> if there is no such child process. A
21266	21570	non-blocking wait (with L<WNOHANG\|POSIX/C<WNOHANG>> in FLAGS) can return 0 if
21267	21571	there are child processes matching PID but none have terminated yet.
21268	21572	The status is returned in L<C<$?>\|perlvar/$?> and
21269	21573	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}>.
21270	21574
21271	21575	=end original
21272	21576
21273	21577	特定の子プロセスが終了するのを待ち、消滅したプロセスの pid を
21274	21578	返します; 指定した子プロセスが存在しないときには、C<-1> を返します。
21275	21579	(FLAGS に L<WNOHANG\|POSIX/C<WNOHANG>> を指定した) 非ブロッキング wait は、
21276	21580	PID がマッチングする子プロセスがいてもまだ終了していない場合に 0 を
21277	21581	返すことがあります。
21278	21582	ステータスは L<C<$?>\|perlvar/$?> と
21279	21583	L<C<${^CHILD_ERROR_NATIVE}>\|perlvar/${^CHILD_ERROR_NATIVE}> に返されます。
21280	21584
21281	21585	=begin original
21282	21586
21283	21587	A PID of C<0> indicates to wait for any child process whose process group ID is
21284	21588	equal to that of the current process. A PID of less than C<-1> indicates to
21285	21589	wait for any child process whose process group ID is equal to -PID. A PID of
21286	21590	C<-1> indicates to wait for any child process.
21287	21591
21288	21592	=end original
21289	21593
21290	21594	PID に C<0> を指定すると、プロセスグループ ID が現在のプロセスと同じである
21291	21595	任意の子プロセスを wait します。
21292	21596	PID に C<-1> 以下を指定すると、プロセスグループ ID が -PID に等しい
21293	21597	任意の子プロセスを wait します。
21294	21598	PID に C<-1> を指定すると任意の子プロセスを wait します。
21295	21599
21296	21600	=begin original
21297	21601
21298	21602	If you say
21299	21603
21300	21604	=end original
21301	21605
21302	21606	以下のようにするか
21303	21607
21304	21608	use POSIX ":sys_wait_h";
21305	21609
21306	21610	my $kid;
21307	21611	do {
21308	21612	$kid = waitpid(-1, WNOHANG);
21309	21613	} while $kid > 0;
21310	21614
21311	21615	=begin original
21312	21616
21313	21617	or
21314	21618
21315	21619	=end original
21316	21620
21317	21621	または
21318	21622
21319	21623	1 while waitpid(-1, WNOHANG) > 0;
21320	21624
21321	21625	=begin original
21322	21626
21323	21627	then you can do a non-blocking wait for all pending zombie processes (see
21324	21628	L<POSIX/WAIT>).
21325	21629	Non-blocking wait is available on machines supporting either the
21326	21630	L<waitpid(2)> or L<wait4(2)> syscalls. However, waiting for a particular
21327	21631	pid with FLAGS of C<0> is implemented everywhere. (Perl emulates the
21328	21632	system call by remembering the status values of processes that have
21329	21633	exited but have not been harvested by the Perl script yet.)
21330	21634
21331	21635	=end original
21332	21636
21333	21637	とすると、ブロックが起こらないようにして、全ての待機中ゾンビプロセスを
21334	21638	wait します (L<POSIX/WAIT> を参照してください)。
21335	21639	ブロックなしの wait は、システムコール L<wait_pid(2)> か、
21336	21640	システムコール L<wait4(2)> をサポートしているマシンで利用可能です。
21337	21641	しかしながら、特定の pid を C<0> の FLAGS での wait はどこでも
21338	21642	実装されています。
21339	21643	(exit したプロセスのステータス値を覚えておいて、Perl がシステムコールを
21340	21644	エミュレートしますが、Perl スクリプトには取り入れられていません。)
21341	21645
21342	21646	=begin original
21343	21647
21344	21648	Note that on some systems, a return value of C<-1> could mean that child
21345	21649	processes are being automatically reaped. See L<perlipc> for details,
21346	21650	and for other examples.
21347	21651
21348	21652	=end original
21349	21653
21350	21654	システムによっては、返り値が C<-1> の場合は子プロセスが自動的に
21351	21655	刈り取られたことを意味するかもしれないことに注意してください。
21352	21656	詳細やその他の例については L<perlipc> を参照してください。
21353	21657
21354	21658	=begin original
21355	21659
21356	21660	Portability issues: L<perlport/waitpid>.
21357	21661
21358	21662	=end original
21359	21663
21360	21664	移植性の問題: L<perlport/waitpid>。
21361	21665
21362	21666	=item wantarray
21363	21667	X<wantarray> X<context>
21364	21668
21365	21669	=for Pod::Functions get void vs scalar vs list context of current subroutine call
21366	21670
21367	21671	=begin original
21368	21672
21369	21673	Returns true if the context of the currently executing subroutine or
21370	21674	L<C<eval>\|/eval EXPR> is looking for a list value. Returns false if the
21371	21675	context is
21372	21676	looking for a scalar. Returns the undefined value if the context is
21373	21677	looking for no value (void context).
21374	21678
21375	21679	=end original
21376	21680
21377	21681	現在実行中のサブルーチンか L<C<eval>\|/eval EXPR> ブロックのコンテキストが、
21378	21682	リスト値を要求するものであれば、真を返します。
21379	21683	スカラを要求するコンテキストであれば、偽を返します。
21380	21684	何も値を要求しない(無効コンテキスト)場合は未定義値を返します。
21381	21685
21382	21686	return unless defined wantarray; # don't bother doing more
21383	21687	my @a = complex_calculation();
21384	21688	return wantarray ? @a : "@a";
21385	21689
21386	21690	=begin original
21387	21691
21388	21692	L<C<wantarray>\|/wantarray>'s result is unspecified in the top level of a file,
21389	21693	in a C<BEGIN>, C<UNITCHECK>, C<CHECK>, C<INIT> or C<END> block, or
21390	21694	in a C<DESTROY> method.
21391	21695
21392	21696	=end original
21393	21697
21394	21698	ファイルのトップレベル、C<BEGIN>, C<UNITCHECK>, C<CHECK>, C<INIT>, C<END>
21395	21699	ブロック内、C<DESTROY> メソッド内では L<C<wantarray>\|/wantarray> の結果は
21396	21700	未定義です。
21397	21701
21398	21702	=begin original
21399	21703
21400	21704	This function should have been named wantlist() instead.
21401	21705
21402	21706	=end original
21403	21707
21404	21708	この関数は wantlist() という名前にするべきでした。
21405	21709
21406	21710	=item warn LIST
21407	21711	X<warn> X<warning> X<STDERR>
21408	21712
21409	21713	=for Pod::Functions print debugging info
21410	21714
21411	21715	=begin original
21412	21716
21413	21717	Emits a warning, usually by printing it to C<STDERR>. C<warn> interprets
21414	21718	its operand LIST in the same way as C<die>, but is slightly different
21415	21719	in what it defaults to when LIST is empty or makes an empty string.
21416	21720	If it is empty and L<C<$@>\|perlvar/$@> already contains an exception
21417	21721	value then that value is used after appending C<"\t...caught">. If it
21418	21722	is empty and C<$@> is also empty then the string C<"Warning: Something's
21419	21723	wrong"> is used.
21420	21724
21421	21725	=end original
21422	21726
21423	21727	(通常は C<STDERR> に表示することで) 警告を出力します。
21424	21728	C<warn> はそのオペランド LIST を C<die> と同様に解釈しますが、
21425	21729	LIST が空や空文字列を作る時に何をデフォルトとするかが少し異なります。
21426	21730	それが空かつ、L<C<$@>\|perlvar/$@> に既に
21427	21731	例外値が入っている場合、C<"\t...caught"> を追加した値が
21428	21732	用いられます。
21429	21733	もしこれが空で C<$@> も空の場合は、C<"Warning: Something's wrong"> という
21430	21734	文字列が使われます。
21431	21735
21432	21736	=begin original
21433	21737
21434	21738	By default, the exception derived from the operand LIST is stringified
21435	21739	and printed to C<STDERR>. This behaviour can be altered by installing
21436	21740	a L<C<$SIG{__WARN__}>\|perlvar/%SIG> handler. If there is such a
21437	21741	handler then no message is automatically printed; it is the handler's
21438	21742	responsibility to deal with the exception
21439	21743	as it sees fit (like, for instance, converting it into a
21440	21744	L<C<die>\|/die LIST>). Most
21441	21745	handlers must therefore arrange to actually display the
21442	21746	warnings that they are not prepared to deal with, by calling
21443	21747	L<C<warn>\|/warn LIST>
21444	21748	again in the handler. Note that this is quite safe and will not
21445	21749	produce an endless loop, since C<__WARN__> hooks are not called from
21446	21750	inside one.
21447	21751
21448	21752	=end original
21449	21753
21450	21754	デフォルトでは、LIST オペランドから生成された例外は
21451	21755	文字列化されて C<STDERR> に表示されます。
21452	21756	この振る舞いは、L<C<$SIG{__WARN__}>\|perlvar/%SIG> ハンドラを設定することで
21453	21757	置き換えられます。
21454	21758	このようなハンドラが設定されている場合は何の
21455	21759	メッセージも自動的には表示されません;
21456	21760	例外をどう扱うか(例えば L<C<die>\|/die LIST> に変換するか)はハンドラの
21457	21761	責任ということです。
21458	21762	従ってほとんどのハンドラは、扱おうと準備していない警告を表示するために、
21459	21763	ハンドラの中で L<C<warn>\|/warn LIST> を再び呼び出します。
21460	21764	C<__WARN__> フックはハンドラ内では呼び出されないので、これは十分安全で、
21461	21765	無限ループを引き起こすことはないということに注意してください。
21462	21766
21463	21767	=begin original
21464	21768
21465	21769	You will find this behavior is slightly different from that of
21466	21770	L<C<$SIG{__DIE__}>\|perlvar/%SIG> handlers (which don't suppress the
21467	21771	error text, but can instead call L<C<die>\|/die LIST> again to change
21468	21772	it).
21469	21773
21470	21774	=end original
21471	21775
21472	21776	この振る舞いは L<C<$SIG{__DIE__}>\|perlvar/%SIG> ハンドラ(エラーテキストは
21473	21777	削除しませんが、代わりに L<C<die>\|/die LIST> をもう一度呼び出すことで
21474	21778	変更できます)とは少し違うことに気付くことでしょう。
21475	21779
21476	21780	=begin original
21477	21781
21478	21782	Using a C<__WARN__> handler provides a powerful way to silence all
21479	21783	warnings (even the so-called mandatory ones). An example:
21480	21784
21481	21785	=end original
21482	21786
21483	21787	C<__WARN__> ハンドラを使うと、(いわゆる必須のものを含む)全ての
21484	21788	警告を黙らせる強力な手段となります。
21485	21789	例:
21486	21790
21487	21791	# wipe out all compile-time warnings
21488	21792	BEGIN { $SIG{'__WARN__'} = sub { warn $_[0] if $DOWARN } }
21489	21793	my $foo = 10;
21490	21794	my $foo = 20; # no warning about duplicate my $foo,
21491	21795	# but hey, you asked for it!
21492	21796	# no compile-time or run-time warnings before here
21493	21797	$DOWARN = 1;
21494	21798
21495	21799	# run-time warnings enabled after here
21496	21800	warn "\$foo is alive and $foo!"; # does show up
21497	21801
21498	21802	=begin original
21499	21803
21500	21804	See L<perlvar> for details on setting L<C<%SIG>\|perlvar/%SIG> entries
21501	21805	and for more
21502	21806	examples. See the L<Carp> module for other kinds of warnings using its
21503	21807	C<carp> and C<cluck> functions.
21504	21808
21505	21809	=end original
21506	21810
21507	21811	L<C<%SIG>\|perlvar/%SIG> エントリのセットに関する詳細とさらなる例に関しては
21508	21812	L<perlvar> を参照してください。
21509	21813	C<carp> 関数と C<cluck> 関数を用いた警告の方法に関しては
21510	21814	L<Carp> モジュールを参照してください。
21511	21815
21512	21816	=item write FILEHANDLE
21513	21817	X<write>
21514	21818
21515	21819	=item write EXPR
21516	21820
21517	21821	=item write
21518	21822
21519	21823	=for Pod::Functions print a picture record
21520	21824
21521	21825	=begin original
21522	21826
21523	21827	Writes a formatted record (possibly multi-line) to the specified FILEHANDLE,
21524	21828	using the format associated with that file. By default the format for
21525	21829	a file is the one having the same name as the filehandle, but the
21526	21830	format for the current output channel (see the
21527	21831	L<C<select>\|/select FILEHANDLE> function) may be set explicitly by
21528	21832	assigning the name of the format to the L<C<$~>\|perlvar/$~> variable.
21529	21833
21530	21834	=end original
21531	21835
21532	21836	指定された FILEHANDLE に対して、そのファイルに対応させた
21533	21837	フォーマットを使って、(複数行の場合もある) 整形された
21534	21838	レコードを書き出します。
21535	21839	デフォルトでは、ファイルに対応するフォーマットは、ファイルハンドルと
21536	21840	同じ名前のものですが、その時点の出力チャネル
21537	21841	(L<C<select>\|/select FILEHANDLE> 関数の項を
21538	21842	参照してください) のフォーマットは、その名前を明示的に変数
21539	21843	L<C<$~>\|perlvar/$~> に代入することで、変更が可能です。
21540	21844
21541	21845	=begin original
21542	21846
21543	21847	Top of form processing is handled automatically: if there is insufficient
21544	21848	room on the current page for the formatted record, the page is advanced by
21545	21849	writing a form feed and a special top-of-page
21546	21850	format is used to format the new
21547	21851	page header before the record is written. By default, the top-of-page
21548	21852	format is the name of the filehandle with C<_TOP> appended, or C<top>
21549	21853	in the current package if the former does not exist. This would be a
21550	21854	problem with autovivified filehandles, but it may be dynamically set to the
21551	21855	format of your choice by assigning the name to the L<C<$^>\|perlvar/$^>
21552	21856	variable while that filehandle is selected. The number of lines
21553	21857	remaining on the current page is in variable L<C<$->\|perlvar/$->, which
21554	21858	can be set to C<0> to force a new page.
21555	21859
21556	21860	=end original
21557	21861
21558	21862	ページの先頭の処理は、自動的に行なわれます: 現在のページに整形された
21559	21863	レコードを出力するだけのスペースがない場合には、改ページを行なってページを
21560	21864	進め、新しいページヘッダを整形するため、ページ先頭フォーマットが使われ、
21561	21865	その後でレコードが書かれます。
21562	21866	デフォルトでは、ページ先頭フォーマットは、ファイルハンドルの名前に
21563	21867	C<_TOP> をつなげたものか、前者が存在しないなら、現在のパッケージの
21564	21868	C<top> です。
21565	21869	これは自動有効化されたファイルハンドルで問題になる可能性がありますが、
21566	21870	ファイルハンドルが選択されている間に、
21567	21871	変数 L<C<$^>\|perlvar/$^> に名前を設定すれば、動的にフォーマットを
21568	21872	変更することができます。
21569	21873	そのページの残り行数は、変数 L<C<$->\|perlvar/$-> に入っており、この変数を
21570	21874	C<0> に設定することで、強制的に改ページを行なうことができます。
21571	21875
21572	21876	=begin original
21573	21877
21574	21878	If FILEHANDLE is unspecified, output goes to the current default output
21575	21879	channel, which starts out as STDOUT but may be changed by the
21576	21880	L<C<select>\|/select FILEHANDLE> operator. If the FILEHANDLE is an EXPR,
21577	21881	then the expression
21578	21882	is evaluated and the resulting string is used to look up the name of
21579	21883	the FILEHANDLE at run time. For more on formats, see L<perlform>.
21580	21884
21581	21885	=end original
21582	21886
21583	21887	FILEHANDLE を指定しないと、出力はその時点のデフォルト出力チャネルに対して
21584	21888	行なわれます; これは、スクリプトの開始時点では STDOUT ですが、
21585	21889	L<C<select>\|/select FILEHANDLE> 演算子で変更することができます。
21586	21890	FILEHANDLE が EXPR ならば、式が評価され、その結果の文字列が
21587	21891	実行時に FILEHANDLE の名前として見られます。
21588	21892	フォーマットについて、さらには、L<perlform> を参照してください。
21589	21893
21590	21894	=begin original
21591	21895
21592	21896	Note that write is I<not> the opposite of
21593	21897	L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>. Unfortunately.
21594	21898
21595	21899	=end original
21596	21900
21597	21901	write は L<C<read>\|/read FILEHANDLE,SCALAR,LENGTH,OFFSET> の
21598	21902	反対のことをするもの I<ではありません>。
21599	21903	残念ながら。
21600	21904
21601	21905	=item y///
21602	21906
21603	21907	=for Pod::Functions transliterate a string
21604	21908
21605	21909	=begin original
21606	21910
21607	21911	The transliteration operator. Same as
21608	21912	L<C<trE<sol>E<sol>E<sol>>\|/trE<sol>E<sol>E<sol>>. See
21609	21913	L<perlop/"Quote-Like Operators">.
21610	21914
21611	21915	=end original
21612	21916
21613	21917	文字変換演算子です。
21614	21918	L<C<trE<sol>E<sol>E<sol>>\|/trE<sol>E<sol>E<sol>> と同じです。
21615	21919	L<perlop/"Quote-Like Operators"> を参照してください。
21616	21920
21617	21921	=back
21618	21922
21619	21923	=head2 Non-function Keywords by Cross-reference
21620	21924
21621	21925	=head3 perldata
21622	21926
21623	21927	=over
21624	21928
21625	21929	=item __DATA__
21626	21930
21627	21931	=item __END__
21628	21932
21629	21933	=begin original
21630	21934
21631	21935	These keywords are documented in L<perldata/"Special Literals">.
21632	21936
21633	21937	=end original
21634	21938
21635	21939	これらのキーワードは L<perldata/"Special Literals"> で文書化されています。
21636	21940
21637	21941	=back
21638	21942
21639	21943	=head3 perlmod
21640	21944
21641	21945	=over
21642	21946
21643	21947	=item BEGIN
21644	21948
21645	21949	=item CHECK
21646	21950
21647	21951	=item END
21648	21952
21649	21953	=item INIT
21650	21954
21651	21955	=item UNITCHECK
21652	21956
21653	21957	=begin original
21654	21958
21655	21959	These compile phase keywords are documented in L<perlmod/"BEGIN, UNITCHECK, CHECK, INIT and END">.
21656	21960
21657	21961	=end original
21658	21962
21659	21963	これらのコンパイルフェーズキーワードは
21660	21964	L<perlmod/"BEGIN, UNITCHECK, CHECK, INIT and END"> で文書化されています。
21661	21965
21662	21966	=back
21663	21967
21664	21968	=head3 perlobj
21665	21969
21666	21970	=over
21667	21971
21668	21972	=item DESTROY
21669	21973
21670	21974	=begin original
21671	21975
21672	21976	This method keyword is documented in L<perlobj/"Destructors">.
21673	21977
21674	21978	=end original
21675	21979
21676	21980	このメソッドキーワードは L<perlobj/"Destructors"> で文書化されています。
21677	21981
21678	21982	=back
21679	21983
21680	21984	=head3 perlop
21681	21985
21682	21986	=over
21683	21987
21684	21988	=item and
21685	21989
21686	21990	=item cmp
21687	21991
21688	21992	=item eq
21689	21993
21690	21994	=item ge
21691	21995
21692	21996	=item gt
21693	21997
	21998	=item isa
	21999
21694	22000	=item le
21695	22001
21696	22002	=item lt
21697	22003
21698	22004	=item ne
21699	22005
21700	22006	=item not
21701	22007
21702	22008	=item or
21703	22009
21704	22010	=item x
21705	22011
21706	22012	=item xor
21707	22013
21708	22014	=begin original
21709	22015
21710	22016	These operators are documented in L<perlop>.
21711	22017
21712	22018	=end original
21713	22019
21714	22020	これらの演算子は L<perlop> で文書化されています。
21715	22021
21716	22022	=back
21717	22023
21718	22024	=head3 perlsub
21719	22025
21720	22026	=over
21721	22027
21722	22028	=item AUTOLOAD
21723	22029
21724	22030	=begin original
21725	22031
21726	22032	This keyword is documented in L<perlsub/"Autoloading">.
21727	22033
21728	22034	=end original
21729	22035
21730	22036	このキーワードは L<perlsub/"Autoloading"> で文書化されています。
21731	22037
21732	22038	=back
21733	22039
21734	22040	=head3 perlsyn
21735	22041
21736	22042	=over
21737	22043
21738	22044	=item else
21739	22045
21740	22046	=item elsif
21741	22047
21742	22048	=item for
21743	22049
21744	22050	=item foreach
21745	22051
21746	22052	=item if
21747	22053
21748	22054	=item unless
21749	22055
21750	22056	=item until
21751	22057
21752	22058	=item while
21753	22059
21754	22060	=begin original
21755	22061
21756	22062	These flow-control keywords are documented in L<perlsyn/"Compound Statements">.
21757	22063
21758	22064	=end original
21759	22065
21760	22066	これらのフロー制御キーワードは L<perlsyn/"Compound Statements"> で
21761	22067	文書化されています。
21762	22068
21763	22069	=item elseif
21764	22070
21765	22071	=begin original
21766	22072
21767	22073	The "else if" keyword is spelled C<elsif> in Perl. There's no C<elif>
21768	22074	or C<else if> either. It does parse C<elseif>, but only to warn you
21769	22075	about not using it.
21770	22076
21771	22077	=end original
21772	22078
21773	22079	"else if" キーワードは Perl では C<elsif> と綴ります。
21774	22080	C<elif> や C<else if> はありません。
21775	22081	C<elseif> はパースされますが、使わないように警告するためだけです。
21776	22082
21777	22083	=begin original
21778	22084
21779	22085	See the documentation for flow-control keywords in L<perlsyn/"Compound
21780	22086	Statements">.
21781	22087
21782	22088	=end original
21783	22089
21784	22090	L<perlsyn/"Compound Statements"> のフロー制御キーワードに関する文章を
21785	22091	参照してください。
21786	22092
21787	22093	=back
21788	22094
21789	22095	=over
21790	22096
21791	22097	=item default
21792	22098
21793	22099	=item given
21794	22100
21795	22101	=item when
21796	22102
21797	22103	=begin original
21798	22104
21799	22105	These flow-control keywords related to the experimental switch feature are
21800	22106	documented in L<perlsyn/"Switch Statements">.
21801	22107
21802	22108	=end original
21803	22109
21804	22110	これらの実験的な switch 機能に関連するフロー制御キーワードは
21805	22111	L<perlsyn/"Switch Statements"> で文書化されています。
	22112
	22113	=back
	22114
	22115	=over
	22116
	22117	=item try
	22118
	22119	=item catch
	22120
	22121	=item finally
	22122
	22123	=begin original
	22124
	22125	These flow-control keywords related to the experimental C<try> feature are
	22126	documented in L<perlsyn/"Try Catch Exception Handling">.
	22127
	22128	=end original
	22129
	22130	実験的な C<try> 機能に関係するこれらのフロー制御キーワードは
	22131	L<perlsyn/"Try Catch Exception Handling"> に文書化されています。
	22132
	22133	=back
	22134
	22135	=over
	22136
	22137	=item defer
	22138
	22139	=begin original
	22140
	22141	This flow-control keyword related to the experimental C<defer> feature is
	22142	documented in L<perlsyn/"defer blocks">.
	22143
	22144	=end original
	22145
	22146	実験的な C<defer> 機能に関係するこれらのフロー制御キーワードは
	22147	L<perlsyn/"defer blocks"> に文書化されています。
21806	22148
21807	22149	=back
21808	22150
21809	22151	=cut
21810	22152
21811	22153	=begin meta
21812	22154
21813	22155	Translate: 吉村寿人 <JAE00534@niftyserve.or.jp>
21814	22156	Update: SHIRAKATA Kentaro <argrath@ub32.org> (5.6.1-)
21815	22157	Status: completed
21816	22158
21817	22159	=end meta

Powered by Amon2, 翻訳, サイト. Operated by Japan Perl Association