head	1.1;access;symbols	zero-five-zero:1.1	zero-four-seventeen:1.1;locks	neto:1.1; strict;comment	@# @;1.1date	98.10.17.22.24.48;	author neto;	state Exp;branches;next	;desc@Extract wpm optimal values from log files@1.1log@Initial revision@text@#! /usr/bin/perl -wuse 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.plmy $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";				}			}		}	}}@