Perl の goto ステートメント

著者：Eve Cole 更新時間：2025-01-03 10:48:01

Perl には、got LABLE、goto EXPR、goto &NAME の 3 つの goto フォームがあります。

シリアルナンバー	タイプに移動
1	ラベルに移動 LABEL とマークされたステートメントを見つけて、そこから再実行します。
2	EXPRに移動 goto EXPR 形式は、goto LABEL の一般的な形式にすぎません。式がタグ名を生成することを期待し、実行のためにそのタグにジャンプします。
3	名前に移動(&N) 実行中の子プロセスを、指定された子プロセスへの呼び出しに置き換えます。

文法

構文形式は次のとおりです。

 LABEL に移動、EXPR に移動、または &NAME に移動

フローチャート

例

次の 2 つの例は、変数 $a が 15 の場合に出力から飛び出します。

以下は一般的に使用される goto の例です。

例

#/usr/bin/perl $ a = 10 ;ループ{ もし（ $a == 15 ) { # 反復をスキップする $a = $a + 1 # goto LABEL フォームを使用します。印刷する"出力からジャンプ n " ;ループ印刷"この文は実行されません n " ; 印刷する" a = $ a n " ; while ( $a < 20 ) ;

上記のプログラムを実行すると、出力結果は次のようになります。

 a = 10a = 11a = 12a = 13a = 14 出力から飛び出す a = 16a = 17a = 18a = 19

次の例では、goto EXPR フォームを使用します。 2 つの文字列を使用し、ピリオド (.) を使用してそれらを連結しました。

例

$ a = 10 ; $ str1 = " LO " ; $ str2 = " OP " ; { もし（ $a == 15 ) { # 反復をスキップする $a = $a + 1 # goto EXPR フォームを使用します。後藤$str1 . $str2 # goto LOOP に似ています。 } 印刷する" a = $ a n " ; while ( $a < 20 ) ;

上記のプログラムを実行すると、出力結果は次のようになります。

 a = 10a = 11a = 12a = 13a = 14a = 16a = 17a = 18a = 19