Loop block : Code Block « Language Basics « 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 » Language Basics » Code Block

Loop block

  



#!/usr/bin/perl

use warnings;

use strict;



if (defined(my $line = <>)) {

  { 

    last if $line =~/quit/;

    print "You entered: $line";

    $line = <>; redo;

  } 

}

print "Bye! \n";

Related examples in the same category

1.	A program that uses AUTOLOAD.
2.	Begin and End block
3.	Block main
4.	Block variable scope
5.	Blocks
6.	Local to Block
7.	Map using a block
8.	Put code in a block
9.	Scope and block
10.	Using bare blocks to form a multiple-selection structure.
11.	While block

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.