# charset="CP932"
# encoding="CP932"
# Field 毎に最大 Byte 数を調べる.

#!/usr/bin/perl -aln
sub max { $_[0] < $_[1] ? $_[1] : $_[0] }
@_ = map max($_[$_], length $F[$_]), 0 .. $#F;
END { print map "$_ : $_[$_]", 0 .. $#_ }
__END__

#!/usr/bin/awk -F"\t" -f
NF {
	for (i = 1; i <= NF; i++)
		if ((_ = length($i)) > f[i]) {
			f[i] = _;
			l[i] = NR;
		}
}
END {
	print "Field\tLength\tLine";
	for (i in f)
		printf "%5d\t%6d\t%4d\n", i, f[i], l[i];
}