You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
323 B
Perl
14 lines
323 B
Perl
#!/usr/local/bin/perl
|
|
$resultstring = "";
|
|
print("Enter your input - type an empty line to quit\n");
|
|
$input = <STDIN>;
|
|
chop ($input);
|
|
while ($input ne "") {
|
|
$resultstring .= $input;
|
|
$input = <STDIN>;
|
|
chop ($input);
|
|
}
|
|
print ("Here is the final string:\n");
|
|
print ("$resultstring\n");
|
|
|
|
|