Question why my code is posting a new line

[chiggly007]

#!/usr/local/bin/perl5.8 -w
use strict;

print "Currency Converter\n\nPlease enter the ex rate: ";
my $yen = <STDIN>;

print "\nEnter a price to convert: ";
my $price = <STDIN>;

print "$price Yens ", ($price/$yen), " pounds\n";

##Why does my last print link, print the output and then again the output

[Athanasius]

Hello chiggly007, and welcome to the Monastery!

When the user types (say) “1.5” and presses “Enter”, $price is assigned “1.5\n” (note the newline). Then when print "$price" is called, this newline is printed to the screen.

Solution: chomp the input:

my $price = <STDIN>;
chomp $price;
print "$price Yens ", ($price / $yen), " pounds\n";

(Also, please fix the <code> / </code> tags in your post so that your script prints clearly. See Markup in the Monastery.)

Hope that helps,

[chiggly007]

Thanks for the help Athanasius. So are you saying that assigning a variable, and hitting Enter , Perl automatically assigns a "\n" to that variable? Thanks

[GrandFather]

No. Athanasius is implying that:

my $price = <STDIN>;

reads an entire line including the end of line character(s) into $price. Perl doesn't "add" the new line, it was there in the input. chomp may be used to remove a trailing line end.

Most often the line end is represented in Perl strings as \n regardless of operating system. In various cases is can be other strings (for example when the content of $/ has been changed).