sum.pl
No OneTemporary
Actions

Subscribers

None

File Metadata

	#!/usr/bin/perl
	# This script will take a .vol file created by voro++, and it will sum up the
	# volumes of all the Voronoi cells. In many cases, this will equal the volume
	# of the container, and it can be a useful check.
	#
	# It assumes that the volume is stored in the final column, so it works with
	# both regular and polydisperse calculations.

	open A,"@ARGV[0]" or die "Can't open input file";
	while(<A>) {
	@A=split;
	$c+=pop @A;
	}
	print "$c\n";