You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
315 B
23 lines
315 B
14 years ago
|
#!/usr/bin/env perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
|
||
|
14 years ago
|
my @inlines = ();
|
||
|
|
my $i = 0;
|
||
|
|
|
||
|
|
for ($i = 0; $i < 3; $i++) {
|
||
|
|
print "input please: ";
|
||
|
|
my $inline = <STDIN>;
|
||
|
|
$inline =~ s/\s*$//;
|
||
|
|
$inlines[$i] = $inline;
|
||
|
|
}
|
||
|
|
|
||
|
14 years ago
|
|
||
|
|
print "You said:\n";
|
||
|
14 years ago
|
print join("|", $inlines[0], $inlines[1], $inlines[2] . "\n");
|
||
|
14 years ago
|
|
||
|
|
|
||
|
|
1;
|
||
|
|
__END__
|