While block : Code Block « Language Basics « Perl

1. Perl
2. Language Basics
3. Code Block

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