[SOLVED] Perl, Interpolated Variable Cause a Newline in Output

killingthemonkey · 08-30-2016, 11:23 AM

Here is my, admittedly simple, code:

Code:

#!/usr/bin/perl
print "Enter a number: ";
$num1 = <STDIN>;

print "Enter another number: ";
$num2 = <STDIN>;

print "The product of $num1 and $num2 is: ", $num1 * $num2, ".\n";

Here is the output:

Code:

Enter a number: 12
Enter another number: 12
The product of 12
 and 12
 is: 144.

I've searched, but no answers are jumping off the screen at me.

Thank you for any help.

PS. Any other vim users ever try :wq to submit a post? Note: It doesn't work.

grail · 08-30-2016, 11:34 AM

When you get the number from STDIN, how does the user advise the program when they have finished entering the number they want?

keefaz · 08-30-2016, 12:12 PM

You need to chomp your variables...

Code:

$num1 = <STDIN>;
chomp $num1;
...

sundialsvcs · 08-30-2016, 12:16 PM

To clarify, the line of input you are getting from <STDIN> includes a newline character at the end of the string.

chomp (or chop in PHP) removes this character from the string.

You are seeing newlines in your printed output because the strings that you are printing contain newline characters.

killingthemonkey · 08-30-2016, 08:22 PM

Thank you!

chomp was the solution.