Perlのswitch文

著者：Eve Cole 更新時間：2024-12-24 17:12:01

switchステートメントを使用すると、複数の値に等しい変数をテストできます。それぞれの値は case と呼ばれ、テスト対象の変数はswitch caseごとにチェックされます。

switch ケースの実行は、デフォルトではインストールされないSwitchモジュールに基づいています。

Switch.pmモジュールをインストールする

CPANを使用してインストールする

コマンドウィンドウを開き、cpan コマンドを入力してから、install Switch コマンドを入力します。

 # cpancpan[1]> install Switch // cpan[2] をインストール> exit // 終了

apt-getを使用したUbuntuのインストール

sudo apt-get install libswitch-perl

文法

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

文法

スイッチを使用;スイッチ(引数) { 場合1 {印刷する「ナンバー1 」 } 場合「あ」 {印刷する「文字列a 」 } 場合[ 1..10,42 ] {印刷する「番号はリストにあります」 } 場合（ @配列） {印刷する「配列内の数値」 } 場合/ w+ / {印刷する「規則的なマッチングパターン」 } 場合qr /w+/ { p r int 「規則的なマッチングパターン」 } 場合( %ハッシュ) {印刷する「ハッシュ」 } 場合( &サブ) {印刷する「子プロセス」 } それ以外 {印刷する「前の条件と一致しません」 } }

switch ステートメントの規則は次のとおりです。

switchステートメントのかっこ内では、任意の型のスカラーパラメーターを使用できます。

スイッチには任意の数の case ステートメントを含めることができます。各ケースの後には、比較する値とコロンが続きます。

case ステートメントの後のスカラーは、switch ステートメントのスカラーと比較され、それらが等しいかどうかが判断されます。

テストされる変数が case 内の定数と等しい場合、 breakステートメントに遭遇するまで case に続くステートメントが実行されます。

switchステートメントの最後に、オプションのelseステートメントを含めることができます。これは、すべてのケースが一致しない場合に実行されます。

caseが一致するとcase文のブロックコードが実行され、実行後にswitch文が飛び出します。

case を照合した後、次の case ステートメントの実行を継続する必要がある場合は、 nextステートメントを追加する必要があります。

フローチャート

例

#!/usr/bin/perl スイッチを使用します; $ var = 10 ; @array = ( 10 , 20 , 30 ) ; % hash = ( ' key1 ' = > 10 , ' key2 ' = > 20 ) ; 場合10 {印刷する「 10 番n 」 } 場合「あ」 {印刷する「文字列a 」 } 場合[ 1..10,42 ] {印刷する「番号はリストにあります」 } 場合（ @配列） {印刷する「配列内の数値」 } 場合( %ハッシュ) {印刷する「ハッシュの中で」 } それ以外 {印刷する「一致する条件がありません」 } }

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

 10番

次に、 nextの使用例を見てみましょう。

例

#!/usr/bin/perl スイッチを使用します; $ var = 10 ; @array = ( 10 , 20 , 30 ) ; % hash = ( ' key1 ' = > 10 , ' key2 ' = > 20 ) ; 場合10 {印刷する"番号10 n " ; # マッチング後も実行を継続場合「あ」 {印刷する「文字列a 」 } 場合[ 1..10,42 ] {印刷する「番号はリストにあります」 } 場合（ @配列） {印刷する「配列内の数値」 } 場合( %ハッシュ) {印刷する「ハッシュ内」 } それ以外 {印刷する「一致する条件がありません」 } }

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

番号 10 リスト内の番号