perlで２つの配列を比較する方法について - OKWAVE
関数型プログラムになれてれば 読めるコードですけど，Perl風味が混じってるので ちょっとしんどいですね． リファレンスを知ってるかどうかが重要です． {map{$_,1}@array2 }-> {$_} ここが何をしてるのかわかれば，大体OKかな map{$_,1}@array2 の部分では，@array2の要素を一個じつ$_1にいれて1とペアにしています．たとえば，@array2=(a,b,c,d)だったらaを$_にして，a,1 をつくってbを$_にして，b,1をつくって・・・とやって (a,1,b1,c,1,d,1) というリストを作ります．これがmapの機能 これを { } で囲んで { (a,1,b1,c,1,d,1) } というのを作るんだけども，これは { a,1,b1,c,1,d,1 } と同じで，無名のハッシュ︵ハッシュのリファレンス︶を 作る．つまり {a=>1,
