#!/usr/bin/env perl   

#  -*- perl -*-

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

# Ebbe Sloth Andersen, 2007.

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

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

( $file1 ) = @ARGV;
$entries = &Formats::read_txt ( $file1 );
my $prev = "none";
foreach $entry ( @{ $entries } ) {
    if ( $entry->{ENTRY} ne $prev ) {
        push @entries1, $entry;
    }
    $prev =  $entry->{ENTRY};
}

$header .= "This file was made by txt2col";
&Formats::write_col ( $header, \@entries1 );
