#!/usr/bin/perl
#
# カレントディレクトリにある全ての.gifを
# 一つのファイルにまとめあげるスクリプト
#                           Version 1.00
# Copyright (c) 1999 by Irao.
#                   All rights reserved.
#

opendir DIR, './';
@files = readdir DIR;
closedir DIR;

open OH, "> ir-jsext.dat";
binmode OH;

foreach(sort grep { /\.gif/ } @files){
    open FH, $_;
    binmode FH;
    @p = <FH>;
    close FH;
    /^(\d+)\.gif$/;
    $f = sprintf("%03d", $1);
    print OH ">:>$f";
    print OH @p;
}
close OH;
