1#!/usr/local/bin/perl 2# print_sum - read from stdin and print the sum. 3 4# This is part of SLOCCount, a toolsuite that counts 5# source lines of code (SLOC). 6# Copyright (C) 2001-2004 David A. Wheeler. 7# 8# This program is free software; you can redistribute it and/or modify 9# it under the terms of the GNU General Public License as published by 10# the Free Software Foundation; either version 2 of the License, or 11# (at your option) any later version. 12# 13# This program is distributed in the hope that it will be useful, 14# but WITHOUT ANY WARRANTY; without even the implied warranty of 15# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16# GNU General Public License for more details. 17# 18# You should have received a copy of the GNU General Public License 19# along with this program; if not, write to the Free Software 20# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 21# 22# To contact David A. Wheeler, see his website at: 23# http://www.dwheeler.com. 24# 25# 26 27$total = 0.0; 28 29while (<>) { 30 if (m/^\s*([\d.]+)/) { 31 $maybe_number = $1; 32 $maybe_number =~ s/\.*$//; # chop trailing ".". 33 if ($maybe_number =~ m/\d/) { 34 $total += $maybe_number; 35 } 36 } 37} 38 39print "$total\n"; 40 41