組み合わせの一覧を出す - ぽんすけのメモ帳

概要

2個の組み合わせの一覧を出したい

フォルダ構成

/
└test.pl
└lib
　└Math
　　└Combinatorics.pm
└input.txt
└output.txt

インプットファイル(input.txt)

AAA
BBB
CCC

ライブラリ

http://search.cpan.org/~allenday/Math-Combinatorics-0.09/lib/Math/Combinatorics.pm

ソース

#!/usr/local/bin/perl
use lib 'lib';
use strict;
use Math::Combinatorics;
use Data::Dumper;
use utf8;

my $file = "input.txt";
my @list;
# 2つの組み合わせ
my $combination_num = 2;

open (FH, $file);
	while (my $line = <FH>){
		push(@list, $line);
	}
close(FH); 

my @combine = combine($combination_num, @list);

open (DATA, ">>output.txt");
foreach my $ref(@combine){
    print DATA "@$ref\n";
}
close (DATA);