#!/usr/bin/env perl   

#  -*- perl -*-

use strict;
use warnings FATAL => qw ( all );
use Data::Dumper;
use Formats;
use Errors;

# SORTIT
#
# sortit scrambled.col original.col > sorted.col
#
# Ebbe Sloth Andersen, 2007.

# >>>>>>>>>>>>>>>>>> RUN PROGRAM <<<<<<<<<<<<<<<<<<<<

my ( $entries,
     $entries1, 
     $entries2, 
     $file1, 
     $file2,
     $header,
     $entry,
     );

( $file1, $file2 ) = @ARGV;
$entries1 = &Formats::read_txt ( $file1 );
$entries2 = &Formats::read_txt ( $file2 );

@{ $entries } = ( );

push ( @{ $entries }, $entries1->[0]);

foreach $entry ( @{ $entries2 } ) {
    push ( @{ $entries }, grep { $_->{'ENTRY'} eq $entry->{'ENTRY'} } @{ $entries1 });
}

$header .= "This file was made by sortit";

&Formats::write_txt ( $entries );
