Blame test/numindex.awk

Packit Service f629e6
#To: bug-gnu-utils@gnu.org
Packit Service f629e6
#cc: arnold@gnu.org
Packit Service f629e6
#Subject: Possible bug in GNU Awk 3.0.4
Packit Service f629e6
#Date: Wed, 24 Nov 1999 21:47:24 +0000
Packit Service f629e6
#From: Daniel Elphick <de397@ecs.soton.ac.uk>
Packit Service f629e6
#Message-Id: <E11qkG4-0000l0-00@cameron>
Packit Service f629e6
#
Packit Service f629e6
#This is a multipart MIME message.
Packit Service f629e6
#
Packit Service f629e6
#--==_Exmh_-11192982200
Packit Service f629e6
#Content-Type: text/plain; charset=us-ascii
Packit Service f629e6
#
Packit Service f629e6
#
Packit Service f629e6
#When I use the attached awk script unique on the attached data file, it 
Packit Service f629e6
#reports that all 4 lines of the data are the same. Using mawk it correctly 
Packit Service f629e6
#reports that there are no repeats.
Packit Service f629e6
#
Packit Service f629e6
#I don't know if there are limits on the size of associative array keys for the 
Packit Service f629e6
#purposes of reliable indexing but if there is then it is not (obviously) 
Packit Service f629e6
#documented.
Packit Service f629e6
#
Packit Service f629e6
#
Packit Service f629e6
#--==_Exmh_-11192982200
Packit Service f629e6
#Content-Type: text/plain ; name="data"; charset=us-ascii
Packit Service f629e6
#Content-Description: data
Packit Service f629e6
#Content-Disposition: attachment; filename="data"
Packit Service f629e6
#
Packit Service f629e6
#322322111111112232231111
Packit Service f629e6
#322322111111112213223111
Packit Service f629e6
#322322111111112211132231
Packit Service f629e6
#322322111111112211113223
Packit Service f629e6
#
Packit Service f629e6
#--==_Exmh_-11192982200
Packit Service f629e6
#Content-Type: text/plain ; name="unique"; charset=us-ascii
Packit Service f629e6
#Content-Description: unique
Packit Service f629e6
#Content-Disposition: attachment; filename="unique"
Packit Service f629e6
#
Packit Service f629e6
{
Packit Service f629e6
	if($0 in a)
Packit Service f629e6
	{
Packit Service f629e6
		printf("line %d has been seen before at line %d\n",  NR, a[$0])
Packit Service f629e6
		repeat_count += 1
Packit Service f629e6
	}
Packit Service f629e6
	else
Packit Service f629e6
	{
Packit Service f629e6
		a[$0] = NR
Packit Service f629e6
	}
Packit Service f629e6
	count += 1
Packit Service f629e6
}
Packit Service f629e6
END {
Packit Service f629e6
#	printf("%d %f%%\n", repeat_count, (float)repeat_count / count * 100)
Packit Service f629e6
	printf("%d %f%%\n", repeat_count, repeat_count / count * 100)
Packit Service f629e6
}
Packit Service f629e6
#
Packit Service f629e6
#--==_Exmh_-11192982200--