2010-01-01から1ヶ月間の記事一覧

unless文

.bread { padding:0; margin:0; } .bread li { display:inline-block; list-style-type:none; font-size:14px; } .bread a { padding:3px 5px; width:100%; background:#3cb371; color:white; border-radius:3px; text-decoration:none; } .bread a:hover { …

while文 - 繰り返し処理を行う

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

grep関数 - 特定の条件を満たす配列要素のみ取得

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

map関数 - 配列のすべての要素の変換

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

簡易検索アプリケーション(Mojolicious::Liteバージョン)

.bread { padding:0; margin:0; } .bread li { display:inline-block; list-style-type:none; font-size:14px; } .bread a { padding:3px 5px; width:100%; background:#3cb371; color:white; border-radius:3px; text-decoration:none; } .bread a:hover { …

画像掲示板(Mojolicious::Liteバージョン)

.bread { padding:0; margin:0; } .bread li { display:inline-block; list-style-type:none; font-size:14px; } .bread a { padding:3px 5px; width:100%; background:#3cb371; color:white; border-radius:3px; text-decoration:none; } .bread a:hover { …

sort関数 - 配列の並べ替え

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

ひとことメッセージ掲示板(Mojolicious::Liteバージョン)

.bread { padding:0; margin:0; } .bread li { display:inline-block; list-style-type:none; font-size:14px; } .bread a { padding:3px 5px; width:100%; background:#3cb371; color:white; border-radius:3px; text-decoration:none; } .bread a:hover { …

push関数 - 配列の末尾に追加

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 › 関数 › …

pop関数 - 配列の最後の要素を取り出す

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…

unshift関数 - 配列の先頭に要素を追加

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

shift関数 - 配列の先頭を取得

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