From b6e70b420ed993ee73f71058d04b382147896068 Mon Sep 17 00:00:00 2001
From: Chris Dyer <cdyer@cs.cmu.edu>
Date: Sun, 12 Aug 2012 23:33:21 -0400
Subject: use new union api

---
 extools/merge_lines.pl | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100755 extools/merge_lines.pl

(limited to 'extools/merge_lines.pl')

diff --git a/extools/merge_lines.pl b/extools/merge_lines.pl
deleted file mode 100755
index 8711e4ce..00000000
--- a/extools/merge_lines.pl
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-if (scalar @ARGV < 2) {
-  die "Usage: $0 file1.txt file2.txt ...\n\n  Concatenate the nth line of each input file. All files\n  must be the same length.\n\n";
-}
-
-my @fhs=();
-for my $file (@ARGV) {
-  my $fh;
-  open $fh, "<$file" or die "Can't read $file: $!\n";
-  push @fhs, $fh;
-}
-
-my $first = shift @fhs;
-
-while(my $x = <$first>) {
-  my $ind = 0;
-  chomp $x;
-  my @fields = ($x);
-  for my $fh (@fhs) {
-    $ind++;
-    $x = <$fh>;
-    die "ERROR: Mismatched number of lines: $ARGV[$ind]\n" unless $x;
-    chomp $x;
-    push @fields, $x;
-  }
-  print join ' ||| ', @fields;
-  print "\n";
-}
-my $ind = 0;
-for my $fh (@fhs) {
-  $ind++;
-  my $x=<$fh>;
-  die "ERROR: $ARGV[$ind] has extra lines!\n" if $x;
-}
-
-exit 0;
-
-for my $fh (@fhs) {
-  close $fh;
-}
-
-- 
cgit v1.2.3