trunk/bin/isi-merge.pl

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

my @files = @ARGV;
@files = glob '/tmp/isi.*-*.txt' unless @files;

my $path = '/tmp/isi.full.txt';
open(my $out_fh, '>', $path);
print $out_fh "FN ISI Export Format\nVR 1.0\n";

foreach my $file ( sort {
        my $a_r = $1 if $a =~ m{(\d+)-\d+};
        my $b_r = $1 if $b =~ m{(\d+)-\d+};
        $a_r <=> $b_r;
} @files ) {
        warn $file;

        open(my $fh, '<', $file);
        while(<$fh>) {
                next if m/^(FN|VR|EF)/;

                print $out_fh $_;
        }
}

print $out_fh "EF\n";
close $out_fh;

warn "# $path ", -s $path;
1	dpavlin	1283	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7			my @files = @ARGV;
8			@files = glob '/tmp/isi.-.txt' unless @files;
9
10			my $path = '/tmp/isi.full.txt';
11			open(my $out_fh, '>', $path);
12			print $out_fh "FN ISI Export Format\nVR 1.0\n";
13
14			foreach my $file ( sort {
15			my $a_r = $1 if $a =~ m{(\d+)-\d+};
16			my $b_r = $1 if $b =~ m{(\d+)-\d+};
17			$a_r <=> $b_r;
18			} @files ) {
19			warn $file;
20
21			open(my $fh, '<', $file);
22			while(<$fh>) {
23			next if m/^(FN\|VR\|EF)/;
24
25			print $out_fh $_;
26			}
27			}
28
29			print $out_fh "EF\n";
30			close $out_fh;
31
32			warn "# $path ", -s $path;