Exits using the last statement. : Last « Statement « Perl






  1. Perl
  2. Statement
  3. Last

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");








Related examples in the same category

1.Breaking Out
2.Exit a loop
3.Labels: Create an infinite loop to demonstrate how last will break out of multiple code blocks.
4.Last with label
5.The last statement breaks out of a loop from within the loop block.
6.Use a label
7.Using a label.
8.Using the last statement in a foreach structure.
9.last if
10.last statement
11.last statement inside an if statement