While block : Code Block « Language Basics « Perl






While block

  

#!/usr/bin/perl
use warnings;
use strict;

while (my $line = <>) {
    last if $line =~/quit/;
    print "You entered: $line";
}
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.Loop block
8.Map using a block
9.Put code in a block
10.Scope and block
11.Using bare blocks to form a multiple-selection structure.