Perl › 構文 › here 条件が満たされなかった場合の処理を記述するにはunlessを使用します。 # unless unless (条件) { # 条件が満たされなかった場合の処理 } unlessのサンプルです。条件を満たさなかった場合にプログラムを終了する処理です。 # 条件を満た…

Perl › 構文 › while文 while文を使うと繰り返し処理を記述することができます。条件が真の間ブロックの中身を繰り返します。 while (条件) { ... } 0〜2までの数値を出力 while文を使用して0〜2までの数値を出力するサンプルです。while文の最後で変数「$i…

Perl › 関数 › here 「grep関数」を使用すると配列の中で条件にマッチした要素のみを取り出すことができます。デフォルト引数$_に@arrayの各要素が渡されてきます。条件文を満たした要素のみが@matchedに追加されます。 # 条件にマッチした要素のみを取り出…

Perl › 関数 › here 配列のすべての要素を変換するにはmap関数を使用します。@arrayの各要素がデフォルト変数$_に渡されてきますので、コードブロック{ }の中で必要な変換を行います。変換文で最後に評価されたものが@mappedに順番に追加されます。 # 配列の…

Perl › Mojolicious 簡易な検索アプリケーションです。これはかんたんプログラミング CGI/Perlの第5章の3節の「簡易検索アプリケーション」をMojolicious::Liteを使って書き直したものになっています。 簡易検索アプリケーション 簡易検索アプリケーションで…

Perl › Mojolicious 画像掲示板です。これはかんたんプログラミング CGI/Perl」の第5章の2節の「画像掲示板」をMojolicious::Liteを使って書き直したものになっています。 画像掲示板 画像掲示板です。 ソースコード 画像掲示板のソースコードです。 use Moj…

Perl › 関数 › here 配列を並べ替えるにはsort関数を使用します。第1引数には比較のためのコードブロックを渡します。昇順で並べ替える場合は$aを$bより先に記述し、降順で並べ替えるには$bを$aより先に記述します。比較演算子には数値として比較したい場合…

Perl › Mojolicious 「ひとことメッセージ掲示板」です。これはかんたんプログラミング CGI/Perlの第5章の1節の「ひとことメッセージ掲示板」をMojolicious::Liteを使って書き直したものになっています。 ひとことメッセージ掲示板 short-message-bbs.pl シ…

Perl › 関数 › here 配列の末尾に要素を追加するにはpush関数を使用します。 push @array, $value; サンプル push関数のサンプルです。@numsが(1, 2, 3)であった場合は@numsは(1, 2, 3, 4)になります。 my @nums = (1, 2, 3); push @nums, 4; Perl › 関数 › …

Perl › 関数 › here 配列の末尾の要素を取り出すにはpop関数を使用します。 $last = pop @array; サンプル pop関数のサンプルです。@numsが(1, 2, 3)であった場合は$lastには3が代入され@numsは(1, 2)になります。 my @nums = (1, 2, 3); my $last = pop @nu…

Perl › 関数 › here unshift関数を使用すると、配列の先頭に要素を追加することができます。 unshift @array, $value; unshift関数のサンプルです。@numsが(1, 2, 3)であった場合は@numsは(0, 1, 2, 3)になります。 my @nums = (1, 2, 3); unshift @nums, 0;…

Perl › 関数 › shift 配列の先頭の要素を取得するにはshift関数を使用します。先頭の要素は切り出され、元の配列からはなくなることに注意してください。 $ret = shift @array; サンプル shift関数のサンプルです。@numsが(1, 2, 3)であった場合は$firstには…