Loop block : Code Block « Language Basics « Perl

1. Perl
2. Language Basics
3. 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