一次元配列同士の比較のいろいろなやり方 - harupiyoの日記
問題 @a = (1,2,3); @b = (1,2,3); のような配列があったとして、これらの中身が同じ(@a = @b) であることを確認したいと思います。 細かい条件として、値は正の数字のみ(負はない、)で並び順は気にしない、かつ同じ番号はないという事にします。 かんたんに考えると、次の二つの条件を満たせればいいはずです。 二つの要素の数が同じであること 先頭から比較して、末尾までの各項目の内容が等しいこと 素直にコーディングすると... sub is_same($$){ my($a,$b) = @_; # (1)二つの要素の数が同じであること return 0 if @$a != @$b; # (2)先頭から比較して、末尾までの内容が等しいこと for (0..$#$a){ return 0 if $a->[$_] != $b->[$_]; } return 1; } というサブ
【CGI・Perl】配列,リストからある条件と一致した値を取出す (Perl, grep)
CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ カテゴリー：リスト(配列) 配列,リストからある条件と一致した値を取出す (Perl, grep) あるリストから、希望する条件に一致した値だけを取り出したい場合がある。for,while,foreachなどのループを使う方法以外に、効率の良いやり方が知りたい。 ;# ;# リストからある条件と一致した値を取出す ;# @array = ('apple', 'orange', 'pineapple'); #-- "apple"が含まれる物を表示する --# @result = grep(/apple/, @array); #-- 結果表示 --# foreach(@result){ print ; print "\n"; } __END__ ○実行結果 apple pi
[perl] 空の配列を作るのは難しい - のぶじゃすBLOG
ある配列をいじるためのサブルーチンを作ったときに、困った事があったので、書いておこう。 sub change_arrayref { my $arrayref = shift; my @change_array = map { $_->[0] } @{ $arrayref }; return \@change_array; } みたいなサブルーチンをつくったんだけど、下記のようなテストを書いてテストしてみたところ、 use Test::More qw(no_plan); is_deeply( change_arrayref( [ [ '1111' ], ['2222'] ] ), [ '1111', '2222'] ); is_deeply( change_arrayref( [ [] ] ), [] ); しかし2個目のテストがうまくいかない。 解決編は下記 mapがいけなかった。
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Client Challenge
