#!/usr/local/bin/perl

my $srcref = $ARGV[0];

$srcref =~ m/([^\/]+)$/;

my $optref = $1;
$optref =~ s/\.sgm/.txt/;

# Create appropriate ref file for each sent
my($i);
my($sentcount); # = 27;

open(REF, $srcref) or die $!;
while ($line = <REF>) {
    $line =~ s/[\r\n]*$//;
    if ($line =~ m/sysid=\"(\w+)\"/) {
	$sysid = $1;
    }
    if ($line =~ m/<seg/) {
	$line =~ s/<seg id=\d+>\s*//;
	$line =~ s/\s*<\/seg>//;
	push @{$refsets{$sysid}}, $line;
    }
}
close(REF);

foreach $sysid (sort keys %refsets) { 
    $sentcount = scalar(@{$refsets{$sysid}});
}

@sysids = sort keys %refsets;

open(NEWREF, "> $optref") or die $!;
for ($sentnum = 0; $sentnum < $sentcount; $sentnum++) {
    foreach $sysid (@sysids) { 
	print NEWREF $refsets{$sysid}[$sentnum], "\n";
    }
}
close(NEWREF);