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

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » Statement » 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

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.