2010-01-01から1ヶ月間の記事一覧
.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 { …
Perl › 構文 › while文 while文を使うと繰り返し処理を記述することができます。条件が真の間ブロックの中身を繰り返します。 while (条件) { ... } 0〜2までの数値を出力 while文を使用して0〜2までの数値を出力するサンプルです。while文の最後で変数「$i…
Perl › 関数 › here 「grep関数」を使用すると配列の中で条件にマッチした要素のみを取り出すことができます。デフォルト引数$_に@arrayの各要素が渡されてきます。条件文を満たした要素のみが@matchedに追加されます。 # 条件にマッチした要素のみを取り出…
Perl › 関数 › here 配列のすべての要素を変換するにはmap関数を使用します。@arrayの各要素がデフォルト変数$_に渡されてきますので、コードブロック{ }の中で必要な変換を行います。変換文で最後に評価されたものが@mappedに順番に追加されます。 # 配列の…
.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 { …
.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 { …
Perl › 関数 › here 配列を並べ替えるにはsort関数を使用します。第1引数には比較のためのコードブロックを渡します。昇順で並べ替える場合は$aを$bより先に記述し、降順で並べ替えるには$bを$aより先に記述します。比較演算子には数値として比較したい場合…
.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 { …
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には…