#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;

# 何個横に連結するかを指定する
if( @ARGV != 1 ) {
    print "引数の数が1つではありません\n";
    exit 1;
}


my $num = $ARGV[0];
my $count = 0;


# images ディレクトリ以下のファイルをすべて取得
my @all_files = glob "./imageUnite/*";
my @jpg_files;

# 対象ファイルの取得
foreach(@all_files) {
    if(/.jpg$/) {
		 push(@jpg_files, $_);
    }
}

# 画像処理を行っていく
my $image = Image::Magick->new;
foreach my $file ( sort @jpg_files) {
    $count = $count + 1;

    $image->Read($file);

	if ($count % $num == 0) {
        # 出力ファイル名（現在時刻）
        my $now = time;
		my $outFilePath = sprintf("./out/"."%d"."_"."%03d".".jpg", $now, $count);

        # 結合オブジェクトを新規作成
        # (stack=>'false')で横に結合
        # (stack=>'true')で縦に結合
        my $append = $image->Append(stack=>'true');
        $append->Write($outFilePath);

        $image = undef;
        $image = Image::Magick->new;
    }
}



exit 0;