List::Compareで二つの配列の集合を扱うの巻

tag perl array

こんにちは!hirobanexです!本日はフランクに、2つの配列の集合を良い感じに取り扱えるList::Compare のご紹介です。podみると、いろいろなメソッドとかオプションがあるのですが今回ご紹介するのは、

の基本的な4つのメソッドです。

取り扱う集合とメソッドの関係

それぞれのメソッドの機能をコトバで説明するよりも図で説明したほうがわかりやすいのですが、ベン図のあれっていえばだいたいの方はわかると思うので、図は出しませんwというわけで、それぞれ以下のようになります。

サンプルコード

左?右?何それ?って感じですが、実際の以下のサンプルをご覧頂ければ一目瞭然です。

use strict;
use warnings;
use List::Compare;

use Data::Dumper;

my @left  = qw/1 2 3 4/;
my @right = qw/3 4 5 6 7 8 9/;

my $lc = List::Compare->new(\@left, \@right); #このコンストラクション時に、左に入れるのか、右に入れるかが重要

my @intersection = $lc->get_intersection;
my @union        = $lc->get_union;
my @left_only    = $lc->get_Lonly;
my @right_only   = $lc->get_Ronly;

warn Dumper \@intersection; # [3,4]
warn Dumper \@union;        # [1,2,3,4,5,6,7,8,9]
warn Dumper \@left_only;    # [1,2]
warn Dumper \@right_only;   # [5,6,7,8,9]

使いどころ

List::Compareの実際の使いどころは、

という状態です。このモジュールを使わなくても、grepを使えば簡単に同じことができてしまいますし、いちいちnewしないといけないので、意外とコードも長くなりますので、1回くらいしか使わないのなら、知らない人が見てキモいと思わないように使わないほうがいいと思います。とわいえ、複数回使用する場合は、grepで書くよりも、モジュール名やメソッド名がわかりやすいことから、このモジュールを使ったほうが可読性が高まるし、なんか集合の取り扱いことをやりたいのねっていうのが伝わりやすいかなーという印象です。

以上、本日は小粒な使っても使わなくてもいいようなモジュールのご紹介でしたーw明日は、koba04さんです!See you again!