From cfeac3e1540189b42227eac5d5f94f4191a578f7 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 18 Sep 2009 18:35:50 +0000 Subject: [PATCH] merge isi files, with support for from-to range in filenames git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1283 07558da8-63fa-0310-ba24-9fe276d99e06 --- bin/isi-merge.pl | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100755 bin/isi-merge.pl diff --git a/bin/isi-merge.pl b/bin/isi-merge.pl new file mode 100755 index 0000000..c7d76e6 --- /dev/null +++ b/bin/isi-merge.pl @@ -0,0 +1,32 @@ +#!/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; -- 2.20.1