タグ

ブックマーク / katsubemakito.net (2)

  • 【CGI・Perl】配列から値を取り出す(pop, shift)

    CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー&ペーストで使える便利集! « 配列を初期化する | メイン | 配列に値を追加する(push, unshift) » カテゴリー:リスト(配列)  配列から値を取り出す(pop, shift) 配列の先頭、または末尾から値を取り出すにはpop, shiftを用いれば良い。 ;# ;#配列から値を取り出す。 ;# use strict; #--------------------------# # 配列を初期化 # #--------------------------# my @array = (1..5); #--------------------------# # 値を取り出す # #--------------------------# #-- 先頭から取り出す --# print shift(@array),

  • 【CGI・Perl】数値の値でソートする (Perl, sort)

    CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー&ペーストで使える便利集! カテゴリー:ソート(並べ替え) リスト(配列)  数値の値でソートする (Perl, sort) 以下のようなコードを書くと、文字列として扱われてしまい、意図した結果にならない場合がある。 @array = ( 1, 2, 3, 4, 5, 10, 11, 12 ); foreach(sort @array){ print ; print "\n" } ○実行結果 1 10 11 12 2 3 4 5 これを回避するコードは次のようなものである。 @array = ( 1, 2, 3, 4, 5, 10, 11, 12 ); #-- 昇順 --# foreach(sort {$a <=> $b} @array){ print ; print "\n" } #

  • 1