とあるエンジニアの闇歴史帳

コピペで使える便利Wiki ※現在構築中です。

ユーザ用ツール


perl:array_pop_shift

差分

このページの2つのバージョン間の差分を表示します。

この比較画面にリンクする

perl:array_pop_shift [2017/12/14 20:18]
perl:array_pop_shift [2020/06/23 14:10] (現在)
行 1: 行 1:
 +====== 配列から値を取り出す(pop,shift) - Perl ======
 +~~socialite~~
 +<note important>この記事は2007年05月26日に書かれた物です</note>
 +
 +配列の先頭、または末尾から値を取り出すにはpop, shiftを用いれば良い。
 +先頭から取り出す時は「shift」、末尾から取り出す時は「pop」を用いる。注意する点としては、取り出した後その値は配列から取り除かれる(削除される)。なお配列を指定しないと「@_」が自動的に用いられる。
 +
 +===== サンプル =====
 +
 +<code perl>
 +;#
 +;#配列から値を取り出す。
 +;#
 +
 +use strict;
 +
 +#--------------------------#
 +#       配列を初期化       #
 +#--------------------------#
 +my @array = (1..5);
 +
 +#--------------------------#
 +#       値を取り出す       #
 +#--------------------------#
 +#-- 先頭から取り出す --#
 +print shift(@array), "\n";
 +
 +#-- 末尾から取り出す --#
 +print pop(@array), "\n\n";
 +
 +
 +#--------------------------#
 +#      実行後の配列は?    #
 +#--------------------------#
 +print "$_\n" foreach(@array);
 +</code>
 +
 +===== 実行結果 =====
 +<code>
 +1
 +5
 +
 +2
 +3
 +4
 +
 +</code>
 +
 +===== 関連書籍 =====
 +{{amazon>jp:4873113148}}
 +<html><p style="clear:both"></p></html>
 +
 +{{amazon>jp:4798139815}}
 +<html><p style="clear:both"></p></html>
 +
 +{{tag>CGI・Perl例文集 Perl 配列 リスト pop shift}}
 +~~socialite~~
  

関連ページ