sum.pl
706c4ccdaefdlammm-master-deprecated

sum.pl
View Options

			#!/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";