PC^2/pc2board/samps/sumit.pl

   1
   2 #
   3 # File:    sum1.pl
   4 # Purpose: to sum the integers in the file sumit.dat
   5 # Author:  pc2@ecs.csus.edu or http://www.ecs.csus.edu/pc2
   6 #
   7 # Sat Oct 30 13:20:59 PDT 1999
   8 #
   9 # caveat - this is not nice code, copy at own risk ;)
  10 #
  11 # $Id: sumit.pl,v 1.1 2005/03/06 05:13:57 laned Exp $
  12 #
  13 #
  14
  15         open (FP, "sumit.dat") || die "Could not open file sumit.dat\n";
  16
  17         $sum = 0;
  18
  19         while (<FP>)
  20         {
  21                 chomp;
  22                 $num = 0 + $_;
  23                 $sum += $num if $num > 0;
  24
  25         }
  26         print "Sum of positive integers is $sum\n";
  27
  28 # eof
  29
  30