chiggly007 has asked for the wisdom of the Perl Monks concerning the following question: 

#!/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";

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

Replies are listed 'Best First'.
Re: Question why my code is posting a new line
by Athanasius (Cardinal) on Dec 18, 2012 at 02:35 UTC

    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";

    [download]

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

    Hope that helps,

    Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

[reply]
[d/l]
      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
[reply]

        No. Athanasius is implying that:

        my $price = <STDIN>;

        [download]

        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).

        True laziness is hard work
[reply]
[d/l]

Back to Seekers of Perl Wisdom