www.pudn.com > sphinx_recipe.zip > SumLines.pl

#!/usr/bin/perl

# Adds up the sum of all the lines in a file.
#
# Copyright 2006 by Keith Vertanen
#

use strict;

if ( @ARGV < 1 )
{
    print "$0 \n";
    exit(1);
}

my $line;
my $file;
my $sum = 0.0;

($file) = @ARGV;

open(IN, $file);
while ($line = )
{
    $line =~ s/[\n\r]//g;

    if ($line)
    {
	$sum += $line;
    }
}
close(IN);

print $sum;