#!/usr/bin/perl

use strict;
use Getopt::Long;

my $Usage = <<ENDUSE;
Usage:  $0 [--operator operand1,operand2] ...

 operators:  --gt  --lt  --eq
 operand1:   field_id
 operand2:   value

ENDUSE

my %opts;
( GetOptions( \%opts, 'gt=s@', 'lt=s@', 'eq=s@' ) and keys %opts )
    or die $Usage;

my @conditions;
for my $opt ( sort keys %opts ) {
    for my $arg ( @{$opts{$opt}} ) {
	if ( $arg =~ /^([^,]+),([^,]+)$/ ) {
	    push @conditions, "$1 $opt $2";
	} else {
	    die "Bad option values at '--$opt $arg'\n\n$Usage";
	}
    }
}

print join "\n", "The stated conditions for this run are:", @conditions, "";