Mega Code Archive

 

Categories / Perl / Statement

 

Exits using the last statement

#!/usr/local/bin/perl  $total = 0;  while (1) {      $line = <STDIN>;      if ($line eq "") {          last;      }      chop ($line);      @numbers = split (/[\t ]+/, $line);      foreach $number (@numbers) {          if ($number =~ /[^0-9]/) {              print STDERR ("$number is not a number\n");          }          $total += $number;      }  }  print ("The total is $total.\n");