Mega Code Archive

 

Categories / Perl / Language Basics

 

While block

#!/usr/bin/perl use warnings; use strict; while (my $line = <>) {     last if $line =~/quit/;     print "You entered: $line"; } print "Bye! \n";