wm.pl,v

Lin-Kernighan heuristic for the TSP and minimum weight perfect matching

head	1.1;
access;
symbols
	zero-five-zero:1.1
	zero-four-seventeen:1.1;
locks
	neto:1.1; strict;
comment	@# @;


1.1
date	98.10.17.22.24.48;	author neto;	state Exp;
branches;
next	;


desc
@Extract wpm optimal values from log files
@


1.1
log
@Initial revision
@
text
@#! /usr/bin/perl -w

use strict;

# Arguments are taken as file names of the tsp.wm.gz files.
# Extract exact matching length from output of blossom4.
# Output format is as instance lines for expt.pl

my $iters = "N";
my $verbose=50;
my $n=-1;
my $instance;

foreach (@@ARGV) {
	my $file = $_;
	if ( $file =~ m/^([^\s]+)\.tsp\.wp?m\.gz/ ) {
		$instance = $1;
		$instance =~ m/(\d+)$/;
		$n = $1;
		if ( -r $file ) {
			open IN, "gzip -d -c $file|";
			while (<IN>) {
				if ( m/Matching Length: (\d+\.\d+).*Dual/ ) {
					my $bound = $1;
					print "instance $instance:$n:-l optimal $bound : $iters\n";
				}
			}
		}
	}
}
@