Mega Code Archive

 

Categories / Perl / Language Basics

 

Read three lines of text from standard input

#!/usr/bin/perl use strict; for (1..3) {   last unless defined (my $line = <>);   warn "Read_three got: $line"; }