- ベストアンサー
perlのCGIのハッシュを使った、比較・削除について
@array1 = ("a","b","c"); @array2 = ("a","y","oo","pp"); 二つを比較すると、aが重複しているので削除する。 @array = ("b","c","y",oo","pp"); ------------- こういった操作をする場合（実際の配列は500程度あります）、ハッシュを使うと、簡単にデータを抽出できそうな気がするのですが、自分で作ることができません。 どなたか、教えていただけないでしょうか？ 宜しくお願い致します。
- ayaka19801201
- お礼率42% (67/158)
- CGI
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
やり方は、色々あると思いますが、１つの方法 @a1 = ("a","b","c"); @a2 = ("a","y","oo","pp"); foreach $e (@a1,@a2){ $count{$e}++} @array = grep($count{$_} < 2, keys %count);
関連するQ&A
- Perlでハッシュや配列で重複するキーについて
ハッシュで重複するキーが値となるので、このハッシュはabdの３つのキーしか存在しないということでしょうか？ %a = ('a'=>1, 'b'=>2, 'a'=>3, 'd'=>4); また、配列の場合はabadと４つ数になるということでしょうか？ @a = ('a','b','a','d'); この場合配列で、重複する値を抽出するアルゴリズムが知りたいです。
- ベストアンサー
- Perl
- Perlは戻り値で、ハッシュや配列を正しく返さないのでしょうか？
Perlは戻り値で、ハッシュや配列を正しく返さないのでしょうか？ 返せるように見えて実際は、歯抜けのデータなど、不安定で使い物になりません。 よって、リファレンスでスカラー値で利用するのが正論でしょうか？ $a = ''; %b = (); @c = (); ○ return ($a, \$b, \$c); × retuen ($a, %b, @c); ○ my ($a, $b, $c) = aru_kansuu($hikkey, ('komori')); × my ($a, %b, @c) = aru_kansuu($hikkey, ('komori'));
- ベストアンサー
- Perl
- 配列やハッシュで中身が同じか簡単に調べることは可能でしょうか？
スカラ型なら my $a = "a"; my $b = "b"; if( $a eq $b)の用に比較が簡単に出来ますが、 配列やハッシュはどのように中身が同じかどうか調べることは可能でしょうか？ 配列でも複雑な（例えば配列のデータがハッシュ値）のような以下の ものを中身が同じが比較する方法です。 固定でなく、どんなデータが入ってきても数やキーが異なっても比較する方法が知りたいです。 my @ary1 = (); $ary[0]{'test_a'} = "a"; $ary[0]{'test_b'} = "b"; $ary[1]{'test_a'} = "aa"; $ary[1]{'test_b'} = "bb"; my @ary2 = (); $ary[0]{'test_a'} = "aa"; $ary[0]{'test_b'} = "bb"; $ary[1]{'test_a'} = "aaa"; $ary[1]{'test_b'} = "bbb";
- ベストアンサー
- Perl
- 配列の重複削除について
配列の重複削除について教えて下さい。 普通の重複チェックとは違い、３つの配列 それぞれに値があり、添え字が0から同じ ように始まり、3つの配列が全て同じものは、 例えば、 配列A[2]='30' 配列B[2]='000' 配列C[2]='1' 配列A[4]='30' 配列B[4]='000' 配列C[4]='1' は、１つの添え字にまとめたい。 その3つが一致したもの重複をまとめたいのと、 新しく出た３つの値は残したいのです。 つまり、以下のように抽出したいのです。 何か良い方法があれば教えて下さい。 perlで作成しています。 注）配列Cは空白もあります。 配列A（ 10, 20, 30, 10, 30, 20) 配列B（000,010,000,010,000,000） 配列C（ , 0, 1, 0, 1, 1) ↓ 配列D（ 10, 20, 30, 10, 20) 配列E（000,010,000,010,000） 配列F（ , 0, 1, 0, 1)
- ベストアンサー
- Perl
- Perlで重複行を削除したい
あ b c d e e g あ b c d e e g い b c d e e g い c c d e e g 上記のようなCSVデータ(タブ区切り)が100行くらいあるのですが、1列目にある、あ、あ、い、いは無視して、2列目以降のデータのみで重複を比較して同じ行は削除したいのですがどのようにすればよいでしょうか？ 下記コードを応用すれば分かりそうなのですが、自分で作ることができませんでした。 どなたか、教えていただけ無いでしょうか？ 宜しくお願い致します。 open(OUT, "$file"); @array = <OUT>; close(OUT); my %count; @array = grep(!$count{$_}++, @array); print @array;
- ベストアンサー
- CGI
- 動的なハッシュの配列を作成したい
#お世話になります。最終的には、下記のように配列の順番にハッシュを作成したいのですが、ご教授願えませんでしょうか #!/usr/bin/perl #想定される配列 @array=(0,2,4,6,8,1,3,5,7,9); #下記が最終的に動的に作成したいハッシュの形です。 %List = ( '0' => [ (@array0_n) ], '2' => [ (@array2_n) ], '4' => [ (@array4_n) ], '6' => [ (@array6_n) ], '8' => [ (@array8_n) ], '1' => [ (@array1_n) ], '3' => [ (@array3_n) ], '5' => [ (@array5_n) ], '7' => [ (@array7_n) ], '9' => [ (@array9_n) ], ); $a='array'; $n='_n'; foreach (@array){ #試行錯誤中... print "\@{${a}[$_]{$n}}=@{${a}[$_]{$n}}"; } __END__; お忙しいかとは存じますが、よろしくお願いいたします。
- ベストアンサー
- Perl
- 配列から別の配列の要素を削除する方法
ある配列array_aに、100件の文字列要素が格納されています。 別の配列array_bには、80件の文字列要素が格納されています。 array_aの要素、array_bの要素共に重複するものはありません。 array_b中に存在する要素はすべてarray_a中にも存在します。 array_aにあり、array_bにはない要素で構成されたarray_cの作り方を教えてください。 例えば $array_a=array("a","b","c","d","e","f","g"); $array_b=array("e","b","d"); なら、 $array_c=array("a","c","f","g") になります。 配列array_aとarray_bは、 $array_b=array("b","b","d"); であったり、 $array_a=array("a","a","b","c","d","e","f","g"); といった「重複する要素を含むパターン」はありません。要素はすべてユニークです。 よろしくお願いいたします。
- ベストアンサー
- PHP
- ハッシュ
この問題の解き方を出来ればわかりやすくお願いします。 疑問:データと書いてある所に16進数の解答の答えを10進数に直していれるのでしょうか？ 問題↓ 表A ーーーーーーーーーーーーーーーーー データと格納順 7B→B5→A7→58→FE→6A→7D→E9→88 ーーーーーーーーーーーーーーーーー ハッシュ値を f(データ)=mod(データ,8) で求めたとき最初に衝突が起こる。(上の表Aにあるデータと等しいハッシュ値になる)のはどのデータか。mod(a,b)はaをbで割った余りを表す。 a 6A b E9 c 7D d 88 (問題の解答はもとめておりません)
- ベストアンサー
- その他([技術者向] コンピューター)
- array_combineがうまくいかないので、教
array_combineがうまくいかないので、教えてください ■やりたいこと ・一方の配列をキー、もう一方の配列を値として、新たな配列を生成したい ■現状 $c = array_combine($a , $b);とやると、 Array c ( [1] => 2 [2] => 0 [3] => 0 ) となってしまいます ■元データ Array a ( [0] => 1 [1] => 2 [2] => 2 [3] => 1 [4] => 3 [5] => 1 [6] => 2 [7] => 2 [8] => 3 [9] => 1 ) Array b ( [0] => 0 [1] => 2 [2] => 0 [3] => 2 [4] => 2 [5] => 0 [6] => 2 [7] => 0 [8] => 0 [9] => 2 ) ■質問 ・元データから、下記結果を得るにはどうすればよいでしょうか？ Array c ( [1] => 0 [2] => 2 [2] => 0 [1] => 2 [3] => 2 [1] => 0 [2] => 2 [2] => 0 [3] => 0 [1] => 2 ) ・また、array_combineだとなぜ望む結果が得られないのでしょうか？ 重複しているから？
- ベストアンサー
- PHP
- 配列を比較して同じものがあった場合にそのKEYを返す
二つの配列を比較して同じ値が入っていた場合、そのKEYを配列に入れたいと思います。 (例)$aと$bを比較して同じ値が入っているときに$aのkeyを$cに格納したい。 $a = array("","","山","","川","海","","富士山","空","",""); $b = array("川","","","","","海","","富士山","空",""); ※空白は無視したい。 この場合 $c = array("4","5","7","8"); のようにしたいと思います。 どなたか教えてください。
- ベストアンサー
- PHP
お礼
ありがとうございます！！ とても、助かりました！