x/box-o-sand
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

second version of inline thingy

Browse Source
This commit is contained in:
Dan Buch 2011-01-06 21:47:57 -05:00
parent 20c678ecc8
commit 611c9f4355
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cli/exercise_02/input.pl
View File

@ -3,11 +3,19 @@ use strict;
use warnings;
print "How about a line of input?: ";
my $inline = <STDIN>;
my @inlines = ();
my $i = 0;
for ($i = 0; $i < 3; $i++) {
print "input please: ";
my $inline = <STDIN>;
$inline =~ s/\s*$//;
$inlines[$i] = $inline;
}
print "You said:\n";
print $inline;
print join("|", $inlines[0], $inlines[1], $inlines[2] . "\n");
1;