Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. While block
#!/usr/bin/perl
use warnings;
use strict;
while (my $line = <>) {
    last if $line =~/quit/;
    print "You entered: $line";
}
print "Bye! \n";